diff --git a/Varela/Varela/Build/Build.fbl5 b/Varela/Varela/Build/Build.fbl5 deleted file mode 100644 index dd58805..0000000 Binary files a/Varela/Varela/Build/Build.fbl5 and /dev/null differ diff --git a/Varela/Varela/Build/Build.fbp5 b/Varela/Varela/Build/Build.fbp5 deleted file mode 100644 index f25caf3..0000000 --- a/Varela/Varela/Build/Build.fbp5 +++ /dev/null @@ -1,2825 +0,0 @@ - - - - - - base.fbz5 - - - 0 - - - - False - True - Main - {4C1B4E5D-F42F-4877-9F28-41B527858954} - - FinalBuilderAction - 0 - - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 16711680 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 16711680 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 0 - - False - True - True - True - ftString - False - True - False - - 0 - smNone - %FBPROJECTDIR% - False - 0 - 1000 - False - project_path - - - - - 0 - {78526C82-A8E7-42B3-8C9D-1E229C79D915} - - - True - False - True - False - True - False - - 0 - False - 0 - 1000 - False - True - 2 - - True - True - - project_path - \Build - - False - False - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 16711680 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 0 - - - - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - - - True - True - False - False - True - - - True - False - - False - - True - False - True - - 0 - False - - - 0 - 0 - tpNormal - True - 1000 - rcEqualTo - 0 - %source_path% - False - True - 1 - True - - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 0 - - - - True - True - search_path - False - True - False - - 0 - False - 0 - SOFTWARE\Borland\BDS\5.0\Library - -2147483647 - rtString - - - 1000 - False - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 16711680 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 0 - - True - True - True - False - True - False - False - - 0 - False - 0 - 1000 - False - - - - - - - 16711680 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - Servidor - 0 - - Servidor - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - %project_path%\Resources\Iconos\Servidor.ico - False - True - True - True - False - False - False - False - False - False - False - True - 3082 - - 1 - 0 - 2 - False - 0 - %source_path%\Servidor\AdminPV_Server.dpr - True - 5 - - - rcBorland - 1000 - %source_path%\Servidor\ - False - True - False - False - [usPackages,usVersionInfo] - False - True - - - - False - False - False - True - True - True - False - False - - - - - False - - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 3 - 1048576 - 16384 - - True - True - %output_path%\Servidor - False - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;vclsmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclofficexp;cxlibraryvcld7;dxthemed7;cxtreelistvcld7;cxeditorsvcld7;cxdatad7;cxexteditorsvcld7;cxgridvcld7;cxpagecontrolvcld7;cxschedulervcld7;dxcomnd7;dxsbd7;dxbard7;dxbardbnavd7;dxbarextdbitemsd7;dxbarextitemsd7;dxdockingd7;dxlayoutcontrold7;dxnavbard7;dxpscored7;cxexportvcld7;cxintl5d7;cxintlprintsys3d7;cxintlschedulerd7;fsibx7;fs7;fqb70;frx7;frxado7;frxbde7;frxcs7;frxdb7;frxdbx7;frxe7;frxibx7;fsado7;fsbde7;fsdb7;cxverticalgridvcld7;easylistviewd7;remobjects_indy_d10;indyprotocols;indycore;indysystem;pascalscript_ro_d10;dataabstract_core_d10;dataabstract_scripting_d10;dataabstract_ide_d10 - False - fa8 - True - False - ..\Lib;..\Base - True - True - True - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - .\ - False - False - True - - - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - 16711680 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - # - 16711680 - - # - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - Base - 255 - - Base - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Base\BaseD10.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %base_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - %search_path% - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\ControlesBase\ControlesBaseD10.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %base_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - %search_path% - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Parametros\Cliente\Parametros.dpk - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %base_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - %search_path% - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Usuarios\Usuarios.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Configuracion\Configuracion.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - Módulos - 0 - - Módulos - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\FicherosEDI\Cliente\FicherosEDI.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\VentasTerminadas\Cliente\VentasTerminadas.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\VentasProceso\Cliente\VentasProceso.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Recepciones\Cliente\Recepciones.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Devoluciones\Cliente\Devoluciones.dpk - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Traspasos\Cliente\Traspasos.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Stock\Cliente\Stock.dpk - True - 2 - - - rcBorland - 1000 - - False - False - False - False - [usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - Cliente - 0 - - Cliente - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - %project_path%\Resources\Iconos\Cliente.ico - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 1 - False - 0 - %source_path%\Cliente\AdminPV.dpr - True - 1 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - - - - - False - - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - based10;configuracion;controlesbased10;usuarios;ficherosedi;ventasproceso;ventasterminadas;referenciagenerica - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - True - True - - - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 11 - Release - False - - - True - True - - False - %project_path%\Resources\Iconos\CargaEDI.ico - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 1 - False - 0 - %source_path%\CargaEDI\CargaEDI.dpr - True - 1 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usVersionInfo] - False - False - - - - False - False - False - True - True - True - False - False - - - - - False - - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - - - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - based10;configuracion;ficherosedi;rtl;dbrtl;vcldb;dataabstract_core_d10;dataabstract_ide_d10 - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - True - True - - - - - - - 0 - - - - False - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - 0 - {A78530B0-8E25-4ACF-BCD0-410E385473A0} - - - - - True - False - True - False - True - False - - 0 - False - 0 - 1000 - False - True - 2 - %output_path%\Debug\Servidor\FactuGES_Server.exe - - True - True - False - True - True - True - False - False - False - - - - - 0 - {A78530B0-8E25-4ACF-BCD0-410E385473A0} - - - - - True - False - True - False - True - False - - 0 - False - 0 - 1000 - False - True - 2 - %output_path%\Debug\Cliente\FactuGES.exe - - True - True - False - True - True - True - False - False - False - - - - - - 0 - - True - False - True - efHTML - False - True - True - True - True - True - True - True - True - False - - 0 - False - - - %project_path%\Build\buildlog.html - 0 - 1000 - False - - - - - - True - False - OnFailure - {BA6B406D-5FE5-4FF9-8D33-0459EBECDF95} - - FinalBuilderAction - 0 - - True - True - False - True - False - - 0 - False - 0 - 1000 - False - - - - - Project - - %project_path%\Output\Debug - True - False - False - output_path - vtProject - - - - - False - False - False - search_path - vtProject - - - - - - False - False - False - library_path - vtProject - - - %output_path%\Cliente - True - False - False - package_path - vtProject - - - - - False - True - False - project_path - vtProject - - - %source_path%\Lib - True - False - False - modules_dcp_path - vtProject - - - %source_path%\Lib - True - False - False - base_dcp_path - vtProject - - - %DELPHI2006% - False - False - False - DELPHI - vtProject - - - %project_path%\Source - True - False - False - source_path - vtProject - - - - diff --git a/Varela/Varela/Build/Build.fbv b/Varela/Varela/Build/Build.fbv deleted file mode 100644 index bd99b75..0000000 --- a/Varela/Varela/Build/Build.fbv +++ /dev/null @@ -1 +0,0 @@ - diff --git a/Varela/Varela/Build/Build.fbw b/Varela/Varela/Build/Build.fbw deleted file mode 100644 index e69de29..0000000 diff --git a/Varela/Varela/Build/buildlog.html b/Varela/Varela/Build/buildlog.html deleted file mode 100644 index e6beb80..0000000 --- a/Varela/Varela/Build/buildlog.html +++ /dev/null @@ -1,1298 +0,0 @@ - - - - - - -FinalBuilder Log for Project Build.fbp5 - - -

FinalBuilder 5 LogFile for Build.fbp5

- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Project File :C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Varela\Build\Build.fbl5
Log Title :Build.fbp5
Date :06/09/2007
Start Time :12:09:00
End Time :12:09:45
Run Time :00:00:45

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
StatusAction NameDescriptionStart TimeEnd TimeRun TimeOutput
Show All
Hide All
-Action ListAction List: Main12:09:0012:09:4500:00:45
CompletedSet VariableSet Variable project_path to [ C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Varela\Build ]12:09:0012:09:0000:00:00
CompletedString ReplaceString Replace12:09:0012:09:0000:00:00View
-
-
CompletedAction GroupBorrar ficheros temporales12:09:0012:09:0000:00:00
CompletedRun DOS CommandRun DOS Command [ C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\msbuild.exe "C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Varela\Source\ClearFiles.msbuild" /t:CleanFiles ]12:09:0012:09:0200:00:02View
-
-
CompletedRead Registry ValueLeer la ruta de búsqueda de Delphi desde el registro12:09:0212:09:0200:00:00View
-
-
CompletedLog Variable ValuesLog Variable Values12:09:0212:09:0200:00:00View
-
-
CompletedAction GroupServidor12:09:0212:09:0200:00:00
CompletedCompile Delphi Win32 ProjectCompile Servidor\AdminPV_Server.dpr12:09:0212:09:2200:00:19View
-
-
CompletedAction GroupBase12:09:2212:09:2200:00:00
CompletedCompile Delphi Win32 ProjectCompile Base\BaseD10.dpk12:09:2212:09:2400:00:02View
-
-
CompletedCompile Delphi Win32 ProjectCompile ControlesBase\ControlesBaseD10.dpk12:09:2412:09:2500:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\Parametros\Cliente\Parametros.dpk12:09:2512:09:2700:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Usuarios\Usuarios.dpk12:09:2712:09:2800:00:00View
-
-
CompletedCompile Delphi Win32 ProjectCompile Configuracion\Configuracion.dpk12:09:2812:09:2900:00:01View
-
-
CompletedAction GroupMódulos12:09:2912:09:2900:00:00
CompletedCompile Delphi Win32 ProjectCompile Modulos\FicherosEDI\Cliente\FicherosEDI.dpk12:09:2912:09:3100:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\VentasTerminadas\Cliente\VentasTerminadas.dpk12:09:3112:09:3200:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\VentasProceso\Cliente\VentasProceso.dpk12:09:3212:09:3400:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.dpk12:09:3412:09:3500:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\Recepciones\Cliente\Recepciones.dpk12:09:3512:09:3700:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\Devoluciones\Cliente\Devoluciones.dpk12:09:3712:09:3800:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\Traspasos\Cliente\Traspasos.dpk12:09:3812:09:4000:00:02View
-
-
CompletedCompile Delphi Win32 ProjectCompile Modulos\Stock\Cliente\Stock.dpk12:09:4012:09:4200:00:01View
-
-
CompletedAction GroupCliente12:09:4212:09:4200:00:00
CompletedCompile Delphi Win32 ProjectCompile Cliente\AdminPV.dpr ]12:09:4212:09:4400:00:01View
-
-
CompletedCompile Delphi Win32 ProjectCompile CargaEDI\CargaEDI.dpr ]12:09:4412:09:4500:00:00View
-
-
CompletedExport LogExport Log12:09:4512:09:4500:00:00


- - - diff --git a/Varela/Varela/Database/1 - tablas.sql b/Varela/Varela/Database/1 - tablas.sql deleted file mode 100644 index b3035f6..0000000 --- a/Varela/Varela/Database/1 - tablas.sql +++ /dev/null @@ -1,878 +0,0 @@ -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_CABINV]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_CABINV] -GO - -CREATE TABLE [RDX_CABINV] ( - [NUMDOC] varchar(25) NOT NULL, - [TIPODOC] varchar(3) NULL, - [TIPOLIQ] varchar(3) NULL, - [FECHA] datetime NULL, - [FECHALIQ] datetime NULL, - [EMISOR] varchar(17) NULL, - [RECEPTOR] varchar(17) NULL, - [DPTO] varchar(3) NULL, - [CENTRO] varchar(17) NULL, - [FECHA_CARGA] datetime NULL, - [IGNORAR] varchar(1) NULL, - [CARGADO] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_CABINV] -ADD PRIMARY KEY CLUSTERED ([NUMDOC]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABINV_idx] ON [RDX_CABINV] - ([FECHALIQ]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABINV_idx2] ON [RDX_CABINV] - ([CENTRO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABINV_idx3] ON [RDX_CABINV] - ([IGNORAR]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CABINV] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_LININV]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_LININV] -GO - -CREATE TABLE [RDX_LININV] ( - [NUMDOC] varchar(25) NOT NULL, - [NUMLIN] numeric(6, 0) NOT NULL, - [CODART] varchar(17) NULL, - [FAMILIA] varchar(17) NULL, - [BARRA] varchar(17) NULL, - [TALLA] varchar(17) NULL, - [MARCA] varchar(25) NULL, - [TAMANO] varchar(25) NULL, - [SERIE] varchar(25) NULL, - [COLOR] varchar(25) NULL, - [MODELO] varchar(25) NULL, - [DIBUJO] varchar(25) NULL, - [DESCRIP] varchar(70) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_LININV] -ADD PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_LININV_idx] ON [RDX_LININV] - ([CODART]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LININV] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_CANTINV]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_CANTINV] -GO - -CREATE TABLE [RDX_CANTINV] ( - [NUMDOC] varchar(25) NOT NULL, - [NUMLIN] numeric(6, 0) NOT NULL, - [NUMCANT] numeric(6, 0) NOT NULL, - [TIPOCANT] varchar(3) NULL, - [CANTIDAD] numeric(15, 0) NULL, - [CENTRO] varchar(17) NULL, - [TMOV] varchar(3) NULL, - [FACT] varchar(12) NULL, - [DEPTO] varchar(3) NULL, - [IDVEN] varchar(10) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_CANTINV] -ADD PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN], [NUMCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx] ON [RDX_CANTINV] - ([CENTRO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx] ON [RDX_CANTINV] - ([TIPOCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx2] ON [RDX_CANTINV] - ([IDVEN]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CANTINV] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_CABVEN]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_CABVEN] -GO - -CREATE TABLE [RDX_CABVEN] ( - [CLAVE1] numeric(10, 0) NOT NULL, - [NUMINF] varchar(35) NULL, - [FUNCION] varchar(10) NULL, - [FECINI] datetime NULL, - [FECFIN] datetime NULL, - [FECINF] datetime NULL, - [PERVENINI] datetime NULL, - [PERVENFIN] datetime NULL, - [EANOFI] varchar(17) NULL, - [EANEMI] varchar(17) NULL, - [EANREC] varchar(17) NULL, - [EANVEN] varchar(17) NULL, - [EANALM] varchar(17) NULL, - [EANREP] varchar(17) NULL, - [EANPRO] varchar(17) NULL, - [EANADMSA] varchar(17) NULL, - [EANREPSR] varchar(17) NULL, - [ADMVENSA] varchar(35) NULL, - [REPDEPSR] varchar(35) NULL, - [EMAILSA] varchar(35) NULL, - [NUMFAXSA] varchar(35) NULL, - [NUMTELSA] varchar(35) NULL, - [NUMTLXSA] varchar(35) NULL, - [X400SA] varchar(35) NULL, - [EMAILSR] varchar(35) NULL, - [NUMFAXSR] varchar(35) NULL, - [NUMTELSR] varchar(35) NULL, - [NUMTLXSR] varchar(35) NULL, - [X400SR] varchar(35) NULL, - [NUMPRE] varchar(35) NULL, - [NUMINFSC] varchar(35) NULL, - [NUMCON] varchar(35) NULL, - [FECPRE] datetime NULL, - [FECINFSC] datetime NULL, - [FECCON] datetime NULL, - [DIVPED] varchar(3) NULL, - [DIVPRE] varchar(3) NULL, - [DIVPAG] varchar(3) NULL, - [DIVPEDF] varchar(3) NULL, - [DIVPREF] varchar(3) NULL, - [DIVPAGF] varchar(3) NULL, - [TASCAM] numeric(15, 3) NULL, - [FECTAS] datetime NULL, - [FECHA_CARGA] datetime NULL, - [IGNORAR] varchar(1) NULL, - [CARGADO] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_CABVEN] -ADD PRIMARY KEY CLUSTERED ([CLAVE1]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABVEN_idx] ON [RDX_CABVEN] - ([NUMINF]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABVEN_idx2] ON [RDX_CABVEN] - ([IGNORAR]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CABVEN] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_LUGVEN]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_LUGVEN] -GO - -CREATE TABLE [RDX_LUGVEN] ( - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [EANLUG] varchar(17) NULL, - [LUGVEN] varchar(70) NULL, - [FECINI] datetime NULL, - [FECFIN] datetime NULL, - [PERVENINI] datetime NULL, - [PERVENFIN] datetime NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_LUGVEN] -ADD PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_LUGVEN_PERVENINI_IDX] ON [RDX_LUGVEN] - ([PERVENINI]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_LUGVEN_idx] ON [RDX_LUGVEN] - ([EANLUG]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LUGVEN] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_ARTVEN]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_ARTVEN] -GO - -CREATE TABLE [RDX_ARTVEN] ( - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [CLAVE3] numeric(5, 0) NOT NULL, - [EANART] varchar(17) NULL, - [CODCOM] varchar(35) NULL, - [NUMVAR] varchar(35) NULL, - [CODPRO] varchar(35) NULL, - [DESARTCO] varchar(35) NULL, - [DESART] varchar(70) NULL, - [NUMCON] varchar(35) NULL, - [NUMLIS] varchar(35) NULL, - [CONESP1] varchar(3) NULL, - [CONESP2] varchar(3) NULL, - [CONESP3] varchar(3) NULL, - [VALVEN] numeric(15, 3) NULL, - [PRENETCT] numeric(15, 3) NULL, - [PREBRUCT] numeric(15, 3) NULL, - [PREINFET] numeric(15, 3) NULL, - [PREINFFT] numeric(15, 3) NULL, - [PRECALCT] numeric(15, 3) NULL, - [PRENETCA] numeric(15, 3) NULL, - [PREBRUCA] numeric(15, 3) NULL, - [PREINFEA] numeric(15, 3) NULL, - [PREINFFA] numeric(15, 3) NULL, - [PRECALCA] numeric(15, 3) NULL, - [BAPRUN1] numeric(9, 0) NULL, - [UNIMED1] varchar(3) NULL, - [BAPRUN2] numeric(9, 0) NULL, - [UNIMED2] varchar(3) NULL, - [BAPRUN3] numeric(9, 0) NULL, - [UNIMED3] varchar(3) NULL, - [BAPRUN4] numeric(9, 0) NULL, - [UNIMED4] varchar(3) NULL, - [BAPRUN5] numeric(9, 0) NULL, - [UNIMED5] varchar(3) NULL, - [CANVEN] numeric(15, 3) NULL, - [EXIPRO] numeric(15, 3) NULL, - [DESEXI] numeric(15, 3) NULL, - [ESPMEDCV] varchar(3) NULL, - [ESPMEDEP] varchar(3) NULL, - [ESPMEDDE] varchar(3) NULL, - [CANDEV] numeric(15, 3) NULL, - [EANVEN] varchar(17) NULL, - [NOMVEN] varchar(70) NULL, - [NUMTALON] varchar(35) NULL, - [CANVENNET] numeric(15, 3) NULL, - [UMEDVENNET] varchar(3) NULL, - [CANESP] numeric(15, 3) NULL, - [UMEDESP] varchar(3) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_ARTVEN] -ADD PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2], [CLAVE3]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx] ON [RDX_ARTVEN] - ([EANART]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx2] ON [RDX_ARTVEN] - ([CODCOM]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx4] ON [RDX_ARTVEN] - ([NUMTALON]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx5] ON [RDX_ARTVEN] - ([EANVEN]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_ARTVEN] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_INFORMES]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_INFORMES] -GO - -CREATE TABLE [RDX_INFORMES] ( - [ID] smallint IDENTITY(1, 1) NOT NULL, - [CATEGORIA] varchar(15) NULL, - [ICONO] smallint NULL, - [NOMBRE] varchar(50) NULL, - [DESCRIPCION] varchar(255) NULL, - [ORDEN] smallint NULL, - [VISTA] text NULL, - [MODIFICABLE] char(1) CONSTRAINT [DF__RDX_INFOR__MODIF__5C78A0F0] DEFAULT 'S' NOT NULL -) -ON [PRIMARY] -TEXTIMAGE_ON [PRIMARY] -GO - -ALTER TABLE [RDX_INFORMES] -ADD CONSTRAINT [RDX_INFORMES_pk] -PRIMARY KEY CLUSTERED ([ID]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INFORMES_idx] ON [RDX_INFORMES] - ([CATEGORIA]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_INFORMES] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_LOG_CARGA]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_LOG_CARGA] -GO - -CREATE TABLE [RDX_LOG_CARGA] ( - [ID] int IDENTITY(1, 1) NOT NULL, - [REPORT] varchar(10) NOT NULL, - [FECHA] datetime NOT NULL, - [OK] bit NOT NULL, - [ERROR_MSG] varchar(255) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_LOG_CARGA] -ADD UNIQUE NONCLUSTERED ([ID]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LOG_CARGA] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_REFERENCIA_GENERICA]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_REFERENCIA_GENERICA] -GO - -CREATE TABLE [RDX_REFERENCIA_GENERICA] ( - [NUMINF] varchar(35) NOT NULL, - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [CLAVE3] numeric(5, 0) NOT NULL, - [FECHACAMBIO] datetime NOT NULL, - [ESTADO] char(1) NOT NULL, - [CODIGO_BARRA] varchar(25) NULL, - [CANVEN] numeric(15, 3) NULL, - [CANESP] numeric(15, 3) NULL, - [CANVENNET] numeric(15, 3) NULL, - [NUMCON] smallint CONSTRAINT [DF__RDX_REFER__NUMCO__28C3F2C0] DEFAULT 0 NOT NULL, - [VALVEN] numeric(15, 3) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_REFERENCIA_GENERICA] -ADD CONSTRAINT [PK__RDX_REFERENCIA_G__68DE77D5] -PRIMARY KEY CLUSTERED ([NUMINF], [CLAVE1], [CLAVE2], [CLAVE3], [NUMCON]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_REFERENCIA_GENERICA_idx] ON [RDX_REFERENCIA_GENERICA] - ([FECHACAMBIO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_REFERENCIA_GENERICA_idx2] ON [RDX_REFERENCIA_GENERICA] - ([CODIGO_BARRA]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_REFERENCIA_GENERICA_idx3] ON [RDX_REFERENCIA_GENERICA] - ([ESTADO]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_REFERENCIA_GENERICA] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_AJUSTES_ALBARAN]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_AJUSTES_ALBARAN] -GO - -CREATE TABLE [RDX_AJUSTES_ALBARAN] ( - [ALBARAN] char(7) NOT NULL, - [ESTADO] varchar(15) NULL, - [OBSERVACIONES] varchar(255) NULL, - [CONTABILIZAR] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_AJUSTES_ALBARAN] -ADD CONSTRAINT [PK__RDX_AJUSTES_ALBA__1B69F7A2] -PRIMARY KEY CLUSTERED ([ALBARAN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_AJUSTES_ALBARAN_idx] ON [RDX_AJUSTES_ALBARAN] - ([ESTADO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_AJUSTES_ALBARAN_idx2] ON [RDX_AJUSTES_ALBARAN] - ([CONTABILIZAR]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_AJUSTES_ALBARAN] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_AJUSTES_HOJA_DEVOLUCIONES]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES] -GO - -CREATE TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES] ( - [NUMHOJA] char(8) NOT NULL, - [ESTADO] varchar(20) NULL, - [OBSERVACIONES] varchar(255) NULL, - [CONTABILIZAR] char(1) CONSTRAINT [DF__RDX_AJUST__CONTA__7BF14C49] DEFAULT 'S' NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES] -ADD CONSTRAINT [PK__RDX_AJUSTES_HOJA__483C9E19] -PRIMARY KEY CLUSTERED ([NUMHOJA]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_AJUSTES_HOJA_DEVOLUCIONES] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_DEVOLUCION_AJUSTES]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_DEVOLUCION_AJUSTES] -GO - -CREATE TABLE [RDX_DEVOLUCION_AJUSTES] ( - [FECHA] datetime NOT NULL, - [CENTRO] varchar(17) NOT NULL, - [CODIGO] varchar(12) NOT NULL, - [COLOR] varchar(10) NOT NULL, - [APROBADO] char(1) NULL, - [FECHACAMBIO] datetime NULL, - [CANT38] numeric(15, 0) NULL, - [CANT40] numeric(15, 0) NULL, - [CANT42] numeric(15, 0) NULL, - [CANT44] numeric(15, 0) NULL, - [CANT46] numeric(15, 0) NULL, - [CANT48] numeric(15, 0) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_DEVOLUCION_AJUSTES] -ADD CONSTRAINT [PK_RDX_DEVOLUCION_AJUSTES_2F70F04A] -PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CODIGO], [COLOR]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_DEVOLUCION_AJUSTES_idx] ON [RDX_DEVOLUCION_AJUSTES] - ([APROBADO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_DEVOLUCION_AJUSTES_idx2] ON [RDX_DEVOLUCION_AJUSTES] - ([FECHACAMBIO]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_DEVOLUCION_AJUSTES] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_RECEPCION_AJUSTES]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_RECEPCION_AJUSTES] -GO - -CREATE TABLE [RDX_RECEPCION_AJUSTES] ( - [FECHA] datetime NOT NULL, - [CENTRO] varchar(17) NOT NULL, - [CODIGO] varchar(12) NOT NULL, - [COLOR] varchar(10) NOT NULL, - [APROBADO] char(1) NULL, - [FECHACAMBIO] datetime NULL, - [CANT38] numeric(15, 0) NULL, - [CANT40] numeric(15, 0) NULL, - [CANT42] numeric(15, 0) NULL, - [CANT44] numeric(15, 0) NULL, - [CANT46] numeric(15, 0) NULL, - [CANT48] numeric(15, 0) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_RECEPCION_AJUSTES] -ADD CONSTRAINT [PK_RDX_RECEPCION_AJUSTES_2F70F04F] -PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CODIGO], [COLOR]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_RECEPCION_AJUSTES_idx] ON [RDX_RECEPCION_AJUSTES] - ([FECHACAMBIO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_RECEPCION_AJUSTES_idx2] ON [RDX_RECEPCION_AJUSTES] - ([APROBADO]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_RECEPCION_AJUSTES] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_TRASPASOS_AJUSTES]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_TRASPASOS_AJUSTES] -GO - -CREATE TABLE [RDX_TRASPASOS_AJUSTES] ( - [FECHA] datetime NOT NULL, - [CENTRO] varchar(17) NOT NULL, - [CENTRO2] varchar(17) NOT NULL, - [CODIGO] varchar(12) NOT NULL, - [COLOR] varchar(10) NOT NULL, - [APROBADO] char(1) NULL, - [ESTADO] varchar(20) NULL, - [OBSERVACIONES] varchar(255) NULL, - [CONTABILIZAR] char(1) NULL, - [FECHACAMBIO] datetime NULL, - [CANT38] numeric(15, 0) NULL, - [CANT40] numeric(15, 0) NULL, - [CANT42] numeric(15, 0) NULL, - [CANT44] numeric(15, 0) NULL, - [CANT46] numeric(15, 0) NULL, - [CANT48] numeric(15, 0) NULL, - [TIPOCANT] varchar(3) NOT NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_TRASPASOS_AJUSTES] -ADD CONSTRAINT [PK_RDX_TRASPASOS_AJUSTES_2F70F04A] -PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CENTRO2], [CODIGO], [COLOR]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_TRASPASOS_AJUSTES_idx] ON [RDX_TRASPASOS_AJUSTES] - ([APROBADO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_TRASPASOS_AJUSTES_idx2] ON [RDX_TRASPASOS_AJUSTES] - ([ESTADO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_TRASPASOS_AJUSTES_idx3] ON [RDX_TRASPASOS_AJUSTES] - ([FECHACAMBIO]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_TRASPASOS_AJUSTES] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_FILIALES]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_FILIALES] -GO - -CREATE TABLE [RDX_FILIALES] ( - [CODFILIAL] char(6) NULL, - [CODBARRA] varchar(17) NULL -) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_FILIALES_idx] ON [RDX_FILIALES] - ([CODBARRA]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_FILIALES_idx2] ON [RDX_FILIALES] - ([CODFILIAL]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_FILIALES] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_TALLAS]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_TALLAS] -GO - -CREATE TABLE [RDX_TALLAS] ( - [TALLA] char(2) NOT NULL -) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_TALLAS_idx] ON [RDX_TALLAS] - ([TALLA]) -ON [PRIMARY] -GO - - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_TALLAS] -TO [public] -GO - - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_INVENTARIOEDI]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_INVENTARIOEDI] -GO - -CREATE TABLE [RDX_INVENTARIOEDI] ( - [NUMDOC] varchar(25) NOT NULL, - [NUMLIN] numeric(6, 0) NOT NULL, - [NUMCANT] numeric(6, 0) NOT NULL, - [TIPOCANT] varchar(3) NULL, - [FECHA] datetime NULL, - [CENTRO] varchar(17) NULL, - [FILIAL] varchar(25) NULL, - [CODVEN] varchar(10) NULL, - [VENDEDOR] varchar(66) NULL, - [CODIGO_BARRA] varchar(17) NULL, - [CODIGO] varchar(12) NULL, - [PRODUCTO] varchar(40) NULL, - [COLOR] varchar(10) NULL, - [TALLA] varchar(8) NULL, - [CANTIDAD] numeric(15, 0) NULL, - [CENTRO2] varchar(17) NULL, - [FILIAL2] varchar(25) NULL, - [ULTIMO_INVENTARIO] char(1) NULL, - [IGNORAR] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_INVENTARIOEDI] -ADD CONSTRAINT [RDX_INVENTARIOEDI_pk] -PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN], [NUMCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx] ON [RDX_INVENTARIOEDI] - ([TIPOCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx2] ON [RDX_INVENTARIOEDI] - ([FECHA]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx3] ON [RDX_INVENTARIOEDI] - ([CENTRO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx4] ON [RDX_INVENTARIOEDI] - ([CODVEN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx5] ON [RDX_INVENTARIOEDI] - ([CODIGO_BARRA]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx6] ON [RDX_INVENTARIOEDI] - ([CODIGO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx7] ON [RDX_INVENTARIOEDI] - ([CENTRO2]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx8] ON [RDX_INVENTARIOEDI] - ([ULTIMO_INVENTARIO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx9] ON [RDX_INVENTARIOEDI] - ([CENTRO], [CODIGO], [COLOR], [TALLA]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_INVENTARIOEDI] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[RDX_VENTASEDI]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_VENTASEDI] -GO - -CREATE TABLE [RDX_VENTASEDI] ( - [NUMINF] varchar(35) NOT NULL, - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [CLAVE3] numeric(5, 0) NOT NULL, - [PERVENINI] datetime NULL, - [NUMTALON] varchar(35) NULL, - [EANLUG] varchar(17) NULL, - [FILIAL] varchar(25) NULL, - [EANVEN] varchar(17) NULL, - [CODVEN] varchar(4) NULL, - [VENDEDOR] varchar(66) NULL, - [EANART] varchar(17) NULL, - [CODCOM] varchar(35) NULL, - [PRODUTO] varchar(12) NULL, - [DESC_PRODUTO] varchar(40) NULL, - [COR_PRODUTO] varchar(10) NULL, - [GRADE] varchar(8) NULL, - [TIPO_PRODUTO] varchar(25) NULL, - [GRUPO_PRODUTO] varchar(25) NULL, - [DESC_COLECAO] varchar(40) NULL, - [VALVEN] numeric(15, 3) NULL, - [CANVEN] numeric(15, 3) NULL, - [CANDEV] numeric(15, 3) NULL, - [CANVENNET] numeric(15, 3) NULL, - [CANESP] numeric(15, 3) NULL, - [IGNORAR] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_VENTASEDI] -ADD CONSTRAINT [RDX_VENTASEDI_pk] -PRIMARY KEY CLUSTERED ([NUMINF], [CLAVE1], [CLAVE2], [CLAVE3]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx] ON [RDX_VENTASEDI] - ([PERVENINI]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx2] ON [RDX_VENTASEDI] - ([NUMTALON]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx3] ON [RDX_VENTASEDI] - ([EANVEN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx4] ON [RDX_VENTASEDI] - ([CODVEN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx5] ON [RDX_VENTASEDI] - ([EANART]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx6] ON [RDX_VENTASEDI] - ([CODCOM]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx7] ON [RDX_VENTASEDI] - ([PRODUTO]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_VENTASEDI] -TO [public] -GO - -/* EOF */ - - diff --git a/Varela/Varela/Database/2.1 - vistas inventario.sql b/Varela/Varela/Database/2.1 - vistas inventario.sql deleted file mode 100644 index 8a62f8f..0000000 --- a/Varela/Varela/Database/2.1 - vistas inventario.sql +++ /dev/null @@ -1,1028 +0,0 @@ -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO2, - FILIAL2, - ULTIMO_INVENTARIO -FROM RDX_INVENTARIOEDI -WHERE FECHA >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ -AND ((IGNORAR IS NULL) OR (IGNORAR <> 'S')) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI_PESADA AS -SELECT - RDX_CANTINV.NUMDOC, - RDX_CANTINV.NUMLIN, - RDX_CANTINV.NUMCANT, - RDX_CANTINV.TIPOCANT, - RDX_CABINV.FECHALIQ AS FECHA, - RDX_CABINV.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_CABINV.CENTRO), - RDX_CANTINV.IDVEN AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_CANTINV.IDVEN), - RDX_LININV.CODART AS CODIGO_BARRA, - CODIGO = ISNULL(PRODUTOS.PRODUTO, '107CH.EN.01'), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI'), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, 300), - TALLA = PRODUTOS_BARRA.GRADE, - RDX_CANTINV.CANTIDAD, - CENTRO2 = RDX_CANTINV.CENTRO, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_CANTINV.CENTRO) -FROM RDX_CANTINV -INNER JOIN RDX_LININV ON - ((RDX_LININV.NUMDOC = RDX_CANTINV.NUMDOC) AND - (RDX_LININV.NUMLIN = RDX_CANTINV.NUMLIN)) -INNER JOIN RDX_CABINV ON - (RDX_CABINV.NUMDOC = RDX_LININV.NUMDOC) -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_CABINV.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN RDX_FILIALES RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_CANTINV.CENTRO) -LEFT OUTER JOIN FILIAIS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) -LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG = RDX_CANTINV.IDVEN) -LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_LININV.CODART)) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -WHERE RDX_CABINV.FECHALIQ >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ -AND (RDX_CABINV.IGNORAR IS NULL) OR (RDX_CABINV.IGNORAR <> 'S') -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_ULTIMO_INVENTARIO AS -SELECT FECHA, - CENTRO, - FILIAL, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - SUM(CANTIDAD) AS CANTIDAD -FROM RDX_INVENTARIOEDI -WHERE (TIPOCANT = '145') AND - (ULTIMO_INVENTARIO IS NOT NULL) -GROUP BY FECHA, - CENTRO, - FILIAL, - CODIGO, - PRODUCTO, - COLOR, - TALLA -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIO_MAXFECHAS AS -SELECT - CENTRO, - CODIGO, - COLOR, - TALLA, - FECHA = MAX(FECHA) -FROM RDX_INVENTARIOEDI -WHERE TIPOCANT = 145 - AND FECHA >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ - AND (IGNORAR IS NULL) OR (IGNORAR <> 'S') -GROUP BY - CENTRO, - CODIGO, - COLOR, - TALLA -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI_RECEPCION AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD -FROM RDX_V_INVENTARIOEDI -WHERE TIPOCANT = 194 /* RECEPCION DE PRENDAS DESDE VARELA */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD -FROM RDX_V_INVENTARIOEDI -WHERE (TIPOCANT = 61) /* DEVOLUCION DE PRENDAS A VARELA */ - OR (TIPOCANT = 65) /* DEVOLUCION POR TARA */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI_TRASPASO AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO2, - FILIAL2 -FROM RDX_V_INVENTARIOEDI -WHERE (TIPOCANT = 46) or (TIPOCANT = 48) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO_ORIGEN = CENTRO2, - FILIAL_ORIGEN = FILIAL2 -FROM RDX_V_INVENTARIOEDI -WHERE TIPOCANT = 46 /* ENTRADA DE PRENDAS DESDE OTRO CENTRO */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIOEDI_TRASPASO_SALIDA AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO_DESTINO = CENTRO2, - FILIAL_DESTINO = FILIAL2 -FROM RDX_V_INVENTARIOEDI -WHERE TIPOCANT = 48 /* SALIDA DE PRENDAS A OTRO CENTRO */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_TRASPASO_ENTRADA AS -SELECT - CENTRO_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO_ORIGEN, - FILIAL_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL_ORIGEN, - - CENTRO_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO, - FILIAL_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL, - - CODIGO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CODIGO, - PRODUCTO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.PRODUCTO, - COLOR = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.COLOR, - FECHA = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FECHA, - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - T38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - - TOTAL = SUM(ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0)) - -FROM - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA -GROUP BY - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO_ORIGEN, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL_ORIGEN, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CODIGO, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.PRODUCTO, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.COLOR, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FECHA -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_TRASPASO_SALIDA AS -SELECT - CENTRO_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO, - FILIAL_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL, - - CENTRO_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO_DESTINO, - FILIAL_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL_DESTINO, - - CODIGO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CODIGO, - PRODUCTO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.PRODUCTO, - COLOR = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.COLOR, - FECHA = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FECHA, - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - T38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - - TOTAL = SUM(ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0)) -FROM - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA -GROUP BY - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO_DESTINO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL_DESTINO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CODIGO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.PRODUCTO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.COLOR, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FECHA -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_TRASPASOS AS -SELECT - TIPO = 'S', - CENTRO_ORIGEN as CENTRO, - FILIAL_ORIGEN as FILIAL, - CENTRO_DESTINO as CENTRO2, - FILIAL_DESTINO as FILIAL2, - CODIGO, - PRODUCTO, - COLOR, - FECHA, - T38, - T40, - T42, - T44, - T46, - T48, - TOTAL -FROM RDX_V_TRASPASO_SALIDA -UNION -SELECT - 'E', - CENTRO_DESTINO, - FILIAL_DESTINO, - CENTRO_ORIGEN, - FILIAL_ORIGEN, - CODIGO, - PRODUCTO, - COLOR, - FECHA, - T38, - T40, - T42, - T44, - T46, - T48, - TOTAL -FROM RDX_V_TRASPASO_ENTRADA -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_CONTROL_TRASPASOS AS -SELECT - RDX_V_TRASPASOS.TIPO, - RDX_V_TRASPASOS.FECHA, - RDX_V_TRASPASOS.CENTRO, - RDX_V_TRASPASOS.FILIAL, - RDX_V_TRASPASOS.CENTRO2, - RDX_V_TRASPASOS.FILIAL2, - APROBADO = ISNULL(RDX_TRASPASOS_AJUSTES.APROBADO, 'N'), - ESTADO_TRASPASO = RDX_TRASPASOS_AJUSTES.ESTADO, - OBSERVACIONES = RDX_TRASPASOS_AJUSTES.OBSERVACIONES, - CONTABILIZAR = ISNULL(RDX_TRASPASOS_AJUSTES.CONTABILIZAR, 'S'), - RDX_TRASPASOS_AJUSTES.FECHACAMBIO, - RDX_V_TRASPASOS.CODIGO, - RDX_V_TRASPASOS.PRODUCTO, - RDX_V_TRASPASOS.COLOR, - RDX_V_TRASPASOS.T38, - RDX_V_TRASPASOS.T40, - RDX_V_TRASPASOS.T42, - RDX_V_TRASPASOS.T44, - RDX_V_TRASPASOS.T46, - RDX_V_TRASPASOS.T48, - RDX_V_TRASPASOS.TOTAL, - TR38 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT38, RDX_V_TRASPASOS.T38), - TR40 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT40, RDX_V_TRASPASOS.T40), - TR42 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT42, RDX_V_TRASPASOS.T42), - TR44 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT44, RDX_V_TRASPASOS.T44), - TR46 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT46, RDX_V_TRASPASOS.T46), - TR48 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT48, RDX_V_TRASPASOS.T48), - TOTAL_RECT = - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT38, RDX_V_TRASPASOS.T38), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT40, RDX_V_TRASPASOS.T40), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT42, RDX_V_TRASPASOS.T42), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT44, RDX_V_TRASPASOS.T44), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT46, RDX_V_TRASPASOS.T46), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT48, RDX_V_TRASPASOS.T48), 0) -FROM RDX_V_TRASPASOS -LEFT OUTER JOIN RDX_TRASPASOS_AJUSTES ON - ((RDX_TRASPASOS_AJUSTES.CENTRO = RDX_V_TRASPASOS.CENTRO) AND - (RDX_TRASPASOS_AJUSTES.CENTRO2 = RDX_V_TRASPASOS.CENTRO2) AND - (RDX_TRASPASOS_AJUSTES.CODIGO = RDX_V_TRASPASOS.CODIGO) AND - (RDX_TRASPASOS_AJUSTES.COLOR = RDX_V_TRASPASOS.COLOR) AND - (RDX_TRASPASOS_AJUSTES.FECHA = RDX_V_TRASPASOS.FECHA) AND - (RDX_TRASPASOS_AJUSTES.TIPOCANT = RDX_V_TRASPASOS.TIPO)) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_ALBARANES AS -SELECT - FATURAMENTO.NF_SAIDA AS ALBARAN, - FATURAMENTO.EMISSAO AS FECHA, - RDX_FILIALES.CODBARRA AS CENTRO, - FATURAMENTO.NOME_CLIFOR AS FILIAL, - PRODUTOS_BARRA.CODIGO_BARRA, - FATURAMENTO_PROD.PRODUTO AS CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - PRODUTOS_BARRA.COR_PRODUTO AS COLOR, - PRODUTOS_BARRA.GRADE AS TALLA, - CANTIDAD = CASE PRODUTOS_BARRA.GRADE - WHEN '38' THEN F1 - WHEN '40' THEN F2 - WHEN '42' THEN F3 - WHEN '44' THEN F4 - WHEN '46' THEN F5 - WHEN '48' THEN F6 - END, - RDX_AJUSTES_ALBARAN.ESTADO, - RDX_AJUSTES_ALBARAN.OBSERVACIONES, - CONTABILIZAR = ISNULL(RDX_AJUSTES_ALBARAN.CONTABILIZAR, 'S') -FROM FATURAMENTO_PROD -INNER JOIN FATURAMENTO ON - ((FATURAMENTO.NF_SAIDA = FATURAMENTO_PROD.NF_SAIDA) AND - (FATURAMENTO.SERIE_NF = FATURAMENTO_PROD.SERIE_NF)) -INNER JOIN FATURAMENTO_TIPO ON - (LTRIM(RTRIM(FATURAMENTO.TIPO_FATURAMENTO)) = FATURAMENTO_TIPO.TIPO_FATURAMENTO) -LEFT OUTER JOIN FILIAIS ON - (FILIAIS.FILIAL = FATURAMENTO.NOME_CLIFOR) -LEFT OUTER JOIN RDX_FILIALES ON - (RDX_FILIALES.CODFILIAL = FILIAIS.COD_FILIAL) -LEFT OUTER JOIN PRODUTOS_BARRA ON - (((PRODUTOS_BARRA.PRODUTO = FATURAMENTO_PROD.PRODUTO) AND - (PRODUTOS_BARRA.COR_PRODUTO = FATURAMENTO_PROD.COR_PRODUTO)) AND - ((PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F1 <> 0) THEN '38' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F2 <> 0) THEN '40' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F3 <> 0) THEN '42' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F4 <> 0) THEN '44' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F5 <> 0) THEN '46' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F6 <> 0) THEN '48' END))) -LEFT OUTER JOIN PRODUTOS ON - (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -LEFT OUTER JOIN RDX_AJUSTES_ALBARAN ON - (RDX_AJUSTES_ALBARAN.ALBARAN = FATURAMENTO.NF_SAIDA) -WHERE FATURAMENTO_TIPO.INDICADOR_TIPO = 'VTPT' /* ALBARANES DE PRODUCTOS TERMINADOS */ -AND FATURAMENTO.NOME_CLIFOR LIKE '%INGLES%' /* ALBARANES PARA CENTROS DEL CORTE INGLES */ -AND FATURAMENTO.EMISSAO >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_RECEPCION AS -SELECT - CENTRO = ISNULL(RDX_V_ALBARANES.CENTRO, RDX_V_INVENTARIOEDI_RECEPCION.CENTRO), - FILIAL = ISNULL(RDX_V_ALBARANES.FILIAL, RDX_V_INVENTARIOEDI_RECEPCION.FILIAL), - CODIGO = ISNULL(RDX_V_ALBARANES.CODIGO, RDX_V_INVENTARIOEDI_RECEPCION.CODIGO), - PRODUCTO = ISNULL(RDX_V_ALBARANES.PRODUCTO, RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO), - COLOR = ISNULL(RDX_V_ALBARANES.COLOR, RDX_V_INVENTARIOEDI_RECEPCION.COLOR), - FECHA = ISNULL(RDX_V_ALBARANES.FECHA, RDX_V_INVENTARIOEDI_RECEPCION.FECHA), - - /* ALBARAN Y ESTADO */ - ALBARAN = RDX_V_ALBARANES.ALBARAN, - ESTADO_ALBARAN = RDX_V_ALBARANES.ESTADO, - OBSERVACIONES_ALBARAN = RDX_V_ALBARANES.OBSERVACIONES, - CONTABILIZAR_ALBARAN = ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S'), - - /* CANTIDADES ENVIADAS DESDE VARELA */ - E38 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 38 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E40 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 40 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E42 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 42 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E44 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 44 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E46 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 46 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E48 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 48 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - ENVIADO = SUM( - CASE ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END - ), - - /* CANTIDADES RECIBIDAS EN EL CENTRO*/ - R38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - RECIBIDO = SUM(ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0)), - - DIFERENCIA = SUM( - CASE ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END - ) - - SUM(ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0)) -FROM - RDX_V_ALBARANES -FULL OUTER JOIN RDX_V_INVENTARIOEDI_RECEPCION ON - ((RDX_V_INVENTARIOEDI_RECEPCION.CENTRO = RDX_V_ALBARANES.CENTRO) AND - (RDX_V_INVENTARIOEDI_RECEPCION.CODIGO_BARRA = RDX_V_ALBARANES.CODIGO_BARRA) AND - (RDX_V_INVENTARIOEDI_RECEPCION.FECHA = RDX_V_ALBARANES.FECHA)) -GROUP BY - ISNULL(RDX_V_ALBARANES.CENTRO, RDX_V_INVENTARIOEDI_RECEPCION.CENTRO), - ISNULL(RDX_V_ALBARANES.FILIAL, RDX_V_INVENTARIOEDI_RECEPCION.FILIAL), - ISNULL(RDX_V_ALBARANES.CODIGO, RDX_V_INVENTARIOEDI_RECEPCION.CODIGO), - ISNULL(RDX_V_ALBARANES.PRODUCTO, RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO), - ISNULL(RDX_V_ALBARANES.COLOR, RDX_V_INVENTARIOEDI_RECEPCION.COLOR), - ISNULL(RDX_V_ALBARANES.FECHA, RDX_V_INVENTARIOEDI_RECEPCION.FECHA), - RDX_V_ALBARANES.ALBARAN, - RDX_V_ALBARANES.ESTADO, - RDX_V_ALBARANES.OBSERVACIONES, - ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S') -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_CONTROL_RECEPCION AS -SELECT - APROBADO = ISNULL(RDX_RECEPCION_AJUSTES.APROBADO, 'N'), - RDX_RECEPCION_AJUSTES.FECHACAMBIO, - - RDX_V_RECEPCION.CENTRO, - RDX_V_RECEPCION.FILIAL, - RDX_V_RECEPCION.CODIGO, - RDX_V_RECEPCION.PRODUCTO, - RDX_V_RECEPCION.COLOR, - RDX_V_RECEPCION.FECHA, - - /* ALBARAN Y ESTADO */ - RDX_V_RECEPCION.ALBARAN, - RDX_V_RECEPCION.ESTADO_ALBARAN, - RDX_V_RECEPCION.OBSERVACIONES_ALBARAN, - RDX_V_RECEPCION.CONTABILIZAR_ALBARAN, - - /* CANTIDADES ENVIADAS DESDE VARELA */ - E38, E40, E42, E44, E46, E48, RDX_V_RECEPCION.ENVIADO, - - /* CANTIDADES RECIBIDAS EN EL CENTRO*/ - R38, R40, R42, R44, R46, R48, RDX_V_RECEPCION.RECIBIDO, - - /* CANTIDADES RECIBIDAS RECTIFICADAS */ - RR38 = ISNULL(RDX_RECEPCION_AJUSTES.CANT38, R38), - RR40 = ISNULL(RDX_RECEPCION_AJUSTES.CANT40, R40), - RR42 = ISNULL(RDX_RECEPCION_AJUSTES.CANT42, R42), - RR44 = ISNULL(RDX_RECEPCION_AJUSTES.CANT44, R44), - RR46 = ISNULL(RDX_RECEPCION_AJUSTES.CANT46, R46), - RR48 = ISNULL(RDX_RECEPCION_AJUSTES.CANT48, R48), - - RECIBIDO_RECT = - ISNULL(RDX_RECEPCION_AJUSTES.CANT38, ISNULL(R38, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT40, ISNULL(R40, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT42, ISNULL(R42, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT44, ISNULL(R44, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT46, ISNULL(R46, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT48, ISNULL(R48, 0)), - - DIFERENCIA = - ( - ISNULL(RDX_RECEPCION_AJUSTES.CANT38, ISNULL(R38, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT40, ISNULL(R40, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT42, ISNULL(R42, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT44, ISNULL(R44, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT46, ISNULL(R46, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT48, ISNULL(R48, 0)) - ) - ENVIADO -FROM - RDX_V_RECEPCION -LEFT OUTER JOIN RDX_RECEPCION_AJUSTES ON - ((RDX_RECEPCION_AJUSTES.FECHA = RDX_V_RECEPCION.FECHA) AND - (RDX_RECEPCION_AJUSTES.CENTRO = RDX_V_RECEPCION.CENTRO) AND - (RDX_RECEPCION_AJUSTES.CODIGO = RDX_V_RECEPCION.CODIGO) AND - (RDX_RECEPCION_AJUSTES.COLOR = RDX_V_RECEPCION.COLOR)) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_ALBARANES_PENDIENTES AS -SELECT DISTINCT ALBARAN, APROBADO -FROM RDX_V_CONTROL_RECEPCION -WHERE ALBARAN IS NOT NULL -AND APROBADO = 'N' -GO - -/*--------------- SQL ---------------*/GO - -CREATE VIEW RDX_V_CONTROL_RECEPCION_ALBARANES AS -select RDX_V_CONTROL_RECEPCION.ALBARAN -,ESTADOALBARAN = CASE - WHEN RDX_V_ALBARANES_PENDIENTES.ALBARAN is NULL THEN 'R' - ELSE 'P' - END -,ESTADOPRODUCTO = CASE RDX_V_CONTROL_RECEPCION.APROBADO - WHEN 'N' THEN 'PENDIENTE' - WHEN 'S' THEN 'APROBADO' - END -, CENTRO, FILIAL, FECHA, CODIGO, PRODUCTO, COLOR, E38, E40, E42, E44, E46, E48 -from RDX_V_CONTROL_RECEPCION -left join RDX_V_ALBARANES_PENDIENTES -on (RDX_V_CONTROL_RECEPCION.ALBARAN = RDX_V_ALBARANES_PENDIENTES.ALBARAN) -where RDX_V_CONTROL_RECEPCION.ALBARAN is not null -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_HOJAS_DEVOLUCIONES AS -SELECT - LOJA_SAIDAS.ROMANEIO_PRODUTO AS NUMHOJA, - LOJA_SAIDAS.EMISSAO AS FECHA, - RDX_FILIALES_ORI.CODBARRA AS CENTRO_ORIGEN, - LOJA_SAIDAS.FILIAL AS FILIAL_ORIGEN, - RDX_FILIALES_DES.CODBARRA AS CENTRO_DESTINO, - LOJA_SAIDAS.FILIAL_DESTINO AS FILIAL_DESTINO, - PRODUTOS_BARRA.CODIGO_BARRA, - LOJA_SAIDAS_PRODUTO.PRODUTO AS CODIGO, - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA ****'), - PRODUTOS_BARRA.COR_PRODUTO AS COLOR, - PRODUTOS_BARRA.GRADE AS TALLA, - CANTIDAD = CASE PRODUTOS_BARRA.GRADE - WHEN '38' THEN EN1 - WHEN '40' THEN EN2 - WHEN '42' THEN EN3 - WHEN '44' THEN EN4 - WHEN '46' THEN EN5 - WHEN '48' THEN EN6 - END, - RDX_AJUSTES_HOJA_DEVOLUCIONES.ESTADO, - RDX_AJUSTES_HOJA_DEVOLUCIONES.OBSERVACIONES, - CONTABILIZAR = ISNULL(RDX_AJUSTES_HOJA_DEVOLUCIONES.CONTABILIZAR, 'S') -FROM LOJA_SAIDAS_PRODUTO -INNER JOIN LOJA_SAIDAS ON (LOJA_SAIDAS.ROMANEIO_PRODUTO = LOJA_SAIDAS_PRODUTO.ROMANEIO_PRODUTO) -INNER JOIN PRODUTOS_BARRA on - (((PRODUTOS_BARRA.PRODUTO = LOJA_SAIDAS_PRODUTO.PRODUTO) AND - (PRODUTOS_BARRA.COR_PRODUTO = LOJA_SAIDAS_PRODUTO.COR_PRODUTO)) AND - ((PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN1 <> 0) THEN '38' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN2 <> 0) THEN '40' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN3 <> 0) THEN '42' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN4 <> 0) THEN '44' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN5 <> 0) THEN '46' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN6 <> 0) THEN '48' END))) -INNER JOIN PRODUTOS on (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -INNER JOIN FILIAIS AS FILIAIS_ORI ON (FILIAIS_ORI.FILIAL = LOJA_SAIDAS.FILIAL) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_ORI ON (RDX_FILIALES_ORI.CODFILIAL = FILIAIS_ORI.COD_FILIAL) -INNER JOIN FILIAIS AS FILIAIS_DES ON (FILIAIS_DES.FILIAL = LOJA_SAIDAS.FILIAL_DESTINO) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_DES ON (RDX_FILIALES_DES.CODFILIAL = FILIAIS_DES.COD_FILIAL) -LEFT OUTER JOIN RDX_AJUSTES_HOJA_DEVOLUCIONES ON - (RDX_AJUSTES_HOJA_DEVOLUCIONES.NUMHOJA = LOJA_SAIDAS.ROMANEIO_PRODUTO) -WHERE - LOJA_SAIDAS.TIPO_ENTRADA_SAIDA = 2 /* DEVOLUCION DE PRENDAS A VARELA */ -AND LOJA_SAIDAS.EMISSAO >= '2006.07.01' /* PARA NO COGER AÑOS ANTERIORES */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_DEVOLUCIONES AS -SELECT - CENTRO = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CENTRO_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CENTRO), - FILIAL = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FILIAL_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FILIAL), - CODIGO = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CODIGO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CODIGO), - PRODUCTO = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.PRODUCTO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.PRODUCTO), - COLOR = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.COLOR, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.COLOR), - FECHA = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FECHA, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FECHA), - - /* HOJA DE MOVIMIENTOS Y ESTADO */ - NUMHOJA = RDX_V_HOJAS_DEVOLUCIONES.NUMHOJA, - ESTADO_HOJA = RDX_V_HOJAS_DEVOLUCIONES.ESTADO, - OBSERVACIONES_HOJA = RDX_V_HOJAS_DEVOLUCIONES.OBSERVACIONES, - CONTABILIZAR_HOJA = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S'), - - /* CANTIDADES SOLICITADAS DESDE VARELA */ - S38 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 38 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S40 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 40 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S42 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 42 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S44 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 44 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S46 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 46 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S48 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 48 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - SOLICITADO = SUM( - CASE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END - ), - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - E38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - - ENVIADO = SUM(ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0)), - - DIFERENCIA = SUM( - CASE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END) - - SUM(ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0)) -FROM - RDX_V_HOJAS_DEVOLUCIONES -FULL OUTER JOIN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA ON - ((RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CENTRO = RDX_V_HOJAS_DEVOLUCIONES.CENTRO_ORIGEN) AND - (RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CODIGO_BARRA = RDX_V_HOJAS_DEVOLUCIONES.CODIGO_BARRA) AND - (RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FECHA = RDX_V_HOJAS_DEVOLUCIONES.FECHA)) -GROUP BY - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CENTRO_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CENTRO), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FILIAL_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FILIAL), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CODIGO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CODIGO), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.PRODUCTO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.PRODUCTO), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.COLOR, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.COLOR), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FECHA, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FECHA), - RDX_V_HOJAS_DEVOLUCIONES.NUMHOJA, - RDX_V_HOJAS_DEVOLUCIONES.ESTADO, - RDX_V_HOJAS_DEVOLUCIONES.OBSERVACIONES, - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S') -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_CONTROL_DEVOLUCIONES AS -SELECT - APROBADO = ISNULL(RDX_DEVOLUCION_AJUSTES.APROBADO, 'N'), - RDX_DEVOLUCION_AJUSTES.FECHACAMBIO, - - RDX_V_DEVOLUCIONES.CENTRO, - RDX_V_DEVOLUCIONES.FILIAL, - RDX_V_DEVOLUCIONES.CODIGO, - RDX_V_DEVOLUCIONES.PRODUCTO, - RDX_V_DEVOLUCIONES.COLOR, - RDX_V_DEVOLUCIONES.FECHA, - - /* HOJA DE MOVIMIENTOS Y ESTADO */ - RDX_V_DEVOLUCIONES.NUMHOJA, - RDX_V_DEVOLUCIONES.ESTADO_HOJA, - RDX_V_DEVOLUCIONES.OBSERVACIONES_HOJA, - RDX_V_DEVOLUCIONES.CONTABILIZAR_HOJA, - - /* CANTIDADES SOLICITADAS DESDE VARELA */ - S38, S40, S42, S44, S46, S48, RDX_V_DEVOLUCIONES.SOLICITADO, - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - E38, E40, E42, E44, E46, E48, RDX_V_DEVOLUCIONES.ENVIADO, - - /* CANTIDADES ENVIADAS RECTIFICADAS */ - ER38 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT38, E38), - ER40 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT40, E40), - ER42 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT42, E42), - ER44 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT44, E44), - ER46 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT46, E46), - ER48 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT48, E48), - - ENVIADO_RECT = - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT38, ISNULL(E38, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT40, ISNULL(E40, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT42, ISNULL(E42, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT44, ISNULL(E44, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT46, ISNULL(E46, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT48, ISNULL(E48, 0)), - - DIFERENCIA = - ( - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT38, ISNULL(E38, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT40, ISNULL(E40, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT42, ISNULL(E42, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT44, ISNULL(E44, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT46, ISNULL(E46, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT48, ISNULL(E48, 0)) - ) - SOLICITADO -FROM - RDX_V_DEVOLUCIONES -LEFT OUTER JOIN RDX_DEVOLUCION_AJUSTES ON - ((RDX_DEVOLUCION_AJUSTES.FECHA = RDX_V_DEVOLUCIONES.FECHA) AND - (RDX_DEVOLUCION_AJUSTES.CENTRO = RDX_V_DEVOLUCIONES.CENTRO) AND - (RDX_DEVOLUCION_AJUSTES.CODIGO = RDX_V_DEVOLUCIONES.CODIGO) AND - (RDX_DEVOLUCION_AJUSTES.COLOR = RDX_V_DEVOLUCIONES.COLOR)) -GO - - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_RECEPCION_AJUSTES_DESGLOSADO AS -SELECT - RDX_RECEPCION_AJUSTES.FECHA, - RDX_RECEPCION_AJUSTES.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_RECEPCION_AJUSTES.CENTRO), - RDX_RECEPCION_AJUSTES.CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - RDX_RECEPCION_AJUSTES.COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_RECEPCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_RECEPCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_RECEPCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_RECEPCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_RECEPCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_RECEPCION_AJUSTES.CANT48 - END -FROM RDX_TALLAS, RDX_RECEPCION_AJUSTES -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_RECEPCION_AJUSTES.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = RDX_RECEPCION_AJUSTES.CODIGO) -WHERE CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_RECEPCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_RECEPCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_RECEPCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_RECEPCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_RECEPCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_RECEPCION_AJUSTES.CANT48 - END IS NOT NULL -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_CONTROL_RECEPCION_DESGLOSADO AS -SELECT - FECHA = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FECHA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA), - CENTRO = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CENTRO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO), - FILIAL = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FILIAL, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL), - CODIGO = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CODIGO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO), - PRODUCTO = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO), - COLOR = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.COLOR, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR), - TALLA = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.TALLA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA), - CANTIDAD = SUM(ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD, RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD)) -FROM - RDX_V_RECEPCION_AJUSTES_DESGLOSADO -FULL OUTER JOIN RDX_V_INVENTARIOEDI_RECEPCION ON - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI_RECEPCION.FECHA) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI_RECEPCION.CENTRO) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI_RECEPCION.CODIGO) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI_RECEPCION.COLOR) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI_RECEPCION.TALLA) -GROUP BY - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FECHA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CENTRO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FILIAL, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CODIGO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.COLOR, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.TALLA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA) -GO - - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO AS -SELECT - RDX_DEVOLUCION_AJUSTES.FECHA, - RDX_DEVOLUCION_AJUSTES.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_DEVOLUCION_AJUSTES.CENTRO), - RDX_DEVOLUCION_AJUSTES.CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - RDX_DEVOLUCION_AJUSTES.COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_DEVOLUCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_DEVOLUCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_DEVOLUCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_DEVOLUCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_DEVOLUCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_DEVOLUCION_AJUSTES.CANT48 - END -FROM RDX_TALLAS, RDX_DEVOLUCION_AJUSTES -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_DEVOLUCION_AJUSTES.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = RDX_DEVOLUCION_AJUSTES.CODIGO) -WHERE CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_DEVOLUCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_DEVOLUCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_DEVOLUCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_DEVOLUCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_DEVOLUCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_DEVOLUCION_AJUSTES.CANT48 - END IS NOT NULL -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_HOJAS_TRASPASOS AS -SELECT - LOJA_SAIDAS.ROMANEIO_PRODUTO AS NUMHOJA, - LOJA_SAIDAS.EMISSAO AS FECHA, - RDX_FILIALES_ORI.CODBARRA AS CENTRO_ORIGEN, - LOJA_SAIDAS.FILIAL AS FILIAL_ORIGEN, - RDX_FILIALES_DES.CODBARRA AS CENTRO_DESTINO, - LOJA_SAIDAS.FILIAL_DESTINO AS FILIAL_DESTINO, - PRODUTOS_BARRA.CODIGO_BARRA, - LOJA_SAIDAS_PRODUTO.PRODUTO AS CODIGO, - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA ****'), - PRODUTOS_BARRA.COR_PRODUTO AS COLOR, - PRODUTOS_BARRA.GRADE AS TALLA, - CANTIDAD = CASE PRODUTOS_BARRA.GRADE - WHEN '38' THEN EN1 - WHEN '40' THEN EN2 - WHEN '42' THEN EN3 - WHEN '44' THEN EN4 - WHEN '46' THEN EN5 - WHEN '48' THEN EN6 - END -FROM LOJA_SAIDAS_PRODUTO -INNER JOIN LOJA_SAIDAS ON (LOJA_SAIDAS.ROMANEIO_PRODUTO = LOJA_SAIDAS_PRODUTO.ROMANEIO_PRODUTO) -INNER JOIN PRODUTOS_BARRA on - (((PRODUTOS_BARRA.PRODUTO = LOJA_SAIDAS_PRODUTO.PRODUTO) AND - (PRODUTOS_BARRA.COR_PRODUTO = LOJA_SAIDAS_PRODUTO.COR_PRODUTO)) AND - ((PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN1 <> 0) THEN '38' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN2 <> 0) THEN '40' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN3 <> 0) THEN '42' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN4 <> 0) THEN '44' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN5 <> 0) THEN '46' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN6 <> 0) THEN '48' END))) -INNER JOIN PRODUTOS on (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -INNER JOIN FILIAIS AS FILIAIS_ORI ON (FILIAIS_ORI.FILIAL = LOJA_SAIDAS.FILIAL) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_ORI ON (RDX_FILIALES_ORI.CODFILIAL = FILIAIS_ORI.COD_FILIAL) -INNER JOIN FILIAIS AS FILIAIS_DES ON (FILIAIS_DES.FILIAL = LOJA_SAIDAS.FILIAL_DESTINO) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_DES ON (RDX_FILIALES_DES.CODFILIAL = FILIAIS_DES.COD_FILIAL) -WHERE LOJA_SAIDAS.TIPO_ENTRADA_SAIDA = 1 /* TRASPASOS DE PRENDAS A OTRO CENTRO */ -AND LOJA_SAIDAS.EMISSAO >= '2006.07.01' /* PARA NO COGER AÑOS ANTERIORES */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_TRASPASOS_AJUSTES_DESGLOSADO AS -SELECT - RDX_TRASPASOS_AJUSTES.FECHA, - RDX_TRASPASOS_AJUSTES.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_TRASPASOS_AJUSTES.CENTRO), - RDX_TRASPASOS_AJUSTES.CENTRO2, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_TRASPASOS_AJUSTES.CENTRO2), - TIPO = RDX_TRASPASOS_AJUSTES.TIPOCANT, - RDX_TRASPASOS_AJUSTES.CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - RDX_TRASPASOS_AJUSTES.COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_TRASPASOS_AJUSTES.CANT38 - WHEN '40' THEN RDX_TRASPASOS_AJUSTES.CANT40 - WHEN '42' THEN RDX_TRASPASOS_AJUSTES.CANT42 - WHEN '44' THEN RDX_TRASPASOS_AJUSTES.CANT44 - WHEN '46' THEN RDX_TRASPASOS_AJUSTES.CANT46 - WHEN '48' THEN RDX_TRASPASOS_AJUSTES.CANT48 - END -FROM RDX_TALLAS, RDX_TRASPASOS_AJUSTES -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_TRASPASOS_AJUSTES.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN RDX_FILIALES AS RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_TRASPASOS_AJUSTES.CENTRO2) -LEFT OUTER JOIN FILIAIS AS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = RDX_TRASPASOS_AJUSTES.CODIGO) -WHERE CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_TRASPASOS_AJUSTES.CANT38 - WHEN '40' THEN RDX_TRASPASOS_AJUSTES.CANT40 - WHEN '42' THEN RDX_TRASPASOS_AJUSTES.CANT42 - WHEN '44' THEN RDX_TRASPASOS_AJUSTES.CANT44 - WHEN '46' THEN RDX_TRASPASOS_AJUSTES.CANT46 - WHEN '48' THEN RDX_TRASPASOS_AJUSTES.CANT48 - END IS NOT NULL -GO - -/* EOF */ diff --git a/Varela/Varela/Database/2.2 - vistas ventas.sql b/Varela/Varela/Database/2.2 - vistas ventas.sql deleted file mode 100644 index d2edf4f..0000000 --- a/Varela/Varela/Database/2.2 - vistas ventas.sql +++ /dev/null @@ -1,284 +0,0 @@ -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASEDI AS -SELECT - NUMINF, - CLAVE1, - CLAVE2, - CLAVE3, - PERVENINI, - NUMTALON, - EANLUG, - FILIAL, - EANVEN, - CODVEN, - VENDEDOR, - EANART, - CODCOM, - PRODUTO, - DESC_PRODUTO, - COR_PRODUTO, - GRADE, - TIPO_PRODUTO, - GRUPO_PRODUTO, - DESC_COLECAO, - VALVEN, - CANVEN, - CANDEV, - CANVENNET, - CANESP, - IGNORAR -FROM RDX_VENTASEDI -WHERE (IGNORAR IS NULL) OR (IGNORAR <> 'S') -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASEDI_PESADA -AS -SELECT - RDX_CABVEN.NUMINF, - RDX_ARTVEN.CLAVE1, - RDX_ARTVEN.CLAVE2, - RDX_ARTVEN.CLAVE3, - RDX_LUGVEN.PERVENINI, - RDX_ARTVEN.NUMTALON, - RDX_LUGVEN.EANLUG, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_LUGVEN.EANLUG), - RDX_ARTVEN.EANVEN, - LOJA_VENDEDORES.VENDEDOR AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_ARTVEN.EANVEN), - RDX_ARTVEN.EANART, - RDX_ARTVEN.CODCOM, - produtos.PRODUTO, - ISNULL(produtos.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI') AS DESC_PRODUTO, - PRODUTOS_BARRA.COR_PRODUTO, - PRODUTOS_BARRA.GRADE, - produtos.TIPO_PRODUTO, - produtos.GRUPO_PRODUTO, - COLECOES.DESC_COLECAO, - RDX_ARTVEN.VALVEN, - RDX_ARTVEN.CANVEN, - RDX_ARTVEN.CANDEV, - RDX_ARTVEN.CANVENNET, - RDX_ARTVEN.CANESP -FROM - RDX_ARTVEN - INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2) - INNER JOIN RDX_CABVEN ON (RDX_LUGVEN.CLAVE1 = RDX_CABVEN.CLAVE1) - left outer join RDX_FILIALES on (RDX_FILIALES.CODBARRA = RDX_LUGVEN.EANLUG) - left outer join FILIAIS on (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) - LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG LIKE '%' + RDX_ARTVEN.EANVEN + '%') - LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.EANART) or (PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.CODCOM)) - LEFT OUTER JOIN PRODUTOS on (produtos.PRODUTO = PRODUTOS_BARRA.PRODUTO) - LEFT OUTER JOIN COLECOES on (COLECOES.COLECAO = PRODUTOS.COLECAO) -WHERE (RDX_CABVEN.IGNORAR IS NULL) OR (RDX_CABVEN.IGNORAR <> 'S') -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_REFERENCIAS_RESUELTAS -AS -SELECT * -FROM RDX_REFERENCIA_GENERICA -WHERE ESTADO = 'R' -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASEDI_RESUELTAS -AS -SELECT - RDX_V_VENTASEDI.NUMINF, - RDX_V_VENTASEDI.CLAVE1, - RDX_V_VENTASEDI.CLAVE2, - RDX_V_VENTASEDI.CLAVE3, - RDX_V_VENTASEDI.PERVENINI, - RDX_V_VENTASEDI.NUMTALON, - RDX_V_VENTASEDI.EANLUG, - RDX_V_VENTASEDI.FILIAL, - RDX_V_VENTASEDI.EANVEN, - RDX_V_VENTASEDI.CODVEN, - RDX_V_VENTASEDI.VENDEDOR, - EANART = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CODIGO_BARRA, RDX_V_VENTASEDI.EANART), - RDX_V_VENTASEDI.CODCOM, - PRODUTO = ISNULL(PRODUTOS_BARRA.PRODUTO, RDX_V_VENTASEDI.PRODUTO), - DESC_PRODUTO = ISNULL(PRODUTOS.DESC_PRODUTO, RDX_V_VENTASEDI.DESC_PRODUTO), - COR_PRODUTO = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, RDX_V_VENTASEDI.COR_PRODUTO), - GRADE = ISNULL(PRODUTOS_BARRA.GRADE, RDX_V_VENTASEDI.GRADE), - TIPO_PRODUTO = ISNULL(PRODUTOS.TIPO_PRODUTO, RDX_V_VENTASEDI.TIPO_PRODUTO), - GRUPO_PRODUTO = ISNULL(PRODUTOS.GRUPO_PRODUTO, RDX_V_VENTASEDI.GRUPO_PRODUTO), - PRODUTOS.COLECAO, - DESC_COLECAO = ISNULL(COLECOES.DESC_COLECAO, RDX_V_VENTASEDI.DESC_COLECAO), - RDX_V_VENTASEDI.VALVEN, - RDX_V_VENTASEDI.CANVEN, - RDX_V_VENTASEDI.CANDEV, - RDX_V_VENTASEDI.CANVENNET, - RDX_V_VENTASEDI.CANESP -FROM RDX_V_VENTASEDI -LEFT JOIN RDX_V_REFERENCIAS_RESUELTAS ON ( - (RDX_V_REFERENCIAS_RESUELTAS.NUMINF = RDX_V_VENTASEDI.NUMINF) AND - (RDX_V_REFERENCIAS_RESUELTAS.CLAVE1 = RDX_V_VENTASEDI.CLAVE1) AND - (RDX_V_REFERENCIAS_RESUELTAS.CLAVE2 = RDX_V_VENTASEDI.CLAVE2) AND - (RDX_V_REFERENCIAS_RESUELTAS.CLAVE3 = RDX_V_VENTASEDI.CLAVE3)) -LEFT JOIN PRODUTOS_BARRA ON ( - (PRODUTOS_BARRA.CODIGO_BARRA = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CODIGO_BARRA, RDX_V_VENTASEDI.EANART))) -LEFT JOIN PRODUTOS ON ( - (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO)) -LEFT JOIN COLECOES ON ( - (COLECOES.COLECAO = PRODUTOS.COLECAO)) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASEDI_ERRONEAS -AS -SELECT -* -FROM - RDX_V_VENTASEDI -WHERE PRODUTO = '107CH.EN.01' -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_REFERENCIA_GENERICA -AS -SELECT DISTINCT - VENTAS.NUMINF, - VENTAS.CLAVE1, - VENTAS.CLAVE2, - VENTAS.CLAVE3, - NUMCON = ISNULL(REF.NUMCON, 0), - VENTAS.PERVENINI AS FECHA, - VENTAS.EANLUG AS CODCENTRO, - VENTAS.FILIAL AS CENTRO, - VENTAS.EANVEN AS CODVENDEDOR, - VENTAS.VENDEDOR, - VENTAS.NUMTALON, - CODIGO_BARRA = ISNULL(PRODUTOS_BARRA.CODIGO_BARRA, VENTAS.EANART), - CODIGO = ISNULL(PRODUTOS_BARRA.PRODUTO, VENTAS.PRODUTO), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, VENTAS.DESC_PRODUTO), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, VENTAS.COR_PRODUTO), - TALLA = ISNULL(PRODUTOS_BARRA.GRADE, VENTAS.GRADE), - VTAPROCESO = ISNULL(REF.CANESP, VENTAS.CANESP), - VTAFINAL = ISNULL(REF.CANVENNET, VENTAS.CANVENNET), - VTATERM = ISNULL(REF.CANVEN, VENTAS.CANVEN), - VALTOT = ISNULL(REF.VALVEN, VENTAS.VALVEN), - REF.ESTADO, - REF.FECHACAMBIO -FROM RDX_V_VENTASEDI_ERRONEAS VENTAS -LEFT OUTER JOIN RDX_REFERENCIA_GENERICA REF ON - (REF.NUMINF = VENTAS.NUMINF AND REF.CLAVE1 = VENTAS.CLAVE1 AND - REF.CLAVE2 = VENTAS.CLAVE2 AND REF.CLAVE3 = VENTAS.CLAVE3) -LEFT OUTER JOIN PRODUTOS_BARRA on - (PRODUTOS_BARRA.CODIGO_BARRA = REF.CODIGO_BARRA) -LEFT OUTER JOIN PRODUTOS ON - (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -WHERE NOT ((VENTAS.VALVEN < 1) AND (VENTAS.VALVEN > 0)) /* QUITAR COMPOSTURAS */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASPROCESO AS -SELECT - NUMINF, - CLAVE1, - CLAVE2, - CLAVE3, - PERVENINI AS FECHA, - DAY(PERVENINI) AS DIA, - DATENAME(DW, PERVENINI) DIASEMANA, - DATENAME(MONTH, PERVENINI) AS MES, - YEAR(PERVENINI) AS ANO, - FILIAL AS CENTRO, - VENDEDOR, - NUMTALON, - PRODUTO AS CODIGO, - DESC_PRODUTO AS PRODUCTO, - GRUPO_PRODUTO AS GRUPOPRODUCTO, - TIPO_PRODUTO AS TIPOPRODUCTO, - COLECAO AS COLECCION, - COR_PRODUTO AS COLOR, - GRADE AS TALLA, - CANESP AS INICIO, - CANVENNET AS FINAL, - VALVEN AS IMPORTE -FROM - RDX_V_VENTASEDI_RESUELTAS -WHERE ((CANESP IS NOT NULL) OR (CANVENNET IS NOT NULL)) -AND NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASPROCESOPENDIENTES AS -SELECT NUMTALON, - CODIGO, - COLOR, - TALLA, - SUM(ISNULL(INICIO, 0)) AS INICIO, - SUM(ABS(ISNULL(FINAL, 0))) AS FINAL -FROM RDX_V_VENTASPROCESO -GROUP BY NUMTALON, CODIGO, COLOR, TALLA -HAVING ((SUM(ISNULL(INICIO, 0)) <> 0) AND - (SUM(ISNULL(INICIO, 0)) > SUM(ABS(ISNULL(FINAL, 0))))) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_VENTASTERMINADAS -AS -SELECT - NUMINF, - CLAVE1, - CLAVE2, - CLAVE3, - PERVENINI AS FECHA, - DAY(PERVENINI) AS DIA, - DATENAME(DW, PERVENINI) DIASEMANA, - DATENAME(MONTH, PERVENINI) AS MES, - YEAR(PERVENINI) AS ANO, - FILIAL AS CENTRO, - VENDEDOR, - NUMTALON, - PRODUTO AS CODIGO, - DESC_PRODUTO AS PRODUCTO, - GRUPO_PRODUTO AS GRUPOPRODUCTO, - TIPO_PRODUTO AS TIPOPRODUCTO, - COLECAO AS COLECCION, - COR_PRODUTO AS COLOR, - GRADE AS TALLA, - TALLA38 = CASE WHEN (GRADE = 38) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA40 = CASE WHEN (GRADE = 40) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA42 = CASE WHEN (GRADE = 42) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA44 = CASE WHEN (GRADE = 44) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA46 = CASE WHEN (GRADE = 46) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA48 = CASE WHEN (GRADE = 48) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - - VTATERMDEV = ISNULL(CANVEN, 0), - VTAFINALRESC = ISNULL(CANVENNET, 0), - - VENTAS = CASE WHEN (CANVEN > 0) THEN CANVEN ELSE 0 END + - CASE WHEN (CANVENNET > 0) THEN CANVENNET ELSE 0 END, - - DEVOLUCIONES = CASE WHEN (CANVEN < 0) THEN CANVEN ELSE 0 END + - CASE WHEN (CANVENNET < 0) THEN CANVENNET ELSE 0 END, - - TOTAL = ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0), - - VALTERMDEV = CASE WHEN (CANVEN <> 0) THEN ISNULL(VALVEN, 0) ELSE 0 END, - VALFINALRESC = CASE WHEN (CANVENNET <> 0) THEN ISNULL(VALVEN, 0) ELSE 0 END, - - VALVEN = CASE WHEN (VALVEN > 0) THEN VALVEN ELSE 0 END, - VALDEV = CASE WHEN (VALVEN < 0) THEN VALVEN ELSE 0 END, - VALTOT = VALVEN -FROM - RDX_V_VENTASEDI_RESUELTAS -WHERE NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */ -AND (CANESP IS NULL OR CANESP = 0) /* QUITAR INICIO V.PROCESO */ -AND (VALVEN IS NOT NULL) /* QUITAR CAMBIO DE TALLA */ -AND ((CANVENNET >= 0) OR (CANVENNET IS NULL)) /* IGNORAR LAS RESCISIONES DE V.PROCESO */ -GO - -/* EOF */ diff --git a/Varela/Varela/Database/2.3 - vistas stock.sql b/Varela/Varela/Database/2.3 - vistas stock.sql deleted file mode 100644 index 44cb859..0000000 --- a/Varela/Varela/Database/2.3 - vistas stock.sql +++ /dev/null @@ -1,579 +0,0 @@ -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_STOCK_VARELA AS -SELECT ESTOQUE_PRODUTOS.FILIAL, - ESTOQUE_PRODUTOS.PRODUTO AS CODIGO, - ESTOQUE_PRODUTOS.COR_PRODUTO AS COLOR, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - PRODUTOS.TIPO_PRODUTO, - PRODUTOS.GRUPO_PRODUTO, - COLECCION = PRODUTOS.COLECAO, - ESTOQUE_PRODUTOS.ES1 as K38, - ESTOQUE_PRODUTOS.ES2 as K40, - ESTOQUE_PRODUTOS.ES3 as K42, - ESTOQUE_PRODUTOS.ES4 as K44, - ESTOQUE_PRODUTOS.ES5 as K46, - ESTOQUE_PRODUTOS.ES6 as K48, - ESTOQUE_PRODUTOS.ESTOQUE as KT - -FROM ESTOQUE_PRODUTOS -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = ESTOQUE_PRODUTOS.PRODUTO) -WHERE FILIAL LIKE '%VARELA IMAGEN Y DISEÑO%' -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_STOCK_INVENTARIO AS -SELECT - FECHA = ISNULL(RDX_V_INVENTARIOEDI.FECHA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA))), - CENTRO = ISNULL(RDX_V_INVENTARIOEDI.CENTRO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CENTRO))), - FILIAL = ISNULL(RDX_V_INVENTARIOEDI.FILIAL, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FILIAL, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FILIAL))), - CODIGO = ISNULL(RDX_V_INVENTARIOEDI.CODIGO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CODIGO))), - PRODUCTO = ISNULL(RDX_V_INVENTARIOEDI.PRODUCTO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.PRODUCTO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.PRODUCTO))), - COLOR = ISNULL(RDX_V_INVENTARIOEDI.COLOR, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.COLOR))), - TALLA = ISNULL(RDX_V_INVENTARIOEDI.TALLA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.TALLA))), - CANTIDAD = ISNULL(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CANTIDAD, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD, RDX_V_INVENTARIOEDI.CANTIDAD))), - OPERACION = CASE RDX_V_INVENTARIOEDI.TIPOCANT - WHEN '194' THEN 'R' - WHEN '46' THEN 'E' - WHEN '145' THEN 'RM' - WHEN '48' THEN 'S' - WHEN '61' THEN 'D' - WHEN '65' THEN 'T' - ELSE - CASE - WHEN RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD IS NOT NULL THEN 'R' - WHEN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD IS NOT NULL THEN 'D' - ELSE RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO - END - END -FROM RDX_V_INVENTARIOEDI -FULL OUTER JOIN RDX_V_RECEPCION_AJUSTES_DESGLOSADO ON - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) -FULL OUTER JOIN RDX_V_TRASPASOS_AJUSTES_DESGLOSADO ON - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO2 = RDX_V_INVENTARIOEDI.CENTRO2) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO = RDX_V_INVENTARIOEDI.TIPOCANT) -FULL OUTER JOIN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO ON - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_STOCK_VENTAS AS -SELECT - PERVENINI AS FECHA, - DAY(PERVENINI) AS DIA, - DATENAME(DW, PERVENINI) DIASEMANA, - DATENAME(MONTH, PERVENINI) AS MES, - YEAR(PERVENINI) AS ANO, - EANLUG AS CENTRO, - FILIAL AS FILIAL, - CODIGO = ISNULL(PRODUTO, '107CH.EN.01'), - DESC_PRODUTO AS PRODUCTO, - GRUPO_PRODUTO AS GRUPOPRODUCTO, - TIPO_PRODUTO AS TIPOPRODUCTO, - COLECAO AS COLECCION, - COLOR = ISNULL(COR_PRODUTO, '300'), - GRADE AS TALLA, - CANTIDAD = ISNULL(CANVEN, 0) - + - CASE - WHEN ISNULL(CANVENNET, 0) < 0 THEN - ISNULL(CANVENNET, 0) - ELSE 0 - END - + - ISNULL(CANESP, 0) -FROM - RDX_V_VENTASEDI_RESUELTAS -WHERE NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */ -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_STOCK AS -SELECT - CENTRO = ISNULL(RDX_V_STOCK_INVENTARIO.CENTRO, RDX_V_STOCK_VENTAS.CENTRO), - FILIAL = ISNULL(RDX_V_STOCK_INVENTARIO.FILIAL, RDX_V_STOCK_VENTAS.FILIAL), - CODIGO = ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO), - PRODUCTO = ISNULL(RDX_V_STOCK_INVENTARIO.PRODUCTO, RDX_V_STOCK_VENTAS.PRODUCTO), - TIPO_PRODUCTO = PRODUTOS.TIPO_PRODUTO, - GRUPO_PRODUCTO = PRODUTOS.GRUPO_PRODUTO, - COLECCION = PRODUTOS.COLECAO, - COLOR = ISNULL(RDX_V_STOCK_INVENTARIO.COLOR, RDX_V_STOCK_VENTAS.COLOR), - E38 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '38' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN 0 - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E40 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '40' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN 0 - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E42 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '42' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN 0 - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E44 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '44' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN 0 - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E46 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '46' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN 0 - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E48 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '48' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN 0 - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S38 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '38' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S40 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '40' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S42 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '42' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S44 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '44' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S46 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '46' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S48 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '48' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN (RDX_V_STOCK_VENTAS.CANTIDAD > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END) -FROM - RDX_V_STOCK_INVENTARIO -FULL OUTER JOIN RDX_V_STOCK_VENTAS ON - (RDX_V_STOCK_INVENTARIO.CENTRO = RDX_V_STOCK_VENTAS.CENTRO) - AND (RDX_V_STOCK_INVENTARIO.CODIGO = RDX_V_STOCK_VENTAS.CODIGO) - AND (RDX_V_STOCK_INVENTARIO.COLOR = RDX_V_STOCK_VENTAS.COLOR) - AND (RDX_V_STOCK_INVENTARIO.TALLA = RDX_V_STOCK_VENTAS.TALLA) - AND (RDX_V_STOCK_INVENTARIO.FECHA = RDX_V_STOCK_VENTAS.FECHA) -LEFT OUTER JOIN PRODUTOS ON - (PRODUTOS.PRODUTO = ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO)) -GROUP BY - ISNULL(RDX_V_STOCK_INVENTARIO.CENTRO, RDX_V_STOCK_VENTAS.CENTRO), - ISNULL(RDX_V_STOCK_INVENTARIO.FILIAL, RDX_V_STOCK_VENTAS.FILIAL), - ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO), - ISNULL(RDX_V_STOCK_INVENTARIO.PRODUCTO, RDX_V_STOCK_VENTAS.PRODUCTO), - PRODUTOS.TIPO_PRODUTO, - PRODUTOS.GRUPO_PRODUTO, - PRODUTOS.COLECAO, - ISNULL(RDX_V_STOCK_INVENTARIO.COLOR, RDX_V_STOCK_VENTAS.COLOR) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_STOCK_CALCULADO AS -SELECT - CENTRO, - CODIGO, - PRODUCTO, - TIPO_PRODUCTO, - GRUPO_PRODUCTO, - COLECCION, - COLOR, - E38, - E40, - E42, - E44, - E46, - E48, - TE = ISNULL(E38, 0) + ISNULL(E40, 0) + ISNULL(E42, 0) + ISNULL(E44, 0) + ISNULL(E46, 0) + ISNULL(E48, 0), - S38, - S40, - S42, - S44, - S46, - S48, - TS = ISNULL(S38, 0) + ISNULL(S40, 0) + ISNULL(S42, 0) + ISNULL(S44, 0) + ISNULL(S46, 0) + ISNULL(S48, 0), - K38 = ISNULL(E38, 0) + ISNULL(S38, 0), - K40 = ISNULL(E40, 0) + ISNULL(S40, 0), - K42 = ISNULL(E42, 0) + ISNULL(S42, 0), - K44 = ISNULL(E44, 0) + ISNULL(S44, 0), - K46 = ISNULL(E46, 0) + ISNULL(S46, 0), - K48 = ISNULL(E48, 0) + ISNULL(S48, 0), - KT = ISNULL(E38, 0) + ISNULL(S38, 0) + ISNULL(E40, 0) + ISNULL(S40, 0) + - ISNULL(E42, 0) + ISNULL(S42, 0) + ISNULL(E44, 0) + ISNULL(S44, 0) + - ISNULL(E46, 0) + ISNULL(S46, 0) + ISNULL(E48, 0) + ISNULL(S48, 0) - -FROM RDX_V_STOCK -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_STOCK_CALCULADO_DESGLOSADO AS -SELECT CENTRO, - CODIGO, - PRODUCTO, - TIPO_PRODUCTO, - GRUPO_PRODUCTO, - COLECCION, - COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_V_STOCK_CALCULADO.K38 - WHEN '40' THEN RDX_V_STOCK_CALCULADO.K40 - WHEN '42' THEN RDX_V_STOCK_CALCULADO.K42 - WHEN '44' THEN RDX_V_STOCK_CALCULADO.K44 - WHEN '46' THEN RDX_V_STOCK_CALCULADO.K46 - WHEN '48' THEN RDX_V_STOCK_CALCULADO.K48 - END - -FROM RDX_TALLAS, RDX_V_STOCK_CALCULADO -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIO_STOCK_DESGLOSADO AS -SELECT - ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CENTRO, RDX_V_ULTIMO_INVENTARIO.FILIAL) as CENTRO, - ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CODIGO, RDX_V_ULTIMO_INVENTARIO.CODIGO) as CODIGO, - ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.PRODUCTO, RDX_V_ULTIMO_INVENTARIO.PRODUCTO) as PRODUCTO, - ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.COLOR, RDX_V_ULTIMO_INVENTARIO.COLOR) as COLOR, - ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.TALLA, RDX_V_ULTIMO_INVENTARIO.TALLA) as TALLA, - - RDX_V_STOCK_CALCULADO_DESGLOSADO.TIPO_PRODUCTO, - RDX_V_STOCK_CALCULADO_DESGLOSADO.GRUPO_PRODUCTO, - RDX_V_STOCK_CALCULADO_DESGLOSADO.COLECCION, - - RDX_V_STOCK_CALCULADO_DESGLOSADO.CANTIDAD as CANTIDAD_STOCK, - RDX_V_ULTIMO_INVENTARIO.CANTIDAD as CANTIDAD_INVENTARIO - -FROM RDX_V_ULTIMO_INVENTARIO -FULL OUTER JOIN RDX_V_STOCK_CALCULADO_DESGLOSADO ON -(RDX_V_ULTIMO_INVENTARIO.FILIAL = RDX_V_STOCK_CALCULADO_DESGLOSADO.CENTRO) -AND (RDX_V_ULTIMO_INVENTARIO.CODIGO = RDX_V_STOCK_CALCULADO_DESGLOSADO.CODIGO) -AND (RDX_V_ULTIMO_INVENTARIO.COLOR = RDX_V_STOCK_CALCULADO_DESGLOSADO.COLOR) -AND (RDX_V_ULTIMO_INVENTARIO.TALLA = RDX_V_STOCK_CALCULADO_DESGLOSADO.TALLA) -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_INVENTARIO_STOCK AS -select - CENTRO, - CODIGO, - PRODUCTO, - COLOR, - TIPO_PRODUCTO, - GRUPO_PRODUCTO, - COLECCION, - I38 = SUM(CASE TALLA - WHEN '38' THEN - CANTIDAD_INVENTARIO - ELSE 0 - END) - - ,I40 = SUM(CASE TALLA - WHEN '40' THEN - CANTIDAD_INVENTARIO - ELSE 0 - END) - - ,I42 = SUM(CASE TALLA - WHEN '42' THEN - CANTIDAD_INVENTARIO - ELSE 0 - END) - - ,I44 = SUM(CASE TALLA - WHEN '44' THEN - CANTIDAD_INVENTARIO - ELSE 0 - END) - - ,I46 = SUM(CASE TALLA - WHEN '46' THEN - CANTIDAD_INVENTARIO - ELSE 0 - END) - - ,I48 = SUM(CASE TALLA - WHEN '48' THEN - CANTIDAD_INVENTARIO - ELSE 0 - END) - - ,K38 = SUM(CASE TALLA - WHEN '38' THEN - CANTIDAD_STOCK - ELSE 0 - END) - - ,K40 = SUM(CASE TALLA - WHEN '40' THEN - CANTIDAD_STOCK - ELSE 0 - END) - - ,K42 = SUM(CASE TALLA - WHEN '42' THEN - CANTIDAD_STOCK - ELSE 0 - END) - - ,K44 = SUM(CASE TALLA - WHEN '44' THEN - CANTIDAD_STOCK - ELSE 0 - END) - - ,K46 = SUM(CASE TALLA - WHEN '46' THEN - CANTIDAD_STOCK - ELSE 0 - END) - - ,K48 = SUM(CASE TALLA - WHEN '48' THEN - CANTIDAD_STOCK - ELSE 0 - END) - -from RDX_V_INVENTARIO_STOCK_DESGLOSADO - -group by CENTRO, - CODIGO, - PRODUCTO, - COLOR, - TIPO_PRODUCTO, - GRUPO_PRODUCTO, - COLECCION -GO - -/*--------------- SQL ---------------*/ - -CREATE VIEW RDX_V_CONTROL_INVENTARIO AS -SELECT - CENTRO, - CODIGO, - PRODUCTO, - COLOR, - TIPO_PRODUCTO, - GRUPO_PRODUCTO, - COLECCION, - - I38, - I40, - I42, - I44, - I46, - I48, - TI = ISNULL(I38, 0) + ISNULL(I40, 0) + ISNULL(I42, 0) + ISNULL(I44, 0) + ISNULL(I46, 0) + ISNULL(I48, 0), - - K38, - K40, - K42, - K44, - K46, - K48, - TK = ISNULL(K38, 0) + ISNULL(K40, 0) + ISNULL(K42, 0) + ISNULL(K44, 0) + ISNULL(K46, 0) + ISNULL(K48, 0), - - D38 = ISNULL(I38, 0) - ISNULL(K38, 0), - D40 = ISNULL(I40, 0) - ISNULL(K40, 0), - D42 = ISNULL(I42, 0) - ISNULL(K42, 0), - D44 = ISNULL(I44, 0) - ISNULL(K44, 0), - D46 = ISNULL(I46, 0) - ISNULL(K46, 0), - D48 = ISNULL(I48, 0) - ISNULL(K48, 0), - DT = ISNULL(I38, 0) - ISNULL(K38, 0) + ISNULL(I40, 0) - ISNULL(K40, 0) + - ISNULL(I42, 0) - ISNULL(K42, 0) + ISNULL(I44, 0) - ISNULL(K44, 0) + - ISNULL(I46, 0) - ISNULL(K46, 0) + ISNULL(I48, 0) - ISNULL(K48, 0) - -FROM RDX_V_INVENTARIO_STOCK -where ((ISNULL(I38, 0) - ISNULL(K38, 0) + ISNULL(I40, 0) - ISNULL(K40, 0) + - ISNULL(I42, 0) - ISNULL(K42, 0) + ISNULL(I44, 0) - ISNULL(K44, 0) + - ISNULL(I46, 0) - ISNULL(K46, 0) + ISNULL(I48, 0) - ISNULL(K48, 0)) <> 0) - -GO -/* EOF */ diff --git a/Varela/Varela/Database/3 - procedimientos.sql b/Varela/Varela/Database/3 - procedimientos.sql deleted file mode 100644 index 11c1189..0000000 --- a/Varela/Varela/Database/3 - procedimientos.sql +++ /dev/null @@ -1,176 +0,0 @@ -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE crosstab - @select varchar(8000), - @sumfunc varchar(100), - @pivot varchar(100), - @table varchar(100) -AS - - DECLARE @sql varchar(8000), @delim varchar(1) - SET NOCOUNT ON - SET ANSI_WARNINGS OFF - - EXEC ('SELECT ' + @pivot + ' AS pivot INTO ##pivot FROM ' + @table + ' WHERE 1=2') - EXEC ('INSERT INTO ##pivot SELECT DISTINCT ' + @pivot + ' FROM ' + @table + ' WHERE ' + @pivot + ' Is Not Null') - - SELECT @sql='', @sumfunc=stuff(@sumfunc, len(@sumfunc), 1, ' END)' ) - - SELECT @delim=CASE Sign( CharIndex('char', data_type)+CharIndex('date', data_type) ) - WHEN 0 THEN '' ELSE '''' END - FROM tempdb.information_schema.columns - WHERE table_name='##pivot' AND column_name='pivot' - - SELECT @sql=@sql + '''' + convert(varchar(100), pivot) + ''' = ' + stuff(@sumfunc,charindex( '(', @sumfunc )+1, 0, ' CASE ' + @pivot + ' WHEN ' + @delim + convert(varchar(100), pivot) + @delim + ' THEN ' ) + ', ' FROM ##pivot - - DROP TABLE ##pivot - - SELECT @sql=left(@sql, len(@sql)-1) - SELECT @select=stuff(@select, charindex(' FROM ', @select)+1, 0, ', ' + @sql + ' ') - - EXEC (@select) - SET ANSI_WARNINGS ON -GO - -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE RDX_P_CARGAR_INVENTARIOEDI -AS -BEGIN - INSERT INTO RDX_INVENTARIOEDI ( - NUMDOC, NUMLIN, NUMCANT, TIPOCANT, FECHA, CENTRO, FILIAL, CODVEN, - VENDEDOR, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TALLA, CANTIDAD, - CENTRO2, FILIAL2, IGNORAR ) - SELECT - RDX_CANTINV.NUMDOC, - RDX_CANTINV.NUMLIN, - RDX_CANTINV.NUMCANT, - RDX_CANTINV.TIPOCANT, - RDX_CABINV.FECHALIQ AS FECHA, - RDX_CABINV.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_CABINV.CENTRO), - RDX_CANTINV.IDVEN AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_CANTINV.IDVEN), - RDX_LININV.CODART AS CODIGO_BARRA, - CODIGO = ISNULL(PRODUTOS.PRODUTO, '107CH.EN.01'), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI'), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, 300), - TALLA = PRODUTOS_BARRA.GRADE, - RDX_CANTINV.CANTIDAD, - CENTRO2 = RDX_CANTINV.CENTRO, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_CANTINV.CENTRO), - RDX_CABINV.IGNORAR - FROM RDX_CANTINV - INNER JOIN RDX_LININV ON - ((RDX_LININV.NUMDOC = RDX_CANTINV.NUMDOC) AND - (RDX_LININV.NUMLIN = RDX_CANTINV.NUMLIN)) - INNER JOIN RDX_CABINV ON - (RDX_CABINV.NUMDOC = RDX_LININV.NUMDOC) - LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_CABINV.CENTRO) - LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) - LEFT OUTER JOIN RDX_FILIALES RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_CANTINV.CENTRO) - LEFT OUTER JOIN FILIAIS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) - LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG = RDX_CANTINV.IDVEN) - LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_LININV.CODART)) - LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) - WHERE RDX_CABINV.FECHALIQ >= CONVERT(DATETIME, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ - AND RDX_CABINV.CARGADO IS NULL - - UPDATE RDX_CABINV SET - CARGADO = 1 - WHERE CARGADO IS NULL -END -GO - -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE RDX_P_CARGAR_VENTASEDI -AS -BEGIN - INSERT INTO RDX_VENTASEDI ( - NUMINF, CLAVE1, CLAVE2, CLAVE3, PERVENINI, NUMTALON, EANLUG, - FILIAL, EANVEN, CODVEN, VENDEDOR, EANART, CODCOM, PRODUTO, - DESC_PRODUTO, COR_PRODUTO, GRADE, TIPO_PRODUTO, GRUPO_PRODUTO, - DESC_COLECAO, VALVEN, CANVEN, CANDEV, CANVENNET, CANESP ) - SELECT - RDX_CABVEN.NUMINF, - RDX_ARTVEN.CLAVE1, - RDX_ARTVEN.CLAVE2, - RDX_ARTVEN.CLAVE3, - RDX_LUGVEN.PERVENINI, - RDX_ARTVEN.NUMTALON, - RDX_LUGVEN.EANLUG, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_LUGVEN.EANLUG), - RDX_ARTVEN.EANVEN, - LOJA_VENDEDORES.VENDEDOR AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_ARTVEN.EANVEN), - RDX_ARTVEN.EANART, - RDX_ARTVEN.CODCOM, - produtos.PRODUTO, - ISNULL(produtos.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI') AS DESC_PRODUTO, - PRODUTOS_BARRA.COR_PRODUTO, - PRODUTOS_BARRA.GRADE, - produtos.TIPO_PRODUTO, - produtos.GRUPO_PRODUTO, - COLECOES.DESC_COLECAO, - RDX_ARTVEN.VALVEN, - RDX_ARTVEN.CANVEN, - RDX_ARTVEN.CANDEV, - RDX_ARTVEN.CANVENNET, - RDX_ARTVEN.CANESP - FROM - RDX_ARTVEN - INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2) - INNER JOIN RDX_CABVEN ON (RDX_LUGVEN.CLAVE1 = RDX_CABVEN.CLAVE1) - left outer join RDX_FILIALES on (RDX_FILIALES.CODBARRA = RDX_LUGVEN.EANLUG) - left outer join FILIAIS on (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) - LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG LIKE '%' + RDX_ARTVEN.EANVEN + '%') - LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.EANART) or (PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.CODCOM)) - LEFT OUTER JOIN PRODUTOS on (produtos.PRODUTO = PRODUTOS_BARRA.PRODUTO) - LEFT OUTER JOIN COLECOES on (COLECOES.COLECAO = PRODUTOS.COLECAO) - WHERE RDX_CABVEN.CARGADO IS NULL - - - UPDATE RDX_CABVEN SET - CARGADO = 1 - WHERE CARGADO IS NULL -END -GO - -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE RDX_P_SET_ULTIMOINVENTARIO -AS -BEGIN - DECLARE @CENTRO VARCHAR(17), - @CODIGO VARCHAR(12), - @COLOR VARCHAR(10), - @TALLA VARCHAR(8), - @FECHA DATETIME, - @UPDATECMD VARCHAR(255) - - DECLARE ASD CURSOR FOR - SELECT RTRIM(CENTRO), RTRIM(CODIGO), RTRIM(COLOR), RTRIM(TALLA), FECHA - FROM RDX_V_INVENTARIO_MAXFECHAS - OPEN ASD - FETCH NEXT FROM ASD INTO @CENTRO, @CODIGO, @COLOR, @TALLA, @FECHA - - IF @@ROWCOUNT >= 0 - BEGIN - WHILE @@FETCH_STATUS = 0 - BEGIN - UPDATE RDX_INVENTARIOEDI SET ULTIMO_INVENTARIO=NULL - WHERE CENTRO = @CENTRO AND CODIGO = @CODIGO AND COLOR = @COLOR AND TALLA = @TALLA - - UPDATE RDX_INVENTARIOEDI SET ULTIMO_INVENTARIO=1 - WHERE FECHA = CONVERT(VARCHAR, @FECHA, 112) AND CENTRO = @CENTRO AND CODIGO = @CODIGO AND COLOR = @COLOR AND TALLA = @TALLA AND TIPOCANT = 145 - - FETCH NEXT FROM ASD INTO @CENTRO, @CODIGO, @COLOR, @TALLA, @FECHA - END - END - CLOSE ASD - DEALLOCATE ASD -END -GO - -/* EOF */ \ No newline at end of file diff --git a/Varela/Varela/Database/ANTERIOR/Script Datos.sql b/Varela/Varela/Database/ANTERIOR/Script Datos.sql deleted file mode 100644 index 0a98c3d..0000000 --- a/Varela/Varela/Database/ANTERIOR/Script Datos.sql +++ /dev/null @@ -1,178 +0,0 @@ ---------------- SQL --------------- -CREATE USER [usuario_gft] - FOR LOGIN [usuario_gft] - WITH DEFAULT_SCHEMA = [dbo] -GO - -COMMIT -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010082','8422416200065') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010083','8422416200058') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010086','8422416200041') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010089','8422416200102') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010090','8422416200126') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010091','8422416200133') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010092','8422416200188') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010244','8422416101256') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010094','8422416200959') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010096','8422416209068') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010088','8422416200089') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010103','8422416200140') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('010087','8422416200072') -GO - -INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA]) -VALUES - ('000001','8435159800003') -GO - -COMMIT -GO - - - ---------------- SQL --------------- -CREATE TABLE [RDX_TALLAS] ( - [TALLA] char(2) NOT NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_TALLAS] -TO [public] -GO - -INSERT INTO [RDX_TALLAS] ([TALLA]) -VALUES - ('38') -GO - -INSERT INTO [RDX_TALLAS] ([TALLA]) -VALUES - ('40') -GO - -INSERT INTO [RDX_TALLAS] ([TALLA]) -VALUES - ('42') -GO - -INSERT INTO [RDX_TALLAS] ([TALLA]) -VALUES - ('44') -GO - -INSERT INTO [RDX_TALLAS] ([TALLA]) -VALUES - ('46') -GO - -INSERT INTO [RDX_TALLAS] ([TALLA]) -VALUES - ('48') -GO - -COMMIT -GO - - - - - -/* Códigos de barra de ECI que son referencias nulas */ - -INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR]) -VALUES - ('61800000000','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL) -GO - -INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR]) -VALUES - ('61810001406','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL) -GO - -INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR]) -VALUES - ('61810001547','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL) -GO - -INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR]) -VALUES - ('61810001042','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL) -GO - -INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR]) -VALUES - ('61810001141','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL) -GO - -INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR]) -VALUES - ('8300733557232','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL) -GO - -COMMIT -GO - - - - - - - - - - - diff --git a/Varela/Varela/Database/ANTERIOR/Script Tablas.sql b/Varela/Varela/Database/ANTERIOR/Script Tablas.sql deleted file mode 100644 index 2d1d3e9..0000000 --- a/Varela/Varela/Database/ANTERIOR/Script Tablas.sql +++ /dev/null @@ -1,519 +0,0 @@ ---------------- SQL --------------- -CREATE TABLE [RDX_CABINV] ( - [NUMDOC] varchar(25) NOT NULL, - [TIPODOC] varchar(3) NULL, - [TIPOLIQ] varchar(3) NULL, - [FECHA] datetime NULL, - [FECHALIQ] datetime NULL, - [EMISOR] varchar(17) NULL, - [RECEPTOR] varchar(17) NULL, - [DPTO] varchar(3) NULL, - [CENTRO] varchar(17) NULL, - [FECHA_CARGA] datetime NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CABINV] -TO [public] -GO - -ALTER TABLE [RDX_CABINV] -ADD PRIMARY KEY CLUSTERED ([NUMDOC]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABINV_idx] ON [RDX_CABINV] - ([FECHALIQ]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CABINV_idx2] ON [RDX_CABINV] - ([CENTRO]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_LININV] ( - [NUMDOC] varchar(25) NOT NULL, - [NUMLIN] numeric(6, 0) NOT NULL, - [CODART] varchar(17) NULL, - [FAMILIA] varchar(17) NULL, - [BARRA] varchar(17) NULL, - [TALLA] varchar(17) NULL, - [MARCA] varchar(25) NULL, - [TAMANO] varchar(25) NULL, - [SERIE] varchar(25) NULL, - [COLOR] varchar(25) NULL, - [MODELO] varchar(25) NULL, - [DIBUJO] varchar(25) NULL, - [DESCRIP] varchar(70) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LININV] -TO [public] -GO - -ALTER TABLE [RDX_LININV] -ADD PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_LININV_idx] ON [RDX_LININV] - ([CODART]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_CANTINV] ( - [NUMDOC] varchar(25) NOT NULL, - [NUMLIN] numeric(6, 0) NOT NULL, - [NUMCANT] numeric(6, 0) NOT NULL, - [TIPOCANT] varchar(3) NULL, - [CANTIDAD] numeric(15, 0) NULL, - [CENTRO] varchar(17) NULL, - [TMOV] varchar(3) NULL, - [FACT] varchar(12) NULL, - [DEPTO] varchar(3) NULL, - [IDVEN] varchar(10) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CANTINV] -TO [public] -GO - -ALTER TABLE [RDX_CANTINV] -ADD PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN], [NUMCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx] ON [RDX_CANTINV] - ([TIPOCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx2] ON [RDX_CANTINV] - ([IDVEN]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_CABVEN] ( - [CLAVE1] numeric(10, 0) NOT NULL, - [NUMINF] varchar(35) NULL, - [FUNCION] varchar(10) NULL, - [FECINI] datetime NULL, - [FECFIN] datetime NULL, - [FECINF] datetime NULL, - [PERVENINI] datetime NULL, - [PERVENFIN] datetime NULL, - [EANOFI] varchar(17) NULL, - [EANEMI] varchar(17) NULL, - [EANREC] varchar(17) NULL, - [EANVEN] varchar(17) NULL, - [EANALM] varchar(17) NULL, - [EANREP] varchar(17) NULL, - [EANPRO] varchar(17) NULL, - [EANADMSA] varchar(17) NULL, - [EANREPSR] varchar(17) NULL, - [ADMVENSA] varchar(35) NULL, - [REPDEPSR] varchar(35) NULL, - [EMAILSA] varchar(35) NULL, - [NUMFAXSA] varchar(35) NULL, - [NUMTELSA] varchar(35) NULL, - [NUMTLXSA] varchar(35) NULL, - [X400SA] varchar(35) NULL, - [EMAILSR] varchar(35) NULL, - [NUMFAXSR] varchar(35) NULL, - [NUMTELSR] varchar(35) NULL, - [NUMTLXSR] varchar(35) NULL, - [X400SR] varchar(35) NULL, - [NUMPRE] varchar(35) NULL, - [NUMINFSC] varchar(35) NULL, - [NUMCON] varchar(35) NULL, - [FECPRE] datetime NULL, - [FECINFSC] datetime NULL, - [FECCON] datetime NULL, - [DIVPED] varchar(3) NULL, - [DIVPRE] varchar(3) NULL, - [DIVPAG] varchar(3) NULL, - [DIVPEDF] varchar(3) NULL, - [DIVPREF] varchar(3) NULL, - [DIVPAGF] varchar(3) NULL, - [TASCAM] numeric(15, 3) NULL, - [FECTAS] datetime NULL, - [FECHA_CARGA] datetime NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CABVEN] -TO [public] -GO - -ALTER TABLE [RDX_CABVEN] -ADD PRIMARY KEY CLUSTERED ([CLAVE1]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_LUGVEN] ( - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [EANLUG] varchar(17) NULL, - [LUGVEN] varchar(70) NULL, - [FECINI] datetime NULL, - [FECFIN] datetime NULL, - [PERVENINI] datetime NULL, - [PERVENFIN] datetime NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LUGVEN] -TO [public] -GO - -ALTER TABLE [RDX_LUGVEN] -ADD PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_LUGVEN_PERVENINI_IDX] ON [RDX_LUGVEN] - ([PERVENINI]) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_LUGVEN] -ADD CONSTRAINT [FK__RDX_LUGVE__CLAVE__4A59F0B5] FOREIGN KEY ([CLAVE1]) - REFERENCES [RDX_CABVEN] ([CLAVE1]) - ON UPDATE CASCADE - ON DELETE CASCADE -GO - -ALTER TABLE [RDX_LUGVEN] -NOCHECK CONSTRAINT [FK__RDX_LUGVE__CLAVE__4A59F0B5] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_ARTVEN] ( - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [CLAVE3] numeric(5, 0) NOT NULL, - [EANART] varchar(17) NULL, - [CODCOM] varchar(35) NULL, - [NUMVAR] varchar(35) NULL, - [CODPRO] varchar(35) NULL, - [DESARTCO] varchar(35) NULL, - [DESART] varchar(70) NULL, - [NUMCON] varchar(35) NULL, - [NUMLIS] varchar(35) NULL, - [CONESP1] varchar(3) NULL, - [CONESP2] varchar(3) NULL, - [CONESP3] varchar(3) NULL, - [VALVEN] numeric(15, 3) NULL, - [PRENETCT] numeric(15, 3) NULL, - [PREBRUCT] numeric(15, 3) NULL, - [PREINFET] numeric(15, 3) NULL, - [PREINFFT] numeric(15, 3) NULL, - [PRECALCT] numeric(15, 3) NULL, - [PRENETCA] numeric(15, 3) NULL, - [PREBRUCA] numeric(15, 3) NULL, - [PREINFEA] numeric(15, 3) NULL, - [PREINFFA] numeric(15, 3) NULL, - [PRECALCA] numeric(15, 3) NULL, - [BAPRUN1] numeric(9, 0) NULL, - [UNIMED1] varchar(3) NULL, - [BAPRUN2] numeric(9, 0) NULL, - [UNIMED2] varchar(3) NULL, - [BAPRUN3] numeric(9, 0) NULL, - [UNIMED3] varchar(3) NULL, - [BAPRUN4] numeric(9, 0) NULL, - [UNIMED4] varchar(3) NULL, - [BAPRUN5] numeric(9, 0) NULL, - [UNIMED5] varchar(3) NULL, - [CANVEN] numeric(15, 3) NULL, - [EXIPRO] numeric(15, 3) NULL, - [DESEXI] numeric(15, 3) NULL, - [ESPMEDCV] varchar(3) NULL, - [ESPMEDEP] varchar(3) NULL, - [ESPMEDDE] varchar(3) NULL, - [CANDEV] numeric(15, 3) NULL, - [EANVEN] varchar(17) NULL, - [NOMVEN] varchar(70) NULL, - [NUMTALON] varchar(35) NULL, - [CANVENNET] numeric(15, 3) NULL, - [UMEDVENNET] varchar(3) NULL, - [CANESP] numeric(15, 3) NULL, - [UMEDESP] varchar(3) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_ARTVEN] -TO [public] -GO - -ALTER TABLE [RDX_ARTVEN] -ADD PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2], [CLAVE3]) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_ARTVEN] -ADD CONSTRAINT [FK__RDX_ARTVEN__56BFC79A] FOREIGN KEY ([CLAVE1], [CLAVE2]) - REFERENCES [RDX_LUGVEN] ([CLAVE1], [CLAVE2]) - ON UPDATE CASCADE - ON DELETE CASCADE -GO - -ALTER TABLE [RDX_ARTVEN] -NOCHECK CONSTRAINT [FK__RDX_ARTVEN__56BFC79A] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_INFORMES] ( - [ID] smallint IDENTITY(1, 1) NOT NULL, - [CATEGORIA] varchar(15) NULL, - [ICONO] smallint NULL, - [NOMBRE] varchar(50) NULL, - [DESCRIPCION] varchar(255) NULL, - [ORDEN] smallint NULL, - [VISTA] text NULL, - [MODIFICABLE] char(1) CONSTRAINT [DF__RDX_INFOR__MODIF__5C78A0F0] DEFAULT 'S' NOT NULL -) -ON [PRIMARY] -TEXTIMAGE_ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_INFORMES] -TO [public] -GO - -ALTER TABLE [RDX_INFORMES] -ADD CONSTRAINT [RDX_INFORMES_pk] -PRIMARY KEY CLUSTERED ([ID]) -ON [PRIMARY] -GO - ---------------- SQL --------------- - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_ARTVEN] -TO [public] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CABINV] -TO [public] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CABVEN] -TO [public] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_CANTINV] -TO [public] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LININV] -TO [public] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LUGVEN] -TO [public] -GO - - ---------------- SQL --------------- -CREATE TABLE [RDX_LOG_CARGA] ( - [ID] int IDENTITY(1, 1) NOT NULL, - [REPORT] varchar(10) NOT NULL, - [FECHA] datetime NOT NULL, - [OK] bit NOT NULL, - [ERROR_MSG] varchar(255) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_LOG_CARGA] -TO [public] -GO - -ALTER TABLE [RDX_LOG_CARGA] -ADD UNIQUE NONCLUSTERED ([ID]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_REFERENCIA_GENERICA] ( - [NUMINF] varchar(35) NOT NULL, - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [CLAVE3] numeric(5, 0) NOT NULL, - [FECHACAMBIO] datetime NOT NULL, - [ESTADO] char(1) NOT NULL, - [CODIGO_BARRA] varchar(25) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_REFERENCIA_GENERICA] -TO [public] -GO - -ALTER TABLE [RDX_REFERENCIA_GENERICA] -ADD CONSTRAINT [PK__RDX_REFERENCIA_G__68DE77D5] -PRIMARY KEY CLUSTERED ([NUMINF], [CLAVE1], [CLAVE2], [CLAVE3]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_AJUSTES_ALBARAN] ( - [ALBARAN] char(7) NOT NULL, - [ESTADO] varchar(15) NULL, - [OBSERVACIONES] varchar(255) NULL, - [CONTABILIZAR] char(1) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_AJUSTES_ALBARAN] -TO [public] -GO - -ALTER TABLE [RDX_AJUSTES_ALBARAN] -ADD CONSTRAINT [PK__RDX_AJUSTES_ALBA__1B69F7A2] -PRIMARY KEY CLUSTERED ([ALBARAN]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES] ( - [NUMHOJA] char(8) NOT NULL, - [ESTADO] varchar(20) NULL, - [OBSERVACIONES] varchar(255) NULL, - [CONTABILIZAR] char(1) CONSTRAINT [DF__RDX_AJUST__CONTA__7BF14C49] DEFAULT 'S' NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_AJUSTES_HOJA_DEVOLUCIONES] -TO [public] -GO - -ALTER TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES] -ADD CONSTRAINT [PK__RDX_AJUSTES_HOJA__483C9E19] -PRIMARY KEY CLUSTERED ([NUMHOJA]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_DEVOLUCION_AJUSTES] ( - [FECHA] datetime NOT NULL, - [CENTRO] varchar(17) NOT NULL, - [CODIGO] varchar(12) NOT NULL, - [COLOR] varchar(10) NOT NULL, - [APROBADO] char(1) NULL, - [FECHACAMBIO] datetime NULL, - [CANT38] numeric(15, 0) NULL, - [CANT40] numeric(15, 0) NULL, - [CANT42] numeric(15, 0) NULL, - [CANT44] numeric(15, 0) NULL, - [CANT46] numeric(15, 0) NULL, - [CANT48] numeric(15, 0) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_DEVOLUCION_AJUSTES] -TO [public] -GO - -ALTER TABLE [RDX_DEVOLUCION_AJUSTES] -ADD CONSTRAINT [PK_RDX_DEVOLUCION_AJUSTES_2F70F04A] -PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CODIGO], [COLOR]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_RECEPCION_AJUSTES] ( - [FECHA] datetime NOT NULL, - [CENTRO] varchar(17) NOT NULL, - [CODIGO] varchar(12) NOT NULL, - [COLOR] varchar(10) NOT NULL, - [APROBADO] char(1) NULL, - [FECHACAMBIO] datetime NULL, - [CANT38] numeric(15, 0) NULL, - [CANT40] numeric(15, 0) NULL, - [CANT42] numeric(15, 0) NULL, - [CANT44] numeric(15, 0) NULL, - [CANT46] numeric(15, 0) NULL, - [CANT48] numeric(15, 0) NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_RECEPCION_AJUSTES] -TO [public] -GO - -ALTER TABLE [RDX_RECEPCION_AJUSTES] -ADD CONSTRAINT [PK_RDX_RECEPCION_AJUSTES_2F70F04F] -PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CODIGO], [COLOR]) -ON [PRIMARY] -GO - ---------------- SQL --------------- -CREATE TABLE [RDX_TRASPASOS_AJUSTES] ( - [FECHA] datetime NOT NULL, - [CENTRO] varchar(17) NOT NULL, - [CENTRO2] varchar(17) NOT NULL, - [CODIGO] varchar(12) NOT NULL, - [COLOR] varchar(10) NOT NULL, - [APROBADO] char(1) NULL, - [ESTADO] varchar(20) NULL, - [OBSERVACIONES] varchar(255) NULL, - [CONTABILIZAR] char(1) NULL, - [FECHACAMBIO] datetime NULL, - [CANT38] numeric(15, 0) NULL, - [CANT40] numeric(15, 0) NULL, - [CANT42] numeric(15, 0) NULL, - [CANT44] numeric(15, 0) NULL, - [CANT46] numeric(15, 0) NULL, - [CANT48] numeric(15, 0) NULL, - [TIPOCANT] varchar(3) NOT NULL -) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_TRASPASOS_AJUSTES] -TO [public] -GO - -ALTER TABLE [RDX_TRASPASOS_AJUSTES] -ADD CONSTRAINT [PK_RDX_TRASPASOS_AJUSTES_2F70F04A] -PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CENTRO2], [CODIGO], [COLOR], [TIPOCANT]) -ON [PRIMARY] -GO \ No newline at end of file diff --git a/Varela/Varela/Database/ANTERIOR/Script Vistas INVRPT.sql b/Varela/Varela/Database/ANTERIOR/Script Vistas INVRPT.sql deleted file mode 100644 index d2d4f7f..0000000 --- a/Varela/Varela/Database/ANTERIOR/Script Vistas INVRPT.sql +++ /dev/null @@ -1,1156 +0,0 @@ --- --- Definition for view RDX_V_ALBARANES : --- - -CREATE VIEW RDX_V_ALBARANES AS -SELECT - FATURAMENTO.NF_SAIDA AS ALBARAN, - FATURAMENTO.EMISSAO AS FECHA, - RDX_FILIALES.CODBARRA AS CENTRO, - FATURAMENTO.NOME_CLIFOR AS FILIAL, - PRODUTOS_BARRA.CODIGO_BARRA, - FATURAMENTO_PROD.PRODUTO AS CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - PRODUTOS_BARRA.COR_PRODUTO AS COLOR, - PRODUTOS_BARRA.GRADE AS TALLA, - CANTIDAD = CASE PRODUTOS_BARRA.GRADE - WHEN '38' THEN F1 - WHEN '40' THEN F2 - WHEN '42' THEN F3 - WHEN '44' THEN F4 - WHEN '46' THEN F5 - WHEN '48' THEN F6 - END, - RDX_AJUSTES_ALBARAN.ESTADO, - RDX_AJUSTES_ALBARAN.OBSERVACIONES, - CONTABILIZAR = ISNULL(RDX_AJUSTES_ALBARAN.CONTABILIZAR, 'S') -FROM FATURAMENTO_PROD -INNER JOIN FATURAMENTO ON - (FATURAMENTO.NF_SAIDA = FATURAMENTO_PROD.NF_SAIDA) -INNER JOIN FATURAMENTO_TIPO ON - (LTRIM(RTRIM(FATURAMENTO.TIPO_FATURAMENTO)) = FATURAMENTO_TIPO.TIPO_FATURAMENTO) -LEFT OUTER JOIN FILIAIS ON - (FILIAIS.FILIAL = FATURAMENTO.NOME_CLIFOR) -LEFT OUTER JOIN RDX_FILIALES ON - (RDX_FILIALES.CODFILIAL = FILIAIS.COD_FILIAL) -LEFT OUTER JOIN PRODUTOS_BARRA ON - (((PRODUTOS_BARRA.PRODUTO = FATURAMENTO_PROD.PRODUTO) AND - (PRODUTOS_BARRA.COR_PRODUTO = FATURAMENTO_PROD.COR_PRODUTO)) AND - ((PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F1 <> 0) THEN '38' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F2 <> 0) THEN '40' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F3 <> 0) THEN '42' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F4 <> 0) THEN '44' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F5 <> 0) THEN '46' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (FATURAMENTO_PROD.F6 <> 0) THEN '48' END))) -LEFT OUTER JOIN PRODUTOS ON - (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -LEFT OUTER JOIN RDX_AJUSTES_ALBARAN ON - (RDX_AJUSTES_ALBARAN.ALBARAN = FATURAMENTO.NF_SAIDA) -WHERE FATURAMENTO_TIPO.INDICADOR_TIPO = 'VTPT' /* ALBARANES DE PRODUCTOS TERMINADOS */ -AND FATURAMENTO.NOME_CLIFOR LIKE '%INGLES%' /* ALBARANES PARA CENTROS DEL CORTE INGLES */ -AND FATURAMENTO.EMISSAO >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_ALBARANES] -TO [public] -GO - --- --- Definition for view RDX_V_HOJAS_DEVOLUCIONES : --- - -CREATE VIEW RDX_V_HOJAS_DEVOLUCIONES AS -SELECT - LOJA_SAIDAS.ROMANEIO_PRODUTO AS NUMHOJA, - LOJA_SAIDAS.EMISSAO AS FECHA, - RDX_FILIALES_ORI.CODBARRA AS CENTRO_ORIGEN, - LOJA_SAIDAS.FILIAL AS FILIAL_ORIGEN, - RDX_FILIALES_DES.CODBARRA AS CENTRO_DESTINO, - LOJA_SAIDAS.FILIAL_DESTINO AS FILIAL_DESTINO, - PRODUTOS_BARRA.CODIGO_BARRA, - LOJA_SAIDAS_PRODUTO.PRODUTO AS CODIGO, - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA ****'), - PRODUTOS_BARRA.COR_PRODUTO AS COLOR, - PRODUTOS_BARRA.GRADE AS TALLA, - CANTIDAD = CASE PRODUTOS_BARRA.GRADE - WHEN '38' THEN EN1 - WHEN '40' THEN EN2 - WHEN '42' THEN EN3 - WHEN '44' THEN EN4 - WHEN '46' THEN EN5 - WHEN '48' THEN EN6 - END, - RDX_AJUSTES_HOJA_DEVOLUCIONES.ESTADO, - RDX_AJUSTES_HOJA_DEVOLUCIONES.OBSERVACIONES, - CONTABILIZAR = ISNULL(RDX_AJUSTES_HOJA_DEVOLUCIONES.CONTABILIZAR, 'S') -FROM LOJA_SAIDAS_PRODUTO -INNER JOIN LOJA_SAIDAS ON (LOJA_SAIDAS.ROMANEIO_PRODUTO = LOJA_SAIDAS_PRODUTO.ROMANEIO_PRODUTO) -INNER JOIN PRODUTOS_BARRA on - (((PRODUTOS_BARRA.PRODUTO = LOJA_SAIDAS_PRODUTO.PRODUTO) AND - (PRODUTOS_BARRA.COR_PRODUTO = LOJA_SAIDAS_PRODUTO.COR_PRODUTO)) AND - ((PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN1 <> 0) THEN '38' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN2 <> 0) THEN '40' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN3 <> 0) THEN '42' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN4 <> 0) THEN '44' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN5 <> 0) THEN '46' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN6 <> 0) THEN '48' END))) -INNER JOIN PRODUTOS on (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -INNER JOIN FILIAIS AS FILIAIS_ORI ON (FILIAIS_ORI.FILIAL = LOJA_SAIDAS.FILIAL) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_ORI ON (RDX_FILIALES_ORI.CODFILIAL = FILIAIS_ORI.COD_FILIAL) -INNER JOIN FILIAIS AS FILIAIS_DES ON (FILIAIS_DES.FILIAL = LOJA_SAIDAS.FILIAL_DESTINO) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_DES ON (RDX_FILIALES_DES.CODFILIAL = FILIAIS_DES.COD_FILIAL) -LEFT OUTER JOIN RDX_AJUSTES_HOJA_DEVOLUCIONES ON - (RDX_AJUSTES_HOJA_DEVOLUCIONES.NUMHOJA = LOJA_SAIDAS.ROMANEIO_PRODUTO) -WHERE - LOJA_SAIDAS.TIPO_ENTRADA_SAIDA = 2 /* DEVOLUCION DE PRENDAS A VARELA */ -AND LOJA_SAIDAS.EMISSAO >= '2006.07.01' /* PARA NO COGER AÑOS ANTERIORES */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_HOJAS_DEVOLUCIONES] -TO [public] -GO - --- --- Definition for view RDX_V_HOJAS_TRASPASOS : --- - -CREATE VIEW RDX_V_HOJAS_TRASPASOS AS -SELECT - LOJA_SAIDAS.ROMANEIO_PRODUTO AS NUMHOJA, - LOJA_SAIDAS.EMISSAO AS FECHA, - RDX_FILIALES_ORI.CODBARRA AS CENTRO_ORIGEN, - LOJA_SAIDAS.FILIAL AS FILIAL_ORIGEN, - RDX_FILIALES_DES.CODBARRA AS CENTRO_DESTINO, - LOJA_SAIDAS.FILIAL_DESTINO AS FILIAL_DESTINO, - PRODUTOS_BARRA.CODIGO_BARRA, - LOJA_SAIDAS_PRODUTO.PRODUTO AS CODIGO, - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA ****'), - PRODUTOS_BARRA.COR_PRODUTO AS COLOR, - PRODUTOS_BARRA.GRADE AS TALLA, - CANTIDAD = CASE PRODUTOS_BARRA.GRADE - WHEN '38' THEN EN1 - WHEN '40' THEN EN2 - WHEN '42' THEN EN3 - WHEN '44' THEN EN4 - WHEN '46' THEN EN5 - WHEN '48' THEN EN6 - END -FROM LOJA_SAIDAS_PRODUTO -INNER JOIN LOJA_SAIDAS ON (LOJA_SAIDAS.ROMANEIO_PRODUTO = LOJA_SAIDAS_PRODUTO.ROMANEIO_PRODUTO) -INNER JOIN PRODUTOS_BARRA on - (((PRODUTOS_BARRA.PRODUTO = LOJA_SAIDAS_PRODUTO.PRODUTO) AND - (PRODUTOS_BARRA.COR_PRODUTO = LOJA_SAIDAS_PRODUTO.COR_PRODUTO)) AND - ((PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN1 <> 0) THEN '38' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN2 <> 0) THEN '40' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN3 <> 0) THEN '42' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN4 <> 0) THEN '44' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN5 <> 0) THEN '46' END) OR - (PRODUTOS_BARRA.GRADE = CASE WHEN (LOJA_SAIDAS_PRODUTO.EN6 <> 0) THEN '48' END))) -INNER JOIN PRODUTOS on (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -INNER JOIN FILIAIS AS FILIAIS_ORI ON (FILIAIS_ORI.FILIAL = LOJA_SAIDAS.FILIAL) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_ORI ON (RDX_FILIALES_ORI.CODFILIAL = FILIAIS_ORI.COD_FILIAL) -INNER JOIN FILIAIS AS FILIAIS_DES ON (FILIAIS_DES.FILIAL = LOJA_SAIDAS.FILIAL_DESTINO) -INNER JOIN RDX_FILIALES AS RDX_FILIALES_DES ON (RDX_FILIALES_DES.CODFILIAL = FILIAIS_DES.COD_FILIAL) -WHERE LOJA_SAIDAS.TIPO_ENTRADA_SAIDA = 1 /* TRASPASOS DE PRENDAS A OTRO CENTRO */ -AND LOJA_SAIDAS.EMISSAO >= '2006.07.01' /* PARA NO COGER AÑOS ANTERIORES */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_HOJAS_TRASPASOS] -TO [public] -GO - --- --- Definition for view RDX_V_INVENTARIOEDI : --- - -CREATE VIEW RDX_V_INVENTARIOEDI AS -SELECT - RDX_CANTINV.NUMDOC, - RDX_CANTINV.NUMLIN, - RDX_CANTINV.NUMCANT, - RDX_CANTINV.TIPOCANT, - RDX_CABINV.FECHALIQ AS FECHA, - RDX_CABINV.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_CABINV.CENTRO), - RDX_CANTINV.IDVEN AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_CANTINV.IDVEN), - RDX_LININV.CODART AS CODIGO_BARRA, - CODIGO = ISNULL(PRODUTOS.PRODUTO, '107CH.EN.01'), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI'), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, 300), - TALLA = PRODUTOS_BARRA.GRADE, - RDX_CANTINV.CANTIDAD, - CENTRO2 = RDX_CANTINV.CENTRO, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_CANTINV.CENTRO) -FROM RDX_CANTINV -INNER JOIN RDX_LININV ON - ((RDX_LININV.NUMDOC = RDX_CANTINV.NUMDOC) AND - (RDX_LININV.NUMLIN = RDX_CANTINV.NUMLIN)) -INNER JOIN RDX_CABINV ON - (RDX_CABINV.NUMDOC = RDX_LININV.NUMDOC) -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_CABINV.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN RDX_FILIALES RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_CANTINV.CENTRO) -LEFT OUTER JOIN FILIAIS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) -LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG LIKE '%' + RDX_CANTINV.IDVEN + '%') -LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_LININV.CODART)) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -WHERE RDX_CABINV.FECHALIQ >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIOEDI] -TO [public] -GO - --- --- Definition for view RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA : --- - -CREATE VIEW RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD -FROM RDX_V_INVENTARIOEDI -WHERE (TIPOCANT = 61) /* DEVOLUCION DE PRENDAS A VARELA */ - OR (TIPOCANT = 65) /* DEVOLUCION POR TARA */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA] -TO [public] -GO - - --- --- Definition for view RDX_V_INVENTARIOEDI_RECEPCION : --- - -CREATE VIEW RDX_V_INVENTARIOEDI_RECEPCION AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD -FROM RDX_V_INVENTARIOEDI -WHERE TIPOCANT = 194 /* RECEPCION DE PRENDAS DESDE VARELA */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIOEDI_RECEPCION] -TO [public] -GO - - --- --- Definition for view RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA : --- - -CREATE VIEW RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO_ORIGEN = CENTRO2, - FILIAL_ORIGEN = FILIAL2 -FROM RDX_V_INVENTARIOEDI -WHERE TIPOCANT = 46 /* ENTRADA DE PRENDAS DESDE OTRO CENTRO */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA] -TO [public] -GO - - --- --- Definition for view RDX_V_INVENTARIOEDI_TRASPASO_SALIDA : --- - -CREATE VIEW RDX_V_INVENTARIOEDI_TRASPASO_SALIDA AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO_DESTINO = CENTRO2, - FILIAL_DESTINO = FILIAL2 -FROM RDX_V_INVENTARIOEDI -WHERE TIPOCANT = 48 /* SALIDA DE PRENDAS A OTRO CENTRO */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIOEDI_TRASPASO_SALIDA] -TO [public] -GO - --- --- Definition for view RDX_V_RECEPCION : --- - -CREATE VIEW RDX_V_RECEPCION AS -SELECT - CENTRO = ISNULL(RDX_V_ALBARANES.CENTRO, RDX_V_INVENTARIOEDI_RECEPCION.CENTRO), - FILIAL = ISNULL(RDX_V_ALBARANES.FILIAL, RDX_V_INVENTARIOEDI_RECEPCION.FILIAL), - CODIGO = ISNULL(RDX_V_ALBARANES.CODIGO, RDX_V_INVENTARIOEDI_RECEPCION.CODIGO), - PRODUCTO = ISNULL(RDX_V_ALBARANES.PRODUCTO, RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO), - COLOR = ISNULL(RDX_V_ALBARANES.COLOR, RDX_V_INVENTARIOEDI_RECEPCION.COLOR), - FECHA = ISNULL(RDX_V_ALBARANES.FECHA, RDX_V_INVENTARIOEDI_RECEPCION.FECHA), - - /* ALBARAN Y ESTADO */ - ALBARAN = RDX_V_ALBARANES.ALBARAN, - ESTADO_ALBARAN = RDX_V_ALBARANES.ESTADO, - OBSERVACIONES_ALBARAN = RDX_V_ALBARANES.OBSERVACIONES, - CONTABILIZAR_ALBARAN = ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S'), - - /* CANTIDADES ENVIADAS DESDE VARELA */ - E38 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 38 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E40 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 40 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E42 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 42 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E44 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 44 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E46 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 46 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - E48 = SUM(CASE WHEN RDX_V_ALBARANES.TALLA = 48 THEN - ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END), - ENVIADO = SUM( - CASE ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END - ), - - /* CANTIDADES RECIBIDAS EN EL CENTRO*/ - R38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - R48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_RECEPCION.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0) - END), - RECIBIDO = SUM(ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0)), - - DIFERENCIA = SUM( - CASE ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_ALBARANES.CANTIDAD, 0) - END - ) - - SUM(ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD, 0)) -FROM - RDX_V_ALBARANES -FULL OUTER JOIN RDX_V_INVENTARIOEDI_RECEPCION ON - ((RDX_V_INVENTARIOEDI_RECEPCION.CENTRO = RDX_V_ALBARANES.CENTRO) AND - (RDX_V_INVENTARIOEDI_RECEPCION.CODIGO_BARRA = RDX_V_ALBARANES.CODIGO_BARRA) AND - (RDX_V_INVENTARIOEDI_RECEPCION.FECHA = RDX_V_ALBARANES.FECHA)) -GROUP BY - ISNULL(RDX_V_ALBARANES.CENTRO, RDX_V_INVENTARIOEDI_RECEPCION.CENTRO), - ISNULL(RDX_V_ALBARANES.FILIAL, RDX_V_INVENTARIOEDI_RECEPCION.FILIAL), - ISNULL(RDX_V_ALBARANES.CODIGO, RDX_V_INVENTARIOEDI_RECEPCION.CODIGO), - ISNULL(RDX_V_ALBARANES.PRODUCTO, RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO), - ISNULL(RDX_V_ALBARANES.COLOR, RDX_V_INVENTARIOEDI_RECEPCION.COLOR), - ISNULL(RDX_V_ALBARANES.FECHA, RDX_V_INVENTARIOEDI_RECEPCION.FECHA), - RDX_V_ALBARANES.ALBARAN, - RDX_V_ALBARANES.ESTADO, - RDX_V_ALBARANES.OBSERVACIONES, - ISNULL(RDX_V_ALBARANES.CONTABILIZAR, 'S') -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_RECEPCION] -TO [public] -GO - --- --- Definition for view RDX_V_DEVOLUCIONES : --- - -CREATE VIEW RDX_V_DEVOLUCIONES AS -SELECT - CENTRO = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CENTRO_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CENTRO), - FILIAL = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FILIAL_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FILIAL), - CODIGO = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CODIGO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CODIGO), - PRODUCTO = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.PRODUCTO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.PRODUCTO), - COLOR = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.COLOR, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.COLOR), - FECHA = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FECHA, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FECHA), - - /* HOJA DE MOVIMIENTOS Y ESTADO */ - NUMHOJA = RDX_V_HOJAS_DEVOLUCIONES.NUMHOJA, - ESTADO_HOJA = RDX_V_HOJAS_DEVOLUCIONES.ESTADO, - OBSERVACIONES_HOJA = RDX_V_HOJAS_DEVOLUCIONES.OBSERVACIONES, - CONTABILIZAR_HOJA = ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S'), - - /* CANTIDADES SOLICITADAS DESDE VARELA */ - S38 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 38 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S40 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 40 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S42 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 42 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S44 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 44 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S46 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 46 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - S48 = SUM(CASE WHEN RDX_V_HOJAS_DEVOLUCIONES.TALLA = 48 THEN - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END), - SOLICITADO = SUM( - CASE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END - ), - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - E38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - E48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0) - END), - - ENVIADO = SUM(ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0)), - - DIFERENCIA = SUM( - CASE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S') - WHEN 'N' THEN 0 - ELSE ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CANTIDAD, 0) - END) - - SUM(ISNULL(RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CANTIDAD, 0)) -FROM - RDX_V_HOJAS_DEVOLUCIONES -FULL OUTER JOIN RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA ON - ((RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CENTRO = RDX_V_HOJAS_DEVOLUCIONES.CENTRO_ORIGEN) AND - (RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CODIGO_BARRA = RDX_V_HOJAS_DEVOLUCIONES.CODIGO_BARRA) AND - (RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FECHA = RDX_V_HOJAS_DEVOLUCIONES.FECHA)) -GROUP BY - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CENTRO_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CENTRO), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FILIAL_ORIGEN, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FILIAL), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CODIGO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.CODIGO), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.PRODUCTO, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.PRODUCTO), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.COLOR, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.COLOR), - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.FECHA, RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA.FECHA), - RDX_V_HOJAS_DEVOLUCIONES.NUMHOJA, - RDX_V_HOJAS_DEVOLUCIONES.ESTADO, - RDX_V_HOJAS_DEVOLUCIONES.OBSERVACIONES, - ISNULL(RDX_V_HOJAS_DEVOLUCIONES.CONTABILIZAR, 'S') -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_DEVOLUCIONES] -TO [public] -GO - - --- --- Definition for view RDX_V_CONTROL_DEVOLUCIONES : --- - -CREATE VIEW RDX_V_CONTROL_DEVOLUCIONES AS -SELECT - APROBADO = ISNULL(RDX_DEVOLUCION_AJUSTES.APROBADO, 'N'), - RDX_DEVOLUCION_AJUSTES.FECHACAMBIO, - - RDX_V_DEVOLUCIONES.CENTRO, - RDX_V_DEVOLUCIONES.FILIAL, - RDX_V_DEVOLUCIONES.CODIGO, - RDX_V_DEVOLUCIONES.PRODUCTO, - RDX_V_DEVOLUCIONES.COLOR, - RDX_V_DEVOLUCIONES.FECHA, - - /* HOJA DE MOVIMIENTOS Y ESTADO */ - RDX_V_DEVOLUCIONES.NUMHOJA, - RDX_V_DEVOLUCIONES.ESTADO_HOJA, - RDX_V_DEVOLUCIONES.OBSERVACIONES_HOJA, - RDX_V_DEVOLUCIONES.CONTABILIZAR_HOJA, - - /* CANTIDADES SOLICITADAS DESDE VARELA */ - S38, S40, S42, S44, S46, S48, RDX_V_DEVOLUCIONES.SOLICITADO, - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - E38, E40, E42, E44, E46, E48, RDX_V_DEVOLUCIONES.ENVIADO, - - /* CANTIDADES ENVIADAS RECTIFICADAS */ - ER38 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT38, E38), - ER40 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT40, E40), - ER42 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT42, E42), - ER44 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT44, E44), - ER46 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT46, E46), - ER48 = ISNULL(RDX_DEVOLUCION_AJUSTES.CANT48, E48), - - ENVIADO_RECT = - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT38, ISNULL(E38, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT40, ISNULL(E40, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT42, ISNULL(E42, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT44, ISNULL(E44, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT46, ISNULL(E46, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT48, ISNULL(E48, 0)), - - DIFERENCIA = - ( - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT38, ISNULL(E38, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT40, ISNULL(E40, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT42, ISNULL(E42, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT44, ISNULL(E44, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT46, ISNULL(E46, 0)) + - ISNULL(RDX_DEVOLUCION_AJUSTES.CANT48, ISNULL(E48, 0)) - ) - SOLICITADO -FROM - RDX_V_DEVOLUCIONES -LEFT OUTER JOIN RDX_DEVOLUCION_AJUSTES ON - ((RDX_DEVOLUCION_AJUSTES.FECHA = RDX_V_DEVOLUCIONES.FECHA) AND - (RDX_DEVOLUCION_AJUSTES.CENTRO = RDX_V_DEVOLUCIONES.CENTRO) AND - (RDX_DEVOLUCION_AJUSTES.CODIGO = RDX_V_DEVOLUCIONES.CODIGO) AND - (RDX_DEVOLUCION_AJUSTES.COLOR = RDX_V_DEVOLUCIONES.COLOR)) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_CONTROL_DEVOLUCIONES] -TO [public] -GO - - --- --- Definition for view RDX_V_CONTROL_RECEPCION : --- - -CREATE VIEW RDX_V_CONTROL_RECEPCION AS -SELECT - APROBADO = ISNULL(RDX_RECEPCION_AJUSTES.APROBADO, 'N'), - RDX_RECEPCION_AJUSTES.FECHACAMBIO, - - RDX_V_RECEPCION.CENTRO, - RDX_V_RECEPCION.FILIAL, - RDX_V_RECEPCION.CODIGO, - RDX_V_RECEPCION.PRODUCTO, - RDX_V_RECEPCION.COLOR, - RDX_V_RECEPCION.FECHA, - - /* ALBARAN Y ESTADO */ - RDX_V_RECEPCION.ALBARAN, - RDX_V_RECEPCION.ESTADO_ALBARAN, - RDX_V_RECEPCION.OBSERVACIONES_ALBARAN, - RDX_V_RECEPCION.CONTABILIZAR_ALBARAN, - - /* CANTIDADES ENVIADAS DESDE VARELA */ - E38, E40, E42, E44, E46, E48, RDX_V_RECEPCION.ENVIADO, - - /* CANTIDADES RECIBIDAS EN EL CENTRO*/ - R38, R40, R42, R44, R46, R48, RDX_V_RECEPCION.RECIBIDO, - - /* CANTIDADES RECIBIDAS RECTIFICADAS */ - RR38 = ISNULL(RDX_RECEPCION_AJUSTES.CANT38, R38), - RR40 = ISNULL(RDX_RECEPCION_AJUSTES.CANT40, R40), - RR42 = ISNULL(RDX_RECEPCION_AJUSTES.CANT42, R42), - RR44 = ISNULL(RDX_RECEPCION_AJUSTES.CANT44, R44), - RR46 = ISNULL(RDX_RECEPCION_AJUSTES.CANT46, R46), - RR48 = ISNULL(RDX_RECEPCION_AJUSTES.CANT48, R48), - - RECIBIDO_RECT = - ISNULL(RDX_RECEPCION_AJUSTES.CANT38, ISNULL(R38, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT40, ISNULL(R40, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT42, ISNULL(R42, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT44, ISNULL(R44, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT46, ISNULL(R46, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT48, ISNULL(R48, 0)), - - DIFERENCIA = - ( - ISNULL(RDX_RECEPCION_AJUSTES.CANT38, ISNULL(R38, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT40, ISNULL(R40, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT42, ISNULL(R42, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT44, ISNULL(R44, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT46, ISNULL(R46, 0)) + - ISNULL(RDX_RECEPCION_AJUSTES.CANT48, ISNULL(R48, 0)) - ) - ENVIADO -FROM - RDX_V_RECEPCION -LEFT OUTER JOIN RDX_RECEPCION_AJUSTES ON - ((RDX_RECEPCION_AJUSTES.FECHA = RDX_V_RECEPCION.FECHA) AND - (RDX_RECEPCION_AJUSTES.CENTRO = RDX_V_RECEPCION.CENTRO) AND - (RDX_RECEPCION_AJUSTES.CODIGO = RDX_V_RECEPCION.CODIGO) AND - (RDX_RECEPCION_AJUSTES.COLOR = RDX_V_RECEPCION.COLOR)) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_CONTROL_RECEPCION] -TO [public] -GO - --- --- Definition for view RDX_V_CONTROL_TRASPASOS : --- - -CREATE VIEW RDX_V_CONTROL_TRASPASOS AS -SELECT - RDX_V_TRASPASOS.TIPO, - RDX_V_TRASPASOS.FECHA, - RDX_V_TRASPASOS.CENTRO, - RDX_V_TRASPASOS.FILIAL, - RDX_V_TRASPASOS.CENTRO2, - RDX_V_TRASPASOS.FILIAL2, - APROBADO = ISNULL(RDX_TRASPASOS_AJUSTES.APROBADO, 'N'), - ESTADO_TRASPASO = RDX_TRASPASOS_AJUSTES.ESTADO, - OBSERVACIONES = RDX_TRASPASOS_AJUSTES.OBSERVACIONES, - CONTABILIZAR = ISNULL(RDX_TRASPASOS_AJUSTES.CONTABILIZAR, 'S'), - RDX_TRASPASOS_AJUSTES.FECHACAMBIO, - RDX_V_TRASPASOS.CODIGO, - RDX_V_TRASPASOS.PRODUCTO, - RDX_V_TRASPASOS.COLOR, - RDX_V_TRASPASOS.T38, - RDX_V_TRASPASOS.T40, - RDX_V_TRASPASOS.T42, - RDX_V_TRASPASOS.T44, - RDX_V_TRASPASOS.T46, - RDX_V_TRASPASOS.T48, - RDX_V_TRASPASOS.TOTAL, - TR38 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT38, RDX_V_TRASPASOS.T38), - TR40 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT40, RDX_V_TRASPASOS.T40), - TR42 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT42, RDX_V_TRASPASOS.T42), - TR44 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT44, RDX_V_TRASPASOS.T44), - TR46 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT46, RDX_V_TRASPASOS.T46), - TR48 = ISNULL(RDX_TRASPASOS_AJUSTES.CANT48, RDX_V_TRASPASOS.T48), - TOTAL_RECT = - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT38, RDX_V_TRASPASOS.T38), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT40, RDX_V_TRASPASOS.T40), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT42, RDX_V_TRASPASOS.T42), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT44, RDX_V_TRASPASOS.T44), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT46, RDX_V_TRASPASOS.T46), 0) + - ISNULL(ISNULL(RDX_TRASPASOS_AJUSTES.CANT48, RDX_V_TRASPASOS.T48), 0) -FROM RDX_V_TRASPASOS -LEFT OUTER JOIN RDX_TRASPASOS_AJUSTES ON - ((RDX_TRASPASOS_AJUSTES.CENTRO = RDX_V_TRASPASOS.CENTRO) AND - (RDX_TRASPASOS_AJUSTES.CENTRO2 = RDX_V_TRASPASOS.CENTRO2) AND - (RDX_TRASPASOS_AJUSTES.CODIGO = RDX_V_TRASPASOS.CODIGO) AND - (RDX_TRASPASOS_AJUSTES.COLOR = RDX_V_TRASPASOS.COLOR) AND - (RDX_TRASPASOS_AJUSTES.FECHA = RDX_V_TRASPASOS.FECHA) AND - (RDX_TRASPASOS_AJUSTES.TIPOCANT = RDX_V_TRASPASOS.TIPO)) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_CONTROL_TRASPASOS] -TO [public] -GO - - - - - - - - - - - - --- --- Definition for view RDX_V_TRASPASO_SALIDA : --- - -CREATE VIEW RDX_V_TRASPASO_SALIDA AS -SELECT - CENTRO_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO, - FILIAL_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL, - - CENTRO_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO_DESTINO, - FILIAL_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL_DESTINO, - - CODIGO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CODIGO, - PRODUCTO = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.PRODUCTO, - COLOR = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.COLOR, - FECHA = RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FECHA, - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - T38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - T48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0) - END), - - TOTAL = SUM(ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CANTIDAD, 0)) -FROM - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA -GROUP BY - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CENTRO_DESTINO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FILIAL_DESTINO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.CODIGO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.PRODUCTO, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.COLOR, - RDX_V_INVENTARIOEDI_TRASPASO_SALIDA.FECHA -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_TRASPASO_SALIDA] -TO [public] -GO - - --- --- Definition for view RDX_V_TRASPASO_ENTRADA : --- - -CREATE VIEW RDX_V_TRASPASO_ENTRADA AS -SELECT - CENTRO_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO_ORIGEN, - FILIAL_ORIGEN = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL_ORIGEN, - - CENTRO_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO, - FILIAL_DESTINO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL, - - CODIGO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CODIGO, - PRODUCTO = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.PRODUCTO, - COLOR = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.COLOR, - FECHA = RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FECHA, - - /* CANTIDADES ENVIADAS DESDE EL CENTRO*/ - T38 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 38 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T40 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 40 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T42 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 42 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T44 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 44 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T46 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 46 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - T48 = SUM(CASE WHEN RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.TALLA = 48 THEN - ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0) - END), - - TOTAL = SUM(ISNULL(RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CANTIDAD, 0)) - -FROM - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA -GROUP BY - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO_ORIGEN, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL_ORIGEN, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CENTRO, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FILIAL, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.CODIGO, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.PRODUCTO, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.COLOR, - RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA.FECHA -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_TRASPASO_ENTRADA] -TO [public] -GO - --- --- Definition for view RDX_V_TRASPASOS : --- - -CREATE VIEW RDX_V_TRASPASOS AS -SELECT - TIPO = 'S', - CENTRO_ORIGEN as CENTRO, - FILIAL_ORIGEN as FILIAL, - CENTRO_DESTINO as CENTRO2, - FILIAL_DESTINO as FILIAL2, - CODIGO, - PRODUCTO, - COLOR, - FECHA, - T38, - T40, - T42, - T44, - T46, - T48, - TOTAL -FROM RDX_V_TRASPASO_SALIDA -UNION -SELECT - 'E', - CENTRO_DESTINO, - FILIAL_DESTINO, - CENTRO_ORIGEN, - FILIAL_ORIGEN, - CODIGO, - PRODUCTO, - COLOR, - FECHA, - T38, - T40, - T42, - T44, - T46, - T48, - TOTAL -FROM RDX_V_TRASPASO_ENTRADA -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_TRASPASOS] -TO [public] -GO - - - - --- --- Definition for view RDX_V_RECEPCION_AJUSTES_DESGLOSADO : --- - -CREATE VIEW RDX_V_RECEPCION_AJUSTES_DESGLOSADO AS -SELECT - RDX_RECEPCION_AJUSTES.FECHA, - RDX_RECEPCION_AJUSTES.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_RECEPCION_AJUSTES.CENTRO), - RDX_RECEPCION_AJUSTES.CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - RDX_RECEPCION_AJUSTES.COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_RECEPCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_RECEPCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_RECEPCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_RECEPCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_RECEPCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_RECEPCION_AJUSTES.CANT48 - END -FROM RDX_TALLAS, RDX_RECEPCION_AJUSTES -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_RECEPCION_AJUSTES.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = RDX_RECEPCION_AJUSTES.CODIGO) -WHERE CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_RECEPCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_RECEPCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_RECEPCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_RECEPCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_RECEPCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_RECEPCION_AJUSTES.CANT48 - END IS NOT NULL -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_RECEPCION_AJUSTES_DESGLOSADO] -TO [public] -GO - - --- --- Definition for view RDX_V_CONTROL_RECEPCION_DESGLOSADO : --- - -CREATE VIEW RDX_V_CONTROL_RECEPCION_DESGLOSADO AS -SELECT - FECHA = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FECHA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA), - CENTRO = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CENTRO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO), - FILIAL = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FILIAL, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL), - CODIGO = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CODIGO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO), - PRODUCTO = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO), - COLOR = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.COLOR, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR), - TALLA = ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.TALLA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA), - CANTIDAD = SUM(ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD, RDX_V_INVENTARIOEDI_RECEPCION.CANTIDAD)) -FROM - RDX_V_RECEPCION_AJUSTES_DESGLOSADO -FULL OUTER JOIN RDX_V_INVENTARIOEDI_RECEPCION ON - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI_RECEPCION.FECHA) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI_RECEPCION.CENTRO) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI_RECEPCION.CODIGO) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI_RECEPCION.COLOR) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI_RECEPCION.TALLA) -GROUP BY - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FECHA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CENTRO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.FILIAL, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.CODIGO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.PRODUCTO, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.COLOR, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR), - ISNULL(RDX_V_INVENTARIOEDI_RECEPCION.TALLA, RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_CONTROL_RECEPCION_DESGLOSADO] -TO [public] -GO - - - - --- --- Definition for view RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO : --- - -CREATE VIEW RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO AS -SELECT - RDX_DEVOLUCION_AJUSTES.FECHA, - RDX_DEVOLUCION_AJUSTES.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_DEVOLUCION_AJUSTES.CENTRO), - RDX_DEVOLUCION_AJUSTES.CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - RDX_DEVOLUCION_AJUSTES.COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_DEVOLUCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_DEVOLUCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_DEVOLUCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_DEVOLUCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_DEVOLUCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_DEVOLUCION_AJUSTES.CANT48 - END -FROM RDX_TALLAS, RDX_DEVOLUCION_AJUSTES -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_DEVOLUCION_AJUSTES.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = RDX_DEVOLUCION_AJUSTES.CODIGO) -WHERE CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_DEVOLUCION_AJUSTES.CANT38 - WHEN '40' THEN RDX_DEVOLUCION_AJUSTES.CANT40 - WHEN '42' THEN RDX_DEVOLUCION_AJUSTES.CANT42 - WHEN '44' THEN RDX_DEVOLUCION_AJUSTES.CANT44 - WHEN '46' THEN RDX_DEVOLUCION_AJUSTES.CANT46 - WHEN '48' THEN RDX_DEVOLUCION_AJUSTES.CANT48 - END IS NOT NULL -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO] -TO [public] -GO - --- --- Definition for view RDX_V_INVENTARIO_MAXFECHAS : --- - -CREATE VIEW RDX_V_INVENTARIO_MAXFECHAS AS -SELECT - CENTRO, - FILIAL, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - FECHA = MAX(FECHA) -FROM RDX_V_INVENTARIOEDI -WHERE RDX_V_INVENTARIOEDI.TIPOCANT = 145 -GROUP BY - CENTRO, - FILIAL, - CODIGO, - PRODUCTO, - COLOR, - TALLA -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIO_MAXFECHAS] -TO [public] -GO - - --- --- Definition for view RDX_V_INVENTARIOEDI_TRASPASO : --- - -CREATE VIEW RDX_V_INVENTARIOEDI_TRASPASO AS -SELECT - NUMDOC, - NUMLIN, - NUMCANT, - TIPOCANT, - FECHA, - CENTRO, - FILIAL, - CODVEN, - VENDEDOR, - CODIGO_BARRA, - CODIGO, - PRODUCTO, - COLOR, - TALLA, - CANTIDAD, - CENTRO2, - FILIAL2 -FROM RDX_V_INVENTARIOEDI -WHERE (TIPOCANT = 46) or (TIPOCANT = 48) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_INVENTARIOEDI_TRASPASO] -TO [public] -GO - - --- --- Definition for view RDX_V_TRASPASOS_AJUSTES_DESGLOSADO : --- - -CREATE VIEW RDX_V_TRASPASOS_AJUSTES_DESGLOSADO AS -SELECT - RDX_TRASPASOS_AJUSTES.FECHA, - RDX_TRASPASOS_AJUSTES.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_TRASPASOS_AJUSTES.CENTRO), - RDX_TRASPASOS_AJUSTES.CENTRO2, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_TRASPASOS_AJUSTES.CENTRO2), - TIPO = RDX_TRASPASOS_AJUSTES.TIPOCANT, - RDX_TRASPASOS_AJUSTES.CODIGO, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - RDX_TRASPASOS_AJUSTES.COLOR, - RDX_TALLAS.TALLA, - CANTIDAD = CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_TRASPASOS_AJUSTES.CANT38 - WHEN '40' THEN RDX_TRASPASOS_AJUSTES.CANT40 - WHEN '42' THEN RDX_TRASPASOS_AJUSTES.CANT42 - WHEN '44' THEN RDX_TRASPASOS_AJUSTES.CANT44 - WHEN '46' THEN RDX_TRASPASOS_AJUSTES.CANT46 - WHEN '48' THEN RDX_TRASPASOS_AJUSTES.CANT48 - END -FROM RDX_TALLAS, RDX_TRASPASOS_AJUSTES -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_TRASPASOS_AJUSTES.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN RDX_FILIALES AS RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_TRASPASOS_AJUSTES.CENTRO2) -LEFT OUTER JOIN FILIAIS AS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = RDX_TRASPASOS_AJUSTES.CODIGO) -WHERE CASE RDX_TALLAS.TALLA - WHEN '38' THEN RDX_TRASPASOS_AJUSTES.CANT38 - WHEN '40' THEN RDX_TRASPASOS_AJUSTES.CANT40 - WHEN '42' THEN RDX_TRASPASOS_AJUSTES.CANT42 - WHEN '44' THEN RDX_TRASPASOS_AJUSTES.CANT44 - WHEN '46' THEN RDX_TRASPASOS_AJUSTES.CANT46 - WHEN '48' THEN RDX_TRASPASOS_AJUSTES.CANT48 - END IS NOT NULL -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_TRASPASOS_AJUSTES_DESGLOSADO] -TO [public] -GO - --- --- Definition for view RDX_V_ULTIMO_RECUENTOINVENTARIO : --- - -CREATE VIEW RDX_V_ULTIMO_RECUENTOINVENTARIO AS -SELECT - RDX_V_INVENTARIOEDI.FECHA, - RDX_V_INVENTARIOEDI.CENTRO, - RDX_V_INVENTARIOEDI.FILIAL, - RDX_V_INVENTARIOEDI.CODIGO, - RDX_V_INVENTARIOEDI.PRODUCTO, - RDX_V_INVENTARIOEDI.COLOR, - RDX_V_INVENTARIOEDI.TALLA, - RDX_V_INVENTARIOEDI.CANTIDAD -FROM RDX_V_INVENTARIOEDI -INNER JOIN RDX_V_INVENTARIO_MAXFECHAS ON - (RDX_V_INVENTARIOEDI.FECHA = RDX_V_INVENTARIO_MAXFECHAS.FECHA AND - RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIO_MAXFECHAS.CENTRO AND - RDX_V_INVENTARIOEDI.CODIGO = RDX_V_INVENTARIO_MAXFECHAS.CODIGO AND - RDX_V_INVENTARIOEDI.COLOR = RDX_V_INVENTARIO_MAXFECHAS.COLOR AND - RDX_V_INVENTARIOEDI.TALLA = RDX_V_INVENTARIO_MAXFECHAS.TALLA) -WHERE RDX_V_INVENTARIOEDI.TIPOCANT = 145 -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_ULTIMO_RECUENTOINVENTARIO] -TO [public] -GO - diff --git a/Varela/Varela/Database/ANTERIOR/Script Vistas STOCK.sql b/Varela/Varela/Database/ANTERIOR/Script Vistas STOCK.sql deleted file mode 100644 index 04deb77..0000000 --- a/Varela/Varela/Database/ANTERIOR/Script Vistas STOCK.sql +++ /dev/null @@ -1,431 +0,0 @@ --- --- Definition for view RDX_V_STOCK_VARELA : --- - -CREATE VIEW RDX_V_STOCK_VARELA AS -SELECT ESTOQUE_PRODUTOS.FILIAL, - ESTOQUE_PRODUTOS.PRODUTO AS CODIGO, - ESTOQUE_PRODUTOS.COR_PRODUTO AS COLOR, - PRODUCTO = PRODUTOS.DESC_PRODUTO, - PRODUTOS.TIPO_PRODUTO, - PRODUTOS.GRUPO_PRODUTO, - COLECCION=COLECOES.DESC_COLECAO, - - ESTOQUE_PRODUTOS.ES1 as K38, - ESTOQUE_PRODUTOS.ES2 as K40, - ESTOQUE_PRODUTOS.ES3 as K42, - ESTOQUE_PRODUTOS.ES4 as K44, - ESTOQUE_PRODUTOS.ES5 as K46, - ESTOQUE_PRODUTOS.ES6 as K48, - ESTOQUE_PRODUTOS.ESTOQUE as KT - -FROM ESTOQUE_PRODUTOS -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = ESTOQUE_PRODUTOS.PRODUTO) -LEFT OUTER JOIN COLECOES ON (PRODUTOS.COLECAO = COLECOES.COLECAO) - -WHERE FILIAL LIKE '%VARELA IMAGEN Y DISEÑO%' -GO - - - --- --- Definition for view RDX_V_STOCK_VENTAS : --- - -CREATE VIEW RDX_V_STOCK_VENTAS AS -SELECT - PERVENINI AS FECHA, - DAY(PERVENINI) AS DIA, - DATENAME(DW, PERVENINI) DIASEMANA, - DATENAME(MONTH, PERVENINI) AS MES, - YEAR(PERVENINI) AS ANO, - FILIAL AS CENTRO, - CODIGO = ISNULL(PRODUTO, '107CH.EN.01'), - DESC_PRODUTO AS PRODUCTO, - GRUPO_PRODUTO AS GRUPOPRODUCTO, - TIPO_PRODUTO AS TIPOPRODUCTO, - DESC_COLECAO AS COLECCION, - COLOR = ISNULL(COR_PRODUTO, '300'), - GRADE AS TALLA, - CANTIDAD = ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) -FROM - RDX_V_VENTASEDI_RESUELTAS -WHERE NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */ -GO - - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_STOCK_VENTAS] -TO [public] -GO - - --- --- Definition for view RDX_V_STOCK_INVENTARIO : --- - -CREATE VIEW RDX_V_STOCK_INVENTARIO AS -SELECT - FECHA = ISNULL(RDX_V_INVENTARIOEDI.FECHA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA))), - CENTRO = ISNULL(RDX_V_INVENTARIOEDI.FILIAL, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FILIAL, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FILIAL))), - CODIGO = ISNULL(RDX_V_INVENTARIOEDI.CODIGO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CODIGO))), - PRODUCTO = ISNULL(RDX_V_INVENTARIOEDI.PRODUCTO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.PRODUCTO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.PRODUCTO))), - COLOR = ISNULL(RDX_V_INVENTARIOEDI.COLOR, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.COLOR))), - TALLA = ISNULL(RDX_V_INVENTARIOEDI.TALLA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.TALLA))), - CANTIDAD = ISNULL(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CANTIDAD, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD, RDX_V_INVENTARIOEDI.CANTIDAD))), - /*RDX_V_INVENTARIOEDI.CANTIDAD, - RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD, - RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CANTIDAD, - RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD,*/ - OPERACION = CASE RDX_V_INVENTARIOEDI.TIPOCANT - WHEN '194' THEN 'R' - WHEN '46' THEN 'E' - WHEN '145' THEN 'RM' - WHEN '48' THEN 'S' - WHEN '61' THEN 'D' - WHEN '65' THEN 'T' - ELSE - CASE - WHEN RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD IS NOT NULL THEN 'R' - WHEN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD IS NOT NULL THEN 'D' - ELSE RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO - END - END -FROM RDX_V_INVENTARIOEDI -FULL OUTER JOIN RDX_V_INVENTARIO_MAXFECHAS ON - (RDX_V_INVENTARIO_MAXFECHAS.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_INVENTARIO_MAXFECHAS.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_INVENTARIO_MAXFECHAS.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_INVENTARIO_MAXFECHAS.TALLA = RDX_V_INVENTARIOEDI.TALLA) -FULL OUTER JOIN RDX_V_RECEPCION_AJUSTES_DESGLOSADO ON - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND - (RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) -FULL OUTER JOIN RDX_V_TRASPASOS_AJUSTES_DESGLOSADO ON - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO2 = RDX_V_INVENTARIOEDI.CENTRO2) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) AND - (RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO = RDX_V_INVENTARIOEDI.TIPOCANT) -FULL OUTER JOIN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO ON - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND - (RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND - (RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) -WHERE - ((RDX_V_INVENTARIO_MAXFECHAS.FECHA IS NULL) /* Puede haber prendas que no se hayan inventariado nunca */ - OR - (ISNULL(RDX_V_INVENTARIOEDI.FECHA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA))) >= RDX_V_INVENTARIO_MAXFECHAS.FECHA)) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_STOCK_INVENTARIO] -TO [public] -GO - - --- --- Definition for view RDX_V_STOCK : --- - -CREATE VIEW RDX_V_STOCK AS -SELECT - CENTRO = ISNULL(RDX_V_STOCK_INVENTARIO.CENTRO, RDX_V_STOCK_VENTAS.CENTRO), - CODIGO = ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO), - PRODUCTO = ISNULL(RDX_V_STOCK_INVENTARIO.PRODUCTO, RDX_V_STOCK_VENTAS.PRODUCTO), - TIPO_PRODUCTO = PRODUTOS.TIPO_PRODUTO, - GRUPO_PRODUCTO = PRODUTOS.GRUPO_PRODUTO, - COLECCION = COLECOES.DESC_COLECAO, - COLOR = ISNULL(RDX_V_STOCK_INVENTARIO.COLOR, RDX_V_STOCK_VENTAS.COLOR), - E38 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '38' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E40 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '40' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E42 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '42' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E44 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '44' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E46 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '46' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - E48 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '48' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S38 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '38' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S40 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '40' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S42 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '42' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S44 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '44' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S46 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '46' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END), - - S48 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA) - WHEN '48' THEN - CASE RDX_V_STOCK_INVENTARIO.OPERACION - WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1) - ELSE - 0 - END - + - CASE - WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN - RDX_V_STOCK_VENTAS.CANTIDAD * (-1) - ELSE - 0 - END - END) -FROM - RDX_V_STOCK_INVENTARIO -FULL OUTER JOIN RDX_V_STOCK_VENTAS ON - (RDX_V_STOCK_INVENTARIO.CENTRO = RDX_V_STOCK_VENTAS.CENTRO) - AND (RDX_V_STOCK_INVENTARIO.CODIGO = RDX_V_STOCK_VENTAS.CODIGO) - AND (RDX_V_STOCK_INVENTARIO.COLOR = RDX_V_STOCK_VENTAS.COLOR) - AND (RDX_V_STOCK_INVENTARIO.TALLA = RDX_V_STOCK_VENTAS.TALLA) - AND (RDX_V_STOCK_INVENTARIO.FECHA = RDX_V_STOCK_VENTAS.FECHA) -LEFT OUTER JOIN PRODUTOS ON - (PRODUTOS.PRODUTO = ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO)) -LEFT OUTER JOIN COLECOES ON - (COLECOES.COLECAO = PRODUTOS.COLECAO) - -GROUP BY - ISNULL(RDX_V_STOCK_INVENTARIO.CENTRO, RDX_V_STOCK_VENTAS.CENTRO), - ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO), - ISNULL(RDX_V_STOCK_INVENTARIO.PRODUCTO, RDX_V_STOCK_VENTAS.PRODUCTO), - PRODUTOS.TIPO_PRODUTO, - PRODUTOS.GRUPO_PRODUTO, - COLECOES.DESC_COLECAO, - ISNULL(RDX_V_STOCK_INVENTARIO.COLOR, RDX_V_STOCK_VENTAS.COLOR) -GO - --- --- Definition for view RDX_V_STOCK_CALCULADO : --- - -CREATE VIEW RDX_V_STOCK_CALCULADO AS -SELECT - CENTRO, - CODIGO, - PRODUCTO, - TIPO_PRODUCTO, - GRUPO_PRODUCTO, - COLECCION, - COLOR, - E38, - E40, - E42, - E44, - E46, - E48, - TE = ISNULL(E38, 0) + ISNULL(E40, 0) + ISNULL(E42, 0) + ISNULL(E44, 0) + ISNULL(E46, 0) + ISNULL(E48, 0), - S38, - S40, - S42, - S44, - S46, - S48, - TS = ISNULL(S38, 0) + ISNULL(S40, 0) + ISNULL(S42, 0) + ISNULL(S44, 0) + ISNULL(S46, 0) + ISNULL(S48, 0), - K38 = ISNULL(E38, 0) + ISNULL(S38, 0), - K40 = ISNULL(E40, 0) + ISNULL(S40, 0), - K42 = ISNULL(E42, 0) + ISNULL(S42, 0), - K44 = ISNULL(E44, 0) + ISNULL(S44, 0), - K46 = ISNULL(E46, 0) + ISNULL(S46, 0), - K48 = ISNULL(E48, 0) + ISNULL(S48, 0), - KT = ISNULL(E38, 0) + ISNULL(S38, 0) + ISNULL(E40, 0) + ISNULL(S40, 0) + - ISNULL(E42, 0) + ISNULL(S42, 0) + ISNULL(E44, 0) + ISNULL(S44, 0) + - ISNULL(E46, 0) + ISNULL(S46, 0) + ISNULL(E48, 0) + ISNULL(S48, 0) - -FROM RDX_V_STOCK -GO - - - - - - - - diff --git a/Varela/Varela/Database/ANTERIOR/Script Vistas.sql b/Varela/Varela/Database/ANTERIOR/Script Vistas.sql deleted file mode 100644 index 70c2461..0000000 --- a/Varela/Varela/Database/ANTERIOR/Script Vistas.sql +++ /dev/null @@ -1,302 +0,0 @@ --- --- Definition for view RDX_V_VENTASEDI : --- - -CREATE VIEW RDX_V_VENTASEDI -AS -SELECT - RDX_CABVEN.NUMINF, - RDX_ARTVEN.CLAVE1, - RDX_ARTVEN.CLAVE2, - RDX_ARTVEN.CLAVE3, - RDX_LUGVEN.PERVENINI, - RDX_ARTVEN.NUMTALON, - RDX_LUGVEN.EANLUG, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_LUGVEN.EANLUG), - RDX_ARTVEN.EANVEN, - LOJA_VENDEDORES.VENDEDOR AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_ARTVEN.EANVEN), - RDX_ARTVEN.EANART, - RDX_ARTVEN.CODCOM, - produtos.PRODUTO, - ISNULL(produtos.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI') AS DESC_PRODUTO, - PRODUTOS_BARRA.COR_PRODUTO, - PRODUTOS_BARRA.GRADE, - produtos.TIPO_PRODUTO, - produtos.GRUPO_PRODUTO, - COLECOES.DESC_COLECAO, - RDX_ARTVEN.VALVEN, - RDX_ARTVEN.CANVEN, - RDX_ARTVEN.CANDEV, - RDX_ARTVEN.CANVENNET, - RDX_ARTVEN.CANESP -FROM - RDX_ARTVEN - INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2) - INNER JOIN RDX_CABVEN ON (RDX_LUGVEN.CLAVE1 = RDX_CABVEN.CLAVE1) - left outer join RDX_FILIALES on (RDX_FILIALES.CODBARRA = RDX_LUGVEN.EANLUG) - left outer join FILIAIS on (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) - LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG LIKE '%' + RDX_ARTVEN.EANVEN + '%') - LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.EANART) or (PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.CODCOM)) - LEFT OUTER JOIN PRODUTOS on (produtos.PRODUTO = PRODUTOS_BARRA.PRODUTO) - LEFT OUTER JOIN COLECOES on (COLECOES.COLECAO = PRODUTOS.COLECAO) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_VENTASEDI] -TO [public] -GO - --- --- Definition for view RDX_V_REFERENCIAS_RESUELTAS : --- - -CREATE VIEW RDX_V_REFERENCIAS_RESUELTAS -AS -SELECT * -FROM RDX_REFERENCIA_GENERICA -WHERE ESTADO = 'R' -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_REFERENCIAS_RESUELTAS] -TO [public] -GO - - --- --- Definition for view RDX_V_VENTASEDI_RESUELTAS : --- - -CREATE VIEW RDX_V_VENTASEDI_RESUELTAS -AS -SELECT - RDX_V_VENTASEDI.NUMINF, - RDX_V_VENTASEDI.CLAVE1, - RDX_V_VENTASEDI.CLAVE2, - RDX_V_VENTASEDI.CLAVE3, - RDX_V_VENTASEDI.PERVENINI, - RDX_V_VENTASEDI.NUMTALON, - RDX_V_VENTASEDI.EANLUG, - RDX_V_VENTASEDI.FILIAL, - RDX_V_VENTASEDI.EANVEN, - RDX_V_VENTASEDI.CODVEN, - RDX_V_VENTASEDI.VENDEDOR, - EANART = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CODIGO_BARRA, RDX_V_VENTASEDI.EANART), - RDX_V_VENTASEDI.CODCOM, - PRODUTO = ISNULL(PRODUTOS_BARRA.PRODUTO, RDX_V_VENTASEDI.PRODUTO), - DESC_PRODUTO = ISNULL(PRODUTOS.DESC_PRODUTO, RDX_V_VENTASEDI.DESC_PRODUTO), - COR_PRODUTO = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, RDX_V_VENTASEDI.COR_PRODUTO), - GRADE = ISNULL(PRODUTOS_BARRA.GRADE, RDX_V_VENTASEDI.GRADE), - TIPO_PRODUTO = ISNULL(PRODUTOS.TIPO_PRODUTO, RDX_V_VENTASEDI.TIPO_PRODUTO), - GRUPO_PRODUTO = ISNULL(PRODUTOS.GRUPO_PRODUTO, RDX_V_VENTASEDI.GRUPO_PRODUTO), - DESC_COLECAO = ISNULL(COLECOES.DESC_COLECAO, RDX_V_VENTASEDI.DESC_COLECAO), - RDX_V_VENTASEDI.VALVEN, - RDX_V_VENTASEDI.CANVEN, - RDX_V_VENTASEDI.CANDEV, - RDX_V_VENTASEDI.CANVENNET, - RDX_V_VENTASEDI.CANESP -FROM RDX_V_VENTASEDI -LEFT JOIN RDX_V_REFERENCIAS_RESUELTAS ON ( - (RDX_V_REFERENCIAS_RESUELTAS.NUMINF = RDX_V_VENTASEDI.NUMINF) AND - (RDX_V_REFERENCIAS_RESUELTAS.CLAVE1 = RDX_V_VENTASEDI.CLAVE1) AND - (RDX_V_REFERENCIAS_RESUELTAS.CLAVE2 = RDX_V_VENTASEDI.CLAVE2) AND - (RDX_V_REFERENCIAS_RESUELTAS.CLAVE3 = RDX_V_VENTASEDI.CLAVE3)) -LEFT JOIN PRODUTOS_BARRA ON ( - (PRODUTOS_BARRA.CODIGO_BARRA = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CODIGO_BARRA, RDX_V_VENTASEDI.EANART))) -LEFT JOIN PRODUTOS ON ( - (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO)) -LEFT JOIN COLECOES ON ( - (COLECOES.COLECAO = PRODUTOS.COLECAO)) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_VENTASEDI_RESUELTAS] -TO [public] -GO - - --- --- Definition for view RDX_V_VENTASEDI_ERRONEAS : --- - -CREATE VIEW RDX_V_VENTASEDI_ERRONEAS -AS -SELECT -* -FROM - RDX_V_VENTASEDI -WHERE PRODUTO = '107CH.EN.01' -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_VENTASEDI_ERRONEAS] -TO [public] -GO - --- --- Definition for view RDX_V_VENTASTERMINADAS : --- - -CREATE VIEW RDX_V_VENTASTERMINADAS -AS -SELECT - NUMINF, - CLAVE1, - CLAVE2, - CLAVE3, - PERVENINI AS FECHA, - DAY(PERVENINI) AS DIA, - DATENAME(DW, PERVENINI) DIASEMANA, - DATENAME(MONTH, PERVENINI) AS MES, - YEAR(PERVENINI) AS ANO, - FILIAL AS CENTRO, - VENDEDOR, - NUMTALON, - PRODUTO AS CODIGO, - DESC_PRODUTO AS PRODUCTO, - GRUPO_PRODUTO AS GRUPOPRODUCTO, - TIPO_PRODUTO AS TIPOPRODUCTO, - DESC_COLECAO AS COLECCION, - COR_PRODUTO AS COLOR, - GRADE AS TALLA, - TALLA38 = CASE WHEN (GRADE = 38) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA40 = CASE WHEN (GRADE = 40) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA42 = CASE WHEN (GRADE = 42) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA44 = CASE WHEN (GRADE = 44) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA46 = CASE WHEN (GRADE = 46) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - TALLA48 = CASE WHEN (GRADE = 48) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END, - VENTAS = CASE WHEN (CANVEN > 0) THEN CANVEN ELSE 0 END + - CASE WHEN (CANVENNET > 0) THEN CANVENNET ELSE 0 END, - - DEVOLUCIONES = CASE WHEN (CANVEN < 0) THEN CANVEN ELSE 0 END + - CASE WHEN (CANVENNET < 0) THEN CANVENNET ELSE 0 END, - - TOTAL = ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0), - VALVEN = CASE WHEN (VALVEN > 0) THEN VALVEN ELSE 0 END, - VALDEV = CASE WHEN (VALVEN < 0) THEN VALVEN ELSE 0 END, - VALTOT = VALVEN -FROM - RDX_V_VENTASEDI_RESUELTAS -WHERE NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */ -AND (CANESP IS NULL OR CANESP = 0) /* QUITAR INICIO V.PROCESO */ -AND (VALVEN IS NOT NULL) /* QUITAR CAMBIO DE TALLA */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_VENTASTERMINADAS] -TO [public] -GO - - --- --- Definition for view RDX_V_VENTASPROCESO : --- - -CREATE VIEW RDX_V_VENTASPROCESO AS -SELECT - NUMINF, - CLAVE1, - CLAVE2, - CLAVE3, - PERVENINI AS FECHA, - DAY(PERVENINI) AS DIA, - DATENAME(DW, PERVENINI) DIASEMANA, - DATENAME(MONTH, PERVENINI) AS MES, - YEAR(PERVENINI) AS ANO, - FILIAL AS CENTRO, - VENDEDOR, - NUMTALON, - PRODUTO AS CODIGO, - DESC_PRODUTO AS PRODUCTO, - GRUPO_PRODUTO AS GRUPOPRODUCTO, - TIPO_PRODUTO AS TIPOPRODUCTO, - DESC_COLECAO AS COLECCION, - COR_PRODUTO AS COLOR, - GRADE AS TALLA, - CANESP AS INICIO, - CANVENNET AS FINAL, - VALVEN AS IMPORTE -FROM - RDX_V_VENTASEDI_RESUELTAS -WHERE ((CANESP IS NOT NULL) OR (CANVENNET IS NOT NULL)) -AND NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_VENTASPROCESO] -TO [public] -GO - - --- --- Definition for view RDX_V_VENTASPROCESOPENDIENTES : --- - -CREATE VIEW RDX_V_VENTASPROCESOPENDIENTES AS -SELECT NUMTALON, - CODIGO, - COLOR, - TALLA, - SUM(ISNULL(INICIO, 0)) AS INICIO, - SUM(ABS(ISNULL(FINAL, 0))) AS FINAL -FROM RDX_V_VENTASPROCESO -GROUP BY NUMTALON, CODIGO, COLOR, TALLA -HAVING ((SUM(ISNULL(INICIO, 0)) <> 0) AND - (SUM(ISNULL(INICIO, 0)) > SUM(ABS(ISNULL(FINAL, 0))))) -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_VENTASPROCESOPENDIENTES] -TO [public] -GO - - - ---------------- SQL --------------- - --- --- Definition for view RDX_V_REFERENCIA_GENERICA : --- - -CREATE VIEW RDX_V_REFERENCIA_GENERICA -AS -SELECT DISTINCT - VENTAS.NUMINF, - VENTAS.CLAVE1, - VENTAS.CLAVE2, - VENTAS.CLAVE3, - VENTAS.PERVENINI AS FECHA, - VENTAS.EANLUG AS CODCENTRO, - VENTAS.FILIAL AS CENTRO, - VENTAS.EANVEN AS CODVENDEDOR, - VENTAS.VENDEDOR, - VENTAS.NUMTALON, - CODIGO_BARRA = ISNULL(PRODUTOS_BARRA.CODIGO_BARRA, VENTAS.EANART), - CODIGO = ISNULL(PRODUTOS_BARRA.PRODUTO, VENTAS.PRODUTO), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, VENTAS.DESC_PRODUTO), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, VENTAS.COR_PRODUTO), - TALLA = ISNULL(PRODUTOS_BARRA.GRADE, VENTAS.GRADE), - VENTAS.CANESP AS VTAPROCESO, - VENTAS.CANVENNET AS VTAFINAL, - VTATERM = VENTAS.CANVEN, - VALTOT = VENTAS.VALVEN, - REF.ESTADO, - REF.FECHACAMBIO -FROM RDX_V_VENTASEDI_ERRONEAS VENTAS -LEFT OUTER JOIN RDX_REFERENCIA_GENERICA REF ON - (REF.NUMINF = VENTAS.NUMINF AND REF.CLAVE1 = VENTAS.CLAVE1 AND - REF.CLAVE2 = VENTAS.CLAVE2 AND REF.CLAVE3 = VENTAS.CLAVE3) -LEFT OUTER JOIN PRODUTOS_BARRA on - (PRODUTOS_BARRA.CODIGO_BARRA = REF.CODIGO_BARRA) -LEFT OUTER JOIN PRODUTOS ON - (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -WHERE NOT ((VENTAS.VALVEN < 1) AND (VENTAS.VALVEN > 0)) /* QUITAR COMPOSTURAS */ -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_V_REFERENCIA_GENERICA] -TO [public] -GO - - diff --git a/Varela/Varela/Database/SCRIPT MEJORAS TABLAS.SQL b/Varela/Varela/Database/SCRIPT MEJORAS TABLAS.SQL deleted file mode 100644 index 769a8be..0000000 --- a/Varela/Varela/Database/SCRIPT MEJORAS TABLAS.SQL +++ /dev/null @@ -1,473 +0,0 @@ -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[FK__RDX_LUGVE__CLAVE__4A59F0B5]') AND OBJECTPROPERTY(id, N'IsForeignKey') = 1) - ALTER TABLE [RDX_LUGVEN] - DROP CONSTRAINT [FK__RDX_LUGVE__CLAVE__4A59F0B5] -GO - --- --- Dropping foreign key FK__RDX_ARTVEN__56BFC79A : --- - -IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[FK__RDX_ARTVEN__56BFC79A]') AND OBJECTPROPERTY(id, N'IsForeignKey') = 1) - ALTER TABLE [dbo].[RDX_ARTVEN] - DROP CONSTRAINT [FK__RDX_ARTVEN__56BFC79A] -GO - -ALTER TABLE [RDX_CABINV] -ADD [CARGADO]char(1) NULL -GO - -ALTER TABLE [RDX_CABVEN] -ADD [CARGADO]char(1) NULL -GO - - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM sysobjects WHERE id = OBJECT_ID(N'[RDX_INVENTARIOEDI]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_INVENTARIOEDI] -GO - -CREATE TABLE [RDX_INVENTARIOEDI] ( - [NUMDOC] varchar(25) NOT NULL, - [NUMLIN] numeric(6, 0) NOT NULL, - [NUMCANT] numeric(6, 0) NOT NULL, - [TIPOCANT] varchar(3) NULL, - [FECHA] datetime NULL, - [CENTRO] varchar(17) NULL, - [FILIAL] varchar(25) NULL, - [CODVEN] varchar(10) NULL, - [VENDEDOR] varchar(66) NULL, - [CODIGO_BARRA] varchar(17) NULL, - [CODIGO] varchar(12) NULL, - [PRODUCTO] varchar(40) NULL, - [COLOR] varchar(10) NULL, - [TALLA] varchar(8) NULL, - [CANTIDAD] numeric(15, 0) NULL, - [CENTRO2] varchar(17) NULL, - [FILIAL2] varchar(25) NULL, - [ULTIMO_INVENTARIO] char(1) NULL, - [IGNORAR] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_INVENTARIOEDI] -ADD CONSTRAINT [RDX_INVENTARIOEDI_pk] -PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN], [NUMCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx] ON [RDX_INVENTARIOEDI] - ([TIPOCANT]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx2] ON [RDX_INVENTARIOEDI] - ([FECHA]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx3] ON [RDX_INVENTARIOEDI] - ([CENTRO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx4] ON [RDX_INVENTARIOEDI] - ([CODVEN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx5] ON [RDX_INVENTARIOEDI] - ([CODIGO_BARRA]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx6] ON [RDX_INVENTARIOEDI] - ([CODIGO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx7] ON [RDX_INVENTARIOEDI] - ([CENTRO2]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx8] ON [RDX_INVENTARIOEDI] - ([ULTIMO_INVENTARIO]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_INVENTARIOEDI_idx9] ON [RDX_INVENTARIOEDI] - ([CENTRO], [CODIGO], [COLOR], [TALLA]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_INVENTARIOEDI] -TO [public] -GO - -/*--------------- SQL ---------------*/ - -IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[RDX_VENTASEDI]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) - DROP TABLE [RDX_VENTASEDI] -GO - -CREATE TABLE [RDX_VENTASEDI] ( - [NUMINF] varchar(35) NOT NULL, - [CLAVE1] numeric(10, 0) NOT NULL, - [CLAVE2] numeric(5, 0) NOT NULL, - [CLAVE3] numeric(5, 0) NOT NULL, - [PERVENINI] datetime NULL, - [NUMTALON] varchar(35) NULL, - [EANLUG] varchar(17) NULL, - [FILIAL] varchar(25) NULL, - [EANVEN] varchar(17) NULL, - [CODVEN] varchar(4) NULL, - [VENDEDOR] varchar(66) NULL, - [EANART] varchar(17) NULL, - [CODCOM] varchar(35) NULL, - [PRODUTO] varchar(12) NULL, - [DESC_PRODUTO] varchar(40) NULL, - [COR_PRODUTO] varchar(10) NULL, - [GRADE] varchar(8) NULL, - [TIPO_PRODUTO] varchar(25) NULL, - [GRUPO_PRODUTO] varchar(25) NULL, - [DESC_COLECAO] varchar(40) NULL, - [VALVEN] numeric(15, 3) NULL, - [CANVEN] numeric(15, 3) NULL, - [CANDEV] numeric(15, 3) NULL, - [CANVENNET] numeric(15, 3) NULL, - [CANESP] numeric(15, 3) NULL, - [IGNORAR] char(1) NULL -) -ON [PRIMARY] -GO - -ALTER TABLE [RDX_VENTASEDI] -ADD CONSTRAINT [RDX_VENTASEDI_pk] -PRIMARY KEY CLUSTERED ([NUMINF], [CLAVE1], [CLAVE2], [CLAVE3]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx] ON [RDX_VENTASEDI] - ([PERVENINI]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx2] ON [RDX_VENTASEDI] - ([NUMTALON]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx3] ON [RDX_VENTASEDI] - ([EANVEN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx4] ON [RDX_VENTASEDI] - ([CODVEN]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx5] ON [RDX_VENTASEDI] - ([EANART]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx6] ON [RDX_VENTASEDI] - ([CODCOM]) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_VENTASEDI_idx7] ON [RDX_VENTASEDI] - ([PRODUTO]) -ON [PRIMARY] -GO - -GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE -ON [RDX_VENTASEDI] -TO [public] -GO - - - -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE RDX_P_CARGAR_INVENTARIOEDI -AS -BEGIN - INSERT INTO RDX_INVENTARIOEDI ( - NUMDOC, NUMLIN, NUMCANT, TIPOCANT, FECHA, CENTRO, FILIAL, CODVEN, - VENDEDOR, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TALLA, CANTIDAD, - CENTRO2, FILIAL2, IGNORAR ) - SELECT - RDX_CANTINV.NUMDOC, - RDX_CANTINV.NUMLIN, - RDX_CANTINV.NUMCANT, - RDX_CANTINV.TIPOCANT, - RDX_CABINV.FECHALIQ AS FECHA, - RDX_CABINV.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_CABINV.CENTRO), - RDX_CANTINV.IDVEN AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_CANTINV.IDVEN), - RDX_LININV.CODART AS CODIGO_BARRA, - CODIGO = ISNULL(PRODUTOS.PRODUTO, '107CH.EN.01'), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI'), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, 300), - TALLA = PRODUTOS_BARRA.GRADE, - RDX_CANTINV.CANTIDAD, - CENTRO2 = RDX_CANTINV.CENTRO, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_CANTINV.CENTRO), - RDX_CABINV.IGNORAR - FROM RDX_CANTINV - INNER JOIN RDX_LININV ON - ((RDX_LININV.NUMDOC = RDX_CANTINV.NUMDOC) AND - (RDX_LININV.NUMLIN = RDX_CANTINV.NUMLIN)) - INNER JOIN RDX_CABINV ON - (RDX_CABINV.NUMDOC = RDX_LININV.NUMDOC) - LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_CABINV.CENTRO) - LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) - LEFT OUTER JOIN RDX_FILIALES RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_CANTINV.CENTRO) - LEFT OUTER JOIN FILIAIS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) - LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG = RDX_CANTINV.IDVEN) - LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_LININV.CODART)) - LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) - WHERE RDX_CABINV.FECHALIQ >= CONVERT(DATETIME, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ - AND RDX_CABINV.CARGADO IS NULL - - UPDATE RDX_CABINV SET - CARGADO = 1 - WHERE CARGADO IS NULL -END -go - -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE RDX_P_CARGAR_VENTASEDI -AS -BEGIN - INSERT INTO RDX_VENTASEDI ( - NUMINF, CLAVE1, CLAVE2, CLAVE3, PERVENINI, NUMTALON, EANLUG, - FILIAL, EANVEN, CODVEN, VENDEDOR, EANART, CODCOM, PRODUTO, - DESC_PRODUTO, COR_PRODUTO, GRADE, TIPO_PRODUTO, GRUPO_PRODUTO, - DESC_COLECAO, VALVEN, CANVEN, CANDEV, CANVENNET, CANESP ) - SELECT - RDX_CABVEN.NUMINF, - RDX_ARTVEN.CLAVE1, - RDX_ARTVEN.CLAVE2, - RDX_ARTVEN.CLAVE3, - RDX_LUGVEN.PERVENINI, - RDX_ARTVEN.NUMTALON, - RDX_LUGVEN.EANLUG, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_LUGVEN.EANLUG), - RDX_ARTVEN.EANVEN, - LOJA_VENDEDORES.VENDEDOR AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_ARTVEN.EANVEN), - RDX_ARTVEN.EANART, - RDX_ARTVEN.CODCOM, - produtos.PRODUTO, - ISNULL(produtos.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI') AS DESC_PRODUTO, - PRODUTOS_BARRA.COR_PRODUTO, - PRODUTOS_BARRA.GRADE, - produtos.TIPO_PRODUTO, - produtos.GRUPO_PRODUTO, - COLECOES.DESC_COLECAO, - RDX_ARTVEN.VALVEN, - RDX_ARTVEN.CANVEN, - RDX_ARTVEN.CANDEV, - RDX_ARTVEN.CANVENNET, - RDX_ARTVEN.CANESP - FROM - RDX_ARTVEN - INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2) - INNER JOIN RDX_CABVEN ON (RDX_LUGVEN.CLAVE1 = RDX_CABVEN.CLAVE1) - left outer join RDX_FILIALES on (RDX_FILIALES.CODBARRA = RDX_LUGVEN.EANLUG) - left outer join FILIAIS on (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) - LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG LIKE '%' + RDX_ARTVEN.EANVEN + '%') - LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.EANART) or (PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.CODCOM)) - LEFT OUTER JOIN PRODUTOS on (produtos.PRODUTO = PRODUTOS_BARRA.PRODUTO) - LEFT OUTER JOIN COLECOES on (COLECOES.COLECAO = PRODUTOS.COLECAO) - WHERE RDX_CABVEN.CARGADO IS NULL - - - UPDATE RDX_CABVEN SET - CARGADO = 1 - WHERE CARGADO IS NULL -END -go - -/*--------------- SQL ---------------*/ - -CREATE PROCEDURE RDX_P_SET_ULTIMOINVENTARIO -AS -BEGIN - DECLARE @CENTRO VARCHAR(17), - @CODIGO VARCHAR(12), - @COLOR VARCHAR(10), - @TALLA VARCHAR(8), - @FECHA DATETIME, - @UPDATECMD VARCHAR(255) - - DECLARE ASD CURSOR FOR - SELECT RTRIM(CENTRO), RTRIM(CODIGO), RTRIM(COLOR), RTRIM(TALLA), FECHA - FROM RDX_V_INVENTARIO_MAXFECHAS - OPEN ASD - FETCH NEXT FROM ASD INTO @CENTRO, @CODIGO, @COLOR, @TALLA, @FECHA - - IF @@ROWCOUNT >= 0 - BEGIN - WHILE @@FETCH_STATUS = 0 - BEGIN - UPDATE RDX_INVENTARIOEDI SET ULTIMO_INVENTARIO=NULL - WHERE CENTRO = @CENTRO AND CODIGO = @CODIGO AND COLOR = @COLOR AND TALLA = @TALLA - - UPDATE RDX_INVENTARIOEDI SET ULTIMO_INVENTARIO=1 - WHERE FECHA = CONVERT(VARCHAR, @FECHA, 112) AND CENTRO = @CENTRO AND CODIGO = @CODIGO AND COLOR = @COLOR AND TALLA = @TALLA AND TIPOCANT = 145 - - FETCH NEXT FROM ASD INTO @CENTRO, @CODIGO, @COLOR, @TALLA, @FECHA - END - END - CLOSE ASD - DEALLOCATE ASD -END -go - - -/* borrar vistas */ - - -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_ALBARANES]')) -DROP VIEW [dbo].[RDX_V_ALBARANES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_HOJAS_DEVOLUCIONES]')) -DROP VIEW [dbo].[RDX_V_HOJAS_DEVOLUCIONES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_HOJAS_TRASPASOS]')) -DROP VIEW [dbo].[RDX_V_HOJAS_TRASPASOS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI_TRASPASO]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI_TRASPASO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_DEVOLUCIONES]')) -DROP VIEW [dbo].[RDX_V_DEVOLUCIONES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_CONTROL_DEVOLUCIONES]')) -DROP VIEW [dbo].[RDX_V_CONTROL_DEVOLUCIONES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_CONTROL_TRASPASOS]')) -DROP VIEW [dbo].[RDX_V_CONTROL_TRASPASOS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_CONTROL_RECEPCION_DESGLOSADO]')) -DROP VIEW [dbo].[RDX_V_CONTROL_RECEPCION_DESGLOSADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_STOCK_VARELA]')) -DROP VIEW [dbo].[RDX_V_STOCK_VARELA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_STOCK]')) -DROP VIEW [dbo].[RDX_V_STOCK] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_CONTROL_RECEPCION_ALBARANES]')) -DROP VIEW [dbo].[RDX_V_CONTROL_RECEPCION_ALBARANES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIO_STOCK_DESGLOSADO]')) -DROP VIEW [dbo].[RDX_V_INVENTARIO_STOCK_DESGLOSADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_CONTROL_INVENTARIO]')) -DROP VIEW [dbo].[RDX_V_CONTROL_INVENTARIO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASTERMINADAS]')) -DROP VIEW [dbo].[RDX_V_VENTASTERMINADAS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASPROCESO]')) -DROP VIEW [dbo].[RDX_V_VENTASPROCESO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASPROCESOPENDIENTES]')) -DROP VIEW [dbo].[RDX_V_VENTASPROCESOPENDIENTES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASEDI]')) -DROP VIEW [dbo].[RDX_V_VENTASEDI] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_REFERENCIA_GENERICA]')) -DROP VIEW [dbo].[RDX_V_REFERENCIA_GENERICA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI_DEVOLUCION_Y_TARA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_TRASPASOS]')) -DROP VIEW [dbo].[RDX_V_TRASPASOS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_STOCK_VENTAS]')) -DROP VIEW [dbo].[RDX_V_STOCK_VENTAS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_STOCK_INVENTARIO]')) -DROP VIEW [dbo].[RDX_V_STOCK_INVENTARIO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_ALBARANES_PENDIENTES]')) -DROP VIEW [dbo].[RDX_V_ALBARANES_PENDIENTES] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_ULTIMO_INVENTARIO]')) -DROP VIEW [dbo].[RDX_V_ULTIMO_INVENTARIO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_STOCK_CALCULADO_DESGLOSADO]')) -DROP VIEW [dbo].[RDX_V_STOCK_CALCULADO_DESGLOSADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIO_STOCK]')) -DROP VIEW [dbo].[RDX_V_INVENTARIO_STOCK] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASEDI_ERRONEAS]')) -DROP VIEW [dbo].[RDX_V_VENTASEDI_ERRONEAS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_TRASPASO_ENTRADA]')) -DROP VIEW [dbo].[RDX_V_TRASPASO_ENTRADA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_TRASPASO_SALIDA]')) -DROP VIEW [dbo].[RDX_V_TRASPASO_SALIDA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_RECEPCION_AJUSTES_DESGLOSADO]')) -DROP VIEW [dbo].[RDX_V_RECEPCION_AJUSTES_DESGLOSADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASEDI_RESUELTAS]')) -DROP VIEW [dbo].[RDX_V_VENTASEDI_RESUELTAS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_TRASPASOS_AJUSTES_DESGLOSADO]')) -DROP VIEW [dbo].[RDX_V_TRASPASOS_AJUSTES_DESGLOSADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO]')) -DROP VIEW [dbo].[RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_CONTROL_RECEPCION]')) -DROP VIEW [dbo].[RDX_V_CONTROL_RECEPCION] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIO_MAXFECHAS]')) -DROP VIEW [dbo].[RDX_V_INVENTARIO_MAXFECHAS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_STOCK_CALCULADO]')) -DROP VIEW [dbo].[RDX_V_STOCK_CALCULADO] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI_TRASPASO_ENTRADA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI_TRASPASO_SALIDA]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI_TRASPASO_SALIDA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_RECEPCION]')) -DROP VIEW [dbo].[RDX_V_RECEPCION] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_REFERENCIAS_RESUELTAS]')) -DROP VIEW [dbo].[RDX_V_REFERENCIAS_RESUELTAS] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI_RECEPCION]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI_RECEPCION] -go -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_INVENTARIOEDI_PESADA]')) -DROP VIEW [dbo].[RDX_V_INVENTARIOEDI_PESADA] -GO -IF EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[RDX_V_VENTASEDI_PESADA]')) -DROP VIEW [dbo].[RDX_V_VENTASEDI_PESADA] -GO - - diff --git a/Varela/Varela/Database/__Script mejoras.sql b/Varela/Varela/Database/__Script mejoras.sql deleted file mode 100644 index 21f90d7..0000000 --- a/Varela/Varela/Database/__Script mejoras.sql +++ /dev/null @@ -1,434 +0,0 @@ -CREATE NONCLUSTERED INDEX [RDX_REFERENCIA_GENERICA_idx3] ON [dbo].[RDX_REFERENCIA_GENERICA] - ([ESTADO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_FILIALES_idx] ON [dbo].[RDX_FILIALES] - ([CODBARRA]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - - -CREATE NONCLUSTERED INDEX [RDX_FILIALES_idx2] ON [dbo].[RDX_FILIALES] - ([CODFILIAL]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [FILIAIS_idx] ON [dbo].[FILIAIS] - ([COD_FILIAL]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [LOJA_VENDEDORES_idx] ON [dbo].[LOJA_VENDEDORES] - ([RG]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx3] ON [dbo].[RDX_CANTINV] - ([TIPOCANT]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - - -CREATE NONCLUSTERED INDEX [RDX_AJUSTES_ALBARAN_idx] ON [dbo].[RDX_AJUSTES_ALBARAN] - ([ESTADO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_AJUSTES_ALBARAN_idx2] ON [dbo].[RDX_AJUSTES_ALBARAN] - ([CONTABILIZAR]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [FATURAMENTO_TIPO_idx] ON [dbo].[FATURAMENTO_TIPO] - ([INDICADOR_TIPO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_TALLAS_idx] ON [dbo].[RDX_TALLAS] - ([TALLA]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - - -CREATE NONCLUSTERED INDEX [RDX_TRASPASOS_AJUSTES_idx] ON [dbo].[RDX_TRASPASOS_AJUSTES] - ([APROBADO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_TRASPASOS_AJUSTES_idx2] ON [dbo].[RDX_TRASPASOS_AJUSTES] - ([ESTADO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - - -CREATE NONCLUSTERED INDEX [RDX_DEVOLUCION_AJUSTES_idx] ON [dbo].[RDX_DEVOLUCION_AJUSTES] - ([APROBADO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_DEVOLUCION_AJUSTES_idx2] ON [dbo].[RDX_DEVOLUCION_AJUSTES] - ([FECHACAMBIO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [PRODUTOS_idx] ON [dbo].[PRODUTOS] - ([DESC_PRODUTO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx] ON [dbo].[RDX_ARTVEN] - ([EANART]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx2] ON [dbo].[RDX_ARTVEN] - ([CODCOM]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx4] ON [dbo].[RDX_ARTVEN] - ([NUMTALON]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_ARTVEN_idx5] ON [dbo].[RDX_ARTVEN] - ([EANVEN]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_CABVEN_idx] ON [dbo].[RDX_CABVEN] - ([NUMINF]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_CABVEN_idx2] ON [dbo].[RDX_CABVEN] - ([IGNORAR]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_INFORMES_idx] ON [dbo].[RDX_INFORMES] - ([CATEGORIA]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_LUGVEN_idx] ON [dbo].[RDX_LUGVEN] - ([EANLUG]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_RECEPCION_AJUSTES_idx] ON [dbo].[RDX_RECEPCION_AJUSTES] - ([FECHACAMBIO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_RECEPCION_AJUSTES_idx2] ON [dbo].[RDX_RECEPCION_AJUSTES] - ([APROBADO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -ON [PRIMARY] -GO - -CREATE NONCLUSTERED INDEX [RDX_REFERENCIA_GENERICA_idx] ON [dbo].[RDX_REFERENCIA_GENERICA] - ([FECHACAMBIO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_REFERENCIA_GENERICA_idx2] ON [dbo].[RDX_REFERENCIA_GENERICA] - ([CODIGO_BARRA]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -GO - -CREATE NONCLUSTERED INDEX [RDX_TRASPASOS_AJUSTES_idx3] ON [dbo].[RDX_TRASPASOS_AJUSTES] - ([FECHACAMBIO]) -WITH ( - PAD_INDEX = OFF, - DROP_EXISTING = OFF, - STATISTICS_NORECOMPUTE = OFF, - SORT_IN_TEMPDB = OFF, - ONLINE = OFF, - ALLOW_ROW_LOCKS = ON, - ALLOW_PAGE_LOCKS = ON) -ON [PRIMARY] -GO - - - - - - - - - - - - - - -CREATE VIEW RDX_V_INVENTARIOEDI AS -SELECT - RDX_CANTINV.NUMDOC, - RDX_CANTINV.NUMLIN, - RDX_CANTINV.NUMCANT, - RDX_CANTINV.TIPOCANT, - RDX_CABINV.FECHALIQ AS FECHA, - RDX_CABINV.CENTRO, - FILIAL = ISNULL(FILIAIS.FILIAL, RDX_CABINV.CENTRO), - RDX_CANTINV.IDVEN AS CODVEN, - VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_CANTINV.IDVEN), - RDX_LININV.CODART AS CODIGO_BARRA, - CODIGO = ISNULL(PRODUTOS.PRODUTO, '107CH.EN.01'), - PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI'), - COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, 300), - TALLA = PRODUTOS_BARRA.GRADE, - RDX_CANTINV.CANTIDAD, - CENTRO2 = RDX_CANTINV.CENTRO, - FILIAL2 = ISNULL(FILIAIS2.FILIAL, RDX_CANTINV.CENTRO) -FROM RDX_CANTINV -INNER JOIN RDX_LININV ON - ((RDX_LININV.NUMDOC = RDX_CANTINV.NUMDOC) AND - (RDX_LININV.NUMLIN = RDX_CANTINV.NUMLIN)) -INNER JOIN RDX_CABINV ON - (RDX_CABINV.NUMDOC = RDX_LININV.NUMDOC) -LEFT OUTER JOIN RDX_FILIALES ON (RDX_FILIALES.CODBARRA = RDX_CABINV.CENTRO) -LEFT OUTER JOIN FILIAIS ON (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL) -LEFT OUTER JOIN RDX_FILIALES RDX_FILIALES2 ON (RDX_FILIALES2.CODBARRA = RDX_CANTINV.CENTRO) -LEFT OUTER JOIN FILIAIS FILIAIS2 ON (FILIAIS2.COD_FILIAL = RDX_FILIALES2.CODFILIAL) -LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG = RDX_CANTINV.IDVEN) -LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_LININV.CODART)) -LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO) -WHERE RDX_CABINV.FECHALIQ >= convert(datetime, '20060601', 112) /* PARA NO COGER AÑOS ANTERIORES */ -AND (RDX_CABINV.IGNORAR IS NULL) OR (RDX_CABINV.IGNORAR <> 'S') -GO - - - -create table RDX_INVENTARIOEDI ( - [NUMDOC]numeric(10, 0) NOT NULL, - [NUMLIN]numeric(5, 0) NOT NULL, - [NUMCANT]varchar(17) COLLATE SQL_Latin1_General_CP1_CI_AS NULL, - [TIPOCANT]varchar(70) COLLATE SQL_Latin1_General_CP1_CI_AS NULL, - [FECHA]datetime NULL, - [CENTRO]datetime NULL, - [FILIAL]datetime NULL, - [CODVEN]datetime NULL, - [VENDEDOR]datetime NULL, - [CODIGO_BARRA] - [CODIGO] - [PRODUCTO] - [COLOR] - [TALLA] - [CANTIDAD] - [CENTRO2] - [FILIAL2] - PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2]), - CONSTRAINT [FK__RDX_LUGVE__CLAVE__4A59F0B5] FOREIGN KEY ([CLAVE1]) - REFERENCES [dbo].[RDX_CABVEN] ([CLAVE1]) - ON UPDATE CASCADE - ON DELETE CASCADE -) - - - - - - - - - - - - - - - - - diff --git a/Varela/Varela/Lib/midas.dll b/Varela/Varela/Lib/midas.dll deleted file mode 100644 index 7b11def..0000000 Binary files a/Varela/Varela/Lib/midas.dll and /dev/null differ diff --git a/Varela/Varela/Output/Debug/Servidor/Informes/InformeReferenciaGenerica.fr3 b/Varela/Varela/Output/Debug/Servidor/Informes/InformeReferenciaGenerica.fr3 deleted file mode 100644 index 0de6515..0000000 --- a/Varela/Varela/Output/Debug/Servidor/Informes/InformeReferenciaGenerica.fr3 +++ /dev/null @@ -1,27 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Varela/Varela/Resources/Iconos/CargaEDI.ico b/Varela/Varela/Resources/Iconos/CargaEDI.ico deleted file mode 100644 index 5c20b23..0000000 Binary files a/Varela/Varela/Resources/Iconos/CargaEDI.ico and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Cliente.ico b/Varela/Varela/Resources/Iconos/Cliente.ico deleted file mode 100644 index 3633372..0000000 Binary files a/Varela/Varela/Resources/Iconos/Cliente.ico and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Devoluciones/16x16/Remove.png b/Varela/Varela/Resources/Iconos/Devoluciones/16x16/Remove.png deleted file mode 100644 index 332ae88..0000000 Binary files a/Varela/Varela/Resources/Iconos/Devoluciones/16x16/Remove.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Devoluciones/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Devoluciones/16x16/Thumbs.db deleted file mode 100644 index 8496f5f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Devoluciones/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Devoluciones/24x24/Remove.png b/Varela/Varela/Resources/Iconos/Devoluciones/24x24/Remove.png deleted file mode 100644 index 96872cd..0000000 Binary files a/Varela/Varela/Resources/Iconos/Devoluciones/24x24/Remove.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Devoluciones/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Devoluciones/24x24/Thumbs.db deleted file mode 100644 index fa10699..0000000 Binary files a/Varela/Varela/Resources/Iconos/Devoluciones/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Devoluciones/28x28/Remove.png b/Varela/Varela/Resources/Iconos/Devoluciones/28x28/Remove.png deleted file mode 100644 index f4f4bb2..0000000 Binary files a/Varela/Varela/Resources/Iconos/Devoluciones/28x28/Remove.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Devoluciones/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Devoluciones/28x28/Thumbs.db deleted file mode 100644 index 70502f6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Devoluciones/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Delete.png b/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Delete.png deleted file mode 100644 index cb27f30..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Delete.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/History.png b/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/History.png deleted file mode 100644 index 3f766a4..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/History.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Thumbs.db deleted file mode 100644 index 88c3362..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Tick.png b/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Tick.png deleted file mode 100644 index 14a31e9..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/Tick.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/carga.png b/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/carga.png deleted file mode 100644 index c115d91..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/16x16/carga.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/History.png b/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/History.png deleted file mode 100644 index 5439f61..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/History.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/Thumbs.db deleted file mode 100644 index 28c62fa..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/cargar.png b/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/cargar.png deleted file mode 100644 index a5d3347..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/24x24/cargar.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/History.png b/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/History.png deleted file mode 100644 index 10cf0c6..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/History.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/Thumbs.db deleted file mode 100644 index 1414e12..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/cargar.png b/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/cargar.png deleted file mode 100644 index af541f4..0000000 Binary files a/Varela/Varela/Resources/Iconos/FicherosEDI/28x28/cargar.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/013422.bmp b/Varela/Varela/Resources/Iconos/Generales/16x16/013422.bmp deleted file mode 100644 index 315851d..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/013422.bmp and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/09378.bmp b/Varela/Varela/Resources/Iconos/Generales/16x16/09378.bmp deleted file mode 100644 index 248fc74..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/09378.bmp and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/09378.png b/Varela/Varela/Resources/Iconos/Generales/16x16/09378.png deleted file mode 100644 index 7e79599..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/09378.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/About.png b/Varela/Varela/Resources/Iconos/Generales/16x16/About.png deleted file mode 100644 index 32635db..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/About.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Añadir-capítulo.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Añadir-capítulo.png deleted file mode 100644 index 16e9ab9..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Añadir-capítulo.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Añadir-material.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Añadir-material.png deleted file mode 100644 index d43ef4a..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Añadir-material.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Back.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Back.png deleted file mode 100644 index 31194b5..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Back.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Box-Closed.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Box-Closed.png deleted file mode 100644 index 189b83f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Box-Closed.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Box-Open-2.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Box-Open-2.png deleted file mode 100644 index 8e30418..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Box-Open-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Card-Copy.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Card-Copy.png deleted file mode 100644 index 0da221c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Card-Copy.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Cell-Format.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Cell-Format.png deleted file mode 100644 index 62773cf..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Cell-Format.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Clear.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Clear.png deleted file mode 100644 index 2062c27..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Clear.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Copy.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Copy.png deleted file mode 100644 index 7067e8d..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Copy.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Cut.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Cut.png deleted file mode 100644 index 3bb4451..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Cut.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Dates-Adjust.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Dates-Adjust.png deleted file mode 100644 index 0f623d8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Dates-Adjust.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Breakpoint.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Breakpoint.png deleted file mode 100644 index 464fcd7..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Breakpoint.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Watch-Delete.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Watch-Delete.png deleted file mode 100644 index 8e2e6a1..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Watch-Delete.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Watch.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Watch.png deleted file mode 100644 index 5976f75..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Debug-Watch.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Delete.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Delete.png deleted file mode 100644 index cb27f30..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Delete.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Details-Hide.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Details-Hide.png deleted file mode 100644 index 2f44439..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Details-Hide.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Details-Show.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Details-Show.png deleted file mode 100644 index 5d3fc51..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Details-Show.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Distribute-Rows Evenly.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Distribute-Rows Evenly.png deleted file mode 100644 index 42c647b..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Distribute-Rows Evenly.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Edit.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Edit.png deleted file mode 100644 index a4431dd..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Exit.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Exit.png deleted file mode 100644 index 21613aa..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Exit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Filter.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Filter.png deleted file mode 100644 index d2a5e99..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Filter.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Format-Font.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Format-Font.png deleted file mode 100644 index d3040cd..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Format-Font.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Forward.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Forward.png deleted file mode 100644 index 2a17743..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Forward.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Grid-Select Column.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Grid-Select Column.png deleted file mode 100644 index a1d949e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Grid-Select Column.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Group By.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Group By.png deleted file mode 100644 index 7a47750..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Group By.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Home.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Home.png deleted file mode 100644 index 199e9cd..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Home.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Minus.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Minus.png deleted file mode 100644 index ad8a7d0..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Minus.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/New.png b/Varela/Varela/Resources/Iconos/Generales/16x16/New.png deleted file mode 100644 index adfecfe..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/New.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Collapse.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Collapse.png deleted file mode 100644 index 95ded08..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Collapse.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Expand.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Expand.png deleted file mode 100644 index 17cbe65..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Expand.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Move Down.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Move Down.png deleted file mode 100644 index 09fdc68..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Move Down.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Move Up.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Move Up.png deleted file mode 100644 index 4678fac..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Outline-Move Up.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Parcel.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Parcel.png deleted file mode 100644 index eb0ef92..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Parcel.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Paste.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Paste.png deleted file mode 100644 index f1cbee6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Paste.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Plus.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Plus.png deleted file mode 100644 index cab9e8e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Plus.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Preview.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Preview.png deleted file mode 100644 index a1ee549..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Preview.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Print-Options.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Print-Options.png deleted file mode 100644 index cd0e509..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Print-Options.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Print.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Print.png deleted file mode 100644 index 8f029d7..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Print.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Refresh.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Refresh.png deleted file mode 100644 index 9ed4aac..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Refresh.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Save.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Save.png deleted file mode 100644 index 51eb9de..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Save.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Search.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Search.png deleted file mode 100644 index e7a6758..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Search.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Select All.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Select All.png deleted file mode 100644 index b3476eb..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Select All.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Speaking-Start.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Speaking-Start.png deleted file mode 100644 index 935e566..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Speaking-Start.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Sum-2.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Sum-2.png deleted file mode 100644 index 6e5d8e9..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Sum-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Table-Search.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Table-Search.png deleted file mode 100644 index be8bf80..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Table-Search.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Generales/16x16/Thumbs.db deleted file mode 100644 index fa43abb..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Total-capítulo.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Total-capítulo.png deleted file mode 100644 index 4f721ba..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Total-capítulo.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Título-capítulo.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Título-capítulo.png deleted file mode 100644 index 4eb60d9..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Título-capítulo.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Undo.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Undo.png deleted file mode 100644 index 114cf33..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Undo.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/View-One Page.png b/Varela/Varela/Resources/Iconos/Generales/16x16/View-One Page.png deleted file mode 100644 index 7573d11..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/View-One Page.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/View-Page Width.png b/Varela/Varela/Resources/Iconos/Generales/16x16/View-Page Width.png deleted file mode 100644 index 2ad4e8e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/View-Page Width.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Warning.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Warning.png deleted file mode 100644 index 0fca356..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Warning.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Zoom-In.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Zoom-In.png deleted file mode 100644 index 812c814..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Zoom-In.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/Zoom-Out.png b/Varela/Varela/Resources/Iconos/Generales/16x16/Zoom-Out.png deleted file mode 100644 index e6ccf65..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/Zoom-Out.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/db-Next-2.png b/Varela/Varela/Resources/Iconos/Generales/16x16/db-Next-2.png deleted file mode 100644 index 759e9ee..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/db-Next-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/db-Previous-2.png b/Varela/Varela/Resources/Iconos/Generales/16x16/db-Previous-2.png deleted file mode 100644 index f673f28..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/db-Previous-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/db-first-2.png b/Varela/Varela/Resources/Iconos/Generales/16x16/db-first-2.png deleted file mode 100644 index 7274025..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/db-first-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/16x16/db-last-2.png b/Varela/Varela/Resources/Iconos/Generales/16x16/db-last-2.png deleted file mode 100644 index bfb5d67..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/16x16/db-last-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/About.png b/Varela/Varela/Resources/Iconos/Generales/24x24/About.png deleted file mode 100644 index 5d0ba3e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/About.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Back.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Back.png deleted file mode 100644 index 1cd4d31..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Back.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Box-Open-2.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Box-Open-2.png deleted file mode 100644 index 9959446..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Box-Open-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Card-Copy.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Card-Copy.png deleted file mode 100644 index ee4b76f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Card-Copy.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Cell-Format.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Cell-Format.png deleted file mode 100644 index 18818c4..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Cell-Format.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Clear.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Clear.png deleted file mode 100644 index 4ce31c8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Clear.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Copy.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Copy.png deleted file mode 100644 index 9bf2618..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Copy.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Cut.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Cut.png deleted file mode 100644 index b6e6529..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Cut.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Dates-Adjust.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Dates-Adjust.png deleted file mode 100644 index f8bf558..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Dates-Adjust.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Breakpoint.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Breakpoint.png deleted file mode 100644 index 16e4542..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Breakpoint.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Watch-Delete.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Watch-Delete.png deleted file mode 100644 index 89ae7bd..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Watch-Delete.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Watch.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Watch.png deleted file mode 100644 index 547428e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Debug-Watch.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Delete.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Delete.png deleted file mode 100644 index a169184..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Delete.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Details-Hide.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Details-Hide.png deleted file mode 100644 index 77ce656..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Details-Hide.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Details-Show.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Details-Show.png deleted file mode 100644 index db15b56..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Details-Show.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Distribute-Rows Evenly.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Distribute-Rows Evenly.png deleted file mode 100644 index e18f127..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Distribute-Rows Evenly.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Edit.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Edit.png deleted file mode 100644 index f39269e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Exit.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Exit.png deleted file mode 100644 index 70eadf9..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Exit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Filter.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Filter.png deleted file mode 100644 index b69dcac..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Filter.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Format-Font.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Format-Font.png deleted file mode 100644 index 2aa01b2..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Format-Font.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Forward.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Forward.png deleted file mode 100644 index 2ceec67..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Forward.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Grid-Select Column.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Grid-Select Column.png deleted file mode 100644 index 5bf1b9b..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Grid-Select Column.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Group By.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Group By.png deleted file mode 100644 index 70adc01..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Group By.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Home.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Home.png deleted file mode 100644 index 96b8c87..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Home.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Minus.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Minus.png deleted file mode 100644 index 1b2257f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Minus.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Collapse.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Collapse.png deleted file mode 100644 index 0e7c2cc..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Collapse.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Expand.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Expand.png deleted file mode 100644 index c643a7c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Expand.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Move Down.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Move Down.png deleted file mode 100644 index 65aaa61..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Move Down.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Move Up.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Move Up.png deleted file mode 100644 index 3dc2673..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Outline-Move Up.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Paste.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Paste.png deleted file mode 100644 index 9b4c3f0..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Paste.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Plus.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Plus.png deleted file mode 100644 index f60ef53..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Plus.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Preview.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Preview.png deleted file mode 100644 index 4d185c1..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Preview.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Print-Options.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Print-Options.png deleted file mode 100644 index b97b98c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Print-Options.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Print.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Print.png deleted file mode 100644 index 3f6e390..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Print.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Refresh.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Refresh.png deleted file mode 100644 index 03cacdf..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Refresh.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Save.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Save.png deleted file mode 100644 index 56cc714..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Save.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Search.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Search.png deleted file mode 100644 index 3af96da..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Search.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Select All.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Select All.png deleted file mode 100644 index 5632ed5..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Select All.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Speaking-Start.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Speaking-Start.png deleted file mode 100644 index a02336a..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Speaking-Start.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Sum-2.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Sum-2.png deleted file mode 100644 index 51a90c6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Sum-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Table-Search.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Table-Search.png deleted file mode 100644 index b145e04..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Table-Search.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Generales/24x24/Thumbs.db deleted file mode 100644 index 7c4548e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Undo.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Undo.png deleted file mode 100644 index 0fe4cc9..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Undo.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/View-One Page.png b/Varela/Varela/Resources/Iconos/Generales/24x24/View-One Page.png deleted file mode 100644 index b66609e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/View-One Page.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/View-Page Width.png b/Varela/Varela/Resources/Iconos/Generales/24x24/View-Page Width.png deleted file mode 100644 index 760a323..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/View-Page Width.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Warning.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Warning.png deleted file mode 100644 index e674c1f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Warning.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Zoom-In.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Zoom-In.png deleted file mode 100644 index 131feed..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Zoom-In.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/Zoom-Out.png b/Varela/Varela/Resources/Iconos/Generales/24x24/Zoom-Out.png deleted file mode 100644 index 26cf347..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/Zoom-Out.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/db-First-2.png b/Varela/Varela/Resources/Iconos/Generales/24x24/db-First-2.png deleted file mode 100644 index c36c2ea..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/db-First-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/db-Last-2.png b/Varela/Varela/Resources/Iconos/Generales/24x24/db-Last-2.png deleted file mode 100644 index 97292c3..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/db-Last-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/db-Next-2.png b/Varela/Varela/Resources/Iconos/Generales/24x24/db-Next-2.png deleted file mode 100644 index d23efc7..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/db-Next-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/24x24/db-Previous-2.png b/Varela/Varela/Resources/Iconos/Generales/24x24/db-Previous-2.png deleted file mode 100644 index 7c11e16..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/24x24/db-Previous-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Box-Open-2.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Box-Open-2.png deleted file mode 100644 index e88310c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Box-Open-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Card-Copy.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Card-Copy.png deleted file mode 100644 index 60566d1..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Card-Copy.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Cell-Format.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Cell-Format.png deleted file mode 100644 index ab87664..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Cell-Format.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Dates-Adjust.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Dates-Adjust.png deleted file mode 100644 index 1523445..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Dates-Adjust.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Debug-Watch-Delete.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Debug-Watch-Delete.png deleted file mode 100644 index faf46e8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Debug-Watch-Delete.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Debug-Watch.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Debug-Watch.png deleted file mode 100644 index 31c568f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Debug-Watch.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Details-Hide.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Details-Hide.png deleted file mode 100644 index 84f6b24..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Details-Hide.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Details-Show.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Details-Show.png deleted file mode 100644 index 6b28c94..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Details-Show.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Distribute-Rows Evenly.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Distribute-Rows Evenly.png deleted file mode 100644 index 6b62515..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Distribute-Rows Evenly.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Filter.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Filter.png deleted file mode 100644 index 225c97b..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Filter.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Format-Font.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Format-Font.png deleted file mode 100644 index b5ceec7..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Format-Font.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Grid-Select Column.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Grid-Select Column.png deleted file mode 100644 index 5033d4c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Grid-Select Column.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Group By.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Group By.png deleted file mode 100644 index 95af7df..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Group By.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Home.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Home.png deleted file mode 100644 index f89327a..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Home.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Outline-Move Down.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Outline-Move Down.png deleted file mode 100644 index eb2aa92..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Outline-Move Down.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Outline-Move Up.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Outline-Move Up.png deleted file mode 100644 index 4397959..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Outline-Move Up.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Speaking-Start.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Speaking-Start.png deleted file mode 100644 index 52294bb..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Speaking-Start.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Sum-2.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Sum-2.png deleted file mode 100644 index 0508feb..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Sum-2.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Table-Search.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Table-Search.png deleted file mode 100644 index bb23481..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Table-Search.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Generales/28x28/Thumbs.db deleted file mode 100644 index 8f10cab..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/28x28/Warning.png b/Varela/Varela/Resources/Iconos/Generales/28x28/Warning.png deleted file mode 100644 index 19aec79..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/28x28/Warning.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Generales/Thumbs.db b/Varela/Varela/Resources/Iconos/Generales/Thumbs.db deleted file mode 100644 index ae2c460..0000000 Binary files a/Varela/Varela/Resources/Iconos/Generales/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/16x16/Insert.png b/Varela/Varela/Resources/Iconos/Recepciones/16x16/Insert.png deleted file mode 100644 index 1fb5501..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/16x16/Insert.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Recepciones/16x16/Thumbs.db deleted file mode 100644 index 5c8b107..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/16x16/albaran.png b/Varela/Varela/Resources/Iconos/Recepciones/16x16/albaran.png deleted file mode 100644 index 6251fbf..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/16x16/albaran.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/24x24/Insert.png b/Varela/Varela/Resources/Iconos/Recepciones/24x24/Insert.png deleted file mode 100644 index 707bd92..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/24x24/Insert.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Recepciones/24x24/Thumbs.db deleted file mode 100644 index bf854b8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/24x24/albaran.png b/Varela/Varela/Resources/Iconos/Recepciones/24x24/albaran.png deleted file mode 100644 index fd60ff3..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/24x24/albaran.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/28x28/Insert.png b/Varela/Varela/Resources/Iconos/Recepciones/28x28/Insert.png deleted file mode 100644 index 2c075b6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/28x28/Insert.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Recepciones/28x28/Thumbs.db deleted file mode 100644 index 6418f7c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Recepciones/28x28/albaran.png b/Varela/Varela/Resources/Iconos/Recepciones/28x28/albaran.png deleted file mode 100644 index 716a028..0000000 Binary files a/Varela/Varela/Resources/Iconos/Recepciones/28x28/albaran.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/Label-Edit.png b/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/Label-Edit.png deleted file mode 100644 index 2930b98..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/Label-Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/Thumbs.db deleted file mode 100644 index 3a5ac32..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/enespera.png b/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/enespera.png deleted file mode 100644 index 618db41..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/enespera.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/pendiente.png b/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/pendiente.png deleted file mode 100644 index d199223..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/pendiente.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/resuelto.png b/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/resuelto.png deleted file mode 100644 index 230d926..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/16x16/resuelto.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/24x24/Label-Edit.png b/Varela/Varela/Resources/Iconos/Referencias genéricas/24x24/Label-Edit.png deleted file mode 100644 index 4c980f5..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/24x24/Label-Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Referencias genéricas/28x28/Label-Edit.png b/Varela/Varela/Resources/Iconos/Referencias genéricas/28x28/Label-Edit.png deleted file mode 100644 index 5305bcc..0000000 Binary files a/Varela/Varela/Resources/Iconos/Referencias genéricas/28x28/Label-Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor.ico b/Varela/Varela/Resources/Iconos/Servidor.ico deleted file mode 100644 index ff7c9cc..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor.ico and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor/16x16/Database.png b/Varela/Varela/Resources/Iconos/Servidor/16x16/Database.png deleted file mode 100644 index badb104..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor/16x16/Database.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Servidor/16x16/Thumbs.db deleted file mode 100644 index 57412b6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor/24x24/Database.png b/Varela/Varela/Resources/Iconos/Servidor/24x24/Database.png deleted file mode 100644 index cd859e1..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor/24x24/Database.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Servidor/24x24/Thumbs.db deleted file mode 100644 index c75e445..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor/28x28/Database.png b/Varela/Varela/Resources/Iconos/Servidor/28x28/Database.png deleted file mode 100644 index 26d3c56..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor/28x28/Database.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Servidor/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Servidor/28x28/Thumbs.db deleted file mode 100644 index 8b19047..0000000 Binary files a/Varela/Varela/Resources/Iconos/Servidor/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Stock/16x16/Task.png b/Varela/Varela/Resources/Iconos/Stock/16x16/Task.png deleted file mode 100644 index 83697bc..0000000 Binary files a/Varela/Varela/Resources/Iconos/Stock/16x16/Task.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Stock/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Stock/16x16/Thumbs.db deleted file mode 100644 index a2ff4be..0000000 Binary files a/Varela/Varela/Resources/Iconos/Stock/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Stock/24x24/Task.png b/Varela/Varela/Resources/Iconos/Stock/24x24/Task.png deleted file mode 100644 index b88be99..0000000 Binary files a/Varela/Varela/Resources/Iconos/Stock/24x24/Task.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Stock/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Stock/24x24/Thumbs.db deleted file mode 100644 index 60771b8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Stock/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Stock/28x28/Task.png b/Varela/Varela/Resources/Iconos/Stock/28x28/Task.png deleted file mode 100644 index edfbc98..0000000 Binary files a/Varela/Varela/Resources/Iconos/Stock/28x28/Task.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Stock/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Stock/28x28/Thumbs.db deleted file mode 100644 index 0275ba6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Stock/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Thumbs.db b/Varela/Varela/Resources/Iconos/Thumbs.db deleted file mode 100644 index b783c8d..0000000 Binary files a/Varela/Varela/Resources/Iconos/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Entrada.png b/Varela/Varela/Resources/Iconos/Traspasos/16x16/Entrada.png deleted file mode 100644 index baef7a8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Entrada.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Salida.png b/Varela/Varela/Resources/Iconos/Traspasos/16x16/Salida.png deleted file mode 100644 index 1779d0d..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Salida.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Swap.png b/Varela/Varela/Resources/Iconos/Traspasos/16x16/Swap.png deleted file mode 100644 index bf54e00..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Swap.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Traspasos/16x16/Thumbs.db deleted file mode 100644 index 0cf331f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/24x24/Swap.png b/Varela/Varela/Resources/Iconos/Traspasos/24x24/Swap.png deleted file mode 100644 index 12cece4..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/24x24/Swap.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Traspasos/24x24/Thumbs.db deleted file mode 100644 index 2c5ec15..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/28x28/Swap.png b/Varela/Varela/Resources/Iconos/Traspasos/28x28/Swap.png deleted file mode 100644 index 2e23a78..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/28x28/Swap.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Traspasos/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Traspasos/28x28/Thumbs.db deleted file mode 100644 index 972a081..0000000 Binary files a/Varela/Varela/Resources/Iconos/Traspasos/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Usuarios/16x16/Thumbs.db deleted file mode 100644 index a4ab3ce..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Add.png b/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Add.png deleted file mode 100644 index 1649f38..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Add.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Edit.png b/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Edit.png deleted file mode 100644 index a660a37..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Password.png b/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Password.png deleted file mode 100644 index a6d8942..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Password.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Remove.png b/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Remove.png deleted file mode 100644 index 5edbd1d..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User-Remove.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User.png b/Varela/Varela/Resources/Iconos/Usuarios/16x16/User.png deleted file mode 100644 index ee6f2a7..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/User.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/16x16/Users.png b/Varela/Varela/Resources/Iconos/Usuarios/16x16/Users.png deleted file mode 100644 index c376648..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/16x16/Users.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Usuarios/24x24/Thumbs.db deleted file mode 100644 index 79aece3..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Add.png b/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Add.png deleted file mode 100644 index 3616f18..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Add.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Edit.png b/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Edit.png deleted file mode 100644 index 1af01ad..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Password.png b/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Password.png deleted file mode 100644 index a121a6b..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Password.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Remove.png b/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Remove.png deleted file mode 100644 index b50a9da..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User-Remove.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User.png b/Varela/Varela/Resources/Iconos/Usuarios/24x24/User.png deleted file mode 100644 index ddb1dd6..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/User.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/24x24/Users.png b/Varela/Varela/Resources/Iconos/Usuarios/24x24/Users.png deleted file mode 100644 index dbdd35c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/24x24/Users.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Usuarios/28x28/Thumbs.db deleted file mode 100644 index 7f04aaa..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Add.png b/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Add.png deleted file mode 100644 index 76459dc..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Add.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Edit.png b/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Edit.png deleted file mode 100644 index 139ec63..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Edit.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Password.png b/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Password.png deleted file mode 100644 index 7720bf1..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Password.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Remove.png b/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Remove.png deleted file mode 100644 index b046745..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User-Remove.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User.png b/Varela/Varela/Resources/Iconos/Usuarios/28x28/User.png deleted file mode 100644 index e389c2a..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/User.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/28x28/Users.png b/Varela/Varela/Resources/Iconos/Usuarios/28x28/Users.png deleted file mode 100644 index 4c006ba..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/28x28/Users.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/48x48/Thumbs.db b/Varela/Varela/Resources/Iconos/Usuarios/48x48/Thumbs.db deleted file mode 100644 index c827026..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/48x48/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Usuarios/48x48/Users.png b/Varela/Varela/Resources/Iconos/Usuarios/48x48/Users.png deleted file mode 100644 index 1697dfe..0000000 Binary files a/Varela/Varela/Resources/Iconos/Usuarios/48x48/Users.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas en proceso/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Ventas en proceso/16x16/Thumbs.db deleted file mode 100644 index 56e3ebd..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas en proceso/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas en proceso/16x16/Ventas en proceso.png b/Varela/Varela/Resources/Iconos/Ventas en proceso/16x16/Ventas en proceso.png deleted file mode 100644 index 9299fe2..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas en proceso/16x16/Ventas en proceso.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas en proceso/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Ventas en proceso/24x24/Thumbs.db deleted file mode 100644 index 00de62c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas en proceso/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas en proceso/24x24/Venta en proceso.png b/Varela/Varela/Resources/Iconos/Ventas en proceso/24x24/Venta en proceso.png deleted file mode 100644 index b121137..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas en proceso/24x24/Venta en proceso.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Currency-Notes.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Currency-Notes.png deleted file mode 100644 index 7eb9a4c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Currency-Notes.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Currency.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Currency.png deleted file mode 100644 index 5ecaee8..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Currency.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Report.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Report.png deleted file mode 100644 index f040487..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Report.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Thumbs.db b/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Thumbs.db deleted file mode 100644 index 65daa1e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Venta terminada.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Venta terminada.png deleted file mode 100644 index 1f12605..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/16x16/Venta terminada.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Currency-Notes.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Currency-Notes.png deleted file mode 100644 index 94f8cb4..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Currency-Notes.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Currency.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Currency.png deleted file mode 100644 index af28329..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Currency.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Report.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Report.png deleted file mode 100644 index 417cb9e..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Report.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Thumbs.db b/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Thumbs.db deleted file mode 100644 index c838463..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Venta terminada.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Venta terminada.png deleted file mode 100644 index 6d04f29..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/24x24/Venta terminada.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Currency-Notes.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Currency-Notes.png deleted file mode 100644 index f3c4a88..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Currency-Notes.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Currency.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Currency.png deleted file mode 100644 index 0d7259c..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Currency.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Report.png b/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Report.png deleted file mode 100644 index 36a49f1..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Report.png and /dev/null differ diff --git a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Thumbs.db b/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Thumbs.db deleted file mode 100644 index 6c6799f..0000000 Binary files a/Varela/Varela/Resources/Iconos/Ventas terminadas/28x28/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/Cabecera.jpg b/Varela/Varela/Resources/Imagenes/Cabecera.jpg deleted file mode 100644 index ce37d1a..0000000 Binary files a/Varela/Varela/Resources/Imagenes/Cabecera.jpg and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/Cabecera.psd b/Varela/Varela/Resources/Imagenes/Cabecera.psd deleted file mode 100644 index e3bd135..0000000 Binary files a/Varela/Varela/Resources/Imagenes/Cabecera.psd and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/Thumbs.db b/Varela/Varela/Resources/Imagenes/Thumbs.db deleted file mode 100644 index 0e88c29..0000000 Binary files a/Varela/Varela/Resources/Imagenes/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1021.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1021.BMP deleted file mode 100644 index e249876..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1021.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1022.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1022.BMP deleted file mode 100644 index b792f59..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1022.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1023.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1023.BMP deleted file mode 100644 index 89722dc..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1023.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1024.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1024.BMP deleted file mode 100644 index 798cb41..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1024.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1025.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1025.BMP deleted file mode 100644 index 2f12281..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1025.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1026.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1026.BMP deleted file mode 100644 index 63b1f2f..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1026.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1027.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1027.BMP deleted file mode 100644 index 45eb301..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1027.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1028.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1028.BMP deleted file mode 100644 index c9266e2..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1028.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1029.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1029.BMP deleted file mode 100644 index a8a7b40..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1029.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1030.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1030.BMP deleted file mode 100644 index 97e4521..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1030.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1031.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1031.BMP deleted file mode 100644 index 3f7eb1e..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1031.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1032.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1032.BMP deleted file mode 100644 index 663c511..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1032.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/1033.BMP b/Varela/Varela/Resources/Imagenes/WaitProgress/1033.BMP deleted file mode 100644 index bc8fdfa..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/1033.BMP and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/WaitProgress/Thumbs.db b/Varela/Varela/Resources/Imagenes/WaitProgress/Thumbs.db deleted file mode 100644 index 68464d9..0000000 Binary files a/Varela/Varela/Resources/Imagenes/WaitProgress/Thumbs.db and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/Watermark Ficheros.psd b/Varela/Varela/Resources/Imagenes/Watermark Ficheros.psd deleted file mode 100644 index f89490a..0000000 Binary files a/Varela/Varela/Resources/Imagenes/Watermark Ficheros.psd and /dev/null differ diff --git a/Varela/Varela/Resources/Imagenes/Watermark-Ficheros.png b/Varela/Varela/Resources/Imagenes/Watermark-Ficheros.png deleted file mode 100644 index 99b4ed0..0000000 Binary files a/Varela/Varela/Resources/Imagenes/Watermark-Ficheros.png and /dev/null differ diff --git a/Varela/Varela/Source/AdminPVGroup.bdsgroup b/Varela/Varela/Source/AdminPVGroup.bdsgroup deleted file mode 100644 index 3a0016c..0000000 --- a/Varela/Varela/Source/AdminPVGroup.bdsgroup +++ /dev/null @@ -1,32 +0,0 @@ - - - - - - - - - - - Base\BaseD10.bdsproj - ControlesBase\ControlesBaseD10.bdsproj - Modulos\Parametros\Cliente\Parametros.bdsproj - Usuarios\Usuarios.bdsproj - Configuracion\Configuracion.bdsproj - Modulos\FicherosEDI\Cliente\FicherosEDI.bdsproj - Modulos\VentasTerminadas\Cliente\VentasTerminadas.bdsproj - Modulos\VentasProceso\Cliente\VentasProceso.bdsproj - Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.bdsproj - Modulos\Recepciones\Cliente\Recepciones.bdsproj - Modulos\Devoluciones\Cliente\Devoluciones.bdsproj - Modulos\Traspasos\Cliente\Traspasos.bdsproj - Modulos\Stock\Cliente\Stock.bdsproj - Cliente\AdminPV.bdsproj - Servidor\AdminPV_Server.bdsproj - CargaEDI\CargaEDI.bdsproj - BaseD10.bpl ControlesBaseD10.bpl Parametros.bpl Usuarios.bpl Configuracion.bpl FicherosEDI.bpl VentasTerminadas.bpl VentasProceso.bpl ReferenciaGenerica.bpl Recepciones.bpl Devoluciones.bpl Traspasos.bpl Stock.bpl AdminPV.exe AdminPV_Server.exe CargaEDI.exe - - - - diff --git a/Varela/Varela/Source/AdminPVGroup.bdsgroup.local b/Varela/Varela/Source/AdminPVGroup.bdsgroup.local deleted file mode 100644 index 235eceb..0000000 --- a/Varela/Varela/Source/AdminPVGroup.bdsgroup.local +++ /dev/null @@ -1,6 +0,0 @@ - - - - - - diff --git a/Varela/Varela/Source/AdminPVGroup.bpg b/Varela/Varela/Source/AdminPVGroup.bpg deleted file mode 100644 index 722af4b..0000000 --- a/Varela/Varela/Source/AdminPVGroup.bpg +++ /dev/null @@ -1,72 +0,0 @@ -#------------------------------------------------------------------------------ -VERSION = BWS.01 -#------------------------------------------------------------------------------ -!ifndef ROOT -ROOT = $(MAKEDIR)\.. -!endif -#------------------------------------------------------------------------------ -MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** -DCC = $(ROOT)\bin\dcc32.exe $** -BRCC = $(ROOT)\bin\brcc32.exe $** -#------------------------------------------------------------------------------ -PROJECTS = DataAbstract_D7.bpl BaseD7.bpl ControlesBaseD7.bpl Parametros.bpl \ - Usuarios.bpl Configuracion.bpl FicherosEDI.bpl VentasTerminadas.bpl \ - VentasProceso.bpl ReferenciaGenerica.bpl Recepciones.bpl Devoluciones.bpl \ - Traspasos.bpl Stock.bpl AdminPV.exe AdminPV_Server.exe CargaEDI.exe -#------------------------------------------------------------------------------ -default: $(PROJECTS) -#------------------------------------------------------------------------------ - - -AdminPV_Server.exe: Servidor\AdminPV_Server.dpr - $(DCC) - -BaseD7.bpl: Base\BaseD7.dpk - $(DCC) - -Usuarios.bpl: Usuarios\Usuarios.dpk - $(DCC) - -AdminPV.exe: Cliente\AdminPV.dpr - $(DCC) - -Configuracion.bpl: Configuracion\Configuracion.dpk - $(DCC) - -DataAbstract_D7.bpl: DataAbstract_D7\DataAbstract_D7.dpk - $(DCC) - -FicherosEDI.bpl: Modulos\FicherosEDI\Cliente\FicherosEDI.dpk - $(DCC) - -ControlesBaseD7.bpl: ControlesBase\ControlesBaseD7.dpk - $(DCC) - -VentasProceso.bpl: Modulos\VentasProceso\Cliente\VentasProceso.dpk - $(DCC) - -VentasTerminadas.bpl: Modulos\VentasTerminadas\Cliente\VentasTerminadas.dpk - $(DCC) - -CargaEDI.exe: CargaEDI\CargaEDI.dpr - $(DCC) - -ReferenciaGenerica.bpl: Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.dpk - $(DCC) - -Recepciones.bpl: Modulos\Recepciones\Cliente\Recepciones.dpk - $(DCC) - -Devoluciones.bpl: Modulos\Devoluciones\Cliente\Devoluciones.dpk - $(DCC) - -Traspasos.bpl: Modulos\Traspasos\Cliente\Traspasos.dpk - $(DCC) - -Stock.bpl: Modulos\Stock\Cliente\Stock.dpk - $(DCC) - -Parametros.bpl: Modulos\Parametros\Cliente\Parametros.dpk - $(DCC) - - diff --git a/Varela/Varela/Source/Base/BaseD10.bdsproj b/Varela/Varela/Source/Base/BaseD10.bdsproj deleted file mode 100644 index cf4977f..0000000 --- a/Varela/Varela/Source/Base/BaseD10.bdsproj +++ /dev/null @@ -1,673 +0,0 @@ - - - - - - - - - - - - BaseD10.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\Output\Debug\Cliente - ..\Lib - - - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 2 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 2.0.0.0 - - - - - - 1.0.0.0 - - - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - (untitled) - - - - diff --git a/Varela/Varela/Source/Base/BaseD10.dpk b/Varela/Varela/Source/Base/BaseD10.dpk deleted file mode 100644 index a568907..0000000 --- a/Varela/Varela/Source/Base/BaseD10.dpk +++ /dev/null @@ -1,112 +0,0 @@ -package BaseD10; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$RUNONLY} -{$IMPLICITBUILD OFF} - -requires - rtl, - vcl, - vcldb, - GUISDK_D10, - vcljpg, - dbrtl, - dsnap, - vcldb, - PNG_D10, - PngComponentsD10, - JvCoreD10R, - JvStdCtrlsD10R, - JvPageCompsD10R, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - cxExtEditorsD10, - cxGridD10, - cxPageControlD10, - tb2k_D10, - tbx_D10, - vclx, - vclactnband, - designide, - cxExportD10, - adortl, - JvSystemD10R, - dxPSCoreD10, - dxPScxCommonD10, - dxPScxGridLnkD10, - cxIntlPrintSys3D10, - dxBarD10, - dxBarExtItemsD10, - cxIntl5D10, - dxPsPrVwAdvD10, - ccpack10, - JvMMD10R, - JvCtrlsD10R, - tee, - frx10, - fs10, - frxe10, - dxLayoutControlD10, - dxComnD10, - Jcl, - JclVcl, - JvAppFrmD10R, - dxPSLnksD10, - vclshlctrls, - dclcxLibraryD10, - teeui, - fsTee10, - frxTee10, - RemObjects_Core_D10, - DataAbstract_Core_D10; - -contains - uDataModuleBase in 'uDataModuleBase.pas' {dmBase: TDAClientDataModule}, - uEditorBase in 'uEditorBase.pas' {fEditorBase}, - uEditorGridBase in 'uEditorGridBase.pas' {fEditorGridBase}, - uEditorItem in 'uEditorItem.pas' {fEditorItem}, - uDataTableUtils in 'uDataTableUtils.pas', - uEditorUtils in 'uEditorUtils.pas', - uEditorPreview in 'uEditorPreview.pas' {fEditorPreview}, - uViewPreview in 'uViewPreview.pas' {frViewPreview: TFrame}, - uViewBase in 'uViewBase.pas' {frViewBase: TCustomView}, - uViewGridBase in 'uViewGridBase.pas' {frViewGridBase: TCustomView}, - uEditorDBBase in 'uEditorDBBase.pas' {fEditorDBBase: TCustomEditor}, - uEditorDBItem in 'uEditorDBItem.pas' {fEditorDBItem: TCustomEditor}, - uExceptions in 'uExceptions.pas', - uViewBarraSeleccion in 'uViewBarraSeleccion.pas' {frViewBarraSeleccion: TFrame}, - uDBSelectionList in 'uDBSelectionList.pas', - uConfigurarConexion in 'uConfigurarConexion.pas' {fConfigurarConexion}, - uBizInformesBase in 'uBizInformesBase.pas', - uSysFunc in 'uSysFunc.pas', - VARELA_Intf in '..\Servidor\VARELA_Intf.pas', - uViewGrid in 'uViewGrid.pas' {frViewGrid: TCustomView}, - uIntegerList in 'uIntegerList.pas', - schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas', - schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas', - uGridUtils in 'uGridUtils.pas'; - -end. diff --git a/Varela/Varela/Source/Base/BaseD10.drc b/Varela/Varela/Source/Base/BaseD10.drc deleted file mode 100644 index edfdcdc..0000000 --- a/Varela/Varela/Source/Base/BaseD10.drc +++ /dev/null @@ -1,29 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - -/* uConfigurarConexion.dfm */ -/* uDataModuleBase.DFM */ -/* uViewBase.dfm */ -/* uEditorBase.dfm */ -/* uEditorItem.dfm */ -/* uEditorDBBase.dfm */ -/* uViewGridBase.dfm */ -/* uEditorGridBase.dfm */ -/* uViewPreview.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Base\uEditorPreview.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Base\uEditorDBItem.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Base\uViewBarraSeleccion.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Base\uViewGrid.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Base\BaseD10.res */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Base\BaseD10.drf */ diff --git a/Varela/Varela/Source/Base/BaseD10.identcache b/Varela/Varela/Source/Base/BaseD10.identcache deleted file mode 100644 index cb0bec1..0000000 Binary files a/Varela/Varela/Source/Base/BaseD10.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Base/BaseD10.rc b/Varela/Varela/Source/Base/BaseD10.rc deleted file mode 100644 index d9bfd1d..0000000 --- a/Varela/Varela/Source/Base/BaseD10.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 2,0,0,0 -PRODUCTVERSION 2,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "2.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Base/BaseD10.res b/Varela/Varela/Source/Base/BaseD10.res deleted file mode 100644 index 45dc55f..0000000 Binary files a/Varela/Varela/Source/Base/BaseD10.res and /dev/null differ diff --git a/Varela/Varela/Source/Base/uBizInformesBase.pas b/Varela/Varela/Source/Base/uBizInformesBase.pas deleted file mode 100644 index 3a96c41..0000000 --- a/Varela/Varela/Source/Base/uBizInformesBase.pas +++ /dev/null @@ -1,14 +0,0 @@ -unit uBizInformesBase; - -interface - -type - IBizInformesAware = interface - ['{98AD6541-199F-4155-B394-ED0316298759}'] - procedure Preview; - procedure Print; - end; - -implementation - -end. diff --git a/Varela/Varela/Source/Base/uConfigurarConexion.dfm b/Varela/Varela/Source/Base/uConfigurarConexion.dfm deleted file mode 100644 index 5a266e8..0000000 --- a/Varela/Varela/Source/Base/uConfigurarConexion.dfm +++ /dev/null @@ -1,113 +0,0 @@ -object fConfigurarConexion: TfConfigurarConexion - Left = 663 - Top = 468 - ActiveControl = edtServer - AutoScroll = False - Caption = 'Configuraci'#243'n de la conexi'#243'n' - ClientHeight = 149 - ClientWidth = 392 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - Scaled = False - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object bProbar: TButton - Left = 8 - Top = 113 - Width = 121 - Height = 25 - Caption = '&Probar la conexi'#243'n' - TabOrder = 1 - OnClick = bProbarClick - end - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 375 - Height = 97 - Caption = 'Servidor' - TabOrder = 0 - DesignSize = ( - 375 - 97) - object Label1: TLabel - Left = 18 - Top = 28 - Width = 97 - Height = 13 - Caption = 'Nombre del servidor:' - end - object Label2: TLabel - Left = 18 - Top = 60 - Width = 93 - Height = 13 - Caption = 'Puerto de escucha:' - end - object edtServer: TEdit - Left = 136 - Top = 24 - Width = 223 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 0 - end - object edtPort: TEdit - Left = 136 - Top = 56 - Width = 108 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 1 - Text = '8099' - end - end - object bAceptar: TButton - Left = 219 - Top = 113 - Width = 75 - Height = 25 - Caption = '&Aceptar' - Default = True - ModalResult = 1 - TabOrder = 2 - end - object bCancelar: TButton - Left = 307 - Top = 113 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 3 - end - object HTTPChannel: TROWinInetHTTPChannel - ServerLocators = <> - DispatchOptions = [] - ProbeServers = False - ProbeFrequency = 60000 - UserAgent = 'AdminPV' - TargetURL = 'http://localhost:8099/BIN' - Left = 120 - Top = 112 - end - object ROBinMessage: TROBinMessage - Left = 152 - Top = 112 - end - object CoService: TRORemoteService - ServiceName = 'srvLogin' - Message = ROBinMessage - Channel = HTTPChannel - Left = 184 - Top = 112 - end -end diff --git a/Varela/Varela/Source/Base/uConfigurarConexion.pas b/Varela/Varela/Source/Base/uConfigurarConexion.pas deleted file mode 100644 index 035d05a..0000000 --- a/Varela/Varela/Source/Base/uConfigurarConexion.pas +++ /dev/null @@ -1,74 +0,0 @@ -unit uConfigurarConexion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, uROClient, uROWinInetHttpChannel, uRODynamicRequest, - uROServiceComponent, uRORemoteService, uROBinMessage; - -type - TfConfigurarConexion = class(TForm) - bProbar: TButton; - GroupBox1: TGroupBox; - Label1: TLabel; - Label2: TLabel; - edtServer: TEdit; - edtPort: TEdit; - bAceptar: TButton; - bCancelar: TButton; - HTTPChannel: TROWinInetHTTPChannel; - ROBinMessage: TROBinMessage; - CoService: TRORemoteService; - procedure bProbarClick(Sender: TObject); - procedure FormCreate(Sender: TObject); - private - function GetTargetURL: String; - procedure SetTargetURL(const Value: String); - { Private declarations } - public - property TargetURL : String read GetTargetURL write SetTargetURL; - end; - -var - fConfigurarConexion: TfConfigurarConexion; - -implementation - -uses - StrUtils, JclStrings, uDataModuleBase, VARELA_Intf; - -{$R *.dfm} - -{ TfConfigurarConexion } - -function TfConfigurarConexion.GetTargetURL: String; -begin - Result := 'http://' + edtServer.Text + ':' + edtPort.Text + '/bin'; -end; - -procedure TfConfigurarConexion.SetTargetURL(const Value: String); -var - s : String; -begin - s := StrAfter('http://', Value); - s := StrBefore(':', s); - edtServer.Text := s; - - s := StrAfter(edtServer.Text + ':', Value); - s := StrBefore('/bin', s); - edtPort.Text := s; -end; - -procedure TfConfigurarConexion.bProbarClick(Sender: TObject); -begin - if dmBase.HayConexion(TargetURL) then - Application.MessageBox('Conexión válida con el servidor.', 'Información', MB_OK); -end; - -procedure TfConfigurarConexion.FormCreate(Sender: TObject); -begin - HTTPChannel.OnFailure := dmBase.ROChannelFailure; -end; - -end. diff --git a/Varela/Varela/Source/Base/uDBSelectionList.pas b/Varela/Varela/Source/Base/uDBSelectionList.pas deleted file mode 100644 index b5b88b8..0000000 --- a/Varela/Varela/Source/Base/uDBSelectionList.pas +++ /dev/null @@ -1,183 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uDBSelectionList; - -interface - -uses - Classes, DB, cxGridTableView, uDADataTable, uIntegerList, cxGridCustomView; - -type - TRecID = Integer; - TSelectedRowList = class; - - ISelectedRowList = interface - ['{1886B04A-DB0D-40AE-BCAE-DA57CD4CD582}'] - function GetSelectedRows : TSelectedRowList; - property SelectedRows : TSelectedRowList read GetSelectedRows; - end; - - TSelectedRowList = class - private - FDataTable: TDADataTable; - FListRecID : TIntegerList; - function GetCount: Integer; - function GetCurrentRowSelected: Boolean; - function GetItem(Index: Integer): TRecID; - procedure SetCurrentRowSelected(Value: Boolean); - protected - function CurrentRow: TRecID; - function Compare(const Item1, Item2: TRecID): Boolean; - public - constructor Create(ADataTable : TDADataTable); - destructor Destroy; override; - procedure Clear; // free all bookmarks - function Find(const Item: TRecID; var Index: Integer): Boolean; - function IndexOf(const Item: TRecID): Integer; - property Count: Integer read GetCount; - property CurrentRowSelected: Boolean read GetCurrentRowSelected - write SetCurrentRowSelected; - property Items[Index: Integer]: TRecID read GetItem; default; - function LocateItem(const Index : Integer) : Boolean; - end; - - - procedure SeleccionarFilasDesdeGrid(const AView : TcxCustomGridView; - var ASelectedRowList : ISelectedRowList); - - -implementation - -uses - DBConsts, cxGridCustomTableView, cxControls, Math, Variants, Dialogs; - -{ TSelectedRowList } - -constructor TSelectedRowList.Create(ADataTable : TDADataTable); -begin - inherited Create; - FListRecID := TIntegerList.Create; - - FDataTable := ADataTable; -end; - -destructor TSelectedRowList.Destroy; -begin - Clear; - FListRecID.Free; - FDataTable := NIL; - inherited Destroy; -end; - -procedure TSelectedRowList.Clear; -begin - if FListRecID.Count = 0 then - Exit; - FListRecID.Clear; -end; - -function TSelectedRowList.Compare(const Item1, Item2: TRecID): Boolean; -begin - Result := (Item1 = Item2); -end; - -function TSelectedRowList.CurrentRow: TRecID; -begin - if not FDataTable.Active then - raise EDatabaseError.Create(sDataSetClosed); - Result := FDataTable.RecIDValue; -end; - -function TSelectedRowList.GetCurrentRowSelected: Boolean; -var - Index: Integer; -begin - Result := Find(CurrentRow, Index); -end; - -function TSelectedRowList.Find(const Item: TRecID; var Index: Integer): Boolean; -begin - Result := FListRecID.Find(Item, Index) -end; - -function TSelectedRowList.GetCount: Integer; -begin - Result := FListRecID.Count; -end; - -function TSelectedRowList.GetItem(Index: Integer): TRecID; -begin - Result := FListRecID.Integers[Index]; -end; - -function TSelectedRowList.IndexOf(const Item: TRecID): Integer; -var - AIndex : Integer; -begin - Result := -1; - if FListRecID.Find(Item, AIndex) then - Result := AIndex -end; - -procedure TSelectedRowList.SetCurrentRowSelected(Value: Boolean); -var - Index: Integer; - Current: TRecID; -begin - Current := CurrentRow; - if (Find(Current, Index) = Value) then - Exit; - if Value then - FListRecID.Add(Current) - else - FListRecID.Delete(Index); -end; - - - -procedure SeleccionarFilasDesdeGrid(const AView : TcxCustomGridView; - var ASelectedRowList : ISelectedRowList); -var - ADataTable : TDADataTable; - ABookmark : Pointer; - ARecord: TcxCustomGridRecord; - i : Integer; -begin - ADataTable := ASelectedRowList.SelectedRows.FDataTable; - AView.BeginUpdate; - ShowHourglassCursor; - ABookmark := ADataTable.GetBookMark; - try - ASelectedRowList.SelectedRows.Clear; - for i := 0 to TcxCustomGridTableController(AView.Controller).SelectedRecordCount-1 do - begin - ARecord := TcxCustomGridTableController(AView.Controller).SelectedRecords[i]; - if (ARecord is TcxGridDataRow) then - begin - (ARecord as TcxGridDataRow).Focused := True; - ASelectedRowList.SelectedRows.CurrentRowSelected := True; - end; - end; - ADataTable.GotoBookmark(ABookmark); - finally - AView.EndUpdate; - ADataTable.FreeBookmark(ABookmark); - HideHourglassCursor; - end; -end; - - -function TSelectedRowList.LocateItem(const Index: Integer) : Boolean; -begin - if not FDataTable.Active then - raise EDatabaseError.Create(sDataSetClosed); - Result := FDataTable.Locate('RecID', Items[Index], []); -end; - -end. diff --git a/Varela/Varela/Source/Base/uDataModuleBase.dfm b/Varela/Varela/Source/Base/uDataModuleBase.dfm deleted file mode 100644 index 5f633ba..0000000 --- a/Varela/Varela/Source/Base/uDataModuleBase.dfm +++ /dev/null @@ -1,1660 +0,0 @@ -object dmBase: TdmBase - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 352 - Width = 518 - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000002224944415478DA - 95935D48936114C77FCB36584A6064161515DEA441108B240293E8A682246805 - DEA45020F40196505D081242DE94512B8C20169937056914D52E726B6083B114 - D44CD3D51A216BB6656B5FEF677B5FF31D23033DF070CE03CFFFF73F1CCE6362 - 29D1806AD44E4C5A32F5F58FAA8BD5D73DD8465757034D4D4EFA4E8C62000ED7 - 56E997647490DFE131BD2ED9584971D98EB9478D2603D279B39EE6733DC6DD00 - 68E2EF7E07E95F2291688C48629ABDC71DACABD8AD0334E7B420104D24F4A3D5 - DDD707E60087F66C2234D0CECF2F41643987556566676799C9C4387AD18FF964 - 91E178EA522DF73ADC851D1CA85ECD27D77948995861B552844C2A9962303441 - DD051FA22473E5095C735B3972DAC6D3DB016EED7BC9FD47CFE601E57CF3B661 - C966D1E62C880299549A696915B6639D4892A243D6B6AC349C0B00DA0C22EF7B - 484EBDCA015424512491125036D751B1CBAE8BB5330F12459937EF860A01DEA0 - 8BA0FB0E5B154BAE832C810CACDF594F4DD5C17FC45AF6FA87F3800D95022DFD - ADC47E84682CDF8F222A3C9CF1303915E6C3E5495DDC7AE379C14E546F5F9307 - F8E4C7BC187F4BA6344E49D24C6E8A24AD12E65809A1895102CD6386B3F8B793 - C0F0C73CC0196927188E2297651096A7D096D4922D6659DCC2E7AF43F8CE8C70 - F5AEEBFF1D9CF5D889C7230BAE6F696939BDF6D7BAABACA87A567279647C320F - A8B16DA1BBD7B3A47FA5850168EB702C596C6CA2AA2EFA332E187F0080F1503E - 182A98A90000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage2' - 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 = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000011F4944415478DA - 63FCFFFF3F03258091620390394975ABC1A6BD79FB8561D3D4444642E220CB31 - 0C985113C8A0E6D6C4F0E040132321711403408A40367CFCF28DE1E1C3970C7A - DA8A60DB708963350064CBF6938F18966C3EC770FAD425B06DB8C409BA000440 - B68908F330A08B631800D23CB73184E1D9CB4F0C775EFD6598B2641FD8A68208 - 2F864BCF1E33A0CB71BF7AC2B0604101380619571EBDFB7FE7CE730CD9518E60 - D3F79CB8C770E6DA23B0013017609373501062983F3F9F111E4820F0F8C52730 - FDFEED5B30CDC2FC91C1CEDA860197FCFDFD8D8CF040DA77EE39C395DBAF182E - DF7DC370F0C051ACD188AE66901A70F2F27D94B8C666004C0DDC801F3F7F323C - 7DF191E1D78F9F0CCF5F7E40896B9801D8D4800DA0343702001BEF6EF0E3CC7C - BD0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000002234944415478DA - A5934F4814511CC7BF6BBAB0AD97225B2A2B4B88ECB014861241ED2190FE9017 - 2D15843A74E8E0A14D3282608935920E092D7A10A44C25A843497FEDA0EB422D - 2DE6A2F647ADA5C542A6DD76DB6CC79979F3DE34F3CA99C4BAB40F1EEF0DEF7D - 3FDFEFFC783F9BA669C865D8EE0FBDCE89C001473D3BF8473631861FB36FF9BE - 7063199C45BBCC8B4C4FAAAA0C44A5E6ACAA3F67010CF19748000BDF0984440A - C2FC1CF61F0F605DE91EA894E17CAFB2C4B9246F18DD7D03BF0087F76E46FCB9 - 1FDF3EC640A97EAA5164321924A5146A5A22A6A391C0E971724097F7B1053858 - B90633835E40B461A5C38115A010B322C6E2D3A83E1BE6E24B7781D676070A1A - 9A40FAAFA3270A74569D5E04B8F039E4835D96757740210A24710173EA6A941F - BBC69D676E3BF169EB3892E37DC86B6EE3294C805103E1553FB21F9EE800BD58 - 84605E54C04AAA515A51CBC5EE230108D38F7073A402EB7D3EC83D7FFC820108 - C506111BEEC07666D713C81895800DBB1BB0E94D9D2936668DBF180F9E85118A - 4C5880E23205CD431791FA1AC749D70130C2702B1944A73DBA4CECA96BE5F12B - DD6B2D4098DEC1C3A91148ABD228CC1640AF223A94977F7526BFDFC2E8C43B0B - 7043F023369B002D92A0E48BF0CA67B09334C2B5EDD032E7C5B1244153B016E9 - B4601E5E75B7E344633DA2DDF95C3CF0F40577A54CE32BD3D7C9A9F716605FF9 - 16F4DE0B9A80B60BA7CC7DCBE5AE7FF68109F05D09FC7F33E5DACE3F0109DB53 - BED36F80890000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 24 - Top = 16 - Bitmap = {} - end - object TBXSwitcher: TTBXSwitcher - Theme = 'Default' - Left = 24 - Top = 80 - end - object StyleManager: TJvNavPaneStyleManager - Colors.ButtonColorFrom = clWhite - Colors.ButtonColorTo = 12435133 - Colors.ButtonHotColorFrom = 13009540 - Colors.ButtonHotColorTo = 13009540 - Colors.ButtonSelectedColorFrom = 14602190 - Colors.ButtonSelectedColorTo = 14602190 - Colors.SplitterColorFrom = 13026246 - Colors.SplitterColorTo = 9211532 - Colors.DividerColorFrom = 15725551 - Colors.DividerColorTo = 13026246 - Colors.HeaderColorFrom = 8684164 - Colors.HeaderColorTo = 8684164 - Colors.FrameColor = 8684676 - Colors.ToolPanelHeaderColorFrom = clWhite - Colors.ToolPanelHeaderColorTo = 12435133 - Fonts.NavPanelFont.Charset = DEFAULT_CHARSET - Fonts.NavPanelFont.Color = clWindowText - Fonts.NavPanelFont.Height = -13 - Fonts.NavPanelFont.Name = 'Tahoma' - Fonts.NavPanelFont.Style = [] - Fonts.NavPanelHotTrackFont.Charset = DEFAULT_CHARSET - Fonts.NavPanelHotTrackFont.Color = clWindow - Fonts.NavPanelHotTrackFont.Height = -13 - Fonts.NavPanelHotTrackFont.Name = 'Tahoma' - Fonts.NavPanelHotTrackFont.Style = [] - Fonts.DividerFont.Charset = DEFAULT_CHARSET - Fonts.DividerFont.Color = clWindowText - Fonts.DividerFont.Height = -11 - Fonts.DividerFont.Name = 'Tahoma' - Fonts.DividerFont.Style = [] - Fonts.HeaderFont.Charset = DEFAULT_CHARSET - Fonts.HeaderFont.Color = clWindow - Fonts.HeaderFont.Height = -16 - Fonts.HeaderFont.Name = 'Arial' - Fonts.HeaderFont.Style = [fsBold] - Theme = nptCustom - Left = 104 - Top = 80 - end - object ROChannel: TROWinInetHTTPChannel - OnFailure = ROChannelFailure - OnException = ROChannelFailure - UserAgent = 'RemObjects SDK' - TargetURL = 'http://localhost:8099/bin' - Login.Username = 'zvg' - Login.Password = 'zeus' - KeepConnection = True - OnProgress = ROChannelProgress - ServerLocators = <> - DispatchOptions = [] - Left = 330 - Top = 24 - end - object cxIntl: TcxIntl - Connected = True - cxLibrary.CantCreateRegistryKey = 'No se puede crear la llave de registro : \%s' - PageControl2.ImageListIndexError = 'El '#237'ndice (%d) deber'#225' estar entre 0 y %d' - PageControl2.NoBaseImages = 'BaseImages no est'#225' asignado' - PageControl2.NoRegisteredStyles = 'No hay estilos registrados' - PageControl2.PageIndexError = '%d es un valor inv'#225'lido para PageIndex, debe estar entre 0 y %d' - PageControl2.PainterClassError = 'La clase PCPainter es nula' - PageControl2.StandardStyleError = '%s es un estilo est'#225'ndar no soportado' - PageControl2.StyleNameError = '%s es un nombre de estilo no registrado' - PageControl2.TabCountEqualsZero = 'Tabs.Count = 0' - PageControl2.TabIndexError = 'El '#237'ndice de la pesta'#241'a (%d) est'#225' fuera de l'#237'mites' - PageControl2.TabVisibleIndexOutsOfBounds = 'Propiedad TabVisibleIndex (%d) deber'#225' estar entre 0 y %d' - PageControl2.VisibleTabListEmpty = 'No hay pesta'#241'as visibles' - QuantumGrid5.GridRecursiveLevels = 'No se pueden crear niveles recursivos' - QuantumGrid5.GridDeletingConfirmationCaption = 'Confirmar' - QuantumGrid5.GridDeletingFocusedConfirmationText = #191'Borrar registro?' - QuantumGrid5.GridDeletingSelectedConfirmationText = #191'Borrar todos los registros seleccionados?' - QuantumGrid5.GridNoDataInfoText = '' - QuantumGrid5.GridNewItemRowInfoText = 'Haga click aqu'#237' para agregar una nueva l'#237'nea' - QuantumGrid5.GridFilterIsEmpty = '' - QuantumGrid5.GridCustomizationFormCaption = 'Personalizaci'#243'n' - QuantumGrid5.GridCustomizationFormColumnsPageCaption = 'Columnas' - QuantumGrid5.GridGroupByBoxCaption = 'Arrastre una columna aqu'#237' para agrupar por dicha columna' - QuantumGrid5.GridFilterCustomizeButtonCaption = 'Personalizar...' - QuantumGrid5.GridColumnsQuickCustomizationHint = 'Haga click aqu'#237' para seleccionar las columas visibles' - QuantumGrid5.GridCustomizationFormBandsPageCaption = 'Bandas' - QuantumGrid5.GridBandsQuickCustomizationHint = 'Haga click aqu'#237' para seleccionar las bandas visibles' - QuantumGrid5.GridCustomizationFormRowsPageCaption = 'Rows' - QuantumGrid5.GridConverterIntermediaryMissing = 'Omiti'#243' un componente intermediario!' - QuantumGrid5.GridConverterNotExistGrid = 'cxGrid no existe' - QuantumGrid5.GridConverterNotExistComponent = 'El componente no existe' - QuantumGrid5.ImportErrorCaption = 'Error al importar' - QuantumGrid5.NotExistGridView = 'No existe la vista del grid' - QuantumGrid5.NotExistGridLevel = 'No existe un nivel de grid activo' - QuantumGrid5.CantCreateExportOutputFile = 'No se puede crear el archivo de exportaci'#243'n' - QuantumGrid5.EditRepositoryExtLookupComboBoxItem = - 'ExtLookupComboBox|Representa un ultra avanzado control de busque' + - 'da (lookup) usando el QuantumGrid como su control de despliegue' - Navigator.NavigatorHint_First = 'Primer registro' - Navigator.NavigatorHint_Prior = 'Registro anterior' - Navigator.NavigatorHint_PriorPage = 'P'#225'gina anterior' - Navigator.NavigatorHint_Next = 'Siguiente registro' - Navigator.NavigatorHint_NextPage = 'Siguiente p'#225'gina' - Navigator.NavigatorHint_Last = #218'ltimo registro' - Navigator.NavigatorHint_Insert = 'Insertar registro' - Navigator.NavigatorHint_Delete = 'Borrar registro' - Navigator.NavigatorHint_Edit = 'Editar registro' - Navigator.NavigatorHint_Post = 'Grabar edici'#243'n' - Navigator.NavigatorHint_Cancel = 'Cancelar edici'#243'n' - Navigator.NavigatorHint_Refresh = 'Actualizar datos' - Navigator.NavigatorHint_SaveBookmark = 'Guardar Marca' - Navigator.NavigatorHint_GotoBookmark = 'Volver a Marca' - Navigator.NavigatorHint_Filter = 'Filtrar datos' - Navigator.Navigator_DeleteRecordQuestion = #191'Desea borrar este el registro?' - Editors5.EditDateConvertError = 'El valor no se puede convertir a fecha' - Editors5.EditInvalidRepositoryItem = 'Elemento de repositorio no v'#225'lido' - Editors5.EditNumericValueConvertError = 'No se puede convertir a valor num'#233'rico' - Editors5.EditPopupCircularReferencingError = 'Referencia circular no permitida' - Editors5.EditPostError = 'Ocurri'#243' un error durante el grabado del valor de edici'#243'n' - Editors5.EditTimeConvertError = 'No se puede convertir a valor de tiempo' - Editors5.EditValidateErrorText = 'Valor inv'#225'lido. Use la tecla de escape para cancelar cambios' - Editors5.EditValueOutOfBounds = 'Valor fuera de l'#237'mites' - Editors5.EditCheckBoxChecked = 'True' - Editors5.EditCheckBoxUnchecked = 'False' - Editors5.TextTrue = 'True' - Editors5.TextFalse = 'False' - Editors5.BlobButtonOK = '&Aceptar' - Editors5.BlobButtonCancel = '&Cancelar' - Editors5.BlobButtonClose = '&Cerrar' - Editors5.BlobMemo = '(MEMO)' - Editors5.BlobMemoEmpty = '(memo)' - Editors5.BlobPicture = '(IM'#193'GEN)' - Editors5.BlobPictureEmpty = '(im'#225'gen)' - Editors5.MenuItemCaptionCut = 'Cor&tar' - Editors5.MenuItemCaptionCopy = '&Copiar' - Editors5.MenuItemCaptionPaste = '&Pegar' - Editors5.MenuItemCaptionDelete = '&Borrar' - Editors5.MenuItemCaptionLoad = '&Leer...' - Editors5.MenuItemCaptionSave = 'Guardar &Como...' - Editors5.DatePopupClear = 'Limpiar' - Editors5.DatePopupNow = 'Ahora' - Editors5.DatePopupOK = 'Aceptar' - Editors5.DatePopupToday = 'Hoy' - Editors5.DateError = 'Fecha inv'#225'lida' - Editors5.DateToday = 'hoy' - Editors5.DateYesterday = 'ayer' - Editors5.DateTomorrow = 'ma'#241'ana' - Editors5.DateSunday = 'Domingo' - Editors5.DateMonday = 'Lunes' - Editors5.DateTuesday = 'Martes' - Editors5.DateWednesday = 'Mi'#233'rcoles' - Editors5.DateThursday = 'Jueves' - Editors5.DateFriday = 'Viernes' - Editors5.DateSaturday = 'S'#225'bado' - Editors5.DateFirst = 'Primero' - Editors5.DateSecond = 'segundo' - Editors5.DateThird = 'tercero' - Editors5.DateFourth = 'Cuarto' - Editors5.DateFifth = 'Quinto' - Editors5.DateSixth = 'sexto' - Editors5.DateSeventh = 's'#233'ptimo' - Editors5.DateBOM = 'bom' - Editors5.DateEOM = 'eom' - Editors5.DateNow = 'ahora' - Editors5.CalcError = 'Error' - Editors5.HyperLinkPrefix = 'http://' - Editors5.HyperLinkDoubleSlash = '//' - Editors5.EditRepositoryBlobItem = 'BlobEdit|Representa el editor de BLOB' - Editors5.EditRepositoryButtonItem = - 'ButtonEdit|Representa un control de edici'#243'n con controles incrus' + - 'tados' - Editors5.EditRepositoryCalcItem = - 'CalcEdit|Representa un control de edici'#243'n con una ventana de cal' + - 'culadora desplegable' - Editors5.EditRepositoryCheckBoxItem = - 'CheckBox|Representa un control de caja de marca que permite sele' + - 'ccionar una opci'#243'n' - Editors5.EditRepositoryComboBoxItem = 'ComboBox|Representa el editor de la caja combo' - Editors5.EditRepositoryCurrencyItem = - 'CurrencyEdit|Representa un editor que habilita la edici'#243'n de val' + - 'ores monetarios' - Editors5.EditRepositoryDateItem = - 'DateEdit|Representa un control de edici'#243'n con un calendario desp' + - 'legable' - Editors5.EditRepositoryHyperLinkItem = 'HyperLink|Representa un editor de texto de hiperv'#237'nculos' - Editors5.EditRepositoryImageComboBoxItem = - 'ImageComboBox|Representa un editor que muestra una lista de im'#225'g' + - 'enes y texto en la ventana desplegable' - Editors5.EditRepositoryImageItem = 'Image|Representa un editor de im'#225'genes' - Editors5.EditRepositoryLookupComboBoxItem = 'LookupComboBox|Representa una caja de b'#250'squeda' - Editors5.EditRepositoryMaskItem = 'MaskEdit|Representa un control de edici'#243'n gen'#233'rico con m'#225'scara' - Editors5.EditRepositoryMemoItem = - 'Memo|Representa un control de edici'#243'n que permite editar datos m' + - 'emo' - Editors5.EditRepositoryMRUItem = - 'MRUEdit|Representa un editor de texto mostrando la lista de los ' + - 'elementos m'#225's recientemente usados (MRU) en una ventana desplega' + - 'ble' - Editors5.EditRepositoryPopupItem = - 'PopupEdit|Representa un control de edici'#243'n con una lista despleg' + - 'able' - Editors5.EditRepositorySpinItem = 'SpinEdit|Representa un editor de incrementos/decrementos (spin)' - Editors5.EditRepositoryRadioGroupItem = 'RadioGroup|Represents a group of radio buttons' - Editors5.EditRepositoryTextItem = 'TextEdit|Representa un editor de texto de l'#237'nea sencilla' - Editors5.EditRepositoryTimeItem = 'TimeEdit|Representa un editor mostrando valores de tiempo' - Editors5.RegExprLine = 'L'#237'nea' - Editors5.RegExprChar = 'Char' - Editors5.RegExprNotAssignedSourceStream = 'No se ha asignado el stream fuente' - Editors5.RegExprEmptySourceStream = 'El stream or'#237'gen est'#225' vac'#237'o' - Editors5.RegExprCantUsePlusQuantifier = 'El cuantificador '#39'+'#39' no puede aplicarse aqu'#237 - Editors5.RegExprCantUseStarQuantifier = 'El cuantificador '#39'*'#39' no puede aplicarse aqu'#237 - Editors5.RegExprCantCreateEmptyAlt = 'La alternativa no debe estar vac'#237'a' - Editors5.RegExprCantCreateEmptyBlock = 'El bloque no debe estar vac'#237'o' - Editors5.RegExprIllegalSymbol = 'S'#237'mbolo no permitido '#39'%s'#39 - Editors5.RegExprIllegalQuantifier = 'Cuantificador no permitido '#39'%s'#39 - Editors5.RegExprNotSupportQuantifier = 'El par'#225'metro cuantificador no es soportado' - Editors5.RegExprIllegalIntegerValue = 'Valor entero no permitido' - Editors5.RegExprTooBigReferenceNumber = 'N'#250'mero de referencia demasiado grande' - Editors5.RegExprCantCreateEmptyEnum = 'No puedo crear enumeraci'#243'n vac'#237'a' - Editors5.RegExprSubrangeOrder = 'El caracter de inicio del subrango debe ser menor al de fin' - Editors5.RegExprHexNumberExpected0 = 'Se esperaba n'#250'mero Hexadecimal' - Editors5.RegExprHexNumberExpected = 'N'#250'mero Hexadecimal esperado pero encontr'#243' '#39'%s'#39 - Editors5.RegExprMissing = 'Falta '#39'%s'#39 - Editors5.RegExprUnnecessary = 'Innecesario '#39'%s'#39 - Editors5.RegExprIncorrectSpace = 'Espacio incorrecto despu'#233's de '#39'\'#39 - Editors5.RegExprNotCompiled = 'Expresi'#243'n regular no compila' - Editors5.RegExprIncorrectParameterQuantifier = 'Cuantificador de par'#225'metros incorrecto' - Editors5.RegExprCantUseParameterQuantifier = 'The parameter quantifier cannot be applied here' - Editors5.MaskEditRegExprError = 'Errores en expresiones regulares:' - Editors5.MaskEditInvalidEditValue = 'El valor de edici'#243'n es inv'#225'lido' - Editors5.MaskEditNoMask = 'Ninguno' - Editors5.MaskEditIllegalFileFormat = 'Formato de archivo ilegal' - Editors5.MaskEditEmptyMaskCollectionFile = 'El archivo de colecci'#243'n de m'#225'scaras est'#225' vac'#237'o' - Editors5.MaskEditMaskCollectionFiles = 'Archivos de colecci'#243'n de m'#225'scaras' - Editors5.SpinEditInvalidNumericValue = 'Valor num'#233'rico no v'#225'lido' - Datacontroller.DataReadError = 'Error de lectura en or'#237'gen de datos' - Datacontroller.DataWriteError = 'Error de escritura en or'#237'gen de datos (stream)' - Datacontroller.DataItemExistError = 'El elemento ya existe' - Datacontroller.DataRecordIndexError = #205'ndice de registro fuera de rango' - Datacontroller.DataItemIndexError = #205'ndice de elemento fuera de rango' - Datacontroller.DataProviderModeError = 'La operaci'#243'n no es soportada en modo de proveedor (provider)' - Datacontroller.DataInvalidStreamFormat = 'Origen de datos (Stream) inv'#225'lido' - Datacontroller.DataRowIndexError = #205'ndice del elemento de fila fuera de rango' - Datacontroller.DataCustomDataSourceInvalidCompare = 'Instrucci'#243'n GetInfoForCompare no implementada' - Datacontroller.DBDetailFilterControllerNotFound = 'DetailFilterController no encontrado' - Datacontroller.DBNotInGridMode = 'La controladora de datos no est'#225' en modo de Grid' - Datacontroller.DBKeyFieldNotFound = 'Campo llave no encontrado' - Filter.FilterOperatorEqual = 'igual' - Filter.FilterOperatorNotEqual = 'no es igual' - Filter.FilterOperatorLess = 'es menor que' - Filter.FilterOperatorLessEqual = 'es menor o igual que' - Filter.FilterOperatorGreater = 'es mayor que' - Filter.FilterOperatorGreaterEqual = 'es mayor o igual que' - Filter.FilterOperatorLike = 'como' - Filter.FilterOperatorNotLike = 'no es como' - Filter.FilterOperatorBetween = 'entre' - Filter.FilterOperatorNotBetween = 'no entre' - Filter.FilterOperatorInList = 'en' - Filter.FilterOperatorNotInList = 'no en' - Filter.FilterOperatorYesterday = 'es ayer' - Filter.FilterOperatorToday = 'es hoy' - Filter.FilterOperatorTomorrow = 'es ma'#241'ana' - Filter.FilterOperatorLastWeek = 'es '#250'ltima semana' - Filter.FilterOperatorLastMonth = 'es '#250'ltimo mes' - Filter.FilterOperatorLastYear = 'es a'#241'o pasado' - Filter.FilterOperatorThisWeek = 'es esta semana' - Filter.FilterOperatorThisMonth = 'es este mes' - Filter.FilterOperatorThisYear = 'es este a'#241'o' - Filter.FilterOperatorNextWeek = 'es semana siguiente' - Filter.FilterOperatorNextMonth = 'es mes siguiente' - Filter.FilterOperatorNextYear = 'es a'#241'o pr'#243'ximo' - Filter.FilterAndCaption = 'y' - Filter.FilterOrCaption = 'o' - Filter.FilterNotCaption = 'no' - Filter.FilterBlankCaption = 'vac'#237'o' - Filter.FilterOperatorIsNull = 'es vac'#237'o' - Filter.FilterOperatorIsNotNull = 'no es vac'#237'o' - Filter.FilterOperatorBeginsWith = 'comienza con' - Filter.FilterOperatorDoesNotBeginWith = 'no comienza con' - Filter.FilterOperatorEndsWith = 'termina con' - Filter.FilterOperatorDoesNotEndWith = 'no termina con' - Filter.FilterOperatorContains = 'contiene' - Filter.FilterOperatorDoesNotContain = 'no contiene' - Filter.FilterBoxAllCaption = '(Todos)' - Filter.FilterBoxCustomCaption = '(Personalizado...)' - Filter.FilterBoxBlanksCaption = '(Vac'#237'os)' - Filter.FilterBoxNonBlanksCaption = '(No vac'#237'os)' - Filter.FilterBoolOperatorAnd = 'AND' - Filter.FilterBoolOperatorOr = 'OR' - Filter.FilterBoolOperatorNotAnd = 'NOT AND' - Filter.FilterBoolOperatorNotOr = 'NOT OR' - Filter.FilterRootButtonCaption = 'Filtro' - Filter.FilterAddCondition = 'Agregar &Condici'#243'n' - Filter.FilterAddGroup = 'Agregar &Grupo' - Filter.FilterRemoveRow = '&Remover Fila' - Filter.FilterClearAll = 'Limpiar &Todo' - Filter.FilterFooterAddCondition = 'Agregar una nueva condici'#243'n' - Filter.FilterGroupCaption = 'aplica a las siguientes condiciones' - Filter.FilterRootGroupCaption = '' - Filter.FilterControlNullString = '' - Filter.FilterErrorBuilding = 'No se puede construir filtro desde el or'#237'gen' - Filter.FilterDialogCaption = 'Filtro Personalizado' - Filter.FilterDialogInvalidValue = 'Valor inv'#225'lido' - Filter.FilterDialogUse = 'Usar' - Filter.FilterDialogSingleCharacter = 'para representar un caracter sencillo' - Filter.FilterDialogCharactersSeries = 'para representar cualquier serie de caracteres' - Filter.FilterDialogOperationAnd = 'Y' - Filter.FilterDialogOperationOr = 'O' - Filter.FilterDialogRows = 'Mostrar filas donde:' - Filter.FilterControlDialogCaption = 'Constructor de Filtro' - Filter.FilterControlDialogNewFile = 'sinnombre.flt' - Filter.FilterControlDialogOpenDialogCaption = 'Abrir un filtro existente' - Filter.FilterControlDialogSaveDialogCaption = 'Grabar el filtro activo a archivo' - Filter.FilterControlDialogActionSaveCaption = '&Guardar...' - Filter.FilterControlDialogActionOpenCaption = '&Abrir...' - Filter.FilterControlDialogActionApplyCaption = '&Aplicar' - Filter.FilterControlDialogActionOkCaption = 'Aceptar' - Filter.FilterControlDialogActionCancelCaption = 'Cancelar' - Filter.FilterControlDialogFileExt = 'flt' - Filter.FilterControlDialogFileFilter = 'Filtros (*.flt)|*.flt' - GridPopupMenu.GridNone = 'Ninguno' - GridPopupMenu.GridSortColumnAsc = 'Ordenar Ascendente' - GridPopupMenu.GridSortColumnDesc = 'Ordenar Descendente' - GridPopupMenu.GridClearSorting = 'Clear Sorting' - GridPopupMenu.GridGroupByThisField = 'Agrupar por este campo' - GridPopupMenu.GridRemoveThisGroupItem = 'Remover del grupo' - GridPopupMenu.GridGroupByBox = 'Panel "Agrupar por"' - GridPopupMenu.GridAlignmentSubMenu = 'Alineaci'#243'n' - GridPopupMenu.GridAlignLeft = 'Alineaci'#243'n Izquierda' - GridPopupMenu.GridAlignRight = 'Alineaci'#243'n Derecha' - GridPopupMenu.GridAlignCenter = 'Alineaci'#243'n Centrada' - GridPopupMenu.GridRemoveColumn = 'Remover esta columna' - GridPopupMenu.GridFieldChooser = 'Selector de campos' - GridPopupMenu.GridBestFit = 'Mejor distribuci'#243'n' - GridPopupMenu.GridBestFitAllColumns = 'Mejor distribuci'#243'n (Todas las columnas)' - GridPopupMenu.GridShowFooter = 'Pie' - GridPopupMenu.GridShowGroupFooter = 'Pies de grupo' - GridPopupMenu.GridSumMenuItem = 'Sumar' - GridPopupMenu.GridMinMenuItem = 'M'#237'nimo' - GridPopupMenu.GridMaxMenuItem = 'M'#225'ximo' - GridPopupMenu.GridCountMenuItem = 'Contar' - GridPopupMenu.GridAvgMenuItem = 'Promedio' - GridPopupMenu.GridNoneMenuItem = 'Ninguno' - GridExport.UnsupportedExport = 'Tipo de exportaci'#243'n no soportado: %1' - GridExport.StyleManagerKill = - 'El administrador de estilo esta siendo utilizado y no puede ser ' + - 'liberado en este momento' - GridExport.StyleManagerCreate = 'No se puede crear administrador de estilo' - GridExport.ExportToHtml = 'Exportar a p'#225'gina Web (*.html)' - GridExport.ExportToXml = 'Exportar a documento XML (*.xml)' - GridExport.ExportToText = 'Exportar a formato de texto (*.txt)' - GridExport.EmptyExportCache = 'Cache de exportaci'#243'n vac'#237'o' - GridExport.IncorrectUnion = 'Uni'#243'n de celdas incorrecta' - GridExport.IllegalWidth = 'Ancho de columna ilegal' - GridExport.InvalidColumnRowCount = 'Conteo de columna o fila inv'#225'lido' - GridExport.IllegalHeight = 'Alto de fila ilegal' - GridExport.InvalidColumnIndex = 'El '#237'ndice de columna %d fuera de l'#237'mites' - GridExport.InvalidRowIndex = 'El '#237'ndice de fila %d est'#225' fuera de l'#237'mites' - GridExport.InvalidStyleIndex = #205'ndice de estilo %d inv'#225'lido' - GridExport.ExportToExcel = 'Exportar a MS Excel (*.xls)' - GridExport.WorkbookWrite = 'Error al escribir el archivo XLS' - GridExport.InvalidCellDimension = 'Dimensi'#243'n de celda inv'#225'lida' - GridExport.BoolTrue = 'True' - GridExport.BoolFalse = 'False' - Translate.cxLibrary = True - Translate.PageControl2 = False - Translate.QuantumGrid5 = True - Translate.Editors5 = True - Translate.Datacontroller = True - Translate.Filter = True - Translate.GridPopupMenu = True - Translate.GridExport = True - Translate.Navigator = True - Version = '5.0' - Left = 104 - Top = 16 - end - object cxIntlPrintSys3: TcxIntlPrintSys3 - Connected = True - Version = '3.0' - BtnOK = 'Aceptar' - BtnOKAccelerated = '&Aceptar' - BtnCancel = 'Cancelar' - BtnClose = 'Cerrar' - BtnApply = '&Aplicar' - BtnHelp = 'A&yuda' - BtnFix = '&Arreglar' - BtnNew = '&Nuevo...' - BtnIgnore = '&Ignorar' - BtnYes = '&S'#237 - BtnNo = '&No' - BtnEdit = '&Editar...' - BtnReset = '&Restaurar' - BtnAdd = '&A'#241'adir' - BtnAddComposition = 'A'#241'adir &Comparativa' - BtnDefault = '&Defecto...' - BtnDelete = '&Borrar...' - BtnDescription = '&Descripci'#243'n...' - BtnCopy = '&Copiar...' - BtnYesToAll = 'S'#237' a &Todos' - BtnRestoreDefaults = '&Rest.Defecto' - BtnRestoreOriginal = 'Restaurar &Original' - BtnTitleProperties = 'Prop. del T'#237'tulo...' - BtnProperties = 'P&ropiedades...' - BtnNetwork = 'R&ed...' - BtnBrowse = '&Hojear...' - BtnPageSetup = 'Config. P'#225'&gina...' - BtnPrintPreview = 'Vista Pre&via...' - BtnPreview = '&Ver...' - BtnPrint = 'Imprimir...' - BtnOptions = '&Opciones...' - BtnStyleOptions = 'Opciones de estilo...' - BtnDefinePrintStyles = '&Definir Estilos...' - BtnPrintStyles = 'Estilos de Imp.' - BtnBackground = 'Fondo' - BtnShowToolBar = 'Mostrar &Herramientas' - BtnDesign = 'D&ise'#241'o...' - BtnMoveUp = 'Mover &Arriba' - BtnMoveDown = 'Mover Aba&jo' - BtnMoreColors = '&M'#225's Colores...' - BtnFillEffects = 'Efectos de &Relleno...' - BtnNoFill = '&Sin Relleno' - BtnAutomatic = '&Autom'#225'tico' - BtnNone = '&Ninguno' - BtnOtherTexture = 'Otras Te&xturas...' - BtnInvertColors = 'I&nvertir Colores' - BtnSelectPicture = 'Se&leccionar Imagen...' - EditReports = 'Editar Informes' - Composition = 'Composici'#243'n' - ReportTitleDlgCaption = 'T'#237'tulo del Informe' - Mode = '&Modo:' - Text = '&Texto' - Properties = '&Propiedades' - AdjustOnScale = '&Ajustar Escala' - TitleModeNone = 'Ninguno' - TitleModeOnEveryTopPage = 'En Cada P'#225'gina' - TitleModeOnFirstPage = 'En Primera P'#225'gina' - EditDescription = 'Editar Descripci'#243'n' - Rename = 'Reno&mbrar' - SelectAll = 'Seleccionar Todo' - AddReport = 'A'#241'adir Informe' - AddAndDesignReport = 'A'#241'adir y D&ise'#241'ar Informe...' - NewCompositionCaption = 'Nueva Composici'#243'n' - Name0 = '&Nombre:' - Caption = '&T'#237'tulo:' - AvailableSources = '&Fuente(s) Disponible(s)' - OnlyComponentsInActiveForm = 'S'#243'lamente Componentes en Formulario &Activo' - OnlyComponentsWithoutLinks = 'S'#243'lamente Componentes &sin Enlaces Existentes' - ItemName = 'Nombre' - ItemDescription = 'Descripci'#243'n' - ConfirmDeleteItem = 'Quiere borrar los siguientes elementos: %s ?' - AddItemsToComposition = 'A'#241'adir Elementos a la Composici'#243'n' - HideAlreadyIncludedItems = 'Ocultar Elementos Ya &Incluidas' - AvailableItems = 'Elementos D&isponibles' - Items = '&Elementos' - Enable = '&Habilitar' - Options = 'Opciones' - Show = 'Mostrar' - PaintItemsGraphics = '&Pintar Elementos Gr'#225'ficos' - Description = 'Descripci'#243'n:' - NewReport = 'Nuevo Informe' - OnlySelected = 'S'#243'lo &Seleccionados' - ExtendedSelect = 'Selecci'#243'n &Extendida' - IncludeFixed = '&Incluir Fijos' - Fonts = 'Fuentes' - BtnFont = 'Fue&nte...' - BtnEvenFont = 'Fuente &Par...' - BtnOddFont = 'Fuente &Impar...' - BtnFixedFont = 'Fuente F&ijo...' - BtnGroupFont = 'Fuente de Gru&po...' - BtnChangeFont = 'Cambiar Fue&nte...' - Font = 'Fuente' - OddFont = 'Fuente Impar' - EvenFont = 'Fuente Par' - PreviewFont = 'Fuente Vista Prev.' - CaptionNodeFont = 'Fuente T'#237'tulo del Nivel' - GroupNodeFont = 'Fuente T'#237'tulos de Grupo' - GroupFooterFont = 'Fuente Pies de Grupo' - HeaderFont = 'Fuente Cabecera' - FooterFont = 'Fuente Pie' - BandFont = 'Fuente Groups' - Transparent = '&Transparente' - FixedTransparent = 'Transparente Fijo' - CaptionTransparent = 'T'#237'tulo Transparente' - GroupTransparent = 'Grupo Transparente' - GraphicAsTextValue = '(GRAPHIC)' - Colors = 'Colores' - Color = 'Co&lor:' - OddColor = 'Co&lor Impar:' - EvenColor = 'Color Par:' - PreviewColor = 'Color V.&Previa:' - BandColor = 'Color &Grupos:' - LevelCaptionColor = 'Color T'#237'tulo Ni&vel:' - HeaderColor = 'Color Cab&ecera:' - GroupNodeColor = 'Color &Nodo Grupo:' - GroupFooterColor = 'Color Pie &Grupo:' - FooterColor = 'Color P&ie:' - FixedColor = 'Color F&ijo:' - GroupColor = 'Color Gru&po:' - CaptionColor = 'Color T'#237'tulo:' - GridLinesColor = 'Color L'#237'nea &Rejilla:' - Bands = '&Grupos' - LevelCaptions = 'T'#237'tulo Niveles' - Headers = 'Cab&eceras' - Footers = 'P&ies&' - GroupFooters = 'Pies de &Grupos' - Preview = 'Vista Pre&via' - PreviewLineCount = 'N'#250'm.L'#237'neas V.Previa:' - AutoCalcPreviewLineCount = 'A&uto-Calcular L'#237'neas V.Previa' - Grid = 'Re&jilla&' - NodesGrid = '&Nodos de Rejilla' - GroupFooterGrid = 'Rejilla de Gru&pos Pie' - StateImages = 'Imagenes de E&stado' - Images = '&Imagenes' - TextAlign = '&Alineaci'#243'n Texto' - TextAlignHorz = 'Hori&zontal' - TextAlignVert = '&Vertical' - TextAlignLeft = 'Izquierda' - TextAlignCenter = 'Centrado' - TextAlignRight = 'Derecha' - TextAlignTop = 'Superior' - TextAlignVCenter = 'Centrado' - TextAlignBottom = 'Inferior' - BorderLines = 'L'#237'neas de &Borde' - HorzLines = 'L'#237'neas Hori&zontales' - VertLines = 'L'#237'neas &Verticales' - FixedHorzLines = 'L'#237'neas Horizontales Fi&jas' - FixedVertLines = 'L'#237'neas Verticales Fij&as' - FlatCheckMarks = 'Cajas de Verificaci'#243'n P&lanas' - CheckMarksAsText = '&Mostrar Cajas Verificaci'#243'n como Text' - RowAutoHeight = 'Altura &Fila Auto.' - EndEllipsis = '&Puntos Suspens.' - DrawBorder = '&Dibujar Borde' - FullExpand = '&Expandir Todo' - BorderColor = 'Color &Borde:' - AutoNodesExpand = 'Expandir N&odos' - ExpandLevel = 'Expandir &Niveles:' - FixedRowOnEveryPage = 'Filas Fijas en &Cada P'#225'gina' - DrawMode = '&Modo Dibujo:' - DrawModeStrict = 'Estricto' - DrawModeOddEven = 'Modo Filas Par/Impar' - DrawModeChess = 'Modo '#39'Ajedrez'#39 - DrawModeBorrow = 'Prestar de Fuente' - ThreeDEffects = 'Efectos 3D' - Use3DEffects = 'Usar Efectos &3D' - Soft3D = '3D "Suave"' - Behaviors = 'Comportamiento' - Miscellaneous = 'Miscelaneo' - OnEveryPage = 'En Cada P'#225'gina' - NodeExpanding = 'Expansi'#243'n de Nodos' - Selection = 'Selecci'#243'n' - NodeAutoHeight = 'Altura &Nodo Auto.' - TransparentGraphics = 'Gr'#225'ficos &Transparentes' - AutoWidth = 'An&chura Auto.' - DisplayGraphicsAsText = 'Mostrar Gr'#225'fico Como &Texto' - TransparentColumnGraphics = '&Gr'#225'ficos Transparentes' - BandsOnEveryPage = 'Grupos En C&ada P'#225'gina' - HeadersOnEveryPage = 'Cabeceras en Cada &P'#225'gina' - FootersOnEveryPage = 'Pies en Ca&da P'#225'gina' - Graphics = 'Gr'#225'ficos' - OutOfResources = 'Out of Resources' - FileAlreadyExists = 'Fichero "%s" Ya Existe.' - ConfirmOverWrite = 'Fichero "%s" ya existe. '#191'Sobreescribir?' - InvalidFileName = 'Nombre No V'#225'lido "%s"' - RequiredFileName = 'Entrar nombre de fichero.' - OutsideMarginsMessage = - 'Uno o m'#225's margenes est'#225'n fuera del area de impresi'#243'n de la p'#225'gin' + - 'a.' - OutsideMarginsMessage2 = - 'Uno o m'#225's margenes est'#225'n fuera del area de impresi'#243'n de la p'#225'gin' + - 'a.' - InvalidMarginsMessage = 'Uno o m'#225's margenes tiene valores no v'#225'lidos.' - InvalidMargins = 'Uno o m'#225's valores de los margenes no es v'#225'lido' - OutsideMargins = - 'Uno o m'#225's margenes se ha establecido fuera del area de impresi'#243'n' + - ' de la p'#225'gina' - ThereAreNowItemsForShow = 'No existen elementos en '#233'sta vista' - PageBackground = 'Fondo de P'#225'gina' - PenColor = 'Color del L'#225'piz' - FontColor = 'Color del Fuente' - BrushColor = 'Color de la Brocha' - HighLight = 'HighLight' - ColorBlack = 'Negro' - ColorDarkRed = 'Rojo Oscuro' - ColorRed = 'Rojo' - ColorPink = 'Rosa' - ColorRose = 'Rosado' - ColorBrown = 'Marr'#243'n' - ColorOrange = 'Naranja' - ColorLightOrange = 'Naranja Claro' - ColorGold = 'Oro' - ColorTan = 'Dorado' - ColorOliveGreen = 'Verde Oliva' - ColorDrakYellow = 'Amarillo Oscuro' - ColorLime = 'Lima' - ColorYellow = 'Amarillo' - ColorLightYellow = 'Amarillo Claro' - ColorDarkGreen = 'Verde Oscuro' - ColorGreen = 'Verde' - ColorSeaGreen = 'Verde Mar' - ColorBrighthGreen = 'Verde Florecente' - ColorLightGreen = 'Verde Claro' - ColorDarkTeal = 'VerdeAzul Oscuro' - ColorTeal = 'VerdeAzul' - ColorAqua = 'Aqua' - ColorTurquoise = 'Turquesa' - ColorLightTurquoise = 'Turquesa Claro' - ColorDarkBlue = 'Azul Oscuro' - ColorBlue = 'Azul' - ColorLightBlue = 'Azul Claro' - ColorSkyBlue = 'Azul Cielo' - ColorPaleBlue = 'Azul P'#225'lido' - ColorIndigo = 'Indigo' - ColorBlueGray = 'Azul Gris' - ColorViolet = 'Violeta' - ColorPlum = 'Granate' - ColorLavender = 'Lav'#225'nder' - ColorGray80 = 'Gris-80%' - ColorGray50 = 'Gris-50%' - ColorGray40 = 'Gris-40%' - ColorGray25 = 'Gris-25%' - ColorWhite = 'Blanco' - Texture = '&Textura' - Pattern = '&Dibujo' - Picture = '&Im'#225'gen' - Foreground = '&Primer Plano' - Background = '&Fondo' - Sample = 'Ejemplo:' - FEFCaption = 'Efectos de Relleno' - PaintMode = '&Modo Pintar' - PaintModeCenter = 'Centrar' - PaintModeStretch = 'Estirar' - PaintModeTile = 'Mosaico' - PaintModeProportional = 'Proporcional' - PatternGray5 = '5%' - PatternGray10 = '10%' - PatternGray20 = '20%' - PatternGray25 = '25%' - PatternGray30 = '30%' - PatternGray40 = '40%' - PatternGray50 = '50%' - PatternGray60 = '60%' - PatternGray70 = '70%' - PatternGray75 = '75%' - PatternGray80 = '80%' - PatternGray90 = '90%' - PatternLightDownwardDiagonal = 'Light downward diagonal' - PatternLightUpwardDiagonal = 'Light upward diagonal' - PatternDarkDownwardDiagonal = 'Dark downward diagonal' - PatternDarkUpwardDiagonal = 'Dark upward diagonal' - PatternWideDownwardDiagonal = 'Wide downward diagonal' - PatternWideUpwardDiagonal = 'Wide upward diagonal' - PatternLightVertical = 'Light vertical' - PatternLightHorizontal = 'Light horizontal' - PatternNarrowVertical = 'Narrow vertical' - PatternNarrowHorizontal = 'Narrow horizontal' - PatternDarkVertical = 'Dark vertical' - PatternDarkHorizontal = 'Dark horizontal' - PatternDashedDownward = 'Dashed downward' - PatternDashedUpward = 'Dashed upward' - PatternDashedVertical = 'Dashed vertical' - PatternDashedHorizontal = 'Dashed horizontal' - PatternSmallConfetti = 'Small confetti' - PatternLargeConfetti = 'Large confetti' - PatternZigZag = 'Zig zag' - PatternWave = 'Wave' - PatternDiagonalBrick = 'Diagonal brick' - PatternHorizantalBrick = 'Horizontal brick' - PatternWeave = 'Weave' - PatternPlaid = 'Plaid' - PatternDivot = 'Divot' - PatternDottedGrid = 'Dottedgrid' - PatternDottedDiamond = 'Dotted diamond' - PatternShingle = 'Shingle' - PatternTrellis = 'Trellis' - PatternSphere = 'Sphere' - PatternSmallGrid = 'Small grid' - PatternLargeGrid = 'Large grid' - PatternSmallCheckedBoard = 'Small checked board' - PatternLargeCheckedBoard = 'Large checked board' - PatternOutlinedDiamond = 'Outlined diamond' - PatternSolidDiamond = 'Solid diamond' - TextureNewSprint = 'Newsprint' - TextureGreenMarble = 'Green marble' - TextureBlueTissuePaper = 'Blue tissue paper' - TexturePapyrus = 'Papyrus' - TextureWaterDroplets = 'Water droplets' - TextureCork = 'Cork' - TextureRecycledPaper = 'Recycled paper' - TextureWhiteMarble = 'White marble' - TexturePinkMarble = 'Pink marble' - TextureCanvas = 'Canvas' - TexturePaperBag = 'Paper bag' - TextureWalnut = 'Walnut' - TextureParchment = 'Parchment' - TextureBrownMarble = 'Brown marble' - TexturePurpleMesh = 'Purple mesh' - TextureDenim = 'Denim' - TextureFishFossil = 'Fish fossil' - TextureOak = 'Oak' - TextureStationary = 'Stationary' - TextureGranite = 'Granite' - TextureBouquet = 'Bouquet' - TextureWonenMat = 'Woven mat' - TextureSand = 'Sand' - TextureMediumWood = 'Medium wood' - FSPCaption = 'Vista de Im'#225'gen' - Width = 'Altura' - Height = 'Altura' - BrushDlgCaption = 'Propiedades de la Brocha' - Style = 'E&stilo:' - ENFNCaption = 'Escoge Nombre de Fichero' - EnterNewFileName = 'Introduzca Nuevo Nombre de Fichero' - DefinePrintStylesCaption = 'Definir Estilos de Impresi'#243'n' - DefinePrintStylesTitle = 'E&stilos de Impresi'#243'n' - DefinePrintStylesWarningDelete = #191' Desea borrar "%s" ?' - DefinePrintStylesWarningClear = #191'Desea borrar todos los estilos existentes?' - Clear = 'E&liminar...' - CustomSize = 'Tama'#241'o Personalizado' - DefaultTray = 'Bandeja de Entrada' - InvalidPrintDevice = 'La impresora seleccionada no es v'#225'lida' - NotPrinting = 'La impresora no est'#225' imprimiendo' - Printing = 'Imprimiendo' - DeviceOnPort = '%s en %s' - PrinterIndexError = #205'ndice de Impresora fueera de rango' - NoDefaultPrintDevice = 'No hay ninguna impresora seleccionada' - AutoTextDialogCaption = 'Editar Entidades AutoTexto' - EnterAutoTextEntriesHere = 'Entrar Entidades A&utoTexto Aqu'#237':' - PrintDialogCaption = 'Imprimir' - PrintDialogPrinter = 'Impresora' - PrintDialogName = '&Nombre:' - PrintDialogStatus = 'Estado:' - PrintDialogType = 'Tipo:' - PrintDialogWhere = 'D'#243'nde:' - PrintDialogComment = 'Comentario:' - PrintDialogPrintToFile = 'A &Fichero' - PrintDialogPageRange = 'Rango de P'#225'g.' - PrintDialogAll = '&Todas' - PrintDialogCurrentPage = 'P'#225'g. A&ctual' - PrintDialogSelection = '&Selecci'#243'n' - PrintDialogPages = '&P'#225'ginas:' - PrintDialogRangeLegend = 'Entre el n'#250'mero de p'#225'gina o un rango de p'#225'ginas' - PrintDialogCopies = 'Copias' - PrintDialogNumberOfPages = 'N&'#250'mero de P'#225'g.:' - PrintDialogNumberOfCopies = 'N'#250'mero de &Copias:' - PrintDialogCollateCopies = 'In&tercalar Copias' - PrintDialogAllPages = 'Todas' - PrintDialogEvenPages = 'Pares' - PrintDialogOddPages = 'Impares' - PrintDialogPrintStyles = 'Est&ilos Impresi'#243'n' - PrintDialogOpenDlgTitle = 'Elije un Fichero' - PrintDialogOpenDlgAllFiles = 'Todos los Ficheros' - PrintDialogOpenDlgPrinterFiles = 'Ficheros de Impresora' - PrintDialogPageNumbersOutOfRange = 'N'#250'mero de p'#225'gina fuera de rango (%d - %d)' - PrintDialogInvalidPageRanges = 'Rango de p'#225'ginas no v'#225'lido' - PrintDialogRequiredPageNumbers = 'Introduzca n'#250'meros de p'#225'ginas' - PrintDialogNoPrinters = 'No printers are installed.' - PrintDialogInPrintingState = 'La impresora est'#225' ocupado.' - PrintDialogPSPaused = 'Pausado' - PrintDialogPSPendingDeletion = 'Pendiente Borrar' - PrintDialogPSBusy = 'Ocupado' - PrintDialogPSDoorOpen = 'Puerta Abierta' - PrintDialogPSError = 'Error' - PrintDialogPSInitializing = 'Inicializando' - PrintDialogPSIOActive = 'E/S Activo' - PrintDialogPSManualFeed = 'Alimentaci'#243'n Manual' - PrintDialogPSNoToner = 'Toner Terminado' - PrintDialogPSNotAvailable = 'No Disponible' - PrintDialogPSOFFLine = 'Fuera de L'#237'nea' - PrintDialogPSOutOfMemory = 'Memoria Agotada' - PrintDialogPSOutBinFull = 'Bandeja de Salida Llena' - PrintDialogPSPagePunt = 'Page Punt' - PrintDialogPSPaperJam = 'Papel Enganchado' - PrintDialogPSPaperOut = 'Sin Papel' - PrintDialogPSPaperProblem = 'Problema de Papel' - PrintDialogPSPrinting = 'Imprimiendo' - PrintDialogPSProcessing = 'Procesando' - PrintDialogPSTonerLow = 'Toner Bajo' - PrintDialogPSUserIntervention = 'Intervenci'#243'n del Usuario' - PrintDialogPSWaiting = 'Esperando' - PrintDialogPSWarningUp = 'Precalientamiento' - PrintDialogPSReady = 'Lista' - PrintDialogPSPrintingAndWaiting = 'Imprimiendo: %d documento(s) esperando' - LeftMargin = 'Margen Izquierdo' - TopMargin = 'Margin Superior' - RightMargin = 'Margin Derecho' - BottomMargin = 'Margin Inferior' - GutterMargin = 'Gutter' - HeaderMargin = 'Cabecera' - FooterMargin = 'Pie' - UnitsInches = '"' - UnitsCentimeters = 'cm' - UnitsMillimeters = 'mm' - UnitsPoints = 'pt' - UnitsPicas = 'pi' - UnitsDefaultName = 'Predeterminada' - UnitsInchesName = 'Pulgadas' - UnitsCentimetersName = 'Centimetros' - UnitsMillimetersName = 'Milimetros' - UnitsPointsName = 'Puntos' - UnitsPicasName = 'Picas' - PrintPreview = 'Vista Previa' - ReportDesignerCaption = 'Dise'#241'ador de Informes' - CompositionDesignerCaption = 'Dise'#241'ador de Composici'#243'n' - ComponentNotSupportedByLink = 'Component "%s" not supported by TdxComponentPrinter' - ComponentNotSupported = 'Component "%s" not supported by TdxComponentPrinter' - PrintDeviceNotReady = 'La impresora no est'#225' instalada o no est'#225' preparada' - UnableToGenerateReport = 'No se ha podido generar el informe' - PreviewNotRegistered = 'There is no registered preview form' - ComponentNotAssigned = '%s' - PrintDeviceIsBusy = 'Impresora ocupada' - PrintDeviceError = #161'La impresora ha encontrado un error!' - MissingComponent = 'Missing "Component" property' - DataProviderDontPresent = 'There are no Links with Assigned Component in Composition' - BuildingReport = 'Generando informe: Completado %d%%' - PrintingReport = - 'Imprimiendo Informe: Completado %d p'#225'gina(s). Pulse ESC to abort' + - 'ar...' - DefinePrintStylesMenuItem = 'Definir E&stilos de Impresi'#243'n...' - AbortPrinting = #191'Abortar impresi'#243'n?' - StandardStyle = 'Estilo Estandar' - FontStyleBold = 'Negrita' - FontStyleItalic = 'It'#225'lica' - FontStyleUnderline = 'Subrayado' - FontStyleStrikeOut = 'Tachado' - Pt = 'pt.' - NoPages = '[No p'#225'ginas]' - PageWidth = 'Anchura P'#225'g' - WholePage = 'Pag. Completa' - TwoPages = 'Dos P'#225'ginas' - FourPages = 'Cuatro P'#225'ginas' - WidenToSourceWidth = 'Ajustar a Anchura' - MenuBar = 'MenuBar' - StandardBar = 'Standard' - HeaderFooterBar = 'Header and Footer' - ShortcutMenusBar = 'Shortcut Menus' - AutoTextBar = 'AutoTexto' - MenuFile = '&Ficheros' - MenuFileDesign = '&Dise'#241'o...' - MenuFilePrint = '&Imprimir...' - MenuFilePageSetup = 'Con&fig. P'#225'gina...' - MenuPrintStyles = 'Estilos Impresi'#243'n' - MenuFileExit = '&Cerrar' - MenuEdit = '&Editar' - MenuEditCut = 'Cor&tar' - MenuEditCopy = '&Copiar' - MenuEditPaste = '&Pegar' - MenuEditDelete = '&Borrar' - MenuEditFind = '&Buscar...' - MenuEditFindNext = 'Buscar Si&guiente' - MenuEditReplace = '&Reemplazar...' - MenuLoad = '&Cargar...' - MenuPreview = 'V. Pre&via...' - MenuInsert = '&Insertar' - MenuInsertAutoText = '&AutoTexto' - MenuInsertEditAutoTextEntries = 'AutoTe&xto...' - MenuInsertAutoTextEntries = '&(Lista de Entradas AutoTexto)' - MenuInsertAutoTextEntriesSubItem = 'In&sertar AutoTexto' - MenuInsertPageNumber = 'N'#250'm &P'#225'g.' - MenuInsertTotalPages = '&N'#250'm. de P'#225'g.' - MenuInsertPageOfPages = 'N'#250'm de P'#225'&g. de P'#225'ginas' - MenuInsertDateTime = 'Fechay Hora' - MenuInsertDate = '&Fecha' - MenuInsertTime = '&Hora' - MenuInsertUserName = 'Nombre &Usuario' - MenuInsertMachineName = 'Nombre &Maquina' - MenuView = '&Vista' - MenuViewMargins = '&Margenes' - MenuViewFlatToolBarButtons = 'Botones &Planos' - MenuViewLargeToolBarButtons = 'Botones &Grandes' - MenuViewMarginsStatusBar = 'Barra de M&argenes' - MenuViewPagesStatusBar = 'Barra de E&stado' - MenuViewToolBars = '&Herramientas' - MenuViewPagesHeaders = '&Cabeceras de P'#225'gina' - MenuViewPagesFooters = '&Pies de P'#225'ginas' - MenuViewSwitchToLeftPart = 'Switch to Left Part' - MenuViewSwitchToRightPart = 'Switch to Right Part' - MenuViewSwitchToCenterPart = 'Switch to Center Part' - MenuViewHFSwitchHeaderFooter = 'Mo&strar Cabecera/Pie' - MenuViewHFClose = '&Cerrar' - MenuZoom = '&Aumentar' - MenuZoomPercent100 = 'Porcien &100' - MenuZoomPageWidth = '&Anchura P'#225'gina' - MenuZoomWholePage = 'P'#225'gina C&ompleta' - MenuZoomTwoPages = '&Dos P'#225'ginas' - MenuZoomFourPages = '&Cuatro P'#225'ginas' - MenuZoomMultiplyPages = 'P'#225'ginas &M'#250'ltiples' - MenuZoomWidenToSourceWidth = 'Aju&star a Anchura' - MenuZoomSetup = '&Config...' - MenuPages = '&P'#225'ginas' - MenuGotoPage = '&Saltar' - MenuGotoPageFirst = '&Primera P'#225'g.' - MenuGotoPagePrev = 'P'#225'g. &Anteror' - MenuGotoPageNext = 'Pr'#243'&xima P'#225'g.' - MenuGotoPageLast = #218'l&tima P'#225'g.' - MenuActivePage = 'P'#225'g. Acti&va:' - MenuFormat = 'F&ormato' - MenuFormatHeaderAndFooter = '&Cabeceras y Pies' - MenuFormatAutoTextEntries = 'Entradas &AutoTexto...' - MenuFormatDateTime = 'Fecha y &Hora...' - MenuFormatPageNumbering = '&Numeraci'#243'n P'#225'ginas...' - MenuFormatPageBackground = 'Fon&do...' - MenuFormatShrinkToPage = '&Reducir a P'#225'g.' - MenuShowEmptyPages = 'Mostrar P'#225'g. &Vacias' - MenuFormatHFBackground = 'Fondo de Cabecera/Pie...' - MenuFormatHFClear = 'Vaciar Texto' - MenuTools = '&Herramientas' - MenuToolsCustomize = '&Personalizar...' - MenuToolsOptions = '&Opciones...' - MenuHelp = 'A&yuda' - MenuHelpTopics = '&Temas de Ayuda...' - MenuHelpAbout = '&Acerca de...' - MenuShortcutPreview = 'V.Previa' - MenuShortcutAutoText = 'AutoTexto' - MenuBuiltInMenus = 'Men'#250's Incorporados' - MenuShortCutMenus = 'Men'#250's de Atajos' - MenuNewMenu = 'Men'#250' Nuevo' - HintFileDesign = 'Dise'#241'ar Informe' - HintFilePrint = 'Imprimir' - HintFilePrintDialog = 'Configuarar la Impresora' - HintFilePageSetup = 'Configurar la P'#225'gina' - HintFileExit = 'Cerrar Vista Previa' - HintEditFind = 'Buscar' - HintEditFindNext = 'Buscar Siguiente' - HintEditReplace = 'Reemplazar' - HintInsertEditAutoTextEntries = 'Editar Entradas AutoTexto' - HintInsertPageNumber = 'Insertar N'#250'mero P'#225'gina' - HintInsertTotalPages = 'Insertar N'#250'mero de P'#225'ginas' - HintInsertPageOfPages = 'Insertar P'#225'gina N'#250'mero de P'#225'ginas' - HintInsertDateTime = 'Insertar Fecha y Hora' - HintInsertDate = 'Insertar Fecha' - HintInsertTime = 'Insert Hora' - HintInsertUserName = 'Insertar Nombre Usuario' - HintInsertMachineName = 'Insertar Nombre Maquina' - HintViewMargins = 'Ver Margenes' - HintViewLargeButtons = 'Ver Botones Grandes' - HintViewMarginsStatusBar = 'Ver Barra de Esatdo de Margenes' - HintViewPagesStatusBar = 'Ver Barra de Estado de P'#225'gina' - HintViewPagesHeaders = 'Vee Cabecera de P'#225'gina' - HintViewPagesFooters = 'Ver Pie de P'#225'gina' - HintViewSwitchToLeftPart = 'Cambiar a Cabecera/Pie Izquierda' - HintViewSwitchToRightPart = 'Cambiar a Cabecera/Pie Derecha' - HintViewSwitchToCenterPart = 'Cambiar a Cabecera/Pie Centrada' - HintViewHFSwitchHeaderFooter = 'Cambiar a Cabecera y Pie' - HintViewHFClose = 'Cerrar' - HintViewZoom = 'Aumentar' - HintZoomPercent100 = 'Aumentar al 100%' - HintZoomPageWidth = 'Aumentar a Anchura de P'#225'gina' - HintZoomWholePage = 'P'#225'gina Completa' - HintZoomTwoPages = 'Dos P'#225'ginas' - HintZoomFourPages = 'Cuatro P'#225'ginas' - HintZoomMultiplyPages = 'P'#225'ginas M'#250'ltiples' - HintZoomWidenToSourceWidth = 'Ajustar a la Anchura' - HintZoomSetup = 'Introducir Factor de Aumento' - HintFormatDateTime = 'Formato de Fecha y Hora' - HintFormatPageNumbering = 'Formato de N'#250'mero de P'#225'gina' - HintFormatPageBackground = 'Fondo' - HintFormatShrinkToPage = 'Reducir a P'#225'gina' - HintFormatHFBackground = 'Fondo de Cabecera/Pie' - HintFormatHFClear = 'Vaciar Texto Cabecera/Pie' - HintGotoPageFirst = 'Primera P'#225'gina' - HintGotoPagePrev = 'P'#225'gina Anterior' - HintGotoPageNext = 'Pr'#243'xima P'#225'gina' - HintGotoPageLast = #218'ltima P'#225'gina' - HintActivePage = 'P'#225'gina Activa' - HintToolsCustomize = 'Personalizar Herramientas' - HintToolsOptions = 'Opciones' - HintHelpTopics = 'Temas de Ayuda' - HintHelpAbout = 'Acerca de' - PopupMenuLargeButtons = 'Botones &Grandes' - PopupMenuFlatButtons = 'Botones &Planos' - PaperSize = 'Tama'#241'o Papel' - Status = 'Estado' - StatusReady = 'Lista' - StatusPrinting = 'Imprimiendo. %d p'#225'gina(s) terminada(s)' - StatusGenerateReport = 'Generando Informe. %d%% completado.' - HintDoubleClickForChangePaperSize = 'Doble Clic para Cambiar el Tama'#241'o de P'#225'gina' - HintDoubleClickForChangeMargins = 'Doble Clic para Cambiar Margenes' - DTFormatsCaption = 'Fecha y Hora' - DTFormatsAvailableDateFormats = 'Formatos de &Fecha Disponibes:' - DTFormatsAvailableTimeFormats = 'Formatos de &Hora Disponibles:' - DTFormatsAutoUpdate = 'Act. &Autom'#225'tica' - DTFormatsChangeDefaultFormat = - 'Confirme que desea cambiar el formato de fecha y hora al "%s" -' + - ' "%s" ?' - PNFormatsCaption = 'Formato de N'#250'mero de P'#225'gina' - PageNumbering = 'Numeraci'#243'n de P'#225'ginas' - PNFormatsNumberFormat = '&Format N'#250'mero:' - PNFormatsContinueFromPrevious = '&Continuar desde '#218'ltima Secci'#243'n' - PNFormatsStartAt = 'Empezar &En:' - PNFormatsChangeDefaultFormat = - 'Confirme que desea cambiar el formato de numeraci'#243'n de p'#225'ginas a' + - 'l "%s" ?' - ZoomDlgCaption = 'Aumentar' - ZoomDlgZoomTo = 'Aumentar a' - ZoomDlgPageWidth = '&Ancho P'#225'g.' - ZoomDlgWholePage = 'P'#225'g.C&ompleta' - ZoomDlgTwoPages = '&Dos P'#225'ginas' - ZoomDlgFourPages = '&Cuatro P'#225'g.' - ZoomDlgManyPages = '&Varias P'#225'g.:' - ZoomDlgPercent = 'P&orcien:' - ZoomDlgPreview = 'Vista' - ZoomDlgFontPreview = '10pt Times New Romam' - ZoomDlgFontPreviewString = 'AaBbCcDdEeXxYyZz' - Pages = 'P'#225'ginas' - Cancel = 'Cancelar' - PreferenceDlgCaption = 'Opciones' - PreferenceDlgTab1 = '&General' - PreferenceDlgShow = '&Mostrar' - PreferenceDlgMargins = '&Margenes' - PreferenceDlgMarginsHints = 'A&yudas Margenes' - PreferenceDlgMargingWhileDragging = 'Ayudas Margins con A&rrastre' - PreferenceDlgLargeBtns = 'Botones &Grandes para Barras' - PreferenceDlgFlatBtns = 'Botones &Planos para Barras' - PreferenceDlgMarginsColor = '&Color Margenes:' - PreferenceDlgMeasurementUnits = '&Unidades de Medida:' - PreferenceDlgSaveForRunTimeToo = 'Gua&rdar en Ejecucci'#243'n tambien' - PreferenceDlgZoomScroll = 'Despla&zamiento con IntelliMouse' - PreferenceDlgZoomStep = 'Au&mento:' - CloneStyleCaptionPrefix = 'Copia (%d) de' - InvalideStyleCaption = 'Nombre de estilo "%s" existente. Por favor, introduzca otro.' - PageSetupCaption = 'Configuraci'#243'n de la P'#225'gina' - StyleName = '&Nombre Estilo:' - Page = '&P'#225'gina' - Margins = '&Margenes' - HeaderFooter = '&Cabecera\Pie' - Scaling = '&Escala' - Paper = 'Papel' - PaperType = 'T&ipo' - PaperDimension = 'Dimensi'#243'nes' - PaperWidth = '&Anchura:' - PaperHeight = 'A<ura:' - PaperSource = 'Bande&ja' - Orientation = 'Orientaci'#243'n' - Portrait = 'N&ormal' - Landscape = '&Apaisado' - PrintOrder = 'Orden de Impresi'#243'n' - DownThenOver = '&Abajo, derecha' - OverThenDown = '&Derecha, abajo' - Shading = 'Sombreado' - PrintUsingGrayShading = 'Imprimir usando sombreado &gris' - CenterOnPage = 'Centrar' - Horizontally = 'Hori&zontal' - Vertically = '&Vertical' - Header = 'Cabecera' - BtnHeaderFont = '&Fuente...' - BtnHeaderBackground = '&Fondo' - Footer = 'Pie' - BtnFooterFont = 'Fue&nte...' - BtnFooterBackground = 'F&ondo' - CaptionTop = '&Sup.:' - CaptionLeft = '&Izqu.:' - CaptionRight = '&Derecha:' - CaptionBottom = '&Inferior:' - Header2 = '&Cabec.:' - Footer2 = '&Pie:' - Alignment = 'Alineamiento' - VertAlignment = 'Alineamiento Vertical' - ReverseOnEvenPages = 'Al &rev'#233's en p'#225'ginas pares' - AdjustTo = '&Ajustar a:' - FitTo = 'P'#225'&ginas:' - PercentOfNormalSize = '% tama'#241'o normal' - PagesWideBy = 'p'#225'g(s) de &ancho' - Tall = 'de a<o' - XOfY = 'De' - LastPrinted = #218'ltima Impresi'#243'n' - FileName = 'Fichero' - FileNameAndPath = 'Fichero y camino' - PrintedBy = 'Impreso por' - PrintedOn = 'Impreso el' - CreatedBy = 'Creado por' - CreatedOn = 'Creado el' - Confidential = 'Confidencial' - HFFunctionNameUnknown = 'Desconocido' - HFFunctionNamePageNumber = 'N'#250'm. P'#225'gina' - HFFunctionNameTotalPages = 'P'#225'g. Totales' - HFFunctionNamePageOfPages = 'P'#225'g. # de P'#225'gs. #' - HFFunctionNameDateTime = 'Fecha y Hora' - HFFunctionNameDate = 'Fecha' - HFFunctionNameTime = 'Hora' - HFFunctionNameUserName = 'Nombre Usuario' - HFFunctionNameMachineName = 'Nombre Maquina' - HFFunctionHintPageNumber = 'Page Number' - HFFunctionHintTotalPages = 'Total Pages' - HFFunctionHintPageOfPages = 'Page # of Pages #' - HFFunctionHintDateTime = 'Date and Time Printed' - HFFunctionHintDate = 'Date Printed' - HFFunctionHintTime = 'Time Printed' - HFFunctionHintUserName = 'User Name' - HFFunctionHintMachineName = 'Machine Name' - HFFunctionTemplatePageNumber = 'Page #' - HFFunctionTemplateTotalPages = 'Total Pages' - HFFunctionTemplatePageOfPages = 'Page # of Pages #' - HFFunctionTemplateDateTime = 'Date & Time Printed' - HFFunctionTemplateDate = 'Date Printed' - HFFunctionTemplateTime = 'Time Printed' - HFFunctionTemplateUserName = 'User Name' - HFFunctionTemplateMachineName = 'Machine Name' - January = 'Enero' - February = 'Febrero' - March = 'Marzo' - April = 'Abril' - May = 'Mayo' - June = 'Junio' - July = 'Julio' - August = 'Agosto' - September = 'Septiembre' - October = 'Octubre' - November = 'Noviembre' - December = 'Diciembre' - East = 'Este' - West = 'Oeste' - South = 'Sur' - North = 'Norte' - Total = 'Total' - Plan = 'Plan' - SwimmingPool = 'Swimming-pool' - Administration = 'Administration' - Park = 'Park' - CarParking = 'Car-Parking' - CorporateHeadquarters = 'Corporate' - SalesAndMarketing = 'Sales and' - Engineering = 'Engineering' - FieldOfficeCanada = 'Field Office:' - OrderNoCaption = 'OrderNo' - NameCaption = 'Name' - CountCaption = 'Count' - CompanyCaption = 'Company' - AddressCaption = 'Address' - PriceCaption = 'Price' - CashCaption = 'Cash' - Name1 = 'Jennie Valentine' - Name2 = 'Sam Hill' - Company1 = 'Jennie Inc.' - Company2 = 'Daimler-Chrysler AG' - Address1 = '123 Home Lane' - Address2 = '9333 Holmes Dr.' - CountIs = 'Count is: %d' - Regular = 'Regular' - Irregular = 'Irregular' - TLBand = 'Item Data' - TLColumnName = 'Name' - TLColumnAxisymmetric = 'Axisymmetric' - TLColumnItemShape = 'Shape' - ItemShapeAsText = '(Graphic)' - Item1Name = 'Cone' - Item2Name = 'Cylinder' - Item3Name = 'Pyramid' - Item4Name = 'Box' - Item5Name = 'Free Surface' - Item2Description = 'Axisymmetric geometry figure' - Item3Description = 'Axisymmetric geometry figure' - Item4Description = 'Acute-angled geometry figure' - Item7Description = 'Simple extrusion surface' - PatternIsNotRegistered = 'Pattern "%s" is not registered' - SolidEdgePattern = 'Solid' - ThinSolidEdgePattern = 'Medium Solid' - MediumSolidEdgePattern = 'Medium Solid' - ThickSolidEdgePattern = 'Thick Solid' - DottedEdgePattern = 'Dotted' - DashedEdgePattern = 'Dashed' - DashDotDotEdgePattern = 'Dash Dot Dot' - DashDotEdgePattern = 'Dash Dot' - SlantedDashDotEdgePattern = 'Slanted Dash Dot' - MediumDashDotDotEdgePattern = 'Medium Dash Dot Dot' - HairEdgePattern = 'Hair' - MediumDashDotEdgePattern = 'Medium Dash Dot' - MediumDashedEdgePattern = 'Medium Dashed' - DoubleLineEdgePattern = 'Double Line' - SolidFillPattern = 'Solid' - Gray75FillPattern = '75% Gray' - Gray50FillPattern = '50% Gray' - Gray25FillPattern = '25% Gray' - Gray125FillPattern = '12.5% Gray' - Gray625FillPattern = '6.25% Gray' - HorizontalStripeFillPattern = 'Horizontal Stripe' - VerticalStripeFillPattern = 'Vertical Stripe' - ReverseDiagonalStripeFillPattern = 'Reverse Diagonal Stripe' - DiagonalStripeFillPattern = 'Diagonal Stripe' - DiagonalCrossHatchFillPattern = 'Diagonal Cross Hatch' - ThickCrossHatchFillPattern = 'Thick Cross Hatch' - ThinHorizontalStripeFillPattern = 'Thin Horizontal Stripe' - ThinVerticalStripeFillPattern = 'Thin Vertical Stripe' - ThinReverseDiagonalStripeFillPattern = 'Thin Reverse Diagonal Stripe' - ThinDiagonalStripeFillPattern = 'Thin Diagonal Stripe' - ThinHorizontalCrossHatchFillPattern = 'Thin Horizontal Cross Hatch' - ThinDiagonalCrossHatchFillPattern = 'Thin Diagonal Cross Hatch' - ShowRowAndColumnHeadings = '&Row and column headings' - ShowGridLines = 'GridLines' - SuppressSourceFormats = '&Suppress Source Formats' - RepeatHeaderRowAtTop = 'Repeat header row at top' - DataToPrintDoesnotExist = - 'Can not activate ReportLink because PrintingSystem did not find ' + - 'anything to print.' - JanuaryShort = 'Ene' - FebruaryShort = 'Feb' - MarchShort = 'Mar' - AprilShort = 'Abril' - MayShort = 'Mayo' - JuneShort = 'Jun' - JulyShort = 'Jul' - AugustShort = 'Ago' - SeptemberShort = 'Sept' - OctoberShort = 'Oct' - NovemberShort = 'Nov' - DecemberShort = 'Dic' - TechnicalDepartment = 'Technical Department' - SoftwareDepartment = 'Software Department' - SystemProgrammers = 'System Programmers' - EndUserProgrammers = 'EndUser Programmers' - BetaTesters = 'Beta Testers' - HumanResourceDepartment = 'Human Resource Department' - TreeLines = '&L'#237'neas'#193'rbol' - TreeLinesColor = 'Colore L'#237'neas '#193'rbol:' - ExpandButtons = 'Botones E&xpansi'#243'n' - CheckMarks = 'Cajas Verificaci'#243'n' - TreeEffects = 'Efectos '#193'rbol' - Appearance = 'Apariencia' - CarLevelCaption = 'Coches' - ManufacturerBandCaption = 'Manufacturer Data' - ModelBandCaption = 'Car Data' - ManufacturerNameColumnCaption = 'Name' - ManufacturerLogoColumnCaption = 'Logo' - ManufacturerCountryColumnCaption = 'Country' - CarModelColumnCaption = 'Model' - CarIsSUVColumnCaption = 'SUV' - CarPhotoColumnCaption = 'Photo' - CarManufacturerName1 = 'BMW' - CarManufacturerName2 = 'Ford' - CarManufacturerName3 = 'Audi' - CarManufacturerName4 = 'Land Rover' - CarManufacturerCountry1 = 'Germany' - CarManufacturerCountry2 = 'United States' - CarManufacturerCountry3 = 'Germany' - CarManufacturerCountry4 = 'United Kingdom' - CarModel1 = 'X5 4WD' - CarModel2 = 'Excursion' - CarModel3 = 'S8 Quattro' - CarModel4 = 'G4 Challenge' - True = 'True' - False = 'False' - Auto = 'Auto' - Custom = 'Personal.' - Env = 'Env' - LookAndFeelFlat = 'Plano' - LookAndFeelStandard = 'Estandar' - LookAndFeelUltraFlat = 'UltraPlano' - ViewTab = 'Vista' - BehaviorsTab = 'Comportamiento' - PreviewTab = 'Vista Previa' - CardsTab = 'Fichas' - Formatting = 'Formato' - LookAndFeel = 'Aspecto' - LevelCaption = '&T'#237'tulo' - FilterBar = 'Barra de &Filtro' - Refinements = 'Perfeccionamiento' - ProcessSelection = 'Procesar &Selecci'#243'n' - ProcessExactSelection = 'Procesar Selecci'#243'n E&xacta' - Expanding = 'Despliege' - Groups = '&Grupos' - Details = '&Detalles' - StartFromActiveDetails = 'Empieza desde Detalles Activas' - OnlyActiveDetails = 'S'#243'lo Detalles Activos' - Visible = '&Visible' - PreviewAutoHeight = 'Altura A&utom'#225'tica' - PreviewMaxLineCount = 'L'#237'neas &M'#225'ximas:' - Sizes = 'Tama'#241'os' - KeepSameWidth = 'Manten.Misma Anchura' - KeepSameHeight = 'Manten.Misma Altura' - Framing = 'Marco' - Spacing = 'Espacios' - Shadow = 'Sombra' - Depth = '&Profundidad:' - Position = '&Posici'#243'n' - Positioning = 'Posicionando' - Horizontal = 'H&orizontal:' - Vertical = 'V&ertical:' - SummaryFormat = 'Recuento = 0' - CannotUseOnEveryPageMode = 'Cannot Use OnEveryPage Mode' - IncorrectBandHeadersState = 'Cannot Use BandHeaders OnEveryPage Mode' - IncorrectHeadersState = 'Cannot Use Headers OnEveryPage Mode' - IncorrectFootersState = 'Cannot Use Footers OnEveryPage Mode' - TPicture = 'TPicture' - Copy = '&Copiar' - Save = '&Salvar...' - BaseStyle = 'Estilo Base' - Rectangle = 'Rectangle' - Square = 'Square' - Ellipse = 'Ellipse' - Circle = 'Circle' - RoundRect = 'RoundRect' - RoundSquare = 'RoundSquare' - HorizontalFillPattern = 'Horizontal' - VerticalFillPattern = 'Vertical' - FDiagonalFillPattern = 'FDiagonal' - BDiagonalFillPattern = 'BDiagonal' - CrossFillPattern = 'Cross' - DiagCrossFillPattern = 'DiagCros' - CyclicIDReferences = 'Cyclic ID references %s and %s' - LoadReportDataToFileTitle = 'Cargar Informe' - SaveReportDataToFileTitle = 'Salvar Informe Como' - InvalidExternalStorage = 'Almacenamiento Externo No V'#225'lido' - LinkIsNotIncludedInUsesClause = 'ReportFile contains ReportLink "%0:s"' - InvalidStorageVersion = 'Versi'#243'n de Almacenamiento no V'#225'lido: %d' - PSReportFiles = 'Ficheros de Informes' - ReportFileLoadError = 'No se pudo cargar el informe "%s".' - None = '(Ninguno)' - ReportDocumentIsCorrupted = '(El fichero no es un informe o esta corrupto)' - CloseExplorerHint = 'Cerrar Explorador' - ExplorerCaption = 'Explorador' - ExplorerRootFolderCaption = 'Ra'#237'z' - NewExplorerFolderItem = 'Nueva Carpeta' - CopyOfItem = 'Copia de' - ReportExplorer = 'Explorer de Informes' - DataLoadErrorText = 'No se pudo cargar los datos del informe' - DBBasedExplorerItemDataLoadError = 'No se pudo cargar los datos.' - FileBasedExplorerItemDataLoadError = 'No se pudo cargar los datos.' - DeleteNonEmptyFolderMessageText = 'La carpeta "%s" no est'#225' vacia. A'#250'n as'#237' '#191'desea eliminarlo?' - DeleteFolderMessageText = 'Borrar Carpeta "%s" ?' - DeleteItemMessageText = 'Borrar elemento "%s" ?' - CannotRenameFolderText = - 'Cannot rename folder "%s". A folder with name "%s" already exist' + - 's. Specify a different name.' - CannotRenameItemText = - 'Cannot rename item "%s". An item with name "%s" already exists. ' + - 'Specify a different name.' - OverwriteFolderMessageText = 'This folder "%s" already contains folder named "%s".' - OverwriteItemMessageText = 'This Folder "%s" already contains item named "%s".' - SelectNewRoot = 'Select new Root Directory where the Reports will be stored' - InvalidFolderName = 'Nombre de Carpeta no V'#225'lida "%s"' - InvalidReportName = 'Nombre de Informe no V'#225'lido "%s"' - ExplorerBar = 'Explorador' - MenuFileSave = '&Salvar' - MenuFileSaveAs = 'S&alvar Como...' - MenuFileLoad = '&Cargar' - MenuFileClose = '&Descargar' - HintFileSave = 'Salvar Informe' - HintFileSaveAs = 'Salvar Informe Como' - HintFileLoad = 'Cargar Informe' - HintFileClose = 'Descargar Informe' - MenuExplorer = 'E&xplorador' - MenuExplorerCreateFolder = 'Crear &Carpeta' - MenuExplorerDelete = '&Borrar...' - MenuExplorerRename = 'Reno&mbrar' - MenuExplorerProperties = '&Propiedades...' - MenuExplorerRefresh = 'Refrescar' - MenuExplorerChangeRootPath = 'Cambiar Ra'#237'z...' - MenuExplorerSetAsRoot = 'Establecer Como Ra'#237'z' - MenuExplorerGoToUpOneLevel = 'Subir Un Nivel' - HintExplorerCreateFolder = 'Crear Nueva Carpeta' - HintExplorerDelete = 'Borrar' - HintExplorerRename = 'Renombrar' - HintExplorerProperties = 'Propiedades' - HintExplorerRefresh = 'Refrescar' - HintExplorerChangeRootPath = 'Cambiar Ra'#237'z' - HintExplorerSetAsRoot = 'Establecder Carpeta Actual Como Ra'#237'z' - HintExplorerGoToUpOneLevel = 'Subir Un Nivel' - MenuViewExplorer = 'E&xplorador' - HintViewExplorer = 'Mostar Explorador' - Summary = 'Resumen' - Creator = 'Creado&r:' - CreationDate = 'Crea&do:' - MenuViewThumbnails = 'Miniat&uras' - HintViewThumbnails = 'Mostar Miniaturas' - MenuFormatTitle = 'T&'#237'tulo...' - HintFormatTitle = 'Formatear T'#237'tulo del Informe' - Half = 'Medio' - PredefinedFunctions = 'Funciones Predefinidos' - ZoomParameters = '&Par'#225'metros de Aumento' - WrapData = 'Doblar Datos' - MenuShortcutExplorer = 'Explorador' - ExplorerToolBar = 'Explorador' - MenuThumbnailsSmall = 'Miniaturas &Peque'#241'as' - MenuThumbnailsLarge = 'Miniaturas &Grandes' - MenuShortcutThumbnails = 'Miniaturas' - Buttons = 'Botones' - BtnHeadersFont = 'Fuente &Cabeceras...' - HeadersTransparent = 'Cabeceras Transparentes' - HintListViewDesignerMessage = 'Most Options Are Being Taken Into Account Only In Detailed View' - ColumnHeaders = 'Cabeceras de &Columnas' - ReportGroupNullLookAndFeel = 'Null' - ReportGroupStandardLookAndFeel = 'Standard' - ReportGroupOfficeLookAndFeel = 'Office' - ReportGroupWebLookAndFeel = 'Web' - LayoutGroupDefaultCaption = 'Layout Group' - LayoutItemDefaultCaption = 'Layout Item' - CarManufacturerName5 = 'Volkswagen' - CarManufacturerCountry5 = 'Germany' - CarModel5 = 'Golf GTI' - LuxurySedans = 'Luxury Sedans' - CarManufacturer = 'Manufacturer' - CarModel = 'Model' - CarEngine = 'Engine' - CarTransmission = 'Transmission' - CarTires = 'Tires' - Volvo760V12Manufacturer = 'BMW' - Volvo760V12Model = '760Li V12' - Volvo760V12Engine = - '6.0L DOHC V12 438 HP 48V DI Valvetronic 12-cylinder engine with ' + - '6.0-liter displacement, dual overhead cam valvetrain' - Volvo760V12Transmission = 'Elec 6-Speed Automatic w/Steptronic' - Volvo760V12Tires = - 'P245/45R19 Fr - P275/40R19 Rr Performance. Low Profile tires wit' + - 'h 245mm width, 19.0" rim' - BandHeaderStyle = 'CabeceraGrupo' - CaptionStyle = 'T'#237'tulo' - CardCaptionRowStyle = 'T'#237'tulo Fila Fichas' - CardRowCaptionStyle = 'T'#237'tulo Fila Fichas' - CategoryStyle = 'Categor'#237'a' - ContentStyle = 'Contenido' - ContentEvenStyle = 'Contenido Filas Pares' - ContentOddStyle = 'Contenido Filas Impares' - FilterBarStyle = 'Barra de Filto' - FooterStyle = 'Pie' - FooterRowStyle = 'Pie de Fila' - GroupStyle = 'Grupo' - HeaderStyle = 'Cabecera' - IndentStyle = 'Indentaci'#243'n' - PreviewStyle = 'Vista Previa' - SelectionStyle = 'Selecci'#243'n' - Styles = 'Estilos' - StyleSheets = 'Hojas de Estilos' - BtnTexture = '&Textura...' - BtnTextureClear = 'Elimin&ar' - BtnColor = 'Co&lor...' - BtnSaveAs = 'Salvar &Como...' - BtnRename = '&Renombrar...' - LoadBitmapDlgTitle = 'Cargar Imagen' - DeleteStyleSheet = 'Borrar Hoja de Estilos con Nombre "%s"?' - UnnamedStyleSheet = 'SinNombre' - CreateNewStyleQueryNamePrompt = 'Entre un Nombre de Hoja de Estilo:' - StyleSheetNameAlreadyExists = 'Hoja de Estilo "%s" Ya Existe' - CannotLoadImage = 'No se pudo cargar el imagen "%s"' - UseNativeStyles = '&Usar Estilo Nativo' - SuppressBackgroundBitmaps = '&Suprimir Texturas de Fondo' - ConsumeSelectionStyle = 'Consumir Estilos de Selecci'#243'n' - Size = 'Tama'#241'o' - Levels = 'Niveles' - Unwrap = '&Desdoblar' - UnwrapTopLevel = 'Desdoblar Nivel Superior' - RiseActiveToTop = 'Subir Nivel Activo al Princ'#237'pio' - CannotUseOnEveryPageModeInAggregatedState = 'No se puede usar modo "EnCadaP'#225'gina"' - Pagination = 'Paginaci'#243'n' - ByBands = 'Por Grupos' - ByColumns = 'Por Columnas' - ByRows = 'Por Filas' - ByTopLevelGroups = 'Por Grupos de Primer Nivel' - OneGroupPerPage = 'Un Grupo por P'#225'gina' - Borders = 'Margenes' - ExplicitlyExpandNodes = 'Expandir Expl'#237'citamente los Nodos' - Nodes = '&Nodos' - Separators = 'Separadores' - Thickness = 'Grueso' - TLIncorrectHeadersState = 'No se puede usar el modo EnCadaP'#225'gina' - Rows = '&Filas' - BestFit = 'Ajuste &'#211'ptimo' - KeepSameRecordWidths = '&Mantaner Anchuras Iguales' - WrapRecords = '&Doblar Registros' - ByWrapping = 'Doblando' - OneWrappingPerPage = 'Doblando Uno por P'#225'gina' - PaginateByControlDetails = 'Detalles de Controles' - PaginateByControls = 'Controles' - PaginateByGroups = 'Grupos' - PaginateByItems = 'Elementos' - ControlsPlace = 'Enplazamiento de Controles' - ExpandHeight = 'Expandir Altura' - ExpandWidth = 'Expandir Anchura' - ShrinkHeight = 'Contraer Altura' - ShrinkWidth = 'Contraer Anchura' - CheckAll = 'Check &All' - CheckAllChildren = 'Check All &Children' - ControlsTab = 'Controls' - ExpandAll = 'E&xpand All' - HiddenControlsTab = 'Hidden Controls' - ReportLinksTab = 'Aggregated Designers' - Transparents = 'Transparents' - UncheckAllChildren = 'Uncheck &All Children' - Root = '&Ra'#237'z' - RootBorders = 'Root &Borders' - Controls = '&Controls' - Containers = 'C&ontainers' - HideCustomContainers = '&Hide Custom Containers' - Bytes = 'Bytes' - KiloBytes = 'KB' - MegaBytes = 'MB' - GigaBytes = 'GB' - Left = 184 - Top = 16 - end - object ROMessage: TROBinMessage - Left = 329 - Top = 88 - end - object DABINAdapter: TDABINAdapter - IsCompatibleV4 = False - Left = 424 - Top = 24 - end - object JvAppRegistryStorage: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 184 - Top = 80 - end - object RORemoteService: TRORemoteService - Message = ROMessage - Channel = ROChannel - ServiceName = 'srvLogin' - Left = 424 - Top = 92 - end -end diff --git a/Varela/Varela/Source/Base/uDataModuleBase.pas b/Varela/Varela/Source/Base/uDataModuleBase.pas deleted file mode 100644 index ee02d51..0000000 --- a/Varela/Varela/Source/Base/uDataModuleBase.pas +++ /dev/null @@ -1,254 +0,0 @@ -unit uDataModuleBase; - -interface - -uses - Controls, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher, - TBXOffice2003Theme, Classes, ImgList, uROClient, uROBinMessage, - uROServiceComponent, uRORemoteService, uROWinInetHttpChannel, - DataAbstract3_Intf, uDADataTable, uDABINAdapter, cxintl, cxIntlPrintSys3, - JvAppStorage, JvAppRegistryStorage, SysUtils, - JvComponentBase, uDADataStreamer; - -type - TdmBase = class(TDataModule) - ROChannel: TROWinInetHTTPChannel; - SmallImages: TPngImageList; - StyleManager: TJvNavPaneStyleManager; - TBXSwitcher: TTBXSwitcher; - cxIntl: TcxIntl; - cxIntlPrintSys3: TcxIntlPrintSys3; - ROMessage: TROBinMessage; - DABINAdapter: TDABINAdapter; - JvAppRegistryStorage: TJvAppRegistryStorage; - RORemoteService: TRORemoteService; - procedure DAClientDataModuleCreate(Sender: TObject); - procedure ROChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); - procedure ROChannelProgress(iSender: TObject; iType: TProgressType; - iDirection: TProgressDirection; iTransferred, iTotal: Integer); - private - FOnThemeChange: TNotifyEvent; - function GetAdapter: TDABINAdapter; - function GetChannel: TROWinInetHTTPChannel; - function GetCodigoEmpresa: Integer; - function GetMessage: TROBinMessage; - procedure InitStyleManager; - procedure OnTBXThemeChange(Sender: TObject); - procedure LeerConfiguracion; - procedure SalvarConfiguracion; - public - function DarVersion : String; - procedure ConfigurarConexion; - function HayConexion(const ATargetURL : String = ''): Boolean; - property Adapter: TDABINAdapter read GetAdapter; - property Channel: TROWinInetHTTPChannel read GetChannel; - property CodigoEmpresa: Integer read GetCodigoEmpresa; - property Message: TROBinMessage read GetMessage; - property OnThemeChange: TNotifyEvent read FOnThemeChange write - FOnThemeChange; - end; - -var - dmBase: TdmBase; - -implementation - -{$R *.DFM} - -uses - Dialogs, TBX, TBXThemes, uConfigurarConexion, WinInet, Forms, Windows, - JclFileUtils, VARELA_Intf, cxControls; - -const - SERVER_URL = 'http://localhost:8099/bin'; - IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)'; - -{ -*********************************** TdmBase ************************************ -} -procedure TdmBase.ConfigurarConexion; -begin - with TfConfigurarConexion.Create(NIL) do - try - TargetURL := ROChannel.TargetURL; - if ShowModal = mrOk then - begin - ROChannel.TargetURL := TargetURL; - ROChannel.Connected := False; - ROChannel.Connected := True; - SalvarConfiguracion; - end; - finally - Free; - end; -end; - -procedure TdmBase.DAClientDataModuleCreate(Sender: TObject); -begin - TBXSwitcher.OnThemeChange := OnTBXThemeChange; - TBXSetTheme('Office2003'); - - LeerConfiguracion; -end; - -function TdmBase.GetAdapter: TDABINAdapter; -begin - Result := DABinAdapter; -end; - -function TdmBase.GetChannel: TROWinInetHTTPChannel; -begin - Result := ROChannel; -end; - -function TdmBase.GetCodigoEmpresa: Integer; -begin - Result := 1; -end; - -function TdmBase.GetMessage: TROBinMessage; -begin - Result := ROMessage; -end; - -procedure TdmBase.InitStyleManager; -begin - if not USE_THEMES then - begin - TBXSwitcher.EnableXPStyles := False; - StyleManager.Theme := nptStandard; - end - else begin - TBXSwitcher.EnableXPStyles := True; - with StyleManager do - begin - if CurrentTheme is TTBXOffice2003Theme then - begin - case GetOffice2003Scheme of - osBlue : Theme := nptXPBlue; - osMetallic : Theme := nptXPSilver; - osGreen : Theme := nptXPOlive; - else - Theme := nptStandard; - end; - end; - end; - end; -end; - - -procedure TdmBase.LeerConfiguracion; -begin - ROChannel.TargetURL := JvAppRegistryStorage.ReadString('ServerURL', SERVER_URL); -end; - -procedure TdmBase.OnTBXThemeChange(Sender: TObject); -begin - InitStyleManager; - - if Assigned(FOnThemeChange) then - FOnThemeChange(Sender); -end; - -procedure TdmBase.SalvarConfiguracion; -begin - JvAppRegistryStorage.BeginUpdate; - try - JvAppRegistryStorage.WriteString('ServerURL', ROChannel.TargetURL); - finally - JvAppRegistryStorage.EndUpdate; - end; -end; - -procedure TdmBase.ROChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); -begin - if (Pos(anException.Message, IE_OFFLINE_ERROR) > 0) then - begin - // Preguntar al usuario si se quiere conectar - if InternetGoOnline(PAnsiChar(ROChannel.TargetURL), GetDesktopWindow(), 0) then - Retry := True // Si el usuario pulsa en 'Conectar' reintentar la operación - else - Abort; // Si el usuario pulsa en 'Seguir desconectado' parar todo - end - else - Retry := True; -// raise Exception.Create(anException.Message); -end; - -procedure TdmBase.ROChannelProgress(iSender: TObject; iType: TProgressType; - iDirection: TProgressDirection; iTransferred, iTotal: Integer); -begin -{ if iType = ptInProgress then - begin - if not Form1.Visible then - Form1.Show; - end - else - Form1.Hide;} -end; - -function TdmBase.DarVersion: String; -var - Obj : TJclFileVersionInfo; -begin - Obj := TJclFileVersionInfo.Create(Application.ExeName); - try - Result := 'v' + Obj.FileVersion; - finally - FreeAndNil(Obj); - end; -end; - -function TdmBase.HayConexion(const ATargetURL: String): Boolean; -var - AHTTPChannel: TROWinInetHTTPChannel; - AROBinMessage: TROBinMessage; - ACoService: TRORemoteService; -begin - AHTTPChannel := TROWinInetHTTPChannel.Create(Self); - AROBinMessage := TROBinMessage.Create(Self); - ACoService := TRORemoteService.Create(Self); - - ShowHourglassCursor; - try - with AHTTPChannel do - begin - Name := 'HTTPChannel'; - UserAgent := 'AdminPV'; - if Length(ATargetURL) > 0 then - TargetURL := ATargetURL - else - TargetURL := ROChannel.TargetURL; - end; - - with ACoService do - begin - ServiceName := 'srvLogin'; - Message := AROBinMessage; - Channel := AHTTPChannel; - end; - - try - (ACoService as IsrvLogin).Ping; - Result := True; - except - Result := False; - end; - finally - AHTTPChannel.Connected := False; - FreeAndNil(AHTTPChannel); - FreeAndNil(ACoService); - FreeAndNil(AROBinMessage); - HideHourglassCursor; - end; -end; - -initialization - dmBase := TdmBase.Create(NIL); - -finalization - dmBase.Free; - -end. diff --git a/Varela/Varela/Source/Base/uDataTableUtils.pas b/Varela/Varela/Source/Base/uDataTableUtils.pas deleted file mode 100644 index 9bbb7b1..0000000 --- a/Varela/Varela/Source/Base/uDataTableUtils.pas +++ /dev/null @@ -1,324 +0,0 @@ -unit uDataTableUtils; - -interface - -uses - uDACDSDataTable, uDADataTable, uDAInterfaces, uDADelta; - -procedure CloneDataTable(const ASource : TDACDSDataTable; - var ATarget : TDACDSDataTable; - RemoteUpdate: Boolean = True); - -procedure CopyDataTable(ASource : IDADataset; ATarget : TDADataTable; - const OnlySelectedRows : Boolean = False); -procedure DeleteAllTable(const ADataTable : TDADataTable); -function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean; - -implementation - -uses - uDAClasses, SysUtils, uDABINAdapter, uROTypes, uDBSelectionList, cxControls, - Dialogs, Variants, uDADataStreamer; - - -{procedure EliminarNoSeleccionados(const ASource : IDADataset; - var ATarget : TDADataTable); -var - AObj : ISelectedRowList; - i : Integer; -begin - if not Supports(ASource, ISelectedRowList, aObj) then - Exit; - -// ATarget.DisableControls; -// ATarget.DisableEventHandlers; - ShowHourglassCursor; - try - ATarget.Open; - ATarget.Last; - while ATarget.RecordCount > AObj.SelectedRows.Count do - begin - if AObj.SelectedRows.IndexOf(ATarget.RecIDValue) < 0 then - ATarget.Delete - else - ATarget.Prior; - end; - finally -// ATarget.EnableControls; -// ATarget.EnableControls; - HideHourglassCursor; - end; -end;} - - -procedure DeleteAllTable(const ADataTable : TDADataTable); -begin - ADataTable.ClearRows; -end; - - -function DeltaValuesAreDifferent(const aDelta : IDADelta): boolean; -var - i, x : integer; - OldNewAreDifferent: boolean; -begin - OldNewAreDifferent := FALSE; - for i := 0 to (aDelta.Count-1) do - begin - for x := 0 to (aDelta.LoggedFieldCount-1) do - begin - OldNewAreDifferent := (aDelta.Changes[i].OldValues[x] <> aDelta.Changes[i].NewValues[x]); - - if OldNewAreDifferent then - Break; // Abandon iteration at the first difference between old and new. - end; - - if OldNewAreDifferent then - Break; // Abandon iteration at the first difference between old and new. - end; - result := OldNewAreDifferent; -end; - - -procedure CopyDataTable(ASource : IDADataset; ATarget : TDADataTable; - const OnlySelectedRows : Boolean = False); -var - DABin: Binary; - DAAdapter : TDABINAdapter; - AFilter : String; - AFiltered : Boolean; - AObj : ISelectedRowList; - i : Integer; -begin - DABin := Binary.Create; - DAAdapter := TDABINAdapter.Create(nil); - AFilter := ''; - - if OnlySelectedRows then - begin - if not Supports(ASource, ISelectedRowList, aObj) then - raise Exception.Create('El origen de datos no soporta la interfaz ISelectedRowList (CopyDataTable)'); - - if ASource.Dataset.Filtered then - begin - AFiltered := True; - AFilter := ASource.Dataset.Filter; - ASource.Dataset.Filtered := False; - end; - - ASource.Dataset.Filter := ''; - for i := 0 to AObj.SelectedRows.Count - 1 do - begin - if (i > 0) then - ASource.Dataset.Filter := ASource.Dataset.Filter + ' or '; - ASource.Dataset.Filter := ASource.Dataset.Filter + '(RecID = ' + IntToStr(AObj.SelectedRows.Items[i]) + ')'; - end; - - ASource.Dataset.Filtered := True; - end; - - try - ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName - - if not ASource.Active then - ASource.Open; - ASource.Dataset.First; - - DAAdapter.WriteDataset(DABin, ASource, [woRows, woSchema], -1); - DAAdapter.Initialize(DABin, aiReadFromBeginning); - DAAdapter.ReadDataset(ATarget.LogicalName, ATarget, True, True); - DAAdapter.Finalize; - - if OnlySelectedRows then - begin - ASource.Dataset.Filtered := False; - ASource.Dataset.Filter := AFilter; - if AFiltered then - ASource.Dataset.Filtered := True; - end; - - finally - FreeAndNil(DABin); - FreeAndNil(DAAdapter); - end; -end; - - -procedure CloneDataTable(const ASource : TDACDSDataTable; - var ATarget : TDACDSDataTable; RemoteUpdate: Boolean); -var - i : Integer; -begin - with ATarget do - begin - RemoteDataAdapter := ASource.RemoteDataAdapter; - - BusinessRulesID := ASource.BusinessRulesID; - Randomize; - Name := ASource.Name + '_' + IntToStr(Random(MAXINT)); - LogicalName := ASource.LogicalName; - - Params.AssignParamCollection(ASource.Params); - - if Assigned(ASource.LocalSchema) then - LocalSchema := ASource.LocalSchema - else - ATarget.Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema; - - with MasterParamsMappings do - for i := 0 to ASource.MasterParamsMappings.Count - 1 do - Add(ASource.MasterParamsMappings.Strings[i]); - - with MasterRequestMappings do - for i := 0 to ASource.MasterRequestMappings.Count - 1 do - Add(ASource.MasterRequestMappings.Strings[i]); - - MasterMappingMode := ASource.MasterMappingMode; - - MasterFields := ASource.MasterFields; - MasterOptions := ASource.MasterOptions; - - DetailFields := ASource.DetailFields; - DetailOptions := ASource.DetailOptions; - - RemoteUpdatesOptions := ASource.RemoteUpdatesOptions; - StreamingOptions := ASource.StreamingOptions; - RemoteFetchEnabled := ASource.RemoteFetchEnabled; - end; - - if not RemoteUpdate then - begin - ATarget.LogChanges := False; - ATarget.RemoteFetchEnabled := False; - end; -end; - - -end. - -procedure CloneDataTable(const ASource : TDACDSDataTable; - var ATarget : TDACDSDataTable; RemoteUpdate: Boolean); -var - i : Integer; -begin - with ATarget do - begin - // ****** Inicio migración DA 5 - - //RemoteService := ASource.GetRemoteService; - //Adapter := ASource.GetAdapter; - RemoteDataAdapter.Assign(ASource.RemoteDataAdapter); - // ****** Fin migración DA 5 - - BusinessRulesID := ASource.BusinessRulesID; - Randomize; - Name := ASource.Name + '_' + IntToStr(Random(MAXINT)); - LogicalName := ASource.LogicalName; - - Params.AssignParamCollection(ASource.Params); - - if Assigned(ASource.LocalSchema) then - LocalSchema := ASource.LocalSchema - else begin - // ****** Inicio migración DA 5 - { - with SchemaCall do - begin - MethodName := ASource.SchemaCall.MethodName; - for i := 0 to ASource.SchemaCall.Params.Count - 1 do - begin - with Params.Add do begin - Name := ASource.SchemaCall.Params[i].Name; - ParamType := ASource.SchemaCall.Params[i].ParamType; - DataType := ASource.SchemaCall.Params[i].DataType; - Value := ASource.SchemaCall.Params[i].Value; - UserClassName := ASource.SchemaCall.Params[i].UserClassName; - end; - end; - end; - } - // ****** Fin migración DA 5 - ATarget.Fields.AssignFieldCollection(ASource.Fields); // o también ATarget.LoadSchema; - end; - - // ****** Inicio migración DA 5 - { - with DataUpdateCall do - begin - MethodName := ASource.DataUpdateCall.MethodName; - for i := 0 to ASource.DataUpdateCall.Params.Count - 1 do - begin - with Params.Add do begin - Name := ASource.DataUpdateCall.Params[i].Name; - ParamType := ASource.DataUpdateCall.Params[i].ParamType; - DataType := ASource.DataUpdateCall.Params[i].DataType; - Value := ASource.DataUpdateCall.Params[i].Value; - UserClassName := ASource.DataUpdateCall.Params[i].UserClassName; - end; - end; - end; - - with ScriptCall do - begin - MethodName := ASource.ScriptCall.MethodName; - for i := 0 to ASource.ScriptCall.Params.Count - 1 do - begin - with Params.Add do begin - Name := ASource.ScriptCall.Params[i].Name; - ParamType := ASource.ScriptCall.Params[i].ParamType; - DataType := ASource.ScriptCall.Params[i].DataType; - Value := ASource.ScriptCall.Params[i].Value; - UserClassName := ASource.ScriptCall.Params[i].UserClassName; - end; - end; - end; - - with DataRequestCall do - begin - MethodName := ASource.DataRequestCall.MethodName; - for i := 0 to ASource.DataRequestCall.Params.Count - 1 do - begin - with Params.Add do begin - begin - Name := ASource.DataRequestCall.Params[i].Name; - ParamType := ASource.DataRequestCall.Params[i].ParamType; - DataType := ASource.DataRequestCall.Params[i].DataType; - Value := ASource.DataRequestCall.Params[i].Value; - UserClassName := ASource.DataRequestCall.Params[i].UserClassName; - end; - end; - end; - end; - } - // ****** Fin migración DA 5 - - with MasterParamsMappings do - for i := 0 to ASource.MasterParamsMappings.Count - 1 do - Add(ASource.MasterParamsMappings.Strings[i]); - - with MasterRequestMappings do - for i := 0 to ASource.MasterRequestMappings.Count - 1 do - Add(ASource.MasterRequestMappings.Strings[i]); - - MasterMappingMode := ASource.MasterMappingMode; - - MasterFields := ASource.MasterFields; - MasterOptions := ASource.MasterOptions; - - DetailFields := ASource.DetailFields; - DetailOptions := ASource.DetailOptions; - - RemoteUpdatesOptions := ASource.RemoteUpdatesOptions; - StreamingOptions := ASource.StreamingOptions; - RemoteFetchEnabled := ASource.RemoteFetchEnabled; - end; - - if not RemoteUpdate then - begin - ATarget.LogChanges := False; - ATarget.RemoteFetchEnabled := False; - end; -end; - - - diff --git a/Varela/Varela/Source/Base/uEditorBase.dfm b/Varela/Varela/Source/Base/uEditorBase.dfm deleted file mode 100644 index 9848171..0000000 --- a/Varela/Varela/Source/Base/uEditorBase.dfm +++ /dev/null @@ -1,1622 +0,0 @@ -object fEditorBase: TfEditorBase - Left = 222 - Top = 127 - Width = 662 - Height = 496 - Caption = 'EditorBase' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - KeyPreview = True - OldCreateOrder = False - Position = poDefault - OnCloseQuery = FormCloseQuery - OnShow = FormShow - InstanceID = 0 - ReadOnly = False - PixelsPerInch = 96 - TextHeight = 13 - object JvNavPanelHeader: TJvNavPanelHeader - Left = 0 - Top = 49 - Width = 654 - Align = alTop - Caption = 'Editor' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindow - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - ColorFrom = 8684164 - ColorTo = 8684164 - ImageIndex = 0 - StyleManager = dmBase.StyleManager - ParentStyleManager = False - object Image1: TImage - Left = 627 - Top = 0 - Width = 27 - Height = 27 - Align = alRight - Center = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 520000000467414D410000AA11B57D14DC000001CC4944415478DA63FCFFFF3F - 032D0123B2058B361EA79A6D71FE968C582D004A906CD8DFBFFF80F83F980601 - 0BDF6C868B7B66E1B6C0752FAA25BB9D8FE3341C59ED5A8B030CF356EF6198BF - 64237E0B4871B9C7016B0659651686F9DB8E30BC8BFEC6B070FD3EC21660F301 - BA18086CB53DC2E07DD88661CFCD1360FEEB882F0C4B361DA0CC07FFFF01C31A - 88FF005D0F62FFFE070CFF3FFFC0BEF9F3EF2FC38A2D8749F7013100E48B4741 - EF18D6EE38469C05306F9302EEFBBF61D8B0FB047116E04B39D80048CF4CD5CD - 0C9BF69D24DE025C4105B31C260F533B4D7913C3D603A768E783890A1B18761D - 3E433B1FF4C9AC63D87BFC1CED7CD02DB986E1C0A90BF82D88F63107E74E727C - D02EBE8AE1C8994BF82D88F03403E74E727CD024BC9CE1E485ABF82D08753361 - F03B66479605F5024B19CE5CBE8EDF8200172386E0130E780D0359BEE4CF5C38 - 3F8625196C410DEF6286F3D76EE2B7C0D7C1005EAE40CAF97FE0B2072C062CF3 - 73EFFB63C40F8C5FC9BD88E1D28D5BF82DF0B2D5C36938882E78148835F888B6 - C0CD5A1BA7E1A012B4E46930CEA023CA0247730DB061FFFE428AE5DF7F11C5F1 - BFFF508BFEFD437104322068819D891AB844A404E0B5A077F27C8A0C87019805 - 00F0E629EF34B079A30000000049454E44AE426082} - Transparent = True - end - end - object TBXDock: TTBXDock - Left = 0 - Top = 0 - Width = 654 - Height = 49 - AllowDrag = False - object tbxMain: TTBXToolbar - Left = 0 - Top = 23 - Caption = 'tbxMain' - ChevronHint = 'M'#225's botones|' - DockMode = dmCannotFloatOrChangeDocks - DockPos = -23 - DockRow = 1 - DragHandleStyle = dhNone - Images = SmallImages - ParentShowHint = False - ShowHint = True - TabOrder = 0 - object TBXItem2: TTBXItem - Action = actNuevo - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem1: TTBXSeparatorItem - end - object TBXItem29: TTBXItem - Action = actGuardarCerrar - DisplayMode = nbdmImageAndText - end - object TBXItem27: TTBXItem - Action = actGuardar - end - object TBXItem5: TTBXItem - Action = actModificar - DisplayMode = nbdmImageAndText - end - object TBXItem4: TTBXItem - Action = actEliminar - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem3: TTBXSeparatorItem - end - object TBXItem23: TTBXItem - Action = actPrevisualizar - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem2: TTBXSeparatorItem - Visible = False - end - object TBXItem24: TTBXItem - Action = actConfPagina - Visible = False - end - object TBXItem3: TTBXItem - Action = actImprimir - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem10: TTBXSeparatorItem - end - object TBXItem26: TTBXItem - Action = actAnterior - end - object TBXItem25: TTBXItem - Action = actSiguiente - end - object TBXItem6: TTBXItem - Action = actRefrescar - end - object TBXSeparatorItem11: TTBXSeparatorItem - end - object TBXItem28: TTBXItem - Action = actCerrar - end - end - object tbxMenu: TTBXToolbar - Left = 0 - Top = 0 - Caption = 'Menu' - CloseButton = False - DragHandleStyle = dhNone - FullSize = True - Images = SmallImages - MenuBar = True - ProcessShortCuts = True - ShrinkMode = tbsmWrap - TabOrder = 1 - object TBXSubmenuItem4: TTBXSubmenuItem - Caption = '&Archivo' - object TBXItem8: TTBXItem - Action = actNuevo - end - object TBXSeparatorItem5: TTBXSeparatorItem - end - object TBXItem30: TTBXItem - Action = actGuardar - end - object TBXItem10: TTBXItem - Action = actModificar - end - object TBXSeparatorItem12: TTBXSeparatorItem - end - object TBXItem11: TTBXItem - Action = actEliminar - end - object TBXSeparatorItem6: TTBXSeparatorItem - end - object TBXItem21: TTBXItem - Action = actConfPagina - end - object TBXItem22: TTBXItem - Action = actPrevisualizar - end - object TBXItem9: TTBXItem - Action = actImprimir - end - object TBXSeparatorItem4: TTBXSeparatorItem - end - object TBXItem1: TTBXItem - Action = actCerrar - end - end - object TBXSubmenuItem5: TTBXSubmenuItem - Caption = '&Edici'#243'n' - object TBXItem16: TTBXItem - Action = actDeshacer - end - object TBXSeparatorItem8: TTBXSeparatorItem - end - object TBXItem15: TTBXItem - Action = actCortar - end - object TBXItem14: TTBXItem - Action = actCopiar - end - object TBXItem13: TTBXItem - Action = actPegar - end - object TBXSeparatorItem7: TTBXSeparatorItem - end - object TBXItem12: TTBXItem - Action = actLimpiar - end - object TBXSeparatorItem9: TTBXSeparatorItem - end - object TBXItem17: TTBXItem - Action = actSeleccionarTodo - end - end - object TBXSubmenuItem1: TTBXSubmenuItem - Caption = '&Buscar' - object TBXItem32: TTBXItem - Action = actAnterior - end - object TBXItem31: TTBXItem - Action = actSiguiente - end - object TBXSeparatorItem13: TTBXSeparatorItem - end - object TBXItem20: TTBXItem - Action = actBuscar - end - end - object TBXSubmenuItem6: TTBXSubmenuItem - Caption = '&Ver' - object TBXItem18: TTBXItem - Action = actRefrescar - end - end - object TBXSubmenuItem7: TTBXSubmenuItem - Caption = 'Ay&uda' - object TBXItem19: TTBXItem - Action = actAcercaDe - end - end - end - end - object StatusBar: TStatusBar - Left = 0 - Top = 443 - Width = 654 - Height = 19 - Panels = < - item - Width = 50 - end> - Visible = False - end - object EditorActionList: TActionList - Images = SmallImages - Left = 16 - Top = 144 - object actNuevo: TAction - Category = 'Archivo' - Caption = 'Nuevo' - ShortCut = 45 - end - object actModificar: TAction - Category = 'Archivo' - Caption = 'Modificar' - ImageIndex = 18 - end - object actGuardarCerrar: TAction - Category = 'Archivo' - Caption = 'G&uardar y cerrar' - ImageIndex = 17 - OnExecute = actGuardarCerrarExecute - end - object actGuardar: TAction - Category = 'Archivo' - Caption = '&Guardar' - ImageIndex = 17 - end - object actEliminar: TAction - Category = 'Archivo' - Caption = 'Eliminar' - ImageIndex = 4 - ShortCut = 16430 - end - object actConfPagina: TAction - Category = 'Archivo' - Caption = '&Configurar p'#225'gina' - ImageIndex = 8 - end - object actPrevisualizar: TAction - Category = 'Archivo' - Caption = '&Previsualizar' - ImageIndex = 6 - end - object actImprimir: TAction - Category = 'Archivo' - Caption = 'Imprimir' - ImageIndex = 7 - ShortCut = 16464 - end - object actDeshacer: TEditUndo - Category = 'Edici'#243'n' - Caption = 'Deshacer' - Hint = 'Undo|Reverts the last action' - ImageIndex = 12 - ShortCut = 16474 - end - object actCortar: TEditCut - Category = 'Edici'#243'n' - Caption = 'Cortar' - Hint = 'Cortar|Corta la selecci'#243'n y la coloca en el portapapeles' - ImageIndex = 3 - ShortCut = 16472 - end - object actCerrar: TAction - Category = 'Archivo' - Caption = 'Cerrar' - OnExecute = actCerrarExecute - end - object actCopiar: TEditCopy - Category = 'Edici'#243'n' - Caption = 'Copiar' - Hint = 'Copiar|Copia la selecci'#243'n y la coloca en el portapapeles' - ImageIndex = 2 - ShortCut = 16451 - end - object actPegar: TEditPaste - Category = 'Edici'#243'n' - Caption = 'Pegar' - Hint = 'Pegar|Inserta el contenido del portapapeles' - ImageIndex = 5 - ShortCut = 16470 - end - object actSeleccionarTodo: TEditSelectAll - Category = 'Edici'#243'n' - Caption = 'Seleccionar todo' - Hint = 'Seleccionar todo' - ImageIndex = 11 - ShortCut = 16449 - end - object actLimpiar: TEditDelete - Category = 'Edici'#243'n' - Caption = '&Limpiar' - Hint = 'Limpiar|Borra el texto seleccionado' - ImageIndex = 1 - ShortCut = 46 - end - object actRefrescar: TAction - Category = 'Ver' - Caption = 'Refrescar' - ImageIndex = 9 - ShortCut = 116 - end - object actAcercaDe: TAction - Category = 'Ayuda' - Caption = 'Acerca de...' - ImageIndex = 0 - end - object actBuscar: TAction - Category = 'Buscar' - Caption = 'Buscar' - ImageIndex = 10 - ShortCut = 114 - end - object actAnterior: TAction - Category = 'Ver' - Caption = 'Anterior' - ImageIndex = 15 - end - object actSiguiente: TAction - Category = 'Ver' - Caption = 'Siguiente' - ImageIndex = 16 - end - object actCancelarCambios: TAction - Category = 'Archivo' - Caption = 'Cancelar cambios' - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 395 - Top = 80 - Bitmap = {} - end - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 427 - Top = 80 - Bitmap = {} - end - object JvFormStorage: TJvFormStorage - AppStorage = JvAppRegistryStorage - AppStoragePath = 'fEditorBase\' - VersionCheck = fpvcNocheck - StoredValues = <> - Left = 392 - Top = 120 - end - object JvAppRegistryStorage: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 424 - Top = 120 - end -end diff --git a/Varela/Varela/Source/Base/uEditorBase.pas b/Varela/Varela/Source/Base/uEditorBase.pas deleted file mode 100644 index ef16e4f..0000000 --- a/Varela/Varela/Source/Base/uEditorBase.pas +++ /dev/null @@ -1,218 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uGUIBase, uCustomEditor, ToolWin, ComCtrls, JvExControls, - JvComponent, JvNavigationPane, ActnList, TBX, TB2Item, ImgList, - PngImageList, StdActns, JvFormAutoSize, AppEvnts, uCustomView, uViewBase, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, - JvComponentBase, TB2Dock, TB2Toolbar; - -type - IEditorBase = interface(ICustomEditor) - ['{CB8CDE00-B225-4A1D-9A5C-EC6FBE2C854B}'] - function ShowModal : Integer; - end; - - TfEditorBase = class(TCustomEditor, IEditorBase) - actAcercaDe: TAction; - actAnterior: TAction; - actBuscar: TAction; - actCancelarCambios: TAction; - actCerrar: TAction; - actConfPagina: TAction; - actCopiar: TEditCopy; - actCortar: TEditCut; - actDeshacer: TEditUndo; - actEliminar: TAction; - actGuardar: TAction; - actGuardarCerrar: TAction; - actImprimir: TAction; - actLimpiar: TEditDelete; - actModificar: TAction; - actNuevo: TAction; - actPegar: TEditPaste; - actPrevisualizar: TAction; - actRefrescar: TAction; - actSeleccionarTodo: TEditSelectAll; - actSiguiente: TAction; - EditorActionList: TActionList; - JvNavPanelHeader: TJvNavPanelHeader; - LargeImages: TPngImageList; - SmallImages: TPngImageList; - TBXDock: TTBXDock; - TBXItem1: TTBXItem; - TBXItem10: TTBXItem; - TBXItem11: TTBXItem; - TBXItem12: TTBXItem; - TBXItem13: TTBXItem; - TBXItem14: TTBXItem; - TBXItem15: TTBXItem; - TBXItem16: TTBXItem; - TBXItem17: TTBXItem; - TBXItem18: TTBXItem; - TBXItem19: TTBXItem; - TBXItem2: TTBXItem; - TBXItem20: TTBXItem; - TBXItem21: TTBXItem; - TBXItem22: TTBXItem; - TBXItem23: TTBXItem; - TBXItem24: TTBXItem; - TBXItem25: TTBXItem; - TBXItem26: TTBXItem; - TBXItem27: TTBXItem; - TBXItem28: TTBXItem; - TBXItem29: TTBXItem; - TBXItem3: TTBXItem; - TBXItem30: TTBXItem; - TBXItem31: TTBXItem; - TBXItem32: TTBXItem; - TBXItem4: TTBXItem; - TBXItem5: TTBXItem; - TBXItem6: TTBXItem; - TBXItem8: TTBXItem; - TBXItem9: TTBXItem; - tbxMain: TTBXToolbar; - tbxMenu: TTBXToolbar; - TBXSeparatorItem1: TTBXSeparatorItem; - TBXSeparatorItem10: TTBXSeparatorItem; - TBXSeparatorItem11: TTBXSeparatorItem; - TBXSeparatorItem12: TTBXSeparatorItem; - TBXSeparatorItem13: TTBXSeparatorItem; - TBXSeparatorItem2: TTBXSeparatorItem; - TBXSeparatorItem3: TTBXSeparatorItem; - TBXSeparatorItem4: TTBXSeparatorItem; - TBXSeparatorItem5: TTBXSeparatorItem; - TBXSeparatorItem6: TTBXSeparatorItem; - TBXSeparatorItem7: TTBXSeparatorItem; - TBXSeparatorItem8: TTBXSeparatorItem; - TBXSeparatorItem9: TTBXSeparatorItem; - TBXSubmenuItem1: TTBXSubmenuItem; - TBXSubmenuItem4: TTBXSubmenuItem; - TBXSubmenuItem5: TTBXSubmenuItem; - TBXSubmenuItem6: TTBXSubmenuItem; - TBXSubmenuItem7: TTBXSubmenuItem; - StatusBar: TStatusBar; - JvFormStorage: TJvFormStorage; - JvAppRegistryStorage: TJvAppRegistryStorage; - Image1: TImage; - procedure actCerrarExecute(Sender: TObject); - procedure actGuardarCerrarExecute(Sender: TObject); - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); - protected - function ModifiedQuery : Boolean; - procedure CreateParams(var Params: TCreateParams); override; - public - constructor Create(AOwner: TComponent); override; - published - procedure FormShow(Sender: TObject); virtual; - end; - - TfEditorBaseClass = class of TfEditorBase; - -implementation - -{$R *.dfm} - -uses - Menus, uDataModuleBase, cxControls; - -{ -********************************* TfEditorBase ********************************* -} -procedure TfEditorBase.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfEditorBase.actGuardarCerrarExecute(Sender: TObject); -begin - ShowHourglassCursor; - Application.ProcessMessages; - try - if actGuardar.Execute then - actCerrar.Execute; - finally - HideHourglassCursor; - end; -end; - -constructor TfEditorBase.Create(AOwner: TComponent); -var - APath : String; -begin - inherited; - with JvFormStorage do - begin - if Pos('_', Self.Name) = 0 then - APath := Self.Name - else - APath := Copy(Self.Name, 0, (Pos('_', Self.Name)-1)); - AppStoragePath := APath; - end; - JvNavPanelHeader.StyleManager := dmBase.StyleManager; -end; - -procedure TfEditorBase.CreateParams(var Params: TCreateParams); -begin - inherited; -end; - -procedure TfEditorBase.FormCloseQuery(Sender: TObject; var CanClose: Boolean); -begin - if Valid then - CanClose := ModifiedQuery - else - CanClose := False; -end; - -procedure TfEditorBase.FormShow(Sender: TObject); -begin -{ if Assigned(Parent) then - begin - StatusBar.Visible := False; - actCerrar.ShortCut := 0 - end - else begin - StatusBar.Visible := True; - actCerrar.ShortCut := ShortCut(VK_ESCAPE, []); - end;} -end; - -function TfEditorBase.ModifiedQuery: Boolean; -var - Respuesta: Integer; -begin - Result := True; - if Modified then - begin - Respuesta := Application.MessageBox('Se han producido cambios.' + #10#13 + - '¿Desea guardarlos antes de salir?', 'Atención', MB_YESNOCANCEL); - case Respuesta of - IDYES : actGuardar.Execute; - IDNO : actCancelarCambios.Execute; - else - Result := False; - end; - end -{ else - actCancelarCambios.Execute;} -end; - -initialization - RegisterClass(TfEditorBase); - -finalization - UnRegisterClass(TfEditorBase); - -end. diff --git a/Varela/Varela/Source/Base/uEditorDBBase.ddp b/Varela/Varela/Source/Base/uEditorDBBase.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Base/uEditorDBBase.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Base/uEditorDBBase.dfm b/Varela/Varela/Source/Base/uEditorDBBase.dfm deleted file mode 100644 index 317e217..0000000 --- a/Varela/Varela/Source/Base/uEditorDBBase.dfm +++ /dev/null @@ -1,70 +0,0 @@ -inherited fEditorDBBase: TfEditorDBBase - Left = 295 - Top = 247 - Caption = 'fEditorDBBase' - ClientHeight = 460 - ClientWidth = 652 - ExplicitWidth = 660 - ExplicitHeight = 494 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 652 - ExplicitWidth = 652 - inherited Image1: TImage - Left = 625 - Picture.Data = {00} - ExplicitLeft = 625 - end - end - inherited TBXDock: TTBXDock - Width = 652 - ExplicitWidth = 652 - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 652 - end - end - inherited StatusBar: TStatusBar - Top = 441 - Width = 652 - ExplicitTop = 441 - ExplicitWidth = 652 - end - inherited EditorActionList: TActionList - inherited actModificar: TAction - OnUpdate = actModificarUpdate - end - inherited actGuardar: TAction - OnExecute = actGuardarExecute - end - inherited actEliminar: TAction - OnExecute = actEliminarExecute - OnUpdate = actEliminarUpdate - end - inherited actPrevisualizar: TAction - OnUpdate = actPrevisualizarUpdate - end - inherited actImprimir: TAction - OnUpdate = actImprimirUpdate - end - inherited actRefrescar: TAction - OnExecute = actRefrescarExecute - OnUpdate = actRefrescarUpdate - end - inherited actAnterior: TAction - OnExecute = actAnteriorExecute - OnUpdate = actAnteriorUpdate - end - inherited actSiguiente: TAction - OnExecute = actSiguienteExecute - OnUpdate = actSiguienteUpdate - end - inherited actCancelarCambios: TAction - OnExecute = actCancelarCambiosExecute - end - end - object dsDataTable: TDADataSource - Left = 40 - Top = 88 - end -end diff --git a/Varela/Varela/Source/Base/uEditorDBBase.pas b/Varela/Varela/Source/Base/uEditorDBBase.pas deleted file mode 100644 index 667d42c..0000000 --- a/Varela/Varela/Source/Base/uEditorDBBase.pas +++ /dev/null @@ -1,305 +0,0 @@ -unit uEditorDBBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX, - TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent, - JvNavigationPane, DB, uDADataTable, uEditorBase, JvFormAutoSize, - uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, uViewBase, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, - pngimage, ExtCtrls, dxLayoutLookAndFeels, JvComponentBase, uDAInterfaces; - -type - IEditorDBBase = interface(IEditorBase) - ['{497AE4CE-D061-4F75-A29A-320F8565FF54}'] - end; - - TfEditorDBBase = class(TfEditorBase, IEditorDBBase) - dsDataTable: TDADataSource; - procedure actRefrescarExecute(Sender: TObject); - procedure actAnteriorExecute(Sender: TObject); - procedure actSiguienteExecute(Sender: TObject); - procedure actAnteriorUpdate(Sender: TObject); - procedure actSiguienteUpdate(Sender: TObject); - procedure actRefrescarUpdate(Sender: TObject); - procedure actCancelarCambiosExecute(Sender: TObject); - procedure actGuardarExecute(Sender: TObject); - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); virtual; - procedure actEliminarExecute(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actPrevisualizarUpdate(Sender: TObject); - procedure actImprimirUpdate(Sender: TObject); - private - { Private declarations } - protected - function GetModified: Boolean; override; - published - end; - -var - fEditorDBBase: TfEditorDBBase; - -implementation - -uses - uExceptions, uDataTableUtils, uBizInformesBase, - cxControls, uDADelta; - -{$R *.dfm} - -procedure TfEditorDBBase.actRefrescarExecute(Sender: TObject); -var - ABookmark : TBookmark; -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if (dsDataTable.DataTable.IsEmpty) or (not ModifiedQuery) then - Exit; // No continuar con el refresco - - ABookmark := dsDataTable.DataTable.GetBookMark; -// dsDataTable.DataTable.DisableControls; <- No descomentar - - ShowHourglassCursor; - try - dsDataTable.DataTable.Refresh; - - if dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark) then - dsDataTable.DataTable.GotoBookmark(ABookmark); - finally - dsDataTable.DataTable.FreeBookmark(ABookmark); -// dsDataTable.DataTable.EnableControls; <- No descomentar - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorDBBase.actAnteriorExecute(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if (not ModifiedQuery) then - Exit; - - dsDataTable.DataTable.Prior; - end; -end; - -procedure TfEditorDBBase.actSiguienteExecute(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if (not ModifiedQuery) then - Exit; - - dsDataTable.DataTable.Next; - end; -end; - -procedure TfEditorDBBase.actAnteriorUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := not dsDataTable.DataTable.BOF - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actSiguienteUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := not dsDataTable.DataTable.EOF - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actRefrescarUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := not dsDataTable.DataTable.Fetching - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actCancelarCambiosExecute(Sender: TObject); -var - dtDetails : TList; - i : integer; - ABookmark : TBookmark; -begin - inherited; - - if Assigned(dsDataTable.DataTable) then - begin - ABookmark := dsDataTable.DataTable.GetBookMark; - dsDataTable.DataTable.DisableControls; -// dsDataTable.DataTable.DisableEventHandlers; <- No descomentar - - ShowHourglassCursor; - { No lo pongo en try..finally para ver posibles errores } - //try - dsDataTable.DataTable.Cancel; - - dtDetails := dsDataTable.DataTable.GetDetailDataTables; - for i := 0 to dtDetails.Count - 1 do - begin - (TDADataTable(dtDetails.Items[i])).Cancel; - end; - - dsDataTable.DataTable.CancelUpdates; - - { Comprobar si el bookmark no es válido cuando estamos cancelando la - inserción de una fila nueva. - CUIDADO!! Si no es válido salta una excepción. NO devuelve false!!!} - try - if (Assigned(ABookmark)) and - (dsDataTable.DataTable.Dataset.BookmarkValid(ABookmark)) then - dsDataTable.DataTable.GotoBookmark(ABookmark); - except - end; - - //finally - dsDataTable.DataTable.EnableControls; - dsDataTable.DataTable.FreeBookmark(ABookmark); -// dsDataTable.DataTable.EnableEventHandlers; <- No descomentar - HideHourglassCursor - //end; - end; -end; - -procedure TfEditorDBBase.actGuardarExecute(Sender: TObject); -var - dtDetails : TList; - i : integer; -begin - inherited; - if Assigned(dsDataTable.DataTable) then - begin - if dsDataTable.DataTable.Editing then - dsDataTable.DataTable.Post; - - dtDetails := dsDataTable.DataTable.GetDetailDataTables; - for i := 0 to dtDetails.Count - 1 do - if (TDADataTable(dtDetails.Items[i])).Editing then - (TDADataTable(dtDetails.Items[i])).Post; - - dsDataTable.DataTable.ApplyUpdates; - Modified := False; - end; -end; - -function TfEditorDBBase.GetModified: Boolean; -var - dtDetails : TList; - i : integer; - bCambiado : Boolean; -begin - bCambiado := False; - if Assigned(dsDataTable.DataTable) then - begin - bCambiado := (dsDataTable.DataTable.State = dsEdit) or - DeltaValuesAreDifferent(dsDataTable.DataTable.Delta); - - if (not bCambiado) then - begin - dtDetails := dsDataTable.DataTable.GetDetailDataTables; - for i := 0 to dtDetails.Count - 1 do - begin - bCambiado := bCambiado or - ((TDADataTable(dtDetails.Items[i])).State = dsEdit) or - DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta); - if bCambiado then - Break; - end; - end; - end; - - if (not bCambiado) then - bCambiado := inherited GetModified; - - Result := bCambiado; -end; - -procedure TfEditorDBBase.FormCloseQuery(Sender: TObject; - var CanClose: Boolean); -begin - { Para resetear el estado de la tabla en el caso de hacer un insert - sin meter ningún dato. } - if Assigned(dsDataTable.DataTable) and (not Modified) then - dsDataTable.DataTable.Cancel; - inherited; -end; - -procedure TfEditorDBBase.actEliminarExecute(Sender: TObject); -var - aObj : IApplyUpdateFailedException; -begin - inherited; - ShowHourglassCursor; - try - if dsDataTable.DataTable.State in dsEditModes then - dsDataTable.DataTable.Cancel; - dsDataTable.DataTable.Delete; - try - dsDataTable.DataTable.ApplyUpdates; - Modified := False; - except - on E: EDAApplyUpdateFailed do - begin - dsDataTable.DataTable.CancelUpdates; - actRefrescar.Execute; - if Supports(dsDataTable.DataTable, IApplyUpdateFailedException, aObj) then - aObj.ShowApplyUpdateFailed(E); - end - else - raise; // Generic exception - end; - finally - HideHourglassCursor; - end; -end; - -procedure TfEditorDBBase.actEliminarUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actModificarUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actPrevisualizarUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorDBBase.actImprimirUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - else - (Sender as TAction).Enabled := False; -end; - -end. diff --git a/Varela/Varela/Source/Base/uEditorDBItem.ddp b/Varela/Varela/Source/Base/uEditorDBItem.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Base/uEditorDBItem.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Base/uEditorDBItem.dfm b/Varela/Varela/Source/Base/uEditorDBItem.dfm deleted file mode 100644 index fe0bcb2..0000000 --- a/Varela/Varela/Source/Base/uEditorDBItem.dfm +++ /dev/null @@ -1,60 +0,0 @@ -inherited fEditorDBItem: TfEditorDBItem - Left = 450 - Top = 321 - Caption = 'fEditorDBItem' - ClientHeight = 465 - ClientWidth = 656 - ExplicitWidth = 664 - ExplicitHeight = 499 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 656 - ExplicitWidth = 656 - inherited Image1: TImage - Left = 629 - ExplicitLeft = 629 - end - end - inherited TBXDock: TTBXDock - Width = 656 - ExplicitWidth = 656 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 548 - inherited TBXItem26: TTBXItem - Visible = False - end - inherited TBXItem25: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 656 - inherited TBXSubmenuItem1: TTBXSubmenuItem - Visible = False - end - end - end - inherited StatusBar: TStatusBar - Top = 446 - Width = 656 - ExplicitTop = 446 - ExplicitWidth = 656 - end - inherited EditorActionList: TActionList - Top = 112 - inherited actEliminar: TAction - ShortCut = 0 - end - inherited actPrevisualizar: TAction - OnExecute = actPrevisualizarExecute - end - inherited actImprimir: TAction - OnExecute = actImprimirExecute - end - end - inherited dsDataTable: TDADataSource - Left = 48 - Top = 112 - end -end diff --git a/Varela/Varela/Source/Base/uEditorDBItem.pas b/Varela/Varela/Source/Base/uEditorDBItem.pas deleted file mode 100644 index d902c74..0000000 --- a/Varela/Varela/Source/Base/uEditorDBItem.pas +++ /dev/null @@ -1,89 +0,0 @@ -unit uEditorDBItem; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX, - TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent, - JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, - StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView, - uViewBase, JvAppStorage, JvAppRegistryStorage, - JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, uDAInterfaces; - -type - IEditorDBItem = interface(IEditorDBBase) - ['{497AE4CE-D061-4F75-A29A-320F8565FF54}'] - end; - - TfEditorDBItem = class(TfEditorDBBase, IEditorDBItem) - procedure actEliminarExecute(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -var - fEditorDBItem: TfEditorDBItem; - -implementation - -uses - uBizInformesBase; - -{$R *.dfm} - -procedure TfEditorDBItem.actEliminarExecute(Sender: TObject); -begin - inherited; - actCerrar.Execute; -end; - -procedure TfEditorDBItem.actPrevisualizarExecute(Sender: TObject); -var - Respuesta: Integer; - aInf : IBizInformesAware; -begin - inherited; -{ if Modified then - begin - if (Application.MessageBox('Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 + - '¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then - actGuardar.Execute - else begin - Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'Información', MB_OK); - Exit; - end; - end;} - - if Assigned(dsDataTable.DataTable) and - Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then - aInf.Preview; -end; - -procedure TfEditorDBItem.actImprimirExecute(Sender: TObject); -var - Respuesta: Integer; - aInf : IBizInformesAware; -begin - inherited; -{ if Modified then - begin - if (Application.MessageBox('Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 + - '¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then - actGuardar.Execute - else begin - Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'Información', MB_OK); - Exit; - end; - end;} - - if Assigned(dsDataTable.DataTable) and - Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then - aInf.Print; -end; - -end. diff --git a/Varela/Varela/Source/Base/uEditorGridBase.dfm b/Varela/Varela/Source/Base/uEditorGridBase.dfm deleted file mode 100644 index 2329822..0000000 --- a/Varela/Varela/Source/Base/uEditorGridBase.dfm +++ /dev/null @@ -1,1433 +0,0 @@ -inherited fEditorGridBase: TfEditorGridBase - Left = 441 - Top = 354 - Caption = 'fEditorGridBase' - ClientHeight = 446 - ClientWidth = 703 - ExplicitWidth = 711 - ExplicitHeight = 480 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 0 - Width = 703 - ExplicitTop = 0 - ExplicitWidth = 703 - inherited Image1: TImage - Left = 676 - ExplicitLeft = 676 - end - end - inherited TBXDock: TTBXDock - Top = 27 - Width = 703 - ExplicitTop = 27 - ExplicitWidth = 703 - inherited tbxMain: TTBXToolbar - DefaultDock = TBXDock - ExplicitWidth = 442 - inherited TBXItem29: TTBXItem - Visible = False - end - inherited TBXItem27: TTBXItem - Visible = False - end - object TBXSeparatorItem14: TTBXSeparatorItem [6] - end - object TBXItem33: TTBXItem [7] - Action = actDuplicar - DisplayMode = nbdmImageAndText - end - inherited TBXItem26: TTBXItem - Visible = False - end - inherited TBXItem25: TTBXItem - Visible = False - end - inherited TBXItem28: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - Visible = False - ExplicitWidth = 703 - inherited TBXSubmenuItem4: TTBXSubmenuItem - object TBXItem34: TTBXItem [7] - Action = actDuplicar - end - object TBXSeparatorItem15: TTBXSeparatorItem [8] - end - end - end - object tbxFiltro: TTBXToolbar - Left = 442 - Top = 23 - Align = alRight - CloseButton = False - DefaultDock = TBXDock - DockMode = dmCannotFloatOrChangeDocks - DockPos = 392 - DockRow = 1 - DragHandleStyle = dhNone - Images = SmallImages - ParentShowHint = False - Resizable = False - ShowHint = True - ShrinkMode = tbsmNone - TabOrder = 2 - object TBXLabelItem1: TTBXLabelItem - Caption = 'Filtrar:' - end - object tbxEditFiltro: TTBXEditItem - EditWidth = 150 - ImageIndex = 10 - EditorFontSettings.Italic = tsTrue - ExtendedAccept = True - Images = SmallImages - ShowImage = True - OnChange = tbxEditFiltroChange - end - object TBXItem7: TTBXItem - Action = actQuitarFiltro - Images = SmallImages - end - end - end - inherited StatusBar: TStatusBar - Top = 427 - Width = 703 - ExplicitTop = 427 - ExplicitWidth = 703 - end - inherited EditorActionList: TActionList - Left = 72 - Top = 120 - inherited actGuardarCerrar: TAction - Enabled = False - end - inherited actGuardar: TAction - Enabled = False - end - inherited actConfPagina: TAction - OnExecute = actConfPaginaExecute - end - inherited actPrevisualizar: TAction - OnExecute = actPrevisualizarExecute - end - inherited actImprimir: TAction - OnExecute = actImprimirExecute - end - inherited actCerrar: TAction - Enabled = False - end - inherited actAnterior: TAction - Enabled = False - end - inherited actSiguiente: TAction - Enabled = False - end - inherited actCancelarCambios: TAction - Enabled = False - end - object actQuitarFiltro: TAction - Category = 'Buscar' - Caption = 'Quitar filtro y ver todo' - ImageIndex = 19 - OnExecute = actQuitarFiltroExecute - end - object actDuplicar: TAction - Category = 'Archivo' - Caption = 'Duplicar' - ImageIndex = 20 - OnUpdate = actDuplicarUpdate - end - end - inherited SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage - OnSavePlacement = JvFormStorageSavePlacement - OnRestorePlacement = JvFormStorageRestorePlacement - end - object GridPopupMenu: TPopupMenu - Images = SmallImages - Left = 72 - Top = 88 - object Modificar1: TMenuItem - Action = actModificar - end - object Duplicar1: TMenuItem - Action = actDuplicar - end - object Eliminar1: TMenuItem - Action = actEliminar - end - object N1: TMenuItem - Caption = '-' - end - object Nuevo1: TMenuItem - Action = actNuevo - end - object N2: TMenuItem - Caption = '-' - end - object Previsualizar1: TMenuItem - Action = actPrevisualizar - end - object Imprimir1: TMenuItem - Action = actImprimir - end - end -end diff --git a/Varela/Varela/Source/Base/uEditorGridBase.pas b/Varela/Varela/Source/Base/uEditorGridBase.pas deleted file mode 100644 index 673bc61..0000000 --- a/Varela/Varela/Source/Base/uEditorGridBase.pas +++ /dev/null @@ -1,194 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorGridBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent, - JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, TBX, TB2Item, - ImgList, PngImageList, StdActns, TB2ExtItems, TBXExtItems, uViewGridBase, - uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize, - uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage, - JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, - JvComponentBase, uDAInterfaces; - -type - IEditorGridBase = interface(IEditorDBBase) - ['{CB8CDE00-B225-4A1D-9A5C-EC6FBE2C854B}'] - end; - - TfEditorGridBase = class(TfEditorDBBase, IEditorGridBase) - tbxEditFiltro: TTBXEditItem; - tbxFiltro: TTBXToolbar; - TBXItem7: TTBXItem; - GridPopupMenu: TPopupMenu; - Modificar1: TMenuItem; - Eliminar1: TMenuItem; - N1: TMenuItem; - Nuevo1: TMenuItem; - TBXLabelItem1: TTBXLabelItem; - actQuitarFiltro: TAction; - N2: TMenuItem; - Previsualizar1: TMenuItem; - Imprimir1: TMenuItem; - TBXSeparatorItem14: TTBXSeparatorItem; - TBXItem33: TTBXItem; - actDuplicar: TAction; - TBXSeparatorItem15: TTBXSeparatorItem; - TBXItem34: TTBXItem; - Duplicar1: TMenuItem; - procedure tbxEditFiltroChange(Sender: TObject; const Text: String); - procedure FormShow(Sender: TObject); override; - procedure actPrevisualizarExecute(Sender: TObject); - procedure actConfPaginaExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actQuitarFiltroExecute(Sender: TObject); - procedure actDuplicarUpdate(Sender: TObject); - procedure JvFormStorageSavePlacement(Sender: TObject); - procedure JvFormStorageRestorePlacement(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - private - FViewGrid : IViewGridBase; - protected - procedure SetViewGrid(const Value : IViewGridBase); virtual; - function GetViewGrid: IViewGridBase; - public - property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid; - constructor Create(AOwner : TComponent); override; - - destructor Destroy; override; - end; - -implementation - -uses - uDataModuleBase, uCustomEditor, cxGridTableView; - -{$R *.dfm} - -{ -********************************* TfEditorGridBase ***************************** -} -destructor TfEditorGridBase.Destroy; -begin - FViewGrid := NIL; - inherited; -end; - -function TfEditorGridBase.GetViewGrid: IViewGridBase; -begin - Result := FViewGrid; -end; - -procedure TfEditorGridBase.SetViewGrid(const Value: IViewGridBase); -begin - FViewGrid := Value; - if Assigned(FViewGrid) then - begin - FViewGrid.PopupMenu := GridPopupMenu; - FViewGrid.OnDblClick := actModificar.OnExecute; - end; -end; - -procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String); -begin - if Assigned(ViewGrid) then - ViewGrid.Filter := Text; -end; - -procedure TfEditorGridBase.FormShow(Sender: TObject); -begin - inherited; - ViewGrid.ShowEmbedded(Self); -end; - -procedure TfEditorGridBase.actPrevisualizarExecute(Sender: TObject); -begin - inherited; - ViewGrid.Preview; -end; - -procedure TfEditorGridBase.actConfPaginaExecute(Sender: TObject); -begin - inherited; - ViewGrid.PrintSetup; -end; - -procedure TfEditorGridBase.actImprimirExecute(Sender: TObject); -begin - inherited; - ViewGrid.Print; -end; - -procedure TfEditorGridBase.actQuitarFiltroExecute(Sender: TObject); -begin - if Assigned(ViewGrid) then - begin - tbxEditFiltro.Text := ''; - ViewGrid.Filter := ''; - end; -end; - -constructor TfEditorGridBase.Create(AOwner: TComponent); -begin - inherited; - actModificar.ShortCut := ShortCut(VK_RETURN, []); -end; - -procedure TfEditorGridBase.actDuplicarUpdate(Sender: TObject); -begin - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and not (dsDataTable.DataTable.State = dsInsert) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root); -end; - -procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject); -begin - inherited; - if Assigned(ViewGrid) then - begin - ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root); - end; -end; - -procedure TfEditorGridBase.actRefrescarExecute(Sender: TObject); -var - FocusedRow, TopRow : Integer; -begin - TopRow := ViewGrid._FocusedView.Controller.TopRowIndex; - FocusedRow := ViewGrid._FocusedView.DataController.FocusedRowIndex; - ViewGrid._FocusedView.BeginUpdate; - try - inherited; - finally - ViewGrid._FocusedView.EndUpdate; - ViewGrid._FocusedView.DataController.FocusedRowIndex := FocusedRow; - ViewGrid._FocusedView.Controller.TopRowIndex := TopRow; - end; -end; - -initialization - RegisterClass(TfEditorGridBase); - -finalization - UnRegisterClass(TfEditorGridBase); - -end. - diff --git a/Varela/Varela/Source/Base/uEditorItem.dfm b/Varela/Varela/Source/Base/uEditorItem.dfm deleted file mode 100644 index 106f387..0000000 --- a/Varela/Varela/Source/Base/uEditorItem.dfm +++ /dev/null @@ -1,53 +0,0 @@ -inherited fEditorItem: TfEditorItem - Left = 423 - Top = 273 - Width = 686 - Height = 535 - Caption = 'fEditorItem' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 678 - Visible = False - inherited Image1: TImage - Left = 651 - end - end - object pgPaginas: TPageControl [1] - Left = 0 - Top = 76 - Width = 678 - Height = 406 - ActivePage = pagGeneral - Align = alClient - TabOrder = 1 - object pagGeneral: TTabSheet - Caption = 'General' - end - end - inherited TBXDock: TTBXDock - Width = 678 - inherited tbxMain: TTBXToolbar - inherited TBXItem5: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - inherited TBXSubmenuItem4: TTBXSubmenuItem - inherited TBXItem10: TTBXItem - Visible = False - end - end - end - end - inherited StatusBar: TStatusBar - Top = 482 - Width = 678 - end - inherited EditorActionList: TActionList - Top = 104 - inherited actEliminar: TAction - ShortCut = 0 - end - end -end diff --git a/Varela/Varela/Source/Base/uEditorItem.pas b/Varela/Varela/Source/Base/uEditorItem.pas deleted file mode 100644 index 50461c5..0000000 --- a/Varela/Varela/Source/Base/uEditorItem.pas +++ /dev/null @@ -1,41 +0,0 @@ - -unit uEditorItem; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorBase, ActnList, JvExControls, JvComponent, - JvNavigationPane, ComCtrls, StdActns, TB2Dock, TB2Toolbar, TBX, TB2Item, - ImgList, PngImageList, JvFormAutoSize, JvAppStorage, - JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, - JvComponentBase; - -type - IEditorItem = interface(IEditorBase) - ['{F6A412D1-59AA-41D2-ADD5-C92687CD5387}'] - end; - - TfEditorItem = class(TfEditorBase, IEditorItem) - pagGeneral: TTabSheet; - pgPaginas: TPageControl; - end; - -var - fEditorItem: TfEditorItem; - -implementation - -uses uDataModuleBase; - -{$R *.dfm} - -initialization - RegisterClass(TfEditorItem); - -finalization - - UnRegisterClass(TfEditorItem); - - -end. diff --git a/Varela/Varela/Source/Base/uEditorPSPreview.dfm b/Varela/Varela/Source/Base/uEditorPSPreview.dfm deleted file mode 100644 index a3f98e6..0000000 --- a/Varela/Varela/Source/Base/uEditorPSPreview.dfm +++ /dev/null @@ -1,15 +0,0 @@ -object Form1: TForm1 - Left = 580 - Top = 506 - Width = 320 - Height = 240 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = True - PixelsPerInch = 96 - TextHeight = 13 -end diff --git a/Varela/Varela/Source/Base/uEditorPSPreview.pas b/Varela/Varela/Source/Base/uEditorPSPreview.pas deleted file mode 100644 index 683b402..0000000 --- a/Varela/Varela/Source/Base/uEditorPSPreview.pas +++ /dev/null @@ -1,24 +0,0 @@ -unit uEditorPSPreview; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, dxPSPrVw; - -type - TForm1 = class(TCustomdxPSPreviewWindow) - private - { Private declarations } - public - { Public declarations } - end; - -var - Form1: TForm1; - -implementation - -{$R *.dfm} - -end. diff --git a/Varela/Varela/Source/Base/uEditorPreview.dfm b/Varela/Varela/Source/Base/uEditorPreview.dfm deleted file mode 100644 index af16215..0000000 --- a/Varela/Varela/Source/Base/uEditorPreview.dfm +++ /dev/null @@ -1,937 +0,0 @@ -inherited fEditorPreview: TfEditorPreview - Left = 521 - Top = 340 - Caption = 'Previsualizar' - WindowState = wsMaximized - OnDestroy = FormDestroy - OnResize = FormResize - ExplicitWidth = 320 - ExplicitHeight = 240 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 75 - Visible = False - ExplicitTop = 75 - end - inherited TBXDock: TTBXDock - Height = 75 - ExplicitHeight = 75 - inherited tbxMain: TTBXToolbar - Top = 49 - DefaultDock = TBXDock - Visible = False - ExplicitTop = 49 - ExplicitWidth = 191 - end - inherited tbxMenu: TTBXToolbar - DockPos = -24 - inherited TBXSubmenuItem5: TTBXSubmenuItem - Visible = False - end - inherited TBXSubmenuItem1: TTBXSubmenuItem - Visible = False - end - object TBXSubmenuItem2: TTBXSubmenuItem [3] - Caption = '&Ir' - object TBXItem47: TTBXItem - Action = actPrimeraPagina - Images = PreviewSmallImageList - end - object TBXItem43: TTBXItem - Action = actPaginaAnterior - Images = PreviewSmallImageList - end - object TBXItem44: TTBXItem - Action = actPaginaSiguiente - Images = PreviewSmallImageList - end - object TBXItem45: TTBXItem - Action = actUltimaPagina - Images = PreviewSmallImageList - end - end - inherited TBXSubmenuItem6: TTBXSubmenuItem - Caption = '&Zoom' - inherited TBXItem18: TTBXItem - Action = actZoomIn - Images = PreviewSmallImageList - end - object TBXItem38: TTBXItem - Action = actZoomOut - Images = PreviewSmallImageList - end - object TBXSeparatorItem19: TTBXSeparatorItem - end - object TBXItem48: TTBXItem - Action = actAnchoPagina - Images = PreviewSmallImageList - end - object TBXItem46: TTBXItem - Action = actTodaPagina - Images = PreviewSmallImageList - end - end - object TBXSubmenuItem3: TTBXSubmenuItem [5] - Caption = '&Herramientas' - object TBXItem49: TTBXItem - Action = actToolHand - Checked = True - GroupIndex = 1 - Images = PreviewSmallImageList - end - object TBXItem50: TTBXItem - Action = actToolZoom - GroupIndex = 1 - Images = PreviewSmallImageList - end - end - end - object TBXToolbar1: TTBXToolbar - Left = 0 - Top = 23 - Caption = 'TBXToolbar1' - DefaultDock = TBXDock - DragHandleStyle = dhNone - ParentShowHint = False - ShowHint = True - TabOrder = 2 - object TBXItem39: TTBXItem - Action = actImprimir - DisplayMode = nbdmImageAndText - Images = SmallImages - end - object TBXSeparatorItem18: TTBXSeparatorItem - end - object tbxMano: TTBXItem - Action = actToolHand - Checked = True - DisplayMode = nbdmImageAndText - GroupIndex = 1 - Images = PreviewSmallImageList - end - object TBXSeparatorItem14: TTBXSeparatorItem - end - object tbxZoom: TTBXItem - Action = actToolZoom - DisplayMode = nbdmImageAndText - GroupIndex = 1 - Images = PreviewSmallImageList - end - object TBXItem42: TTBXItem - Action = actTodaPagina - Images = PreviewSmallImageList - end - object TBXItem41: TTBXItem - Action = actAnchoPagina - Images = PreviewSmallImageList - end - object TBXItem40: TTBXItem - Action = actZoomOut - Images = PreviewSmallImageList - end - object cbZoom: TTBXComboBoxItem - Caption = 'Zoom' - ReadOnly = True - OnItemClick = cbZoomItemClick - end - object TBXItem37: TTBXItem - Action = actZoomIn - Images = PreviewSmallImageList - end - object TBXSeparatorItem17: TTBXSeparatorItem - end - object TBXSeparatorItem16: TTBXSeparatorItem - end - object TBXItem35: TTBXItem - Action = actPrimeraPagina - Images = PreviewSmallImageList - end - object TBXItem34: TTBXItem - Action = actPaginaAnterior - Images = PreviewSmallImageList - end - object TBXItem33: TTBXItem - Action = actPaginaSiguiente - Images = PreviewSmallImageList - end - object TBXItem36: TTBXItem - Action = actUltimaPagina - Images = PreviewSmallImageList - end - object TBXSeparatorItem15: TTBXSeparatorItem - end - object TBXItem7: TTBXItem - Action = actCerrar - Images = SmallImages - end - end - end - inherited StatusBar: TStatusBar - Panels = < - item - Width = 150 - end - item - Width = 50 - end> - Visible = True - end - inherited EditorActionList: TActionList - Top = 104 - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Enabled = False - Visible = False - end - inherited actGuardarCerrar: TAction - Enabled = False - Visible = False - end - inherited actGuardar: TAction - Enabled = False - Visible = False - end - inherited actEliminar: TAction - Enabled = False - Visible = False - end - inherited actConfPagina: TAction - Enabled = False - Visible = False - end - inherited actPrevisualizar: TAction - Enabled = False - Visible = False - end - inherited actImprimir: TAction - OnExecute = actImprimirExecute - end - inherited actDeshacer: TEditUndo - Enabled = False - Visible = False - end - inherited actCortar: TEditCut - Enabled = False - Visible = False - end - inherited actCopiar: TEditCopy - Enabled = False - Visible = False - end - inherited actPegar: TEditPaste - Enabled = False - Visible = False - end - inherited actSeleccionarTodo: TEditSelectAll - Enabled = False - Visible = False - end - inherited actLimpiar: TEditDelete - Enabled = False - Visible = False - end - inherited actBuscar: TAction - Enabled = False - Visible = False - end - inherited actCancelarCambios: TAction - Enabled = False - Visible = False - end - end - inherited SmallImages: TPngImageList - Left = 43 - Top = 104 - end - inherited LargeImages: TPngImageList - Left = 75 - Top = 104 - end - inherited JvFormStorage: TJvFormStorage - Left = 376 - Top = 136 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage - Left = 408 - Top = 136 - end - object PreviewActionList: TActionList - Images = PreviewSmallImageList - Left = 344 - Top = 104 - object actPrimeraPagina: TAction - Category = 'Ver' - Caption = 'Primera p'#225'gina' - ImageIndex = 0 - OnExecute = actPrimeraPaginaExecute - end - object actUltimaPagina: TAction - Category = 'Ver' - Caption = #218'ltima p'#225'gina' - ImageIndex = 3 - OnExecute = actUltimaPaginaExecute - end - object actPaginaAnterior: TAction - Category = 'Ver' - Caption = 'P'#225'gina anterior' - ImageIndex = 1 - OnExecute = actPaginaAnteriorExecute - end - object actPaginaSiguiente: TAction - Category = 'Ver' - Caption = 'P'#225'gina siguiente' - ImageIndex = 2 - OnExecute = actPaginaSiguienteExecute - end - object actZoomIn: TAction - Category = 'Ver' - Caption = 'M'#225's zoom' - ImageIndex = 8 - OnExecute = actZoomInExecute - end - object actZoomOut: TAction - Category = 'Ver' - Caption = 'Menos zoom' - ImageIndex = 9 - OnExecute = actZoomOutExecute - end - object actTodaPagina: TAction - Category = 'Ver' - Caption = 'Toda la p'#225'gina' - GroupIndex = 1 - ImageIndex = 4 - OnExecute = actTodaPaginaExecute - end - object actAnchoPagina: TAction - Category = 'Ver' - Caption = 'Ancho de p'#225'gina' - GroupIndex = 1 - ImageIndex = 5 - OnExecute = actAnchoPaginaExecute - end - object actToolHand: TAction - Category = 'Herramientas' - AutoCheck = True - Caption = 'Mano' - GroupIndex = 1 - ImageIndex = 10 - OnExecute = actToolHandExecute - end - object actToolZoom: TAction - Category = 'Herramientas' - AutoCheck = True - Caption = 'Zoom' - GroupIndex = 1 - ImageIndex = 6 - OnExecute = actToolZoomExecute - end - end - object PreviewSmallImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F14944415478DA - C5D2A10EC2301006E01B4F30893C39C59619EC70937B843D014C829B0339DEA0 - 1289638EC9C9E1160C9553A43882A0B45DC80223A30112CE346DFA7F697A6770 - CEE19B327E0A8C663BB5A14506348D8CE7CBDEB4E0DBB96D7402518010C5A405 - C8B0840F9B493710FA08F1E21190E1D0B7C5F9F23D10780849D200F7705102AC - D73A8023005203F73065A08022D3003C0B81AC08A0E3810C33115600156BAE01 - 3888E2A9F50BDC71CE07EE105875025A01B09268007D01A4CD1F48E4DAB3809D - 657F35001440963E764122C78BA50798268ACF6ACF8142F6F97B400E8B9AC617 - 93887EC23B814FEAFFC00D0E3CD3E1153EE1F30000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000A34944415478DA - 63FCFFFF3F032580912606303232628839545CF8BFBF5D9F912C03409A1F5C38 - C0707F7B3EE90680342778E83334744C24DD0098E60B371818366C20D10098E6 - 071F18C0065C384082018E9517C19A3F0035830D7800A44F90E802A3BC13FFF5 - 8CCC193EBCF8C8F0E00503C3871B0B480F039021FF9834183EFC00721E906100 - CC9077BF34C837006EC8AD13E41B00020A1E13FE136D002960E00D000045F48A - E13771044B0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000A44944415478DA - 63FCFFFF3F03258091260638565EFC7FA0C380115D1C9B5A9C067CFAF683E1DC - 240B46B20D48F0D06798B4EE248A21241BF0E10703C3A26D0843483220C0419F - E1C10706860F407CE91AC410920C70B0506078F0829FE1C2838F0C1F1E3C009A - 7480E1FEF67C46A20D30D0506038708301AEF9C18E02D25C202020C070E1C207 - B86692C3800118800F6E2034936CC0830BA89A493680A294480A18780300CF22 - A8E18A4EF6A30000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000EC4944415478DA - C5D2A10EC2301405D0DB2FA012F9246E95C8E290FB04FE8049703890842F5850 - 2882021CB5185210044725B220086E74908D40C252020937A97BF7A479792C49 - 127C13F673A0D65E27AA27D8EBA06CE97C70D10D5821703A5FB01A54D92B1085 - 84A813633F6B16038D7A80C178F984A440A34EE8F43C017B0186D3079202A124 - F4FB1E402803180B58F736DB3B72038403620F405609E65082364758639CA440 - 42425608F1C803106E50ED9097CD3CBAFD40106132F10038E7D0DAE6E56C07A2 - EC80B90700B740B37B9433801CA07C00A39FCB19C039412B0FE0DD25A6709A42 - E0D3FC1FB8020318D0E1923D9C4B0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000017E4944415478DA - 630C9B1C9ACFC0C03081813C50C00834E07F7E400E51AAFFFEFBC3F0EBDF7786 - 9F7F2138C9268F01C58073FBBF113444C9EA0B58F38469B3192E2DBB8C69404E - AC07568DBFFE303058F86431D44EB264F8053460DACC25B80DA89FBC1FC38092 - 144706FBC02C86F27E03B00BE6CE594B9C0B4036FFFC0DA15D43B31872BB95C0 - 062C5FB09B341764C4383278476631A4754882BDB076F111FC2E40B619860363 - B318125A05187E026362CBD2B3A4B92036D491212C218B21B2999DE1C7DF6F0C - 7B565CC76E4072B807D8E6BFFF1036FFFE0BA16352B218021BFE82C3E0F0EA07 - 080372FC3218FEFEFFCD70E5D07F8698200F86FE79982E08F4756448CAC862F0 - AA05A5836F0CA7D6BD421890E6130F36F5DE311E86303F0F145B616C1048C9CC - 6270AE7A05567B71E3678401F19E6160C1A7274519E62DDD843725DA943F04BB - E0C696BF080322DC7CC151034BE390F4FE0DCA47D07FFEFF01D37F81F4EDAD8C - 0803829C5DC04993540033207F57D36EB2B2B35B9D6B0100103839527F8C36D7 - 0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001714944415478DA - 630C9B1C9ACFC0C03081813C50C00834E07F7E400E51AAFFFEFBC3F0EBDF7786 - 9F7F2138C9268F016EC099973B18F253E4198E6ED6C4A9D9CEFF36C3C4390F19 - 64793519264C9BCD7069D9658801D6962A60CDC40290216B171F411880CF05BF - A0CE05D17E619FC09A05D8C519E6CE598B6AC0B9FDDF8876018BEE6986E50B76 - 631A9013EB8153D3AF3F0C0C3F7F3330D807663124B40A607A016640FDE4FD58 - 0D2849716458B86607C3BCA59B18229BD919B62C3D4B9C0B603683E8E51B2006 - 0436FC65D8B3E23A692EC888716458BB05628057ED1786C3AB1F200CC8F1CB60 - B878F0178A0B906D86E1CD3B20063857BD6238B5EE15C280349F7886EB8799F1 - BA2036D49161C76E880136E50F192E6EFC8C3020DE338CE1DE311EB001D86CFE - FD1742EFDB0F31C0B4E43AC38D2D7F110644B8F9323C3D29CA901CEE81A219A6 - 11C63E7604628051F16586DB5B1911060439BB304C9BB984E88404033003F277 - 35ED262B3BBBD5B9160000C8E01B524AB937870000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000E14944415478DA - 63FCFFFF3F032580717019C0C8C8086787B4DDF8FFEBD76F869F3F7F33EC6C37 - 824BA05B88D300BF86CBFFA3A35419A6CFB8C870A0CF9C7403DC2BCFFD8F88D4 - 66983DEB34C3B12936C41910DA7E13EE6C100E0D37609837E7180358EC0708FF - 6278B0218011A701FE8D57C0CEFEF68391E1DB770630FD1D88BF7C07E26F8C0C - 6B17AE6178B1230CB7011E55E7FF836C86B9C23FC48661C9BC5D609B7F40F187 - 0331B80D400E03DDF85DFF3D039D1856CEDFCCF0706320E981A816BEF5BF8BBF - 07D8D92F7786936E80BCFFFAFF30677F3C184B9C01E480616000007F3BB6E1E0 - 0AF3B40000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000714944415478DA - 63FCFFFF3F03258071D4002A1B10DA7E13CC01897DFDFA83E1DBB71F60FAFBB7 - 9F0C9F3F7F03E3F7FBA219F11A1013A500E77FFCCCC8F0EA1D23C38BB74C0CCF - 5E3131AC9E3397E1F7E914DC0684B4DDF88FCBE62F9FBF33FCF9F397E1FFF974 - DC060C7C208E1A401E0000EFE473E127272ED00000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C74944415478DA - A5934D4B5B411885CF5D9982288874EB0F306E5CBA9A646514E33536264AE456 - 5184528AE0424A043751FCC08228E24788894631D5D6D12C5C08EA2A74512AD8 - E4070822EE44A3E255CC386F24264AAE5978609881B9E739EFCCBC571142E03D - 5208A0284ADECDA08FB9E4342087EFF3C04124772F139C1790319614C3DCE456 - B116E2D0EF11CF051502FCD7BA54F37A98C3E951110E70783A5584FC3C2E0155 - 0501DB534C34389F92DD9A342E7068DD2A96FC1CD296AE44F3EE470C019B934C - A8AE6CF2E29C9C3B6C5809EEC0EEA84194C7E212506508D8F8C144735B36D93F - 232B69B72212DE43BDBD1A5BBFFFA1C7B7AF3C03424396C6B252F08714709184 - F94311E22DEDD9E4C0FC0E9CEE1AFC8AC4505B5789E876025F867300D1694BFA - CCA49FCB1C046AD5B2C94B813D383E3D25334B0576778FF17524074047C8944D - A2B3BB3C36E8BA8E3BFD363DEEEF74DC5C5F2179718ED89F4B7C1B7B0520AD8E - 3241C9F4B191F93A798943F90EBDE37900A4908F0987CB6A6826FD3D02FA260C - 0024FF201374DBF9CCA767B7F28E4CF07C7F03409AF532411796319391747266 - C2C77298651F240AFE4C53FD4CA4E48BA464FBD1CBD09ACCB29D132F5AF93D7A - 04D7A238F0C903C3480000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 371 - Top = 104 - Bitmap = {} - end - object PreviewLargeImageList: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001894944415478DA - 63FCFFFF3F032D01E3F0B4C0B1F2228AE0810E03467C8638545CF8BFBF5D1FAB - 1A9C1604D9E980D97D93A6303CD851C088CFF007170E30DCDF9E4F7D0B408683 - D481D450DD0298E1DF7EFE679831732A752D4036FCDBAF7F0C8BE64F27CF82AF - 3FFE33CC9C3515C50274C3BF03E9D5CB66906E81BB9936C3E7EFFF18962D9E0E - B7009BE1DF7FFD67D8B26626E91658E96A022DF8CFB079CD0CB005B80CFFF693 - 8161DF66322CD055D160F80C0CA2035B663228183830E032FC0B50CDA9DDB348 - B74041469DE1D3B77F0CE7F6CD06FBC028EFC47F1F6B430CC3BFFEF8C770F5F0 - 1CD22D10125265F8F0F53FC3BD9373E07100B2C44A4F1FC5F0AF400B1F9C9A4B - BA054CEC2A0C1F813E787B791E4A2A0259A222AF07371C64D19B4BF348B7E0F3 - 5F25A00FFE31FCBDB700231F802CE113D0061B0EC23F6ECD27DD82C79F1418FE - FE03721E2CC09A9341967C63D064F8018C0F901A922D78F04101C2C16101CC92 - 77BF34686701DC925B27C8B0005804C3003E0B4040C163C27F922CA02618B580 - 200000A0D9B0E00198A13A0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000FA4944415478DA - 63FCFFFF3F032D01E3F0B680919111AF66878A0BFFF7B7EBE35544B60520C31F - 5C38C0707F7B3EF52D00191E64A7C3D037690AF52D8019FEEDE77F861933A752 - D70264C3BFFDFAC7B068FE74EA59806EF87720BD7AD90CEA5880CDF0EFBFFE33 - 6C593393720B7019FEED2703C3BECD145AE0587911A7E15F7EFC6738B57B16E5 - 3E30CA3BF1DFC7DA10C3F0AF3FFE315C3D3C873A7100B2C44A4F1FC5F0AF400B - 1F9C9A4BBD5404B244455E0F6E38C8A23797E651371F802CE113D0061B0EC23F - 6ECDA77E4E0659F28D4193E107303E181E2CA04D5904B2E4DD2F0DDA5900B7E4 - D609DA5900020A1E13FE53640135C0A805040100D3AF21E00AC8E9BE00000000 - 49454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000012E4944415478DA - 63FCFFFF3F032D01E3F0B6C0B1F2E2FF031D068CF80C20E440BC16D8955FF9FF - F5C7578673932C705A429105B6400BF2037518DA979FC469094516D8945DFD5F - 10A40D66E3B284220BACCBAEFD2F0CD202B37FFDF9CFD0BBFA148625145A701D - 688126D8F0EFBFFE337CFBF99F61C18E33289650648155E98DFF39FEEA70C3C1 - F8D73F862D47CFC32DA1C802CBD29BFF533C55510CFFFE13E29B63972E822DA1 - C8028B929BFFA39D55300CFFF69381E1CB8FFF0CA776CF62B8BF3D9F916C0BCC - 4B6EFD0FB251C269F8831D0594F9C0ACF8F67F4F73799C86531C07A6C577FE3B - 1AC8E2349C620B4C8AEEFEB7D496C66938152CB8F75F5F450AA7E1145B605C74 - FFBF8A8C044EC329B6C0A8F0C1FFF73736E2349C620B0C0B1FFEBF30418176F5 - 0135C0A80504010058FB49E08BBA20470000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001C24944415478DA - 63FCFFFF3F032D01E3F0B4C0B1F2E2FF031D068CF834DA965D46D178A85307AB - 7AAC16D8955FF9FFF5C7578673932C705A02B220D44113CCEE9B3485E1FEF67C - E22DB0055A901FA8C3D0BEFC244E4B28B2C0A6ECEAFF82206D301B9725145960 - 5D76ED7F61901698FDEBCF7F86DED5A7302CA1D082EB400B34C1867FFFF59FE1 - DBCFFF0C0B769C41B10466C1D71FFF1966CE9A4A9A0556A537FEE7F8ABC30D07 - E35FFF18B61C3D0FB7046481978506C3E7EFFF18962D9E4E9A0596A537FFA778 - AAA218FEFD27C437C72E5D045B02B2C0565F0D68C17F86CD6B6690668145C9CD - FFD1CE2A18867FFBC9C0F0051824A776CF6290D5736630505365F80CE41FD832 - 93340BCC4B6EFD0FB251C269F8831D05601F28CBA9307CFAF68FE1DCBED9A459 - 60567CFBBFA7B93C4EC36171202AA2C4F0E1EB7F867B27E790668169F19DFF8E - 06B2380D8759C0CAA9C8F011E883B797E791668149D1DDFF96DAD2380D8759F0 - EDBF3CD007FF18FEDE5B40AA05F7FEEBAB48E1341C66C1B32FB20C7FFF01390F - 48B4C0B8E8FE7F1519099C86C32C78FC4916C221D502A3C207FFDFDFD888D370 - 8A2D302C7CF8FFC2040582F5C1E34B7BE17C922CA02618B5802000000BFCA8E0 - E6ADB53E0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002344944415478DA - 63FCFFFF3F032D0123C882F02961F940F6042A9B5DB03267D5449805FFF30372 - C832E51FC35F863FFF7E31FCFEF713887F41D9BF18526C0A19DEBF7ACF489105 - 7FFE430C86190AA3A74C5FC87069D965FC169CDBFF8D24CB642C5EC32D993173 - 397116E4C47AE035F4EFBFFF0CBFFFFC65B0F2CB63A89C680CF7C1DCD96B29B7 - 0066F89C957B18E62DDDC450DAAF0BF7C1C2B99B89B7A07EF27E9C9614275932 - 2C5A77006C4141AF3ADC07CBE6EF24DF073097FFFAFD87E1F7EFBF0CCB371F06 - 5B90D3AD08F7C1AA85FBA9E383CC48638635DB8F812D48ED9060F8FD1F62C1C6 - C52748F701BACB21ECBF0C9BF69C045B90D02E04CF0FDB969EA78E0FA2FD7418 - 761D3A0BB620A695079ED9762FBF8ADF0250EEBCB0FF27D8825F409722BB18CE - 868AEF3F7E016C4178332B3C0EF6AFBC8DDB0258D6BF72F03F435AA42B43EBF4 - 43387D10E8AAC670E4F465B005418DFFE1417464F523EC1620972B370FB33124 - 8638E174394CFCD4856B600BFCEA7FC283E8E4DA179816E40664A2145AF78EF2 - 30C404D8E3351CC43E7FF526D802F79AF7607D20FD17367CC2B420D32F19A544 - 7C745C8821CCDB06AFE120F6959B77C0163855BD84177C5736FDC0B420C93B12 - A5447C794A9A21D0CD9261FDAEE30C8400C802DB8A4770BD37B7FCC3B420D633 - 18A5D87D7B4611AC915860597607ACF7DFFFBF0CB7B732625A10E9EE8BE20314 - 1AADDCC7C506190E02582D087175A78AE1382D087076045714D402E816E4EF6A - DA4DD54ADFADCE1551E9D31200008EE53CFED5D704CB0000000049454E44AE42 - 6082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003154944415478DA - B5956D48536114C7CFC89022883E288415547E48F243651451425A6A929361A2 - 0E13D14553985AA411944A5A4804622AE9AC25CBDCD0125F4B526CD87C2F75E8 - 544C83B23EE45829E6667AEFEEEDDE3377756D6B1BD98167CFB37BEEF9FFCE39 - CF81CBA3691A783C1ED8B300F1043D28F5B3EF64ED50390D9A14877ED4667F62 - 4B633298FF45EB9D1FB579B8EFF7CF71A8CFBE33D8DF0931A20E7BEE2B3592DA - 0716009D2190709EF43BDE902EF48562E5B45544F12D1DFAD65B5CC401C8CA96 - 425BFD4E20A8152099C5EE974E5D8539DD1CCF066011D7FDF400EF1D24279428 - 914177B39FD99FE08BCFBECC52603018F15C505803F5B55B51BCB44C0E238A51 - 5BC049FE04C88B4428CE9A716909F4FA1F60342E81EC5987154037E7012B0401 - 8B8B065CEC595AF91A140A0ACAA54AFB00D658C8FD7C3127AEFF6E0634B60E73 - 80E4A85D306FF0E4C4170D06A8AC56A1385B81EC519D7DC090CA5C6E5AE16748 - BB1C0125152D56FD7E98B91764EA3D78B1164B8A0F42F1A7B907711A57F6F580 - 5CD6EC182049388781BCC352F3A80D8BED4E1045D1B029A002CFF36F13813499 - 20242E0BC4F77C40C1B4CA29C002B10760C54913059EC71E73E2CA66353CA96E - 02518117D4CA55AE011C65CE8A13A4094892427182D95FB47623E0E2DD6DD058 - D5E71C905BA202572C5578940199A0A1BD0F01B1F99BE155F5B0FB15B0D912A6 - D5AC194182A902AB612B61CE2D6F061010759B8676E5987B007BE224D722F36A - 530F22203277195435531BD7A278BE3FDE87AA578380F0EC05E87A3EE35A05AE - 646EB96CF5BB11049CBDA987FEBA6FB68034412A6854CB1CC01D7176927A87C6 - 1010786306340D0BB680D44811683B6904B041F9659D2EB52832D817C7F4FDC8 - 04024E5C9F066DD32F5B40F279214C756D811461A85B9913ABEF69C63F20E068 - E6384CB650B68084F00BF0A9673B2445075B055314E5549C7DAE9D9C46C0916B - A330F592670B1086F1E16B9F1724084E637071D5804B2D0A3ABE1B77A780E890 - 30981DF001213FD02AB3BF5D36C5C45ACC29407026083F141B657F0232DAF2DA - 8BFE5D76CD427342D63EFAFFD37E031AD161FE86E3B8C60000000049454E44AE - 426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001324944415478DA - 63FCFFFF3F032D0123DD2C606464C4A9C8A5EF22862BF614E9E3D480EC68A22D - C8F05765F8FDE72F10FF63888B5ECEC0702183BA16247B2B810DFF03B424297E - 15F52D887357001B0EB2243D790DF52D887296051B0E0AA69CF4F5D4B720D45E - 1A6CF89FBF7F190AB23651DF82006B09B0E1205F94E66D21DD02D7FE4B783384 - 8F85283C88AA8AB633B8C459E254BBBB508F11AB05C8491116A1B06081B1C172 - 28FCBF0CBF7E0331880DA4174F3ECBF0FF7C3A760B909322398683D82B675CC0 - 6D01725224C770107BFD9CCBB82DD8B3E838F6480686B7A52637DCF0DEC683F8 - A20BBB05845291892A27DCE5935A8F503F99EA2BB2C1836546D771EA5BA025CB - 0C0FE7797DA7A86F818A04034A52A4BA057222A84991EA1648F2FF42498A54B7 - 002309936A01ADC0D0B700000ADFCFE01EDA3C000000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000007C4944415478DA - 63FCFFFF3F032D01E3A805A3168C5A80B0C0B5FF12D56CDA5DA8C788D5829C20 - 751485BFFFFC65F8F1F30FC38F5FBF19BE83E89F501ACAFFF6E317C3B7EFBF21 - F40F087D68CD3D86FFE7D3095B408EE13F7EFD6138B5E911610BC8351C04F05A - B067D171AAC401560B6805462D18B560D4023A5800007B57E2D1072B1BE80000 - 000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002E84944415478DA - A5957D48144118C69F2B29B3FA23222C02598AA48F3B4A304A839C120C925022 - 4AA2F2B3B313FB80A0C20E333F52FC2348C24AC49490D4C414394D4D4F33112B - C1F0233090C9D0142BA920AFDA73DAD975E5923BDDB5178679776EEFF9CD3CF3 - CEAC8131061E0683010B457126392175D699C7CC186B6BB9BBF7544D595727A0 - 373A21D238D8DF83CE4EDA27014CFF0D5067BD7C198CD3D3C0C9984870404707 - 057FF6F242DFDCD5E805CCCEFA5517C5A93805D0DE4E117F4EC9E7AE4617E071 - 2E615167668520C1E4BCAD8DE26C929237355124E7B41A160528CD21CCD59658 - B392DBED1489C94ADED048B1CA0758B254B12BFABABD5C33E0D12DC2DCD9D2DC - 4C61B9A0E4F5CF284E4707E3F3F8A86C9704306906487BC03CD992743102EF07 - DEC2564761B61CC4C8872154D7505CB96337680614A513E6C9164B72388606FB - 516B93C0E6FD181B19465535C5B53C1D80C234C23CD992981486E1A141D4D44A - D6252816555651A4DCD5012848254C8B2DB171BB31F96502159514D67C378092 - AC03EA356094DA6C5DDFB712A6DAF2E923C5BED07088E21F74B5352260AF620B - 1FF73706E0C7B749943DA148BDE71E201F289EAB1B6A4E6F35E4A710C66DE1EF - BD68A8C19E9030389D22DEBC6C812930184E0936D0F31A9BB79AE4F1E29277B8 - F1C03D40AE163554CFF975C06D718AA23C732EA2E4A22CAEF4A23CFECB3185D2 - 328A9B051E5610142418FD77ECFA07A2568B1671DE2AAAC69151E86193F98686 - 84085021FC37AD3397DBD4149EDABE23AB689E2AE29E87860AD8B27DA76E7187 - E3276CCF45643F5CA04CF3AE1276284C80DF267F5DE27CBCBE05C829D1700E6E - 5F262CFCB080F51BFD348B8F8E39F05BF4764877D10A4D072DF71261114704AC - 59BB6E41711E9DDDC0065F44E9BA4DB3CF1376345280CFCAD5F38AABB397D240 - 09D0AF19C023C342D8F163829C7B12EFEEF586691BA2F8A773511FFD34B3B492 - 085F7C9D1897055DC3555C2D6FDD001ED678C2F8C99E96FEC2783F93BB8ACF05 - FC0592430CFE3F77C7A70000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 403 - Top = 104 - Bitmap = {} - end - object frxReport1: TfrxReport - Version = '3.23.7' - DotMatrixReport = False - EngineOptions.DoublePass = True - IniFile = '\Software\Fast Reports' - PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator] - PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' - ReportOptions.CreateDate = 38658.858023541660000000 - ReportOptions.LastChange = 38658.858023541660000000 - ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'begin' - '' - 'end.') - StoreInDFM = False - Left = 16 - Top = 200 - Datasets = <> - Variables = <> - Style = <> - end - object frxBarCodeObject1: TfrxBarCodeObject - Left = 16 - Top = 240 - end - object frxOLEObject1: TfrxOLEObject - Left = 48 - Top = 240 - end - object frxRichObject1: TfrxRichObject - Left = 48 - Top = 272 - end - object frxCrossObject1: TfrxCrossObject - Left = 80 - Top = 240 - end - object frxCheckBoxObject1: TfrxCheckBoxObject - Left = 80 - Top = 272 - end - object frxGradientObject1: TfrxGradientObject - Left = 16 - Top = 304 - end - object frxDotMatrixExport1: TfrxDotMatrixExport - UseFileCache = True - ShowProgress = True - EscModel = 0 - GraphicFrames = False - SaveToFile = False - UseIniSettings = True - Left = 48 - Top = 304 - end - object frxDialogControls1: TfrxDialogControls - Left = 80 - Top = 304 - end - object frxTIFFExport1: TfrxTIFFExport - ShowDialog = False - UseFileCache = True - ShowProgress = True - Monochrome = True - Left = 144 - Top = 240 - end - object frxPDFExport1: TfrxPDFExport - ShowDialog = False - UseFileCache = True - ShowProgress = True - PrintOptimized = False - Outline = False - Author = 'FastReport'#174 - Subject = 'FastReport'#174' PDF export' - Background = False - Creator = 'FastReport'#174' (http://www.fast-report.com)' - HTMLTags = False - Left = 144 - Top = 280 - end - object frxBMPExport1: TfrxBMPExport - ShowDialog = False - UseFileCache = True - ShowProgress = True - Monochrome = True - Left = 144 - Top = 320 - end -end diff --git a/Varela/Varela/Source/Base/uEditorPreview.pas b/Varela/Varela/Source/Base/uEditorPreview.pas deleted file mode 100644 index 0197134..0000000 --- a/Varela/Varela/Source/Base/uEditorPreview.pas +++ /dev/null @@ -1,311 +0,0 @@ -unit uEditorPreview; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorBase, ImgList, PngImageList, StdActns, ActnList, TBX, - TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane, - TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview, - JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, - pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport, - frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode, - ExtCtrls, JvComponentBase; - -type - IEditorPreview = interface(IEditorBase) - ['{7E79BEFC-C817-43D9-A60F-9573D1777068}'] - function GetReport: TfrxReport; - property Report: TfrxReport read GetReport; - procedure LoadFromStream(AStream : TStream); - function ExportToFile : String; - end; - - TfEditorPreview = class(TfEditorBase, IEditorPreview) - TBXToolbar1: TTBXToolbar; - TBXItem7: TTBXItem; - TBXItem33: TTBXItem; - TBXItem34: TTBXItem; - TBXItem39: TTBXItem; - TBXSeparatorItem14: TTBXSeparatorItem; - TBXSeparatorItem15: TTBXSeparatorItem; - TBXSeparatorItem16: TTBXSeparatorItem; - cbZoom: TTBXComboBoxItem; - PreviewActionList: TActionList; - PreviewSmallImageList: TPngImageList; - PreviewLargeImageList: TPngImageList; - actPrimeraPagina: TAction; - actUltimaPagina: TAction; - actPaginaAnterior: TAction; - actPaginaSiguiente: TAction; - TBXItem35: TTBXItem; - TBXItem36: TTBXItem; - actZoomIn: TAction; - actZoomOut: TAction; - actTodaPagina: TAction; - actAnchoPagina: TAction; - TBXSeparatorItem17: TTBXSeparatorItem; - TBXItem37: TTBXItem; - TBXItem40: TTBXItem; - TBXItem41: TTBXItem; - TBXItem42: TTBXItem; - frxReport1: TfrxReport; - actToolHand: TAction; - actToolZoom: TAction; - tbxZoom: TTBXItem; - tbxMano: TTBXItem; - TBXSeparatorItem18: TTBXSeparatorItem; - frxBarCodeObject1: TfrxBarCodeObject; - frxOLEObject1: TfrxOLEObject; - frxRichObject1: TfrxRichObject; - frxCrossObject1: TfrxCrossObject; - frxCheckBoxObject1: TfrxCheckBoxObject; - frxGradientObject1: TfrxGradientObject; - frxDotMatrixExport1: TfrxDotMatrixExport; - frxDialogControls1: TfrxDialogControls; - frxTIFFExport1: TfrxTIFFExport; - frxPDFExport1: TfrxPDFExport; - frxBMPExport1: TfrxBMPExport; - TBXItem38: TTBXItem; - TBXSeparatorItem19: TTBXSeparatorItem; - TBXItem43: TTBXItem; - TBXItem44: TTBXItem; - TBXItem45: TTBXItem; - TBXItem46: TTBXItem; - TBXItem47: TTBXItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXItem48: TTBXItem; - TBXSubmenuItem3: TTBXSubmenuItem; - TBXItem49: TTBXItem; - TBXItem50: TTBXItem; - procedure FormShow(Sender: TObject); - procedure actPrimeraPaginaExecute(Sender: TObject); - procedure actUltimaPaginaExecute(Sender: TObject); - procedure actPaginaAnteriorExecute(Sender: TObject); - procedure actPaginaSiguienteExecute(Sender: TObject); - procedure actZoomInExecute(Sender: TObject); - procedure actTodaPaginaExecute(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure FormResize(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actAnchoPaginaExecute(Sender: TObject); - procedure actZoomOutExecute(Sender: TObject); - procedure cbZoomItemClick(Sender: TObject); - procedure actToolHandExecute(Sender: TObject); - procedure actToolZoomExecute(Sender: TObject); - private - FPreview : TfrViewPreview; - function GetReport: TfrxReport; - procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer); - procedure UpdateZoom; - public - constructor Create(AOwner: TComponent); override; - property Report: TfrxReport read GetReport; - procedure Print; - procedure LoadFromStream(AStream : TStream); - function ExportToFile : String; - end; - -var - fEditorPreview: TfEditorPreview; - -implementation - -uses - frxRes, frxUtils, frxPrinter, uCustomEditor, uSysFunc, frxFormUtils; - -{$R *.dfm} - -{ TfEditorBase1 } - -function TfEditorPreview.GetReport: TfrxReport; -begin - Result := frxReport1; -end; - - -procedure TfEditorPreview.FormShow(Sender: TObject); -begin - inherited; - UpdateZoom; - actPrimeraPagina.Execute; - FPreview.ShowEmbedded(Self); - Report.ShowPreparedReport; - actAnchoPagina.Execute; -end; - -procedure TfEditorPreview.actPrimeraPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.First; -end; - -procedure TfEditorPreview.actUltimaPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Last; -end; - -procedure TfEditorPreview.actPaginaAnteriorExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Prior; -end; - -procedure TfEditorPreview.actPaginaSiguienteExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Next; -end; - -procedure TfEditorPreview.actZoomInExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Zoom := FPreview.Preview.Zoom + 0.25; - UpdateZoom; -end; - -procedure TfEditorPreview.UpdateZoom; -begin - cbZoom.Text := IntToStr(Round(FPreview.Preview.Zoom * 100)) + '%'; -end; - -procedure TfEditorPreview.actTodaPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.ZoomMode := zmWholePage; - UpdateZoom; -end; - -procedure TfEditorPreview.FormDestroy(Sender: TObject); -begin - inherited; - FPreview.Free; -end; - -procedure TfEditorPreview.FormResize(Sender: TObject); -begin - inherited; - UpdateZoom; -end; - -procedure TfEditorPreview.actImprimirExecute(Sender: TObject); -begin - inherited; - if not frxPrinters.HasPhysicalPrinters then - frxErrorMsg(frxResources.Get('clNoPrinters')) - else - FPreview.Preview.Print; - Enabled := True; -end; - -procedure TfEditorPreview.actAnchoPaginaExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.ZoomMode := zmPageWidth; - UpdateZoom; -end; - -procedure TfEditorPreview.actZoomOutExecute(Sender: TObject); -begin - inherited; - FPreview.Preview.Zoom := FPreview.Preview.Zoom - 0.25; - UpdateZoom; -end; - -procedure TfEditorPreview.cbZoomItemClick(Sender: TObject); -var - s: String; -begin - FPreview.Preview.SetFocus; - - if cbZoom.ItemIndex = 6 then - actAnchoPagina.Execute - else if cbZoom.ItemIndex = 7 then - actTodaPagina.Execute - else - begin - s := cbZoom.Text; - - if Pos('%', s) <> 0 then - s[Pos('%', s)] := ' '; - while Pos(' ', s) <> 0 do - Delete(s, Pos(' ', s), 1); - - if s <> '' then - FPreview.Preview.Zoom := frxStrToFloat(s) / 100; - end; - - UpdateZoom; -end; - -procedure TfEditorPreview.actToolHandExecute(Sender: TObject); -begin - if tbxMano.Checked then - FPreview.Preview.Tool := ptHand -end; - -procedure TfEditorPreview.actToolZoomExecute(Sender: TObject); -begin - if tbxZoom.Checked then - FPreview.Preview.Tool := ptZoom; -end; - -procedure TfEditorPreview.OnPageChanged(Sender: TfrxPreview; - PageNo: Integer); -begin - StatusBar.Panels[0].Text := Format(frxResources.Get('clPageOf'), - [PageNo, Sender.PageCount]); -end; - -constructor TfEditorPreview.Create(AOwner: TComponent); -begin - inherited; - - with cbZoom.Strings do - begin - Clear; - Add('25%'); - Add('50%'); - Add('75%'); - Add('100%'); - Add('150%'); - Add('200%'); - Add(frxResources.Get('zmPageWidth')); - Add(frxResources.Get('zmWholePage')); - end; - - FPreview := TfrViewPreview.Create(Self); - Report.Preview := FPreview.Preview; - FPreview.Preview.OnPageChanged := OnPageChanged; -end; - -procedure TfEditorPreview.Print; -begin - actImprimir.Execute; -end; - -function TfEditorPreview.ExportToFile: String; -var - AFile : String; -begin - Result := ''; - AFile := DarFicheroTIFFTemporal; - frxTIFFExport1.SeparateFiles := False; - frxTIFFExport1.DefaultPath := ExtractFilePath(AFile); - frxTIFFExport1.FileName := ExtractFileName(AFile); - try - if Report.Export(frxTIFFExport1) then - Result := AFile; - finally - frxTIFFExport1.DefaultPath := ''; - frxTIFFExport1.FileName := ''; - end; -end; - -procedure TfEditorPreview.LoadFromStream(AStream: TStream); -begin - Report.PreviewPages.LoadFromStream(AStream); -end; - -end. diff --git a/Varela/Varela/Source/Base/uEditorUtils.pas b/Varela/Varela/Source/Base/uEditorUtils.pas deleted file mode 100644 index 68b4b86..0000000 --- a/Varela/Varela/Source/Base/uEditorUtils.pas +++ /dev/null @@ -1,108 +0,0 @@ -unit uEditorUtils; - -interface - -uses - uEditorItem, uDADataTable, Controls; - -type - TFuncItemEditor = function(ABizObject : TDADataTableRules) : TModalResult; - TProcItemEditor = procedure(ABizObject : TDADataTableRules); - TFuncGetEditor = function : IEditorItem; - - TEditorType = (etItem, etItems, etSelectItems); - -procedure RegisterEditor(const IID : TGUID; const AFuncItemEditor : TFuncItemEditor; - const AType : TEditorType); - -function ShowEditor(const IID : TGUID; ABizObject : TDADataTableRules; - const AType : TEditorType) : TModalResult; - - -implementation - -uses - Dialogs, Classes, ComObj, SysUtils; - -var - FBizEditorsList : TList; - -type - PBizEditorsRec = ^TBizEditorsRec; - TBizEditorsRec = record - IID : String; - ItemEditor : TFuncItemEditor; - ItemsEditor : TFuncItemEditor; - SelectItemsEditor : TFuncItemEditor; - end; - - -function FindBizEditors(const IID : TGUID) : PBizEditorsRec; -var - P: PBizEditorsRec; - I: Integer; - AIID : String; -begin - Result := NIL; - AIID := GUIDToString(IID); - if FBizEditorsList <> nil then - for I := 0 to FBizEditorsList.Count-1 do - begin - P := FBizEditorsList[I]; - if (AIID = P^.IID) then - begin - Result := P; - Break; - end; - end; -end; - -procedure RegisterEditor(const IID : TGUID; const AFuncItemEditor : TFuncItemEditor; - const AType : TEditorType); -var - P: PBizEditorsRec; -begin - P := NIL; - if FBizEditorsList = nil then - FBizEditorsList := TList.Create; - - P := FindBizEditors(IID); - if not Assigned(P) then - New(P); - try - P^.IID := GUIDToString(IID); - case AType of - etItem : P^.ItemEditor := AFuncItemEditor; - etItems : P^.ItemsEditor := AFuncItemEditor; - etSelectItems : P^.SelectItemsEditor := AFuncItemEditor; - end; - FBizEditorsList.Insert(0, P); - except - on E: EConvertError do - ShowMessage(E.Message); - end; -end; - -function ShowEditor(const IID : TGUID; ABizObject : TDADataTableRules; - const AType : TEditorType) : TModalResult; -var - P: PBizEditorsRec; -begin - P := FindBizEditors(IID); - - if Assigned(P) then - case AType of - etItem : Result := P.ItemEditor(ABizObject); - etItems : Result := P.ItemsEditor(ABizObject); - etSelectItems : Result := P.SelectItemsEditor(ABizObject); - end; -end; - - -initialization - FBizEditorsList := TList.Create; - -finalization - FBizEditorsList.Free; - -end. diff --git a/Varela/Varela/Source/Base/uExceptions.pas b/Varela/Varela/Source/Base/uExceptions.pas deleted file mode 100644 index a8f8b26..0000000 --- a/Varela/Varela/Source/Base/uExceptions.pas +++ /dev/null @@ -1,21 +0,0 @@ -unit uExceptions; - -interface - -uses - uDADelta; - -const - AUF_FKVIOLATION = 'violation of FOREIGN KEY'; - AUF_HAVEVALUE = 'must have a value'; - -type - IApplyUpdateFailedException = interface - ['{B090A762-3D65-405E-A810-14DB4F6E8F82}'] - procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed); - end; - -implementation - -end. - diff --git a/Varela/Varela/Source/Base/uGridUtils.pas b/Varela/Varela/Source/Base/uGridUtils.pas deleted file mode 100644 index 40b8e6d..0000000 --- a/Varela/Varela/Source/Base/uGridUtils.pas +++ /dev/null @@ -1,261 +0,0 @@ -unit uGridUtils; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid; - -type - TRecordInfo = class - KeyValues: Variant; - ALevel: Integer; - end; - - TRecordInfos = class(TList) - private - function GetItem(Index: Integer): TRecordInfo; - protected - procedure Notify(Ptr: Pointer; Action: TListNotification); override; - public - property Items[Index: Integer]: TRecordInfo read GetItem; Default; - end; - - TcxGridStatus = class - protected - GroupRecords: TRecordInfos; - SelectedRecords: TRecordInfos; - SelStartItem: Integer; - SelEndItem: Integer; - AFocusedRow: TRecordInfo; - TopRow: TRecordInfo; - - function SaveRecord(AView: TcxGridDBTableView; GridRecord: - TcxCustomGridRecord): TRecordInfo; - function FindRecordEx(AView: TcxGridDBTableView; RecordInfo: - TRecordInfo): TcxCustomGridRecord; - - procedure SaveGridViewSelection(AView: TcxGridDBTableView); - procedure LoadGridViewSelection(AView: TcxGridDBTableView); - procedure SaveGridViewTopFocusedRecords(AView: TcxGridDBTableView); - procedure LoadGridViewTopFocusedRecords(AView: TcxGridDBTableView); - procedure SaveGridViewExpanded(AView: TcxGridDBTableView); - procedure LoadGridViewExpanded(AView: TcxGridDBTableView); - public - constructor Create(AGridView: TcxGridDBTableView); - destructor Destroy; override; - procedure Restore(AGridView: TcxGridDBTableView); - end; - -implementation - - -uses - cxVariants; - - -procedure TRecordInfos.Notify(Ptr: Pointer; Action: TListNotification); -begin - if Action in [lnExtracted, lnDeleted] then - FreeAndNil(TRecordInfo(Ptr)); -end; - -function TRecordInfos.GetItem(Index: Integer): TRecordInfo; -begin - Result := TRecordInfo(inherited Items[Index]); -end; - -function TcxGridStatus.SaveRecord(AView: TcxGridDBTableView; - GridRecord: TcxCustomGridRecord): TRecordInfo; -begin - Result := TRecordInfo.Create; - Result.KeyValues := - AView.DataController.GetRecordId(GridRecord.RecordIndex); - Result.ALevel := GridRecord.Level; -end; - -function TcxGridStatus.FindRecordEx(AView: TcxGridDBTableView; RecordInfo: - TRecordInfo): TcxCustomGridRecord; -var - I, ARecordIndex: Integer; - AList: TList; - AKeyValue: Variant; -begin - I := 0; - ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues); - Result := nil; - AList := TList.Create; - try - while I < AView.ViewData.RowCount do - begin - if AView.ViewData.Rows[I] is TcxGridGroupRow then - begin - AList.Clear; - AView.DataController.Groups.LoadRecordIndexesByRowIndex(AList, I); - if AList.IndexOf(Pointer(ARecordIndex)) <> -1 then - begin - if AView.ViewData.Rows[I].Level < RecordInfo.ALevel then - AView.ViewData.Rows[I].Expand(False) - else - begin - Result := AView.ViewData.Rows[I]; - Break; - end; - end; - end - else - begin - AKeyValue := AView.DataController.GetRecordId(AView.ViewData.Rows[I].RecordIndex); - if VarEquals(AKeyValue, RecordInfo.KeyValues) then - begin - Result := AView.ViewData.Rows[I]; - Break; - end; - end; - Inc(I); - end; - finally - FreeAndNil(AList); - end; -end; - -procedure TcxGridStatus.SaveGridViewSelection( - AView: TcxGridDBTableView); -var - i: Integer; - SelectRecordInfo: TRecordInfo; -begin - with AView.DataController, AView.Controller do - begin - for i := 0 To SelectedRecordCount - 1 do - begin - SelectRecordInfo := SaveRecord(AView, SelectedRecords[i]); - Self.SelectedRecords.Add(SelectRecordInfo); - end; - if SelectedColumnCount = 0 then - begin - SelStartItem := -1; - SelEndItem := -1; - end - else - begin - SelStartItem := SelectedColumns[0].Index; - SelEndItem := SelectedColumns[SelectedColumnCount - 1].Index; - end; - end; -end; - -procedure TcxGridStatus.LoadGridViewSelection( - AView: TcxGridDBTableView); -var - i: Integer; - ARecord: TcxCustomGridRecord; -begin - AView.Controller.ClearSelection; - - for i := 0 To SelectedRecords.Count - 1 do - begin - ARecord := FindRecordEx(AView, SelectedRecords[i]); - if Assigned(ARecord) then - ARecord.Selected := True; - end; - - if SelStartItem <> -1 then - AView.Controller.SelectColumns(AView.Columns[SelStartItem], - AView.Columns[SelEndItem]); -end; - -procedure TcxGridStatus.SaveGridViewTopFocusedRecords(AView: TcxGridDBTableView); -begin - if AView.Controller.FocusedRow = nil then - AFocusedRow := nil - else - AFocusedRow := SaveRecord(AView, AView.Controller.FocusedRow); - TopRow := nil; - if (AView.Controller.TopRowIndex <> -1) and - (AView.Controller.TopRowIndex < AView.ViewData.RecordCount) then - TopRow := SaveRecord(AView, AView.ViewData.Records[AView.Controller.TopRowIndex]); -end; - -procedure TcxGridStatus.LoadGridViewTopFocusedRecords(AView: TcxGridDBTableView); -var - ARecord: TcxCustomGridRecord; -begin - ARecord := FindRecordEx(AView, AFocusedRow); - if Assigned(ARecord) then - ARecord.Focused := True; - ARecord := FindRecordEx(AView, TopRow); - if Assigned(ARecord) then - AView.Controller.TopRowIndex := ARecord.Index; -end; - -type - TcxDataControllerGroupsAccess = class(TcxDataControllerGroups); - TcxDataGroupsAccess = class(TcxDataGroups); - -procedure TcxGridStatus.SaveGridViewExpanded( - AView: TcxGridDBTableView); -var - i: Integer; - GroupRecordInfo: TRecordInfo; -begin - for i := 0 To AView.DataController.RowCount - 1 do - with AView.ViewData.Records[i] do - if Expanded then - begin - GroupRecordInfo := SaveRecord(AView, AView.ViewData.Records[i]); - GroupRecords.Add(GroupRecordInfo); - end; -end; - -procedure TcxGridStatus.LoadGridViewExpanded( - AView: TcxGridDBTableView); -var - i: Integer; - ARecord: TcxCustomGridRecord; -begin - for i := 0 to GroupRecords.Count - 1 do - begin - ARecord := FindRecordEx(AView, GroupRecords[i]); - if Assigned(ARecord) then - ARecord.Expand(False); - end; -end; - -constructor TcxGridStatus.Create(AGridView: TcxGridDBTableView); -begin - inherited Create; - GroupRecords := TRecordInfos.Create; - SelectedRecords := TRecordInfos.Create; - SaveGridViewSelection(AGridView); - SaveGridViewExpanded(AGridView); - SaveGridViewTopFocusedRecords(AGridView); -end; - -destructor TcxGridStatus.Destroy; -begin - FreeAndNil(GroupRecords); - FreeAndNil(SelectedRecords); - inherited; -end; - -procedure TcxGridStatus.Restore(AGridView: TcxGridDBTableView); -begin - SendMessage(AGridView.Site.Handle, WM_SETREDRAW, 0, 0); - try - AGridView.ViewData.Collapse(True); - LoadGridViewExpanded(AGridView); - LoadGridViewSelection(AGridView); - LoadGridViewTopFocusedRecords(AGridView); - finally - SendMessage(AGridView.Site.Handle, WM_SETREDRAW, 1, 0); - RedrawWindow(AGridView.Site.Handle, Nil, 0, RDW_FRAME Or RDW_NOFRAME Or - RDW_ALLCHILDREN Or RDW_INVALIDATE); - end; -end; - - -end. diff --git a/Varela/Varela/Source/Base/uIntegerList.pas b/Varela/Varela/Source/Base/uIntegerList.pas deleted file mode 100644 index 93d40db..0000000 --- a/Varela/Varela/Source/Base/uIntegerList.pas +++ /dev/null @@ -1,61 +0,0 @@ -unit uIntegerList; - -interface - -uses - Classes; - -type - TIntegerList = class(TList) - private - function GetInteger(Index: integer): integer; - procedure SetInteger(Index: integer; Value: integer); - public - procedure Add(Value: integer); reintroduce; - function Find(Value: integer; var Index: Integer): Boolean; - property Integers[index: integer]: integer read GetInteger write SetInteger; default; - end; - -implementation - -function TIntegerList.GetInteger(Index: integer): integer; -begin - result := Integer(Items[index]); -end; - -procedure TIntegerList.SetInteger(Index: integer; Value: integer); -begin - Items[index] := Pointer(Value); -end; - -procedure TIntegerList.Add(Value: integer); -var - Index: integer; -begin - if not Find(Value, Index) then - Insert(Index, Pointer(Value)); -end; - -function TIntegerList.Find(Value: integer; var Index: Integer): Boolean; -var - L, H, I, C: Integer; -begin - Result := False; - L := 0; - H := Count - 1; - while L <= H do - begin - I := (L + H) shr 1; - C := Integers[I] - Value; - if C < 0 then - L := I + 1 - else begin - H := I - 1; - if C = 0 then - Result := True; - end; - end; - Index := L; -end; - -end. diff --git a/Varela/Varela/Source/Base/uSysFunc.pas b/Varela/Varela/Source/Base/uSysFunc.pas deleted file mode 100644 index f4c26f4..0000000 --- a/Varela/Varela/Source/Base/uSysFunc.pas +++ /dev/null @@ -1,249 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2002. 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: 01-11-2002 - Versión actual: 1.0.0 - Fecha versión actual: 01-11-2002 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uSysFunc; - -interface - -{ Funciones del sistema } -function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean) : Boolean; -function DarRutaTemporal : String; -function DarFicheroTemporal : String; -function DarFicheroBMPTemporal : String; -function DarFicheroTIFFTemporal : String; -function DarFicheroExportar (var Fichero : String) : Boolean; -function DarVersionFichero (Executable : String) : String; -function DarFechaFichero (Executable : String) : String; -procedure CopiarFichero(const Origen, Destino: string); -procedure DoDelTree( TheDir : String); -procedure Deltree(DirToKill : String; KillChoosenDir : Boolean); - - -implementation - -uses - SysUtils, Windows, Dialogs, - - Messages, Classes, Graphics, Controls, Forms, - StdCtrls; - -function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean): Boolean; -var - StartupInfo : TStartupInfo; - ProcessInfo : TProcessInformation; -begin - {setup the startup information for the application } - FillChar(StartupInfo, SizeOf(TStartupInfo), 0); - with StartupInfo do - begin - cb := SizeOf(TStartupInfo); - dwFlags:= STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK; - if Oculto then - wShowWindow:= SW_HIDE - else - wShowWindow:= SW_SHOWNORMAL; - end; - - Result := CreateProcess(nil,PChar(LineaComando), nil, nil, False, - NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo); - if Esperar then - if Result then - begin - WaitForInputIdle(ProcessInfo.hProcess, INFINITE); - WaitForSingleObject(ProcessInfo.hProcess, INFINITE); - end; -end; - -function DarRutaTemporal: String; -var - nBufferLength : DWORD; // size, in characters, of the buffer - lpBuffer : PChar; // address of buffer for temp. path -begin - nBufferLength := MAX_PATH + 1; // initialize - GetMem( lpBuffer, nBufferLength ); - try - if GetTempPath( nBufferLength, lpBuffer ) <> 0 then - Result := StrPas( lpBuffer ) - else - Result := ''; - finally - FreeMem( lpBuffer ); - end; -end; - -function DarFicheroTemporal : String; -var - Buf: array [0..MAX_PATH] of Char; - RutaTmp : string; -begin - RutaTmp := DarRutaTemporal; - if GetTempFileName(PChar(RutaTmp), 'tmp', 0, Buf) <> 0 then - SetString(Result, Buf, StrLen(Buf)) - else - Result := ''; -end; - -function DarFicheroTIFFTemporal : String; -var - Cadena : String; -begin - Cadena := DarFicheroTemporal; - Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'tif'; -end; - -function DarFicheroBMPTemporal : String; -var - Cadena : String; -begin - Cadena := DarFicheroTemporal; - Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'bmp'; -end; - -function DarFicheroExportar (var Fichero : String) : Boolean; -var - DialogoSalvar : TSaveDialog; -begin - Result := False; - DialogoSalvar := TSaveDialog.Create(NIL); - try - with DialogoSalvar do - begin - DefaultExt := 'doc'; - Filter := 'Documento de Word (*.doc)|*.doc'; - FilterIndex := 0; - Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]; - end; - Result := DialogoSalvar.Execute; - if Result then - Fichero := DialogoSalvar.FileName; - finally - DialogoSalvar.Free; - end; -end; - -function DarVersionFichero (Executable : String) : String; -var - Size, Size2: DWord; - Pt, Pt2: Pointer; -begin - Size := GetFileVersionInfoSize(PChar (Executable), Size2); - if Size > 0 then - begin - GetMem (Pt, Size); - try - GetFileVersionInfo (PChar (Executable), 0, Size, Pt); - VerQueryValue (Pt, '\', Pt2, Size2); - with TVSFixedFileInfo (Pt2^) do - begin - Result:= IntToStr (HiWord (dwFileVersionMS)) + '.' + - IntToStr (LoWord (dwFileVersionMS)) + '.' + - IntToStr (HiWord (dwFileVersionLS)) + '.' + - IntToStr (LoWord (dwFileVersionLS)); - end; - finally - FreeMem (Pt); - end; - end; -end; - -function DarFechaFichero (Executable : String) : String; -var - FileTime, LocalFileTime : TFileTime; - SystemTime : TSystemTime; - hFile : Integer; -begin - hFile := FileOpen(Executable, fmShareDenyNone); - try - if hFile <> -1 then - begin - Windows.GetFileTime( hFile, nil, nil, @FileTime ); // ftLasWriteTime - // Change the file time to local time - FileTimeToLocalFileTime( FileTime, LocalFileTime ); - if FileTimeToSystemTime(LocalFileTime, SystemTime) then - Result := DateTimeToStr(SystemTimeToDateTime(SystemTime)); - end; // if hFile <> 0 - finally - FileClose( hFile ); - end; // try -end; - - -procedure CopiarFichero(const Origen, Destino: string); -var - lpMsgBuf : pchar; -begin - CopyFile(PChar(Origen), PChar(Destino), FALSE); -end; - -procedure DoDelTree(TheDir : String); - Var - Search : TSearchRec; - rec : word; -Begin - If TheDir[Length(TheDir)] <> '\' Then TheDir := TheDir + '\'; - rec := SysUtils.FindFirst(TheDir + '*.*', faAnyFile, Search); - While rec = 0 Do - Begin - If Search.Name[1] <> '.' Then - Begin -// Is this a directory? - If (Search.Attr And faDirectory) = faDirectory Then - Begin -// If so, lets call DelTree again using this new -// directory as the TheDir parameter. - DoDelTree(TheDir + Search.Name); -// Not that all of the files are gone from this directoy, -// we can remove the directory. - RmDir(TheDir + Search.Name); - End - Else - Begin -// We found a file. -// Now lets reset its attributes so we don't have any problems -// deleting them. - SysUtils.FileSetAttr(TheDir + Search.Name, 0); - SysUtils.DeleteFile(TheDir + Search.Name); - Application.ProcessMessages; - End; - End; - rec := SysUtils.FindNext(Search); - End; - SysUtils.FindClose(Search); -End; - -procedure Deltree(DirToKill : String; KillChoosenDir : Boolean); -begin -{$I-} - DoDelTree(DirToKill); -// If we want to delete the choosen directory. - If KillChoosenDir Then - RmDir(DirToKill); - //modified - if IOResult <> 0 then - ShowMessage('Could not delete ' + DirToKill); -//{$I} -end; - - -end. - \ No newline at end of file diff --git a/Varela/Varela/Source/Base/uViewBarraSeleccion.dfm b/Varela/Varela/Source/Base/uViewBarraSeleccion.dfm deleted file mode 100644 index cf83624..0000000 --- a/Varela/Varela/Source/Base/uViewBarraSeleccion.dfm +++ /dev/null @@ -1,53 +0,0 @@ -inherited frViewBarraSeleccion: TfrViewBarraSeleccion - Width = 439 - Height = 19 - Align = alBottom - AutoScroll = False - Visible = False - object pnlSeleccion: TPanel - Left = 0 - Top = -18 - Width = 439 - Height = 37 - Align = alBottom - BevelOuter = bvNone - ParentBackground = True - TabOrder = 0 - DesignSize = ( - 439 - 37) - object bSeleccionar: TButton - Left = 264 - Top = 7 - Width = 74 - Height = 23 - Action = actSeleccionar - Anchors = [akRight] - Default = True - ModalResult = 1 - TabOrder = 0 - end - object bCancelar: TButton - Left = 343 - Top = 7 - Width = 74 - Height = 23 - Action = actCancelar - Anchors = [akRight] - Cancel = True - ModalResult = 2 - TabOrder = 1 - end - end - object ActionListSeleccion: TActionList - Left = 8 - Top = 5 - object actSeleccionar: TAction - Caption = '&Seleccionar' - end - object actCancelar: TAction - Caption = '&Cancelar' - OnExecute = actCancelarExecute - end - end -end diff --git a/Varela/Varela/Source/Base/uViewBarraSeleccion.pas b/Varela/Varela/Source/Base/uViewBarraSeleccion.pas deleted file mode 100644 index b09d87f..0000000 --- a/Varela/Varela/Source/Base/uViewBarraSeleccion.pas +++ /dev/null @@ -1,37 +0,0 @@ -unit uViewBarraSeleccion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, StdCtrls, ActnList, ExtCtrls; - -type - TfrViewBarraSeleccion = class(TfrViewBase) - pnlSeleccion: TPanel; - bSeleccionar: TButton; - bCancelar: TButton; - ActionListSeleccion: TActionList; - actSeleccionar: TAction; - actCancelar: TAction; - procedure actCancelarExecute(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -var - frViewBarraSeleccion: TfrViewBarraSeleccion; - -implementation - -{$R *.dfm} - -procedure TfrViewBarraSeleccion.actCancelarExecute(Sender: TObject); -begin - inherited; - // -end; - -end. diff --git a/Varela/Varela/Source/Base/uViewBase.dfm b/Varela/Varela/Source/Base/uViewBase.dfm deleted file mode 100644 index 6b80b72..0000000 --- a/Varela/Varela/Source/Base/uViewBase.dfm +++ /dev/null @@ -1,14 +0,0 @@ -object frViewBase: TfrViewBase - Left = 0 - Top = 0 - Width = 294 - Height = 214 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False -end diff --git a/Varela/Varela/Source/Base/uViewBase.pas b/Varela/Varela/Source/Base/uViewBase.pas deleted file mode 100644 index 16962ed..0000000 --- a/Varela/Varela/Source/Base/uViewBase.pas +++ /dev/null @@ -1,32 +0,0 @@ -unit uViewBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uGUIBase, uCustomView, JvComponent, JvFormAutoSize; - -type - IViewBase = interface(ICustomView) - ['{82FBDF28-9C5F-4922-952E-0E84D67FE4BB}'] - procedure Refresh; - end; - - TfrViewBase = class(TCustomView, IViewBase) - public - procedure Refresh; virtual; - end; - -implementation - -{$R *.dfm} - - -{ TfrViewBase } - -procedure TfrViewBase.Refresh; -begin - // -end; - -end. diff --git a/Varela/Varela/Source/Base/uViewGrid.dfm b/Varela/Varela/Source/Base/uViewGrid.dfm deleted file mode 100644 index 211269d..0000000 --- a/Varela/Varela/Source/Base/uViewGrid.dfm +++ /dev/null @@ -1,79 +0,0 @@ -inherited frViewGrid: TfrViewGrid - object cxGrid: TcxGrid [0] - Left = 0 - Top = 0 - Width = 441 - Height = 268 - Align = alClient - TabOrder = 0 - LookAndFeel.Kind = lfOffice11 - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - DataController.DataSource = dsDataSource - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.CellHints = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsData.Deleting = False - OptionsData.DeletingConfirmation = False - OptionsData.Editing = False - OptionsData.Inserting = False - OptionsSelection.CellSelect = False - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.Footer = True - OptionsView.FooterAutoHeight = True - OptionsView.GridLineColor = cl3DLight - OptionsView.GroupByBox = False - OptionsView.HeaderEndEllipsis = True - Styles.Inactive = cxStyleSelection - Styles.Selection = cxStyleSelection - Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - object dxComponentPrinter: TdxComponentPrinter - PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint] - PreviewOptions.VisibleOptions = [pvoPageBackground, pvoPageSetup, pvoPreferences, pvoPrint, pvoPrintStyles, pvoReportFileOperations, pvoPageMargins] - PreviewOptions.WindowState = wsMaximized - Version = 0 - Left = 368 - Top = 128 - end - object dxPSEngineController1: TdxPSEngineController - LookAndFeel = pslfOffice11 - UseNativeLookAndFeel = False - Left = 336 - Top = 128 - end - object cxStyleRepository1: TcxStyleRepository - Left = 296 - Top = 128 - object cxStyleEven: TcxStyle - end - object cxStyleOdd: TcxStyle - AssignedValues = [svColor] - Color = clInactiveCaptionText - end - object cxStyleSelection: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clHighlight - TextColor = clHighlightText - end - object cxStyleSinOrden: TcxStyle - end - object cxStyleConOrden: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - end -end diff --git a/Varela/Varela/Source/Base/uViewGrid.pas b/Varela/Varela/Source/Base/uViewGrid.pas deleted file mode 100644 index c644770..0000000 --- a/Varela/Varela/Source/Base/uViewGrid.pas +++ /dev/null @@ -1,86 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewGrid; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, - DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, - cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, uDAInterfaces; - -type - IViewGrid = interface(IViewGridBase) - ['{7EA40980-AD73-4590-A53A-932316C7B121}'] - end; - - TfrViewGrid = class(TfrViewGridBase, IViewGrid) - cxGrid: TcxGrid; - cxGridLevel: TcxGridLevel; - cxGridView: TcxGridDBTableView; - dxComponentPrinter: TdxComponentPrinter; - dxPSEngineController1: TdxPSEngineController; - cxStyleRepository1: TcxStyleRepository; - cxStyleEven: TcxStyle; - cxStyleOdd: TcxStyle; - cxStyleSelection: TcxStyle; - cxStyleSinOrden: TcxStyle; - cxStyleConOrden: TcxStyle; - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - protected - function GetGrid : TcxGrid; override; - function GetFocusedView : TcxGridDBTableView; override; - end; - -implementation - -uses - uDataModuleBase, uDBSelectionList; - -{$R *.dfm} - -{ -********************************* TfrViewGrid ********************************** -} - -{ TfrViewGrid } -function TfrViewGrid.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -function TfrViewGrid.GetGrid: TcxGrid; -begin - Result := cxGrid; -end; - -procedure TfrViewGrid.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(AItem) then - begin - if AItem.SortOrder = soNone then - AStyle := cxStyleSinOrden - else - AStyle := cxStyleConOrden; - end; -end; - -end. - diff --git a/Varela/Varela/Source/Base/uViewGridBase.ddp b/Varela/Varela/Source/Base/uViewGridBase.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Base/uViewGridBase.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Base/uViewGridBase.dfm b/Varela/Varela/Source/Base/uViewGridBase.dfm deleted file mode 100644 index 5695879..0000000 --- a/Varela/Varela/Source/Base/uViewGridBase.dfm +++ /dev/null @@ -1,10 +0,0 @@ -inherited frViewGridBase: TfrViewGridBase - Width = 441 - Height = 268 - ExplicitWidth = 441 - ExplicitHeight = 268 - object dsDataSource: TDADataSource - Left = 8 - Top = 16 - end -end diff --git a/Varela/Varela/Source/Base/uViewGridBase.pas b/Varela/Varela/Source/Base/uViewGridBase.pas deleted file mode 100644 index d1c5818..0000000 --- a/Varela/Varela/Source/Base/uViewGridBase.pas +++ /dev/null @@ -1,335 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewGridBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids, - DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, - cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils, uDAInterfaces; - -type - IViewGridBase = interface(IViewBase) - ['{D5B9B017-2A2E-44AC-8223-E54664C6BC66}'] - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - - procedure Preview; - procedure Print; - procedure PrintSetup; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure GotoFirst; - procedure GotoLast; - - function GetFocusedView : TcxGridDBTableView; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - - function GetGrid : TcxGrid; - property _Grid : TcxGrid read GetGrid; - - procedure StoreToRegistry (const Path : String); - procedure RestoreFromRegistry (const Path : String); - - procedure SetDblClick(const Value: TNotifyEvent); - function GetDblClick: TNotifyEvent; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - - procedure SetPopupMenu(const Value: TPopupMenu); - function GetPopupMenu: TPopupMenu; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - - function GetMultiSelect: Boolean; - procedure SetMultiSelect(const Value: Boolean); - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - - procedure SetFilter(const Value: string); - function GetFilter: string; - property Filter: string read GetFilter write SetFilter; - - function GetFilterAsSQL: string; - end; - - - TfrViewGridBase = class(TfrViewBase, IViewGridBase) - dsDataSource: TDADataSource; - private - FFilter: string; - FOnFilterChanged : TNotifyEvent; - FPopupMenu: TPopupMenu; - procedure FiltrarGrid(TextoFiltro : String); - protected - FGridStatus : TcxGridStatus; - FOnDblClick: TNotifyEvent; - function GetMultiSelect: Boolean; virtual; - procedure SetMultiSelect(const Value: Boolean); virtual; - procedure SetPopupMenu(const Value: TPopupMenu); virtual; - function GetPopupMenu: TPopupMenu; virtual; - procedure SetDblClick(const Value: TNotifyEvent); virtual; - function GetDblClick: TNotifyEvent; virtual; - function GetGrid : TcxGrid; virtual; abstract; - function GetFocusedView : TcxGridDBTableView; virtual; abstract; - procedure SetFilter(const Value: string); virtual; - function GetFilter: string; virtual; - procedure FilterChanged(Sender : TObject); virtual; - public - constructor Create(AOwner: TComponent); override; - - procedure ShowEmbedded(const AParent : TWinControl); override; - - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - - procedure SaveGridStatus; - procedure RestoreGridStatus; - - procedure Preview; virtual; - procedure Print; virtual; - procedure PrintSetup; virtual; - - procedure GotoFirst; - procedure GotoLast; - - procedure StoreToRegistry (const Path : String); - procedure RestoreFromRegistry (const Path : String); - - function GetFilterAsSQL: string; - - property Filter: string read GetFilter write SetFilter; - property _FocusedView : TcxGridDBTableView read GetFocusedView; - property _Grid : TcxGrid read GetGrid; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; - destructor Destroy; override; - end; - -procedure Register; - -implementation - -uses - CCReg, uDataModuleBase, uDBSelectionList; - -{$R *.dfm} - -procedure Register; -begin - RegisterCustomContainer(TfrViewGridBase); -end; - -{ TfrViewGrid } - -procedure TfrViewGridBase.AjustarAncho; -begin - if Assigned(_FocusedView) then - _FocusedView.ApplyBestFit; -end; - -procedure TfrViewGridBase.ContraerTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Collapse(True); -end; - -constructor TfrViewGridBase.Create(AOwner: TComponent); -begin - inherited; - FGridStatus := nil; - FFilter := ''; - FOnFilterChanged := FilterChanged; - FPopupMenu := nil; - FOnDblClick := nil; -end; - -procedure TfrViewGridBase.ExpandirTodo; -begin - if Assigned(_FocusedView) then - _FocusedView.ViewData.Expand(True); -end; - -function TfrViewGridBase.GetDblClick: TNotifyEvent; -begin - Result := FOnDblClick; -end; - -function TfrViewGridBase.GetFilter: string; -begin - Result := FFilter; -end; - -function TfrViewGridBase.GetMultiSelect: Boolean; -begin - Result := _FocusedView.OptionsSelection.MultiSelect; -end; - -function TfrViewGridBase.GetPopupMenu: TPopupMenu; -begin - Result := FPopupMenu; -end; - -procedure TfrViewGridBase.GotoFirst; -begin - if Assigned(_FocusedView) then - _FocusedView.DataController.GotoFirst; -end; - -procedure TfrViewGridBase.GotoLast; -begin - if Assigned(_FocusedView) then - _FocusedView.DataController.GotoLast; -end; - -procedure TfrViewGridBase.Preview; -begin - -end; - -procedure TfrViewGridBase.Print; -begin - -end; - -procedure TfrViewGridBase.PrintSetup; -begin - -end; - -procedure TfrViewGridBase.RestoreFromRegistry(const Path : String); -begin - if Assigned(_FocusedView) then - _FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, []); -end; - -procedure TfrViewGridBase.SetDblClick(const Value: TNotifyEvent); -begin - FOnDblClick := Value; -end; - -procedure TfrViewGridBase.SetFilter(const Value: string); -begin - if FFilter <> Value then - begin - FFilter := Value; - FiltrarGrid(FFilter); - if Assigned(FOnFilterChanged) then - FOnFilterChanged(Self); - end; -end; - -procedure TfrViewGridBase.SetMultiSelect(const Value: Boolean); -begin - _FocusedView.OptionsSelection.MultiSelect := True; -// _FocusedView..OnSelectionChanged := SelectionChanged; -end; - -procedure TfrViewGridBase.SetPopupMenu(const Value: TPopupMenu); -begin - FPopupMenu := Value; - _FocusedView.PopupMenu := FPopupMenu; -end; - -procedure TfrViewGridBase.ShowEmbedded(const AParent: TWinControl); -begin - inherited; - - // No activar la tabla ya por si acaso tuviera parámetros -{ if not DADataSource.DataTable.Active then - DADataSource.DataTable.Active := True;} - GotoFirst; - _FocusedView.Focused := True; - if _FocusedView.ViewData.RecordCount > 0 then - begin - _FocusedView.ViewData.Records[0].Selected := True; - _FocusedView.ViewData.Records[0].Focused := True; - end; -end; - -procedure TfrViewGridBase.StoreToRegistry(const Path : String); -begin - if Assigned(_FocusedView) then - _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, []); -end; - -procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String); -var - Columna: TcxGridDBColumn; - i: Integer; - AItemList: TcxFilterCriteriaItemList; -begin - with _FocusedView.DataController.Filter do - begin - BeginUpdate; - try - Options := [fcoCaseInsensitive, fcoSoftCompare]; - Root.Clear; - if Length(TextoFiltro) > 0 then - begin - AItemList := Root.AddItemList(fboAnd); - AItemList.BoolOperatorKind := fboOr; - for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do - begin - Columna := (_FocusedView as TcxGridDBTableView).Columns[i]; - if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then - AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i)); - end; - Active := True; - end - else - Active := False; - finally - EndUpdate; - end; - end; -end; - - -procedure TfrViewGridBase.FilterChanged(Sender: TObject); -begin - -end; - -destructor TfrViewGridBase.Destroy; -begin - FOnFilterChanged := Nil; - FreeAndNIL(FGridStatus); - inherited; -end; - -procedure TfrViewGridBase.RestoreGridStatus; -begin - if Assigned(FGridStatus) then - FGridStatus.Restore(_FocusedView); -end; - -procedure TfrViewGridBase.SaveGridStatus; -begin - FreeAndNIL(FGridStatus); - FGridStatus := TcxGridStatus.Create(_FocusedView); -end; - -function TfrViewGridBase.GetFilterAsSQL: string; -begin - with _FocusedView.DataController.Filter do - Result := FilterText; -end; - -end. - diff --git a/Varela/Varela/Source/Base/uViewPreview.dfm b/Varela/Varela/Source/Base/uViewPreview.dfm deleted file mode 100644 index 52e3be3..0000000 --- a/Varela/Varela/Source/Base/uViewPreview.dfm +++ /dev/null @@ -1,10 +0,0 @@ -inherited frViewPreview: TfrViewPreview - object frxPreview: TfrxPreview - Left = 0 - Top = 0 - Width = 294 - Height = 214 - Align = alClient - OutlineVisible = False - end -end diff --git a/Varela/Varela/Source/Base/uViewPreview.pas b/Varela/Varela/Source/Base/uViewPreview.pas deleted file mode 100644 index c16f376..0000000 --- a/Varela/Varela/Source/Base/uViewPreview.pas +++ /dev/null @@ -1,43 +0,0 @@ -unit uViewPreview; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, frxClass, frxPreview, JvComponent, JvFormAutoSize; - -type - IViewPreview = interface(IViewBase) - ['{F9A96948-4005-4E9B-8045-7B4874A05D19}'] - function GetPreview: TfrxPreview; - property Preview : TfrxPreview read GetPreview; - end; - - TfrViewPreview = class(TfrViewBase, IViewPreview) - frxPreview: TfrxPreview; - private - function GetPreview: TfrxPreview; - public - property Preview : TfrxPreview read GetPreview; - end; - -implementation - -{$R *.dfm} - -{ TfrViewPreview } - -function TfrViewPreview.GetPreview: TfrxPreview; -begin - Result := frxPreview; -end; - -initialization - RegisterClass(TfrViewPreview); - -finalization - UnRegisterClass(TfrViewPreview); - -end. - - diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.bdsproj b/Varela/Varela/Source/CargaEDI/CargaEDI.bdsproj deleted file mode 100644 index 3437b92..0000000 --- a/Varela/Varela/Source/CargaEDI/CargaEDI.bdsproj +++ /dev/null @@ -1,679 +0,0 @@ - - - - - - - - - - - - CargaEDI.dpr - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - ..\..\Output\Debug\Cliente - .\ - ..\Lib - ..\Lib - ..\Lib;..\Base - BaseD10;Configuracion;FicherosEDI;rtl;dbrtl;vcldb;DataAbstract_Core_D10;DataAbstract_IDE_D10 - - - True - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 2 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 2.0.0.0 - - - - - - 1.0.0.0 - - - Internet Direct Version 9 (Indy) Property and Component Editors - - - - diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.cfg b/Varela/Varela/Source/CargaEDI/CargaEDI.cfg deleted file mode 100644 index d4335d6..0000000 --- a/Varela/Varela/Source/CargaEDI/CargaEDI.cfg +++ /dev/null @@ -1,46 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --E"..\..\Output\Cliente" --N".\" --LE"..\Lib" --LN"..\Lib" --U"..\Lib" --O"..\Lib" --I"..\Lib" --R"..\Lib" --LUBaseD7;Configuracion;FicherosEDI --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.dof b/Varela/Varela/Source/CargaEDI/CargaEDI.dof deleted file mode 100644 index 75a90da..0000000 --- a/Varela/Varela/Source/CargaEDI/CargaEDI.dof +++ /dev/null @@ -1,480 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir=..\..\Output\Cliente -UnitOutputDir=.\ -PackageDLLOutputDir=..\Lib -PackageDCPOutputDir=..\Lib -SearchPath=..\Lib -Packages=BaseD7;Configuracion;FicherosEDI -Conditionals= -DebugSourceDirs= -UsePackages=1 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=1 -Release=1 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.1.1.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=3 -Item0=..\Lib -Item1=..\Lib;..\Base -Item2=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=0 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.dpr b/Varela/Varela/Source/CargaEDI/CargaEDI.dpr deleted file mode 100644 index 44e0fec..0000000 --- a/Varela/Varela/Source/CargaEDI/CargaEDI.dpr +++ /dev/null @@ -1,14 +0,0 @@ -program CargaEDI; - -uses - Forms, - uCargaEDI in 'uCargaEDI.pas' {fCargaEDI}; - -{$R *.res} - -begin - Application.Initialize; - Application.Title := 'Carga automática EDI'; - Application.CreateForm(TfCargaEDI, fCargaEDI); - Application.Run; -end. diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.drc b/Varela/Varela/Source/CargaEDI/CargaEDI.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/CargaEDI/CargaEDI.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.identcache b/Varela/Varela/Source/CargaEDI/CargaEDI.identcache deleted file mode 100644 index 2895ca9..0000000 Binary files a/Varela/Varela/Source/CargaEDI/CargaEDI.identcache and /dev/null differ diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.rc b/Varela/Varela/Source/CargaEDI/CargaEDI.rc deleted file mode 100644 index ab63d7e..0000000 --- a/Varela/Varela/Source/CargaEDI/CargaEDI.rc +++ /dev/null @@ -1,23 +0,0 @@ -MAINICON ICON "C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Varela\Resources\Iconos\CargaEDI.ico" -1 VERSIONINFO -FILEVERSION 2,0,0,0 -PRODUCTVERSION 2,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "2.0.0.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/CargaEDI/CargaEDI.res b/Varela/Varela/Source/CargaEDI/CargaEDI.res deleted file mode 100644 index 5c6d4bd..0000000 Binary files a/Varela/Varela/Source/CargaEDI/CargaEDI.res and /dev/null differ diff --git a/Varela/Varela/Source/CargaEDI/uCargaEDI.ddp b/Varela/Varela/Source/CargaEDI/uCargaEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/CargaEDI/uCargaEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/CargaEDI/uCargaEDI.dfm b/Varela/Varela/Source/CargaEDI/uCargaEDI.dfm deleted file mode 100644 index 1a08cf1..0000000 --- a/Varela/Varela/Source/CargaEDI/uCargaEDI.dfm +++ /dev/null @@ -1,843 +0,0 @@ -object fCargaEDI: TfCargaEDI - Left = 470 - Top = 409 - BorderIcons = [] - BorderStyle = bsDialog - Caption = 'Monitor de carga autom'#225'tica' - ClientHeight = 324 - ClientWidth = 367 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnClose = FormClose - OnCreate = FormCreate - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Label13: TLabel - Left = 40 - Top = 118 - Width = 204 - Height = 14 - Caption = 'Carga autom'#225'tica de ficheros EDI' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - end - object Image1: TImage - Left = 0 - Top = 0 - Width = 367 - Height = 100 - Align = alTop - AutoSize = True - Picture.Data = { - 0A544A504547496D616765194A0000FFD8FFE000104A46494600010201004800 - 480000FFE106744578696600004D4D002A000000080007011200030000000100 - 010000011A00050000000100000062011B0005000000010000006A0128000300 - 00000100020000013100020000001B0000007201320002000000140000008D87 - 69000400000001000000A4000000D00000004800000001000000480000000141 - 646F62652050686F746F73686F702043532057696E646F777300323030363A30 - 373A30372031323A35323A3237000000000003A00100030000000100010000A0 - 0200040000000100000177A00300040000000100000064000000000000000601 - 0300030000000100060000011A0005000000010000011E011B00050000000100 - 00012601280003000000010002000002010004000000010000012E0202000400 - 0000010000053E0000000000000048000000010000004800000001FFD8FFE000 - 104A46494600010201004800480000FFED000C41646F62655F434D0001FFEE00 - 0E41646F626500648000000001FFDB0084000C08080809080C09090C110B0A0B - 11150F0C0C0F1518131315131318110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C - 0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C010D0B0B0D0E0D100E0E10140E0E - 0E14140E0E0E0E14110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C - 0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFFC0001108002B00A003012200 - 021101031101FFDD0004000AFFC4013F00000105010101010101000000000000 - 00030001020405060708090A0B01000105010101010101000000000000000100 - 02030405060708090A0B1000010401030204020507060805030C330100021103 - 04211231054151611322718132061491A1B14223241552C16233347282D14307 - 259253F0E1F163733516A2B283264493546445C2A3743617D255E265F2B384C3 - D375E3F3462794A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F6 - 37475767778797A7B7C7D7E7F711000202010204040304050607070605350100 - 021103213112044151617122130532819114A1B14223C152D1F0332462E17282 - 92435315637334F1250616A2B283072635C2D2449354A317644555367465E2F2 - B384C3D375E3F34694A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6 - E6F62737475767778797A7B7C7FFDA000C03010002110311003F00ED3D34BD35 - 6762AF9E0B711EF05CD0D2D2E2D25A76EE1BFDCDF72BBC47A35C8A04F6636065 - 6DDD6B9B5B7F79C4347FD249A1AF687B08735C25AE064107BB4A0D67A656DDC3 - 1EB3673EA3C6F7FF00DB96EF7A9F4701DD36A03863ACAFFCCB2C68FF00A29C78 - 80B90AD698F1E58642447A0B49E9A5E9AB1B12F4D378D9385AFE9A5E9AB1B12D - 8971AB85AFE9A5E9AB1B12D89712B85AFE9A5E9AB1B12D8971AB85AFE9A5E9AB - 1B12D89712B85AFE9A5E9AB1B12D89712B85AFE9A5E9AB05A1A0B8E800927C82 - 8BA5B58B4B46C2247BD931F0DDB7FE9A64F3C202E7211F34C71CA5B0B43E9A5E - 9A2D2EAEFA9B7547731E25A7E71FC14FD34E1901008360EA08418D685FFFD0F4 - 4D8839741BB1ADC76C6FBD8FAEB9D06E2D73BDDF72BBB142EA196B363C122410 - 5A4B5C08E1CC7B7DCC729B89653C6F54E9FD570AA6B6B7B1CF2D97BF576D3FBA - 07B59DBE97E916DF4DA725984D183F66F4097901E6E2EF53745DEABDFBFDDEAB - 7DFF00F411EFE8E6E3FA6C9C8757DEB0EADA48F036B2865BFF004D5FC7C7A28A - 194E3B0574D6218C1DBC79F739DBBE9B93F2E696488133A8BF97D2B31E1C7885 - 63888FE7F597CCD235F56EC713EEB5215F57EE70FE42E5A3B12D8A3BF12BE9CE - F4FAB78E27DD6FF7A5E9F56F1C4FBADFEF5A3B12D895F895539DE9F56F1C4FBA - DFEF4FE9F55FDEC4FF0036DFEF5A1B12D895F895539FE9F55FDEC4FBADFEF4DE - 9F56F1C4FBADFEF5A3B12D895F895539DE9F56F1C4FBAEFEF4BD3EADE389F75B - FDEB47625B12BF12AA73BD3EAD3F4B123E16FF007A5E9F55F1C49F18B63FF325 - A3B12D897D4FDAAA732DAFAAFA4F938B1B5D302D9E0F9A0F56603855BF6932C0 - 7716309E3FD2B7D8B676A03F0F0DDF4E8ADC39D5808FFA95067C5EE0F9AB4235 - 5F8E5C3D1A1D09B3D1B0CFFC1FFDF9EAFEC460C102388D23884FB14D8FD308C6 - EF8408FD8B25A927B9B7FFD1F51DA98B11124ED51A213592A4187E088925AAB4 - 47B0F8A5B0F8FE0A69D2D548F61F14B61F144492D55A23D87C52D87C54D3A5AA - 91EC3E296C3E2A6925AAB461B0F8A5B0F8A2264B5568C361F1FC12D87C511325 - AA986C3E3F82635CA2A64B55300C8007825B54D3A5AA9FFFD9FFED0B4A50686F - 746F73686F7020332E30003842494D0425000000000010000000000000000000 - 000000000000003842494D03ED00000000001000480000000100020048000000 - 0100023842494D042600000000000E000000000000000000003F800000384249 - 4D040D000000000004000000783842494D04190000000000040000001E384249 - 4D03F3000000000009000000000000000001003842494D040A00000000000100 - 003842494D271000000000000A000100000000000000023842494D03F5000000 - 000048002F66660001006C66660006000000000001002F6666000100A1999A00 - 06000000000001003200000001005A0000000600000000000100350000000100 - 2D000000060000000000013842494D03F80000000000700000FFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF - FFFFFF03E800003842494D040000000000000200023842494D04020000000000 - 0A000000010001000100013842494D0408000000000029000000010000024000 - 000240000000050000072001000006500000002B60000000072001000008E001 - 003842494D041E000000000004000000003842494D041A000000000345000000 - 0600000000000000000000006400000177000000080043006100620065006300 - 6500720061000000010000000000000000000000000000000000000001000000 - 0000000000000001770000006400000000000000000000000000000000010000 - 000000000000000000000000000000000010000000010000000000006E756C6C - 0000000200000006626F756E64734F626A630000000100000000000052637431 - 0000000400000000546F70206C6F6E6700000000000000004C6566746C6F6E67 - 000000000000000042746F6D6C6F6E670000006400000000526768746C6F6E67 - 0000017700000006736C69636573566C4C73000000014F626A63000000010000 - 00000005736C6963650000001200000007736C69636549446C6F6E6700000000 - 0000000767726F757049446C6F6E6700000000000000066F726967696E656E75 - 6D0000000C45536C6963654F726967696E0000000D6175746F47656E65726174 - 65640000000054797065656E756D0000000A45536C6963655479706500000000 - 496D672000000006626F756E64734F626A630000000100000000000052637431 - 0000000400000000546F70206C6F6E6700000000000000004C6566746C6F6E67 - 000000000000000042746F6D6C6F6E670000006400000000526768746C6F6E67 - 000001770000000375726C54455854000000010000000000006E756C6C544558 - 54000000010000000000004D7367655445585400000001000000000006616C74 - 546167544558540000000100000000000E63656C6C54657874497348544D4C62 - 6F6F6C010000000863656C6C546578745445585400000001000000000009686F - 727A416C69676E656E756D0000000F45536C696365486F727A416C69676E0000 - 000764656661756C740000000976657274416C69676E656E756D0000000F4553 - 6C69636556657274416C69676E0000000764656661756C740000000B6267436F - 6C6F7254797065656E756D0000001145536C6963654247436F6C6F7254797065 - 000000004E6F6E6500000009746F704F75747365746C6F6E6700000000000000 - 0A6C6566744F75747365746C6F6E67000000000000000C626F74746F6D4F7574 - 7365746C6F6E67000000000000000B72696768744F75747365746C6F6E670000 - 0000003842494D042800000000000C000000013FF00000000000003842494D04 - 140000000000040000000D3842494D040C00000000055A00000001000000A000 - 00002B000001E0000050A00000053E00180001FFD8FFE000104A464946000102 - 01004800480000FFED000C41646F62655F434D0001FFEE000E41646F62650064 - 8000000001FFDB0084000C08080809080C09090C110B0A0B11150F0C0C0F1518 - 131315131318110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C - 0C0C0C0C0C0C0C0C0C0C010D0B0B0D0E0D100E0E10140E0E0E14140E0E0E0E14 - 110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C - 0C0C0C0C0C0C0C0C0C0C0CFFC0001108002B00A003012200021101031101FFDD - 0004000AFFC4013F000001050101010101010000000000000003000102040506 - 0708090A0B010001050101010101010000000000000001000203040506070809 - 0A0B1000010401030204020507060805030C3301000211030421123105415161 - 1322718132061491A1B14223241552C16233347282D14307259253F0E1F16373 - 3516A2B283264493546445C2A3743617D255E265F2B384C3D375E3F3462794A4 - 85B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F637475767778797A7 - B7C7D7E7F7110002020102040403040506070706053501000211032131120441 - 51617122130532819114A1B14223C152D1F0332462E1728292435315637334F1 - 250616A2B283072635C2D2449354A317644555367465E2F2B384C3D375E3F346 - 94A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F6273747576777 - 8797A7B7C7FFDA000C03010002110311003F00ED3D34BD356762AF9E0B711EF0 - 5CD0D2D2E2D25A76EE1BFDCDF72BBC47A35C8A04F66360656DDD6B9B5B7F79C4 - 347FD249A1AF687B08735C25AE064107BB4A0D67A656DDC31EB3673EA3C6F7FF - 00DB96EF7A9F4701DD36A03863ACAFFCCB2C68FF00A29C7880B90AD698F1E586 - 42447A0B49E9A5E9AB1B12F4D378D9385AFE9A5E9AB1B12D8971AB85AFE9A5E9 - AB1B12D89712B85AFE9A5E9AB1B12D8971AB85AFE9A5E9AB1B12D89712B85AFE - 9A5E9AB1B12D89712B85AFE9A5E9AB05A1A0B8E800927C828BA5B58B4B46C224 - 7BD931F0DDB7FE9A64F3C202E7211F34C71CA5B0B43E9A5E9A2D2EAEFA9B7547 - 731E25A7E71FC14FD34E1901008360EA08418D685FFFD0F44D8839741BB1ADC7 - 6C6FBD8FAEB9D06E2D73BDDF72BBB142EA196B363C1224105A4B5C08E1CC7B7D - CC729B89653C6F54E9FD570AA6B6B7B1CF2D97BF576D3FBA07B59DBE97E916DF - 4DA725984D183F66F4097901E6E2EF53745DEABDFBFDDEAB7DFF00F411EFE8E6 - E3FA6C9C8757DEB0EADA48F036B2865BFF004D5FC7C7A28A194E3B0574D6218C - 1DBC79F739DBBE9B93F2E696488133A8BF97D2B31E1C788563888FE7F597CCD2 - 35F56EC713EEB5215F57EE70FE42E5A3B12D8A3BF12BE9CEF4FAB78E27DD6FF7 - A5E9F56F1C4FBADFEF5A3B12D895F895539DE9F56F1C4FBADFEF4FE9F55FDEC4 - FF0036DFEF5A1B12D895F895539FE9F55FDEC4FBADFEF4DE9F56F1C4FBADFEF5 - A3B12D895F895539DE9F56F1C4FBAEFEF4BD3EADE389F75BFDEB47625B12BF12 - AA73BD3EAD3F4B123E16FF007A5E9F55F1C49F18B63FF325A3B12D897D4FDAAA - 732DAFAAFA4F938B1B5D302D9E0F9A0F56603855BF6932C07716309E3FD2B7D8 - B676A03F0F0DDF4E8ADC39D5808FFA95067C5EE0F9AB42355F8E5C3D1A1D09B3 - D1B0CFFC1FFDF9EAFEC460C102388D23884FB14D8FD308C6EF8408FD8B25A927 - B9B7FFD1F51DA98B11124ED51A213592A4187E088925AAB447B0F8A5B0F8FE0A - 69D2D548F61F14B61F144492D55A23D87C52D87C54D3A5AA91EC3E296C3E2A69 - 25AAB461B0F8A5B0F8A2264B5568C361F1FC12D87C511325AA986C3E3F82635C - A2A64B55300C8007825B54D3A5AA9FFFD93842494D0421000000000053000000 - 01010000000F00410064006F00620065002000500068006F0074006F00730068 - 006F00700000001200410064006F00620065002000500068006F0074006F0073 - 0068006F007000200043005300000001003842494D0406000000000007000500 - 0100010100FFE11934687474703A2F2F6E732E61646F62652E636F6D2F786170 - 2F312E302F003C3F787061636B657420626567696E3D27EFBBBF272069643D27 - 57354D304D7043656869487A7265537A4E54637A6B633964273F3E0A3C783A78 - 6D706D65746120786D6C6E733A783D2761646F62653A6E733A6D6574612F2720 - 783A786D70746B3D27584D5020746F6F6C6B697420332E302D32382C20667261 - 6D65776F726B20312E36273E0A3C7264663A52444620786D6C6E733A7264663D - 27687474703A2F2F7777772E77332E6F72672F313939392F30322F32322D7264 - 662D73796E7461782D6E73232720786D6C6E733A69583D27687474703A2F2F6E - 732E61646F62652E636F6D2F69582F312E302F273E0A0A203C7264663A446573 - 6372697074696F6E207264663A61626F75743D27757569643A38643632323166 - 382D306461362D313164622D393366622D616463643939616537623064270A20 - 20786D6C6E733A657869663D27687474703A2F2F6E732E61646F62652E636F6D - 2F657869662F312E302F273E0A20203C657869663A436F6C6F7253706163653E - 313C2F657869663A436F6C6F7253706163653E0A20203C657869663A50697865 - 6C5844696D656E73696F6E3E3337353C2F657869663A506978656C5844696D65 - 6E73696F6E3E0A20203C657869663A506978656C5944696D656E73696F6E3E31 - 30303C2F657869663A506978656C5944696D656E73696F6E3E0A203C2F726466 - 3A4465736372697074696F6E3E0A0A203C7264663A4465736372697074696F6E - 207264663A61626F75743D27757569643A38643632323166382D306461362D31 - 3164622D393366622D616463643939616537623064270A2020786D6C6E733A70 - 64663D27687474703A2F2F6E732E61646F62652E636F6D2F7064662F312E332F - 273E0A203C2F7264663A4465736372697074696F6E3E0A0A203C7264663A4465 - 736372697074696F6E207264663A61626F75743D27757569643A386436323231 - 66382D306461362D313164622D393366622D616463643939616537623064270A - 2020786D6C6E733A70686F746F73686F703D27687474703A2F2F6E732E61646F - 62652E636F6D2F70686F746F73686F702F312E302F273E0A20203C70686F746F - 73686F703A486973746F72793E3C2F70686F746F73686F703A486973746F7279 - 3E0A203C2F7264663A4465736372697074696F6E3E0A0A203C7264663A446573 - 6372697074696F6E207264663A61626F75743D27757569643A38643632323166 - 382D306461362D313164622D393366622D616463643939616537623064270A20 - 20786D6C6E733A746966663D27687474703A2F2F6E732E61646F62652E636F6D - 2F746966662F312E302F273E0A20203C746966663A4F7269656E746174696F6E - 3E313C2F746966663A4F7269656E746174696F6E3E0A20203C746966663A5852 - 65736F6C7574696F6E3E37322F313C2F746966663A585265736F6C7574696F6E - 3E0A20203C746966663A595265736F6C7574696F6E3E37322F313C2F74696666 - 3A595265736F6C7574696F6E3E0A20203C746966663A5265736F6C7574696F6E - 556E69743E323C2F746966663A5265736F6C7574696F6E556E69743E0A203C2F - 7264663A4465736372697074696F6E3E0A0A203C7264663A4465736372697074 - 696F6E207264663A61626F75743D27757569643A38643632323166382D306461 - 362D313164622D393366622D616463643939616537623064270A2020786D6C6E - 733A7861703D27687474703A2F2F6E732E61646F62652E636F6D2F7861702F31 - 2E302F273E0A20203C7861703A437265617465446174653E323030362D30372D - 30375431323A35323A32372B30313A30303C2F7861703A437265617465446174 - 653E0A20203C7861703A4D6F64696679446174653E323030362D30372D303754 - 31323A35323A32372B30313A30303C2F7861703A4D6F64696679446174653E0A - 20203C7861703A4D65746164617461446174653E323030362D30372D30375431 - 323A35323A32372B30313A30303C2F7861703A4D65746164617461446174653E - 0A20203C7861703A43726561746F72546F6F6C3E41646F62652050686F746F73 - 686F702043532057696E646F77733C2F7861703A43726561746F72546F6F6C3E - 0A203C2F7264663A4465736372697074696F6E3E0A0A203C7264663A44657363 - 72697074696F6E207264663A61626F75743D27757569643A3864363232316638 - 2D306461362D313164622D393366622D616463643939616537623064270A2020 - 786D6C6E733A73745265663D27687474703A2F2F6E732E61646F62652E636F6D - 2F7861702F312E302F73547970652F5265736F7572636552656623270A202078 - 6D6C6E733A7861704D4D3D27687474703A2F2F6E732E61646F62652E636F6D2F - 7861702F312E302F6D6D2F273E0A20203C7861704D4D3A446572697665644672 - 6F6D207264663A7061727365547970653D275265736F75726365273E0A202020 - 3C73745265663A696E7374616E636549443E757569643A38643632323166342D - 306461362D313164622D393366622D6164636439396165376230643C2F737452 - 65663A696E7374616E636549443E0A2020203C73745265663A646F63756D656E - 7449443E61646F62653A646F6369643A70686F746F73686F703A633838336237 - 36382D306461322D313164622D393366622D6164636439396165376230643C2F - 73745265663A646F63756D656E7449443E0A20203C2F7861704D4D3A44657269 - 76656446726F6D3E0A20203C7861704D4D3A446F63756D656E7449443E61646F - 62653A646F6369643A70686F746F73686F703A38643632323166372D30646136 - 2D313164622D393366622D6164636439396165376230643C2F7861704D4D3A44 - 6F63756D656E7449443E0A203C2F7264663A4465736372697074696F6E3E0A0A - 203C7264663A4465736372697074696F6E207264663A61626F75743D27757569 - 643A38643632323166382D306461362D313164622D393366622D616463643939 - 616537623064270A2020786D6C6E733A64633D27687474703A2F2F7075726C2E - 6F72672F64632F656C656D656E74732F312E312F273E0A20203C64633A666F72 - 6D61743E696D6167652F6A7065673C2F64633A666F726D61743E0A203C2F7264 - 663A4465736372697074696F6E3E0A0A3C2F7264663A5244463E0A3C2F783A78 - 6D706D6574613E0A202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020200A20202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020202020200A2020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020202020202020200A202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020200A20202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 0A20202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020200A2020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020200A202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020200A20202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020202020202020200A2020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020202020202020202020200A202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020200A20 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020200A20202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020200A2020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020200A202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020200A20202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020202020202020202020200A2020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020202020202020202020202020200A202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 200A202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020200A20202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020200A2020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020200A202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020200A20202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020202020202020202020202020200A2020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020202020202020202020202020202020200A - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020200A202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020200A20202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020200A2020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020202020200A202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020200A20202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020202020202020202020202020202020200A2020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20200A2020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020200A202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020200A20202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020202020202020202020202020200A2020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020202020202020202020202020200A202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020200A20202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 0A20202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 20202020200A2020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020202020200A202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 2020202020202020202020202020200A20202020202020202020202020202020 - 2020202020202020202020202020202020202020202020202020202020202020 - 202020202020200A3C3F787061636B657420656E643D2777273F3EFFE20C5849 - 43435F50524F46494C4500010100000C484C696E6F021000006D6E7472524742 - 2058595A2007CE00020009000600310000616373704D53465400000000494543 - 20735247420000000000000000000000000000F6D6000100000000D32D485020 - 2000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000011637072740000015000000033646573 - 63000001840000006C77747074000001F000000014626B707400000204000000 - 147258595A00000218000000146758595A0000022C000000146258595A000002 - 4000000014646D6E640000025400000070646D6464000002C400000088767565 - 640000034C0000008676696577000003D4000000246C756D69000003F8000000 - 146D6561730000040C0000002474656368000004300000000C72545243000004 - 3C0000080C675452430000043C0000080C625452430000043C0000080C746578 - 7400000000436F70797269676874202863292031393938204865776C6574742D - 5061636B61726420436F6D70616E790000646573630000000000000012735247 - 422049454336313936362D322E31000000000000000000000012735247422049 - 454336313936362D322E31000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000058595A - 20000000000000F35100010000000116CC58595A200000000000000000000000 - 000000000058595A200000000000006FA2000038F50000039058595A20000000 - 00000062990000B785000018DA58595A2000000000000024A000000F840000B6 - CF64657363000000000000001649454320687474703A2F2F7777772E6965632E - 636800000000000000000000001649454320687474703A2F2F7777772E696563 - 2E63680000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000064657363000000000000002E494543 - 2036313936362D322E312044656661756C742052474220636F6C6F7572207370 - 616365202D207352474200000000000000000000002E4945432036313936362D - 322E312044656661756C742052474220636F6C6F7572207370616365202D2073 - 5247420000000000000000000000000000000000000000000064657363000000 - 000000002C5265666572656E63652056696577696E6720436F6E646974696F6E - 20696E2049454336313936362D322E3100000000000000000000002C52656665 - 72656E63652056696577696E6720436F6E646974696F6E20696E204945433631 - 3936362D322E3100000000000000000000000000000000000000000000000000 - 0076696577000000000013A4FE00145F2E0010CF140003EDCC0004130B00035C - 9E0000000158595A2000000000004C09560050000000571FE76D656173000000 - 0000000001000000000000000000000000000000000000028F00000002736967 - 20000000004352542063757276000000000000040000000005000A000F001400 - 19001E00230028002D00320037003B00400045004A004F00540059005E006300 - 68006D00720077007C00810086008B00900095009A009F00A400A900AE00B200 - B700BC00C100C600CB00D000D500DB00E000E500EB00F000F600FB0101010701 - 0D01130119011F0125012B01320138013E0145014C0152015901600167016E01 - 75017C0183018B0192019A01A101A901B101B901C101C901D101D901E101E901 - F201FA0203020C0214021D0226022F02380241024B0254025D02670271027A02 - 84028E029802A202AC02B602C102CB02D502E002EB02F50300030B0316032103 - 2D03380343034F035A03660372037E038A039603A203AE03BA03C703D303E003 - EC03F9040604130420042D043B0448045504630471047E048C049A04A804B604 - C404D304E104F004FE050D051C052B053A05490558056705770586059605A605 - B505C505D505E505F6060606160627063706480659066A067B068C069D06AF06 - C006D106E306F507070719072B073D074F076107740786079907AC07BF07D207 - E507F8080B081F08320846085A086E0882089608AA08BE08D208E708FB091009 - 25093A094F09640979098F09A409BA09CF09E509FB0A110A270A3D0A540A6A0A - 810A980AAE0AC50ADC0AF30B0B0B220B390B510B690B800B980BB00BC80BE10B - F90C120C2A0C430C5C0C750C8E0CA70CC00CD90CF30D0D0D260D400D5A0D740D - 8E0DA90DC30DDE0DF80E130E2E0E490E640E7F0E9B0EB60ED20EEE0F090F250F - 410F5E0F7A0F960FB30FCF0FEC1009102610431061107E109B10B910D710F511 - 131131114F116D118C11AA11C911E81207122612451264128412A312C312E313 - 03132313431363138313A413C513E5140614271449146A148B14AD14CE14F015 - 12153415561578159B15BD15E0160316261649166C168F16B216D616FA171D17 - 411765178917AE17D217F7181B18401865188A18AF18D518FA19201945196B19 - 9119B719DD1A041A2A1A511A771A9E1AC51AEC1B141B3B1B631B8A1BB21BDA1C - 021C2A1C521C7B1CA31CCC1CF51D1E1D471D701D991DC31DEC1E161E401E6A1E - 941EBE1EE91F131F3E1F691F941FBF1FEA20152041206C209820C420F0211C21 - 48217521A121CE21FB22272255228222AF22DD230A23382366239423C223F024 - 1F244D247C24AB24DA250925382568259725C725F726272657268726B726E827 - 182749277A27AB27DC280D283F287128A228D429062938296B299D29D02A022A - 352A682A9B2ACF2B022B362B692B9D2BD12C052C392C6E2CA22CD72D0C2D412D - 762DAB2DE12E162E4C2E822EB72EEE2F242F5A2F912FC72FFE3035306C30A430 - DB3112314A318231BA31F2322A3263329B32D4330D3346337F33B833F1342B34 - 65349E34D83513354D358735C235FD3637367236AE36E937243760379C37D738 - 143850388C38C839053942397F39BC39F93A363A743AB23AEF3B2D3B6B3BAA3B - E83C273C653CA43CE33D223D613DA13DE03E203E603EA03EE03F213F613FA23F - E24023406440A640E74129416A41AC41EE4230427242B542F7433A437D43C044 - 034447448A44CE45124555459A45DE4622466746AB46F04735477B47C0480548 - 4B489148D7491D496349A949F04A374A7D4AC44B0C4B534B9A4BE24C2A4C724C - BA4D024D4A4D934DDC4E254E6E4EB74F004F494F934FDD5027507150BB510651 - 50519B51E65231527C52C75313535F53AA53F65442548F54DB5528557555C256 - 0F565C56A956F75744579257E0582F587D58CB591A596959B85A075A565AA65A - F55B455B955BE55C355C865CD65D275D785DC95E1A5E6C5EBD5F0F5F615FB360 - 05605760AA60FC614F61A261F56249629C62F06343639763EB6440649464E965 - 3D659265E7663D669266E8673D679367E9683F689668EC6943699A69F16A486A - 9F6AF76B4F6BA76BFF6C576CAF6D086D606DB96E126E6B6EC46F1E6F786FD170 - 2B708670E0713A719571F0724B72A67301735D73B87414747074CC7528758575 - E1763E769B76F8775677B37811786E78CC792A798979E77A467AA57B047B637B - C27C217C817CE17D417DA17E017E627EC27F237F847FE5804780A8810A816B81 - CD8230829282F4835783BA841D848084E3854785AB860E867286D7873B879F88 - 04886988CE8933899989FE8A648ACA8B308B968BFC8C638CCA8D318D988DFF8E - 668ECE8F368F9E9006906E90D6913F91A89211927A92E3934D93B69420948A94 - F4955F95C99634969F970A977597E0984C98B89924999099FC9A689AD59B429B - AF9C1C9C899CF79D649DD29E409EAE9F1D9F8B9FFAA069A0D8A147A1B6A226A2 - 96A306A376A3E6A456A4C7A538A5A9A61AA68BA6FDA76EA7E0A852A8C4A937A9 - A9AA1CAA8FAB02AB75ABE9AC5CACD0AD44ADB8AE2DAEA1AF16AF8BB000B075B0 - EAB160B1D6B24BB2C2B338B3AEB425B49CB513B58AB601B679B6F0B768B7E0B8 - 59B8D1B94AB9C2BA3BBAB5BB2EBBA7BC21BC9BBD15BD8FBE0ABE84BEFFBF7ABF - F5C070C0ECC167C1E3C25FC2DBC358C3D4C451C4CEC54BC5C8C646C6C3C741C7 - BFC83DC8BCC93AC9B9CA38CAB7CB36CBB6CC35CCB5CD35CDB5CE36CEB6CF37CF - B8D039D0BAD13CD1BED23FD2C1D344D3C6D449D4CBD54ED5D1D655D6D8D75CD7 - E0D864D8E8D96CD9F1DA76DAFBDB80DC05DC8ADD10DD96DE1CDEA2DF29DFAFE0 - 36E0BDE144E1CCE253E2DBE363E3EBE473E4FCE584E60DE696E71FE7A9E832E8 - BCE946E9D0EA5BEAE5EB70EBFBEC86ED11ED9CEE28EEB4EF40EFCCF058F0E5F1 - 72F1FFF28CF319F3A7F434F4C2F550F5DEF66DF6FBF78AF819F8A8F938F9C7FA - 57FAE7FB77FC07FC98FD29FDBAFE4BFEDCFF6DFFFFFFEE000E41646F62650064 - 4000000001FFDB00840004030303030304030304060403040607050404050708 - 0606070606080A0809090909080A0A0C0C0C0C0C0A0C0C0C0C0C0C0C0C0C0C0C - 0C0C0C0C0C0C0C0C0C0C010405050807080F0A0A0F140E0E0E14140E0E0E0E14 - 110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C - 0C0C0C0C0C0C0C0C0C0C0CFFC00011080064017703011100021101031101FFDD - 0004002FFFC400B2000101000105010000000000000000000000010203040607 - 0805010101000203010000000000000000000000010405020306071000010205 - 020109050505040B01000000010002120313040511215131416191D114D40607 - 812255951771A1B13252F13324154542722325C16282A2B273A3549465851611 - 010100020004030407050607000000000011010212031304216105314151A171 - 81C12232B20691D172A2D2F0B142529214C2E2F22333B334FFDA000C03010002 - 110311003F00F4B525ECEBCFC292948535690A4A5214D291292BC442994A4292 - 711169A94894D5A429A5214D290A694819494853D1290A4948534A429A5214D2 - 90A69429EE948534A42994A429A52148FB5290A7D6948534A42994A429A52149 - 290A65290A65290A6948534A42927110A453888534A42994A42994A404B29485 - 34A429A522534A45A69C44291294852E64A429A523FFD0F50535EB6B45169A52 - 14D2AC4A4948196948534A90A7EC1D2956235AD700E690E69E42370948B48254 - 8534AB0A695214D5AB0A6A548534AB0A7FB1290A695214D28532948534A429A5 - 214D28534A429A5214928534AB0A695214FA128534A429A5214D5A2534A45A69 - 5614F82548535290A6AD214D290A6948534A429A944A6AD22996944A6948534A - 2D3D5290A694894D290A6948FFD1F55D25EA389A68524A429A506CADC0E3CFB9 - FC352B8EDBCC672B8D6E6387CFF3D58CE7D2C4D9DE5F4C047BB2A506EBA6FB3B - FC43BF26F2D62E3B8DB6FC3877E797A69F8F6C6194A67A8B990458E2A5D95BB8 - ED3AF2706BDBEC6161FF00A653A9B63DB97567B8EDF1ECCD695DF907CD53C479 - AF30B1846F059B093F646699EB056472A6CC2E77AA6BA7E1D7EC6DBD3833A45C - 79870B3A7BE78C7DEEB2CCC3A9826C401E888CB2E3D2564F331C3965E37EA69A - EFFE6C39E53DD75548534A44A6948534A45A6948534A90A695529A711169A521 - 4F44A910CB4AAA25A522532948534A4532D2A2534A2D3D12AC29F3A5214C2711 - 129A5429EC948534AB169A522524A8534AA534E20A652A429A55853EA5690A6A - 5214D290A695214D28534A429A5214D2AC2925214CA5214D2A3FFFD2F5AD35E8 - EB530A7D0945A69462E0F960CC943598C11307170DC299F1C45C7878B82E1AE5 - B6136E2C4681B69713A4B34D8402612C3ED690B6BDAE9C7C8C793C6FAAFF00DB - EEF6F39B7C9CC2DB350B0089746FDB5CBA74EE3C1B4C865C3DA7572EEE576F1D - 5CDE7D70AF244D6B7CFDE65B7076BBB7B6B860E34B50E3D7314EF74E18F5BE9B - CCE3ED75CFC2E3E6ECBA656B6B3CA6948534A42994A14CA50A69404B4A14D285 - 34A429A5214FA129129A522D34A429A5214D290A65290A69429F4250A69429A5 - 214D289014A45A7FB128534A429A5214FA12894D29169A5129F42522D34A2534 - A1068354A46CE5E46D2792DB3AB7B09D1C6CA44EBB6B4F268E3218F03DAB036F - 50E463338AFF000E33BFE4C6CC8C76DCCCFBA7D3F77FBD8CDC9DB48DEE245E49 - 6F3BA6D8DDCB68FB4BA5003DABA33EAFDAE3DBB671F4EBBEBF9B573FF65CDF85 - FAF1FBDAF6B73677F2ABD94F9771275D2394F0F6EA3947BA7956C795CFE5F375 - E2D36C6D8F8EB9AC6DF97B6999B6265AF4CAEEAE2535290A6528534A47FFD3F5 - FC0B7D5AC29A52065A50A694751F99677F29F355FC91A319384A9ED68E4DD907 - 37F702F4BE91AF1E9B6BF0CBC67EA5C70EDCBE67C719D7FD3FF524BCE68DFCCB - 6B9ED9E571DC346E737AB4FBCB9E9DB386FDC365E49C837EA75B02ED3BF63E7D - B81C5CC2277E12D6ABD63978D74C671EECBDE7E9CDF6DBB6DAE33F8BC3E89877 - 8535E62BD214D284094204A429A950A695481290A69429AB48532A5214FA15A2 - 534A2D3528197A250A6AD214FA14A14D290A6AD214D28533C1290814A40CB4A4 - 29A52025AB48534A841D095614D4A253569081291604A44A6948F91E6564C18B - 6B658639D32EEC65964E05D29EC9979258E63DA08D5AE692D70FD2569BD67999 - D3B5DB38F8EBF9F5B8FAF1E0CDECB5C679D8BE7F972E59333D91B6B16C5849D2 - 98C01B1DA3E44D9000D80602F973341FF282D0EDDD733A775D33F549F667F95B - 2C72F5E2F1D9C03CC3E709AC8F4B3BA277D440D67FC6E6AF1BDF73B9FB7BB2DC - F235D31EF713F23E76E32DE7E9D20C912249C65C4C9835D5EF74BB8B66B0BF4D - BDD0F769F9B488EEB61FA3BA9AF77CCC6D9F6E9ECF77E2D589EB3C39E4EB9C63 - FC5F665DAD0742FACD7928409420E84A14D2A3FFD4F64C0B755AF20294203A72 - 252102523A5FD58B3C83BCCB622CADCCE9D712A1952E434BA6386849886FF960 - 7127920FB1CBD47A0F3B4D37DB8F38C627BDE67F5276BBF3FB5C74F5CEDB6BB6 - 3C35F1CF8FDD70D9AE18FB775C5FDC4665EB1DBD80EF6F04687474C61A4DE5DF - FC4739BCEC5E8399EA1CBCEDC3CBC5CFC76FB9AFCFEF7F2FD6F33D97E98EE799 - 8BCECE3978F87E2DFF00A7F9BEA70BCBF9D728F8998CB3EE968D04BE7CC35EE3 - 400F26DA6BC21682B1BB8DB99D3DB6CE7C718F663C35FEAF9BD9767E89DA7233 - 8FBBC59FF36FF7BFE5F93B7BCA779E43F2CCC9796B6C4E6EFB2E587FCCEEF179 - 89D3747B74743FC0C2D041FEC8E45E079BDE6FCCFC55BFCE3DCE6D6FEA7E0A6C - D6B2E24DDE3E41D4BAEB216391B290DD012019971692DBA93B0116AB51DF7A86 - 7B6E5F1E34DB7F1935C6D9FCBAED9F93B791DBE399B4B8C7ECFDEDBC9F5630B3 - E54B9B2F1D947B6600E6BA5E2B2D35875FD2F65916B87483A2CCE5F719DB5C6D - 9D738B8F63AB6E5CCE71599F5530EDD4BB1B9601A3524E1F31A01FF82BB3ABE5 - 971E0691F577CBE06BDCF27F29CBF8157ABE49C0C59EB0601E746E3F2A4F461B - 33E014EAF92F03703D52C4BB718CCB1FFE3E63C0A75BCB2701F54B123FA5E5BE - 4F98F029D5F2C9C09F54F103FA665BE4F98F02A75BCB27007D55C3FC372DF27C - C7814EB7964E04FAAB87F86E5BE4F98F02AF5BCB2702FD55C39E4C6E5BE4F98F - 02A75BCB2701F55311F0CCB7C9F31E053ADE59380FAA788F8665BE4F98F02AF5 - BCB2702FD52C4FC332DF27CC7814EB7964E03EA9627E1996F93E63C0A75BCB27 - 02FD51C4FC332DF27CC7814EAF964E04FAA589F8665BE4F97F029D5F2C9C01F5 - 4B13F0CCB7C9F31E053ADE593813EA9E23E1996F93E63C0A75BCB2701F55311F - 0CCB7C9F31E053ADE593813EAAE1FE1B96F93E63C0A75BCB2701F5570FF0CCB7 - C9F31E053ADE59383CCFAAB87F86E5BE4F98F029D5F2C9C0A3D54C41FE9996F9 - 3E63C0A757CB2702FD52C49FE9996F93E63C0A75BCB270317FAAB88672E2F2FE - CC3664FE16054EB7964E062CF5630EF3A0C5E5FDB85CD0FC6C0275BCB27079B3 - FAA988E7C665BE4F98F02AF5BCB270327FAA7E5F956D367CF97736F318E96D95 - 6973677F6F733AA3A1264C99B6AD99321E781AE5ACE7FA96DCAE7E9CAC72F6CE - 37FF0014DB875FA73C3C3FEADB564F2FB6C6DA676E2C627BBC3F7B1FAA788E4F - E5996D47FE9F31E056CFADE596374D0FAA988D5A3F9665BDE3A0FF0027CC7302 - 7FEC7A13ADE59381B7BDF3CD879865DBE2AD2D725693E75ED843713F1B90B663 - 0B2F64BB5A975692E583B6D13B7E95A5F5AE671769B62671E3A7FECD59BD96B3 - 9D8FAFF2E5D9F33F9DCAC569FC2DD0E671A96C7939C01381FB96AF97D4C727DD - 9F97F53336E1E3753F9ADD927548D922572EED7BE6FDC5AC5E6BBDE2F26CF931 - C6FD2C64CFA8B3EA3E371C4DDF2085A3F89B4E41B9FBD647E94FFECDFF00833F - 9B574FAB7FE1D7F8BECCBBD202BEA35E5A10742521074252102548FFD5F6940B - 6B58508129081291B0CCDD4CC7E32E6EE5E8264B6FBAE2356B4B886C6E1B6CDD - 623D0172C2E31E293FCA7E51CC48B67E62C197B36D5C664A7CE2E313DC002660 - 0407EBA0FCE1C16169DD7374BC399595C3871BF38E32C26583254892C9522D1E - D7325CB686B1B2F585E001A0003493EC5D9DAF376C732DF69B63C1D239AF269C - 7B321A334EECD9A5A74E660241FB97A9C77FC7ACF8BA381DA9E9D7996E266627 - F94EE1C66C9976C6EECDC773298C7B65BA5EBFA7DE05A3FB3F668B53CFD71899 - 4DB5F7BB3605875C2102B48B029484094840948900E0AD22C0A52241CC948B07 - 32521025224015A4204A4204A45814A44815A42052908355691605291201AA52 - 100E0948B025210251205690A7D094806252102952102B561025210746C94840 - 14A4205691F07CE32E51C13DD7061B665D58CC9F3222C8254BBD92E7BCB8105A - 1AD05C5DAFBA044B4DEB3AE76ED36C63E3AFCB7D73966765E1CDC7D7FDD97DC7 - 59DF33121D6B9274C9446AD1712D93806E9B68E65327ED7172D472F4DBA3E1B7 - EDFED866ED9C71F8E1D51E6B917C6A55BB1CFF00BA94187FDE73D79AEF71B7BF - 2D9F27387C0F496DDDF512EE634BE6365E2AE1B3661DC35D32E6D4B01D3605C1 - 8ED38C2EE0B23F4AEB9FF77BE7DDC1FF0016AE9F55CE3A5AE3CFECCBBE20E85F - 4DAF310812AC204A9081291FFFD6F6DD35B1AC48401290A695634E7DAC9B9913 - 2DAE25B66C89CD74B9B2DE226B98E1A39A41E50414C6C91C3AEB1BE6EC007330 - EC6E7712DFDD5BCD9D42FE53799A263F564E0398BCCB7FEA73CEEB8EDCBD36F1 - F667E4EED77714CBF9A32643ED2F3CA5E6089ED2D98D958F7DCB3476C454B774 - C69EB5D9A7271AF8F161CAD7C09B8FF50BCE0F2DB5C05DC8913340E9D9B12EC2 - 580069ACC92C151FC9B83EE9FD2B275CF2F4F1F7B8E5D91E40F4EE5F93DB717F - 7D75FCC3CC57E00BCBCD2163583712E53799A0F5AEAE67373BE5D79CD7378174 - D71840948534A429A50A652908129129A522D34A40CB4A429A5214D29081290A - 694894D290A69429A5214D290A6948534A4583A129129A522C0944A612908128 - 40948B4D2894D290A69429A5210250A6944328105A46A0EC41E4D1291F23FF00 - C9E198C74AB69536CA4BB7749B0B9B8B1944F12CB6992DBAF4E8B0F6ED3939F7 - 4FE1CE75FCB1DF8E76F8F7FDAD9DC7A7FE5ABB24DCC9BA9BA8D087E42F9C08FB - 0CFD163E7D2FB6DBDBADFAF6FDEECC775CDC7B33F2C3EBE33098BC35BF74C4D9 - 49B2B7D7532E431B2C177244ED00D4F49DD67F2B95A72B5E1D318D71E4C7DF7D - B7CDDB35BDA6BB6B8429EE94204A429A523FFFD7F71C0B36B1C8129080AB442D - 00124E806E4A946DDDDE267EECD3673123571F67204B82341F6AFF00CCE9F375 - E87C3F868AD1A70DDC83EECD711C2668FF00BC6EB9782C6F2DA75605AE6C335B - F99BFE90B8E52371074294204A1074250812840950812A9014A44815A2C0A508 - 3A12840AD080A50814A102510315A2C0A51204A102A101E0A50812A420554814 - A2C0952240AD520528B004A24094205684078252018A521014A2C1EC4A8D38D9 - CA0977F74177E014E2C3946266CA1CBA8FF65DD8A71E0E16A36078D58438710B - 95C245815A10250812A10A557FFFD0F7542B2ABA610A5210A08F971348E29443 - 03408B6D5069CC68D3A0A61636CE6C5AEDCBAAE68D7916F0BCCD239B40B8E723 - 71070528B0A108529121E84A10A508529085290852841D094842128409421421 - 0F425085284294843A25210A50850214210A50850214A4204A108E094204A421 - 4210A5210A5210A508529087A128C26B019641E4D46BF66A171DB3E0B8584C3A - 06EDD4A0DBCC964F285D7972636D2A19C4FF00AA75EB0AE9ED36F63790AEE708 - 4294842128429523FFD1F7940BBABAE1004A4481291604A4694C95AB874705CB - 194CB132470EAD95A98AC0DB704E25C3544961DB520F0D4F6AE1557BBB7A4F41 - 24A672A7766E9CA7ACA5487771C4F59ED4A44EECDE9EB3DAAD0EECDE627ACF6A - 945EEE389EB3DAAD2140713D67B5290EEEDE27ACF6A521DDDBD3D654A43BBB78 - 9EB3DA94877768E73D65287771C4F59ED4A1DDC713D65287776F17759ED4A43B - B8E27ACAB487776F13D67B54A1DDDBC4F594A1DDDBC4F59ED4A43BBB78BBACF6 - AB489DDDBC5DD67B5287771C4F59ED4A45EEEDE27ACF6A521DDC7313D67B5289 - DDDBC4F59ED4A1DDDBCFAF59ED4A43BB8E27ACF6A521DDC713D67B528BDDDBC5 - DD67B54A1DDDBCFBFDA4EA81DDDBC4F59ED4A27771C49F69ED4A42801B8D79B9 - CA672ACCB0E9B689460E9479C6AB8892E510FD74E64C196AC0B9D420E8D52841 - C12840947FFFD2F7C68B9B890A042810A5210A5080252100E094842129085021 - 4A10A5085284294842810A5210A50850842810A50852842810A042810A50D102 - 14A10A508502140852868810A042810A042942140852885A94585289084A2C28 - 2421003420B0A042942141214A3FFFD3F7E6CAA2EC81B7B504D9053A22A2228D - 1036413640D903DD40D914F7510D914DB5441036D514DB9D10DBF6A29B7372A2 - 1B7ED4536F6221B73206DED45364436453644364536E640D910D91536D505DB4 - ED40D910DB440D90364542886DCCAAAEDCEA06C8E27BBCE8A185041A2AA6CA0B - B73A227BA83FFFD9} - end - object Bevel1: TBevel - Left = 0 - Top = 100 - Width = 367 - Height = 6 - Align = alTop - Shape = bsTopLine - end - object JvAnimate1: TJvAnimate - Left = 16 - Top = 118 - Width = 16 - Height = 16 - CommonAVI = aviFindComputer - StopFrame = 8 - end - object Button1: TButton - Left = 276 - Top = 287 - Width = 75 - Height = 25 - Caption = 'Cerrar' - Enabled = False - TabOrder = 1 - OnClick = Button1Click - end - object ListView1: TListView - Left = 16 - Top = 144 - Width = 335 - Height = 129 - Columns = < - item - Caption = 'Hora' - Width = 75 - end - item - Caption = 'Mensaje' - Width = 255 - end> - ReadOnly = True - RowSelect = True - SmallImages = ImageList1 - TabOrder = 2 - ViewStyle = vsReport - end - object TimerCuentaAtrasCerrar: TTimer - Enabled = False - OnTimer = TimerCuentaAtrasCerrarTimer - Left = 16 - Top = 288 - end - object TimerCuentaAtrasCargar: TTimer - Enabled = False - Interval = 10 - OnTimer = TimerCuentaAtrasCargarTimer - Left = 56 - Top = 288 - end - object XPManifest1: TXPManifest - Left = 96 - Top = 288 - end - object ImageList1: TImageList - Left = 144 - Top = 288 - Bitmap = { - 494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 - 0000000000003600000028000000400000001000000001002000000000000010 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000008599CD00102890008B99CA00000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000007088E0001048FF0010289000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000E1E7E0009EC39500B0DCAD00000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000ADB9DD007088E000ABB5D800000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000709F5E003F81200065B25900CEE4CC000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000092A0CA0000000000000000000000 - 0000000000000000000000000000000000000000000000000000D8E0D4005999 - 3B0065CD50005CC7400042AA300083C87A00E0E6DF0000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000004050B00000000000000000000000 - 00000000000000000000000000000000000000000000D8E0D4005094300065CD - 500079EA600082E077006AD0600057B24700A2C7990000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000929CC3000038F000848EAE00000000000000 - 000000000000000000000000000000000000000000004F9D3B006AD9500079EA - 6000A3ED9600D9E7D8009DED8E006AD060004CAE3B00D5DED200000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000002040C0000038F0000E339500000000000000 - 00000000000000000000000000000000000000000000AAEB9B00A7EC900090ED - 87000000000000000000E3E9E10097E28E006AD0600059A24700D1EAC2000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000A7B1D8005070E0000040FF000030D000BFC3CE000000 - 00000000000000000000000000000000000000000000E1EDDD00CAEBC3000000 - 0000000000000000000000000000E3E9E10082E0770065CD50005EB35900D5EA - CD00000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000007688CB005078E0001048FF000040F0007581A5000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000E3E9E10082E077004CBE400085C1 - 7700D5EACD000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000005068D0007090FF001050FF001040F0000E33A4000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000000000000000000000000000E3EAE10089E07F004CBE - 400094D08600D8E5D30000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000006078D0008098FF003060FF001050FF001D43C3000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000E3EAE100B0ED - A10064BE5000C7DFC30000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000007088E00090A8F00080A0FF006080F0003955A9000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000000000000000000000000000E4EB - E200CBEAC10096CF8A0000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 00000000000000000000D4D8E3007088E0006078D0005068D000D6DBE8000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 0000000000000000000000000000000000000000000000000000000000000000 - 000000000000000000000000000000000000424D3E000000000000003E000000 - 2800000040000000100000000100010000000000800000000000000000000000 - 000000000000000000000000FFFFFF00FFFFFFFF00000000FFFFFFFF00000000 - FE3FFFFF00000000FE3FF1FF00000000FE3FF0FF00000000FF7FC07F00000000 - FF7F807F00000000FE3F803F00000000FE3F8C1F00000000FC1F9E0F00000000 - FC1FFF0700000000FC1FFF8300000000FC1FFFC300000000FC1FFFE300000000 - FC1FFFFF00000000FFFFFFFF00000000} - end -end diff --git a/Varela/Varela/Source/CargaEDI/uCargaEDI.pas b/Varela/Varela/Source/CargaEDI/uCargaEDI.pas deleted file mode 100644 index 748bddb..0000000 --- a/Varela/Varela/Source/CargaEDI/uCargaEDI.pas +++ /dev/null @@ -1,163 +0,0 @@ -unit uCargaEDI; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, ExtCtrls, jpeg, ComCtrls, StdCtrls, JvExComCtrls, JvAnimate, - pngimage, XPMan, ImgList; - -type - TIconoEstado = (ieOK, ieMAL, ieNada); - - TfCargaEDI = class(TForm) - Label13: TLabel; - JvAnimate1: TJvAnimate; - Button1: TButton; - TimerCuentaAtrasCerrar: TTimer; - ListView1: TListView; - Image1: TImage; - Bevel1: TBevel; - TimerCuentaAtrasCargar: TTimer; - XPManifest1: TXPManifest; - ImageList1: TImageList; - procedure FormShow(Sender: TObject); - procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure FormCreate(Sender: TObject); - procedure Button1Click(Sender: TObject); - procedure TimerCuentaAtrasCerrarTimer(Sender: TObject); - procedure TimerCuentaAtrasCargarTimer(Sender: TObject); - private - FNumCargasError : Integer; - FNumCargasOK : Integer; - FCuentaAtras : Integer; - procedure OnLoadSuccess(Sender: TObject); - procedure OnLoadError(Sender : TObject); - procedure AnadirMensaje(const aMensaje : String; Icono : TIconoEstado = ieNada); - procedure LanzarCargas; - public - { Public declarations } - end; - -var - fCargaEDI: TfCargaEDI; - -implementation - -{$R *.dfm} - -uses - uCargarFicheros, uDataModuleBase; - -procedure TfCargaEDI.FormShow(Sender: TObject); -begin - FNumCargasOK := 0; - FNumCargasError := 0; - TimerCuentaAtrasCargar.Enabled := True; -end; - -procedure TfCargaEDI.OnLoadError(Sender: TObject); -begin - Beep; - AnadirMensaje((Sender as TCargarFicherosThread).Nombre + ': ' + (Sender as TCargarFicherosThread).ErrorText, ieMAL); - - FNumCargasError := FNumCargasError + 1; - if (FNumCargasError = 2) or - ((FNumCargasError = 1) and (FNumCargasOK = 1)) then - begin - JvAnimate1.Visible := False; - JvAnimate1.Active := False; - TimerCuentaAtrasCerrar.Enabled := True; - end; -end; - -procedure TfCargaEDI.OnLoadSuccess(Sender: TObject); -begin - Beep; - AnadirMensaje((Sender as TCargarFicherosThread).Nombre + ': Ficheros cargados', ieOK); - - FNumCargasOK := FNumCargasOK + 1; - if (FNumCargasOK = 2) or - ((FNumCargasError = 1) and (FNumCargasOK = 1)) then - begin - JvAnimate1.Visible := False; - JvAnimate1.Active := False; - TimerCuentaAtrasCerrar.Enabled := True; - end; -end; - -procedure TfCargaEDI.FormClose(Sender: TObject; var Action: TCloseAction); -begin - Action := caFree; -end; - -procedure TfCargaEDI.FormCreate(Sender: TObject); -begin - FCuentaAtras := 5; - FNumCargasError := 0; - FNumCargasOK := 0; -end; - -procedure TfCargaEDI.Button1Click(Sender: TObject); -begin - Close; -end; - -procedure TfCargaEDI.AnadirMensaje(const aMensaje: String; - Icono : TIconoEstado = ieNada); -var - AItem : TListItem; -begin - AItem := ListView1.Items.Add; - case Icono of - ieOK : AItem.ImageIndex := 1; - ieMAL : AItem.ImageIndex := 0; - else - AItem.ImageIndex := -1; - end; - AItem.Caption := TimeToStr(Now); - AItem.SubItems.Add(aMensaje); -end; - -procedure TfCargaEDI.LanzarCargas; -begin - if not dmBase.HayConexion then - begin - JvAnimate1.Visible := False; - JvAnimate1.Active := False; - AnadirMensaje('No se encuentra el servidor', ieMAL); - TimerCuentaAtrasCerrar.Enabled := True; - end - else begin - JvAnimate1.Active := True; - AnadirMensaje('Cargando ficheros de ventas'); - TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT', - 'ARTVEN.TXT', OnLoadSuccess, OnLoadError); - - AnadirMensaje('Cargando ficheros de inventario'); - TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT', - 'CANTINV.TXT', OnLoadSuccess, OnLoadError); - end; -end; - -procedure TfCargaEDI.TimerCuentaAtrasCerrarTimer(Sender: TObject); -begin - Button1.Enabled := True; - TimerCuentaAtrasCerrar.Enabled := False; - if FCuentaAtras = 0 then - Close; - Button1.Caption := 'Cerrar (' + IntToStr(FCuentaAtras) + ')'; - Update; - Application.ProcessMessages; - FCuentaAtras := FCuentaAtras - 1; - TimerCuentaAtrasCerrar.Enabled := True; -end; - -procedure TfCargaEDI.TimerCuentaAtrasCargarTimer(Sender: TObject); -begin - TimerCuentaAtrasCargar.Enabled := False; - Update; - LanzarCargas; -end; - -end. diff --git a/Varela/Varela/Source/ClearFiles.msbuild b/Varela/Varela/Source/ClearFiles.msbuild deleted file mode 100644 index 30f4b9d..0000000 --- a/Varela/Varela/Source/ClearFiles.msbuild +++ /dev/null @@ -1,18 +0,0 @@ - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Varela/Varela/Source/Cliente/AdminPV.bdsproj b/Varela/Varela/Source/Cliente/AdminPV.bdsproj deleted file mode 100644 index e3cd3af..0000000 --- a/Varela/Varela/Source/Cliente/AdminPV.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - AdminPV.dpr - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - ..\..\Output\Debug\Cliente - .\ - ..\Lib - ..\Lib - ..\Lib;..\Base - BaseD10;Configuracion;ControlesBaseD10;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica - EUREKALOG;EUREKALOG_VER6 - - True - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 2 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - Rodax Software S.L. - - 2.0.0.0 - Administración de puntos de venta - - - - Administración de puntos de venta - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Cliente/AdminPV.cfg b/Varela/Varela/Source/Cliente/AdminPV.cfg deleted file mode 100644 index e4b793b..0000000 --- a/Varela/Varela/Source/Cliente/AdminPV.cfg +++ /dev/null @@ -1,46 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --E"..\..\Output\Cliente" --N".\" --LE"..\Lib" --LN"..\Lib" --U"..\Lib" --O"..\Lib" --I"..\Lib" --R"..\Lib" --LUBaseD7;Configuracion;ControlesBaseD7;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Cliente/AdminPV.dof b/Varela/Varela/Source/Cliente/AdminPV.dof deleted file mode 100644 index 105bdb6..0000000 --- a/Varela/Varela/Source/Cliente/AdminPV.dof +++ /dev/null @@ -1,480 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir=..\..\Output\Cliente -UnitOutputDir=.\ -PackageDLLOutputDir=..\Lib -PackageDCPOutputDir=..\Lib -SearchPath=..\Lib -Packages=BaseD7;Configuracion;ControlesBaseD7;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica -Conditionals= -DebugSourceDirs= -UsePackages=1 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=1 -Release=1 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName=Rodax Software S.L. -FileDescription= -FileVersion=1.1.1.0 -InternalName=Administración de puntos de venta -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName=Administración de puntos de venta -ProductVersion=1.0.6 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=3 -Item0=..\Lib -Item1=..\Lib;..\Base -Item2=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=0 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=0 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=0 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=1 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Cliente/AdminPV.dpr b/Varela/Varela/Source/Cliente/AdminPV.dpr deleted file mode 100644 index 9946450..0000000 --- a/Varela/Varela/Source/Cliente/AdminPV.dpr +++ /dev/null @@ -1,25 +0,0 @@ -program AdminPV; - -uses - ExceptionLog, - Forms, - uLoginForm, - uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal}, - uMenuUtils in 'uMenuUtils.pas', - uSplash in 'uSplash.pas' {SplashScreen}, - uAcercaDe in 'uAcercaDe.pas' {fAcercaDe}, - uIntegerList in '..\Base\uIntegerList.pas', - schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas', - schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas'; - -{$R *.res} - -begin - Application.Initialize; - - Application.Title := 'Administración de puntos de venta'; - Application.CreateForm(TfPantallaPrincipal, fPantallaPrincipal); - Application.Run; - Application.Terminate; -end. - diff --git a/Varela/Varela/Source/Cliente/AdminPV.drc b/Varela/Varela/Source/Cliente/AdminPV.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Cliente/AdminPV.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Cliente/AdminPV.identcache b/Varela/Varela/Source/Cliente/AdminPV.identcache deleted file mode 100644 index 576f2d8..0000000 Binary files a/Varela/Varela/Source/Cliente/AdminPV.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Cliente/AdminPV.rc b/Varela/Varela/Source/Cliente/AdminPV.rc deleted file mode 100644 index 3c6d592..0000000 --- a/Varela/Varela/Source/Cliente/AdminPV.rc +++ /dev/null @@ -1,26 +0,0 @@ -MAINICON ICON "C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Varela\Resources\Iconos\Cliente.ico" -1 VERSIONINFO -FILEVERSION 2,0,0,0 -PRODUCTVERSION 2,0,0,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.0.0.0\0" - VALUE "InternalName", "Administración de puntos de venta\0" - VALUE "ProductName", "Administración de puntos de venta\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Cliente/AdminPV.res b/Varela/Varela/Source/Cliente/AdminPV.res deleted file mode 100644 index 2d5243f..0000000 Binary files a/Varela/Varela/Source/Cliente/AdminPV.res and /dev/null differ diff --git a/Varela/Varela/Source/Cliente/uAcercaDe.dfm b/Varela/Varela/Source/Cliente/uAcercaDe.dfm deleted file mode 100644 index f4ef396..0000000 --- a/Varela/Varela/Source/Cliente/uAcercaDe.dfm +++ /dev/null @@ -1,959 +0,0 @@ -object fAcercaDe: TfAcercaDe - Left = 531 - Top = 365 - ActiveControl = bAceptar - BorderStyle = bsDialog - Caption = 'Acerca de...' - ClientHeight = 401 - ClientWidth = 427 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object JvGradient1: TJvGradient - Left = 0 - Top = 88 - Width = 427 - Height = 4 - Align = alTop - StartColor = 2971346 - EndColor = 4828405 - end - object Bevel1: TBevel - Left = 128 - Top = 359 - Width = 290 - Height = 9 - Shape = bsTopLine - end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 427 - Height = 88 - Align = alTop - BevelOuter = bvNone - TabOrder = 0 - object Image1: TImage - Left = -19 - Top = 0 - Width = 450 - Height = 88 - Picture.Data = { - 0B544A76474946496D616765826E0000474946383961C201FA00F70000FFFFFF - 626262BD810AD3D3D3BA7C0AB36C08C9C7C4FEBC49A45103C98B28EAEAE9CDA5 - 15AB734B554F4CA9A4A3C8A645A24B020098009BD884A8DB96C99D128C4105F1 - E6D3AE66062A2F299C44036443098D8D8DCFAD8B0D120E96D77CC1890CB57108 - AF6E31A95A0588D367EFD78BB77508B3DFA6B58F6AE7D4ADCC4E3CECDBC8C695 - 10016001FCF6B8D1A931C8BBACC6831EBDA991CF6254BBE2B0D5AE68787878B7 - B7B7B4332BC38C0ED0EEC8B58855999797C5920EC4E4BCCFC3B75A39035EBD55 - AC9690F7C550E7CC79F5F4F4B88639F9F4E8C7954BDADEDAA2DA8DB16A0671C4 - 6590420477CF51E9A83BF4EBE172CD4B944204CDCBC99742028ED570B9791DFE - E79B1D221D66CB3C2EAC27DEC470CE8673C79B12BF840C0058007CD058AC4E45 - CB9B97B9760AA6591AB8780A5E575525A91CAB5F06B06807D5D1CBA75804E7B7 - AE9744029E4703874008DBB84AC63C2EAC631BA16631FCF9F56C6C6C9A561CDE - C39865C15AF9F6F10082008B817B884006B1E79CFAFAFAAD620672541E464B42 - 665C5B86BB7C1EA518AF68085868569E5E256FCD4481D15FDCBB87484906716A - 684AB0406C63618AC57B9142027FC96B968986AD751CAFB5B572663A89A88032 - 7E32E1978F9C4C0C828483C1B3A0FDFDFAAEAAA9FDFDFD964D13FDFBF9B26E1B - AD630EB8A6359EA6A6B36E08954A0B432A00FFFFFD8C4408BE9F7AAA5B0ACB9F - 1A0E940576D248A4500A8D96978D4911C997139ED269934404D6D5D5BCBFBF95 - 9290AB6306DCBC60363935914609954405934402FFFDFCA95503E2E2E2747171 - B2640463775ED7D9DAC69019D6D7D7DDDAD6A3B650676B1912A011CFD2D3A1C7 - 99A08525D2D1D1697575656665DEDEDEFBFDFDB6700CF7F7F78E480DBA7206B0 - 6409CECECE3945029B5010ADDD9ED89A32A7AEAF6BD743EEEDED994708F2F1F0 - CA9625B7730AB46E10C38F0E1F9404328232964907A85709A85810AEAEAE676A - 676E6765A1A0A0D1CFCE69615F1A8B1492511AFDFFFFC1C1C1686868CFA324D9 - D9D95ED9429DBF5A959D9EA251145A6414C78908C48212B56E05089B082C0000 - 0000C201FA000008FF0017081C48B0A0C18308132A1CA80585914D00224A9C48 - B1A2C58B18336ADCC8B1A3C78F20438A1C49B2A4C9932853AACCB8B0A5CB9707 - 5DBC216161CECA9B3873EADCC9B3A7CF9F40512E5C05B32851976FB4E43012B4 - A9D3A750A34A9D4A15C0827A03B10AD47A35ABD7AD07B98AFDDA15AC40172E70 - 39ACCAB6ADDBB770E3E62C4AB72E4217432CC8DDCBB7AFDFBF50ED0A169CB405 - E0C388132B5E6C71B063BAB8549C624CB9B2E5CB4F1F6B6E29B3C51C8898438B - 1E4DDAE3020AA70B525885FA256AD4445B27942D5B60ED370EE74C2ECDBBB76F - CB028F1614DE523651E20B90DB1E483B79F27A78553CFC4DBDBA75B9CE61A78E - 9DFAF5F6EEA75983FFF74E3E7C79EEC7D3D2047DBDBDFBF73F352BDF5CF0CD10 - CFF0F3EBDF6F32F572EFCBFD371E73D98187DE800182B7805A4CF1B743001046 - 08612625CD2321841B00D5CE8501B4A3D286177A88D300DC5006A2842266A4CE - 859C3C75A0763012F8A28CDF3537E372E8D533530BBBE547C433010029649001 - 28409285433E93E14F1B2699E249ED2419C0283729B08392261229E493161141 - 8796364025DE6AAF8D3966776696A9A6796C92D9669ADDBD61474D3DBE270587 - 1286399285172EE9D38911725912A0100A5A123711FAA918A11D6A6483842D42 - 55DEA403526A699B959ED99C0B0D19D1897E576A292A857B8A8AE54FA3986AE8 - 48518ABA6A48F37CFF29A4A289A5EA6446D3D0B1A554AC51E0EBAFC006FB6BAF - 640A6BECB1C812CB9A4C347DE2E397784668A4487C4A48EB4E8CBE1A52B62855 - 9B689621663449A05391C91A9C6EA67BAEB9EC8EE9EB69BEAEFBE69AEFDAD742 - 83EF5D63AAA97AC26AEAB5FC5984A49600F346043041161C94B0C4226BACB2C3 - 46EC70C312AFB6006E2DB0D7DE83D17E4B2D870A072C91B7188AFC1417AB70F1 - AEB92AA386F2CB2B530033CB0BA0CC2EBCAFAD6CA6CD328717DD1C9FBA87F090 - 99E82AEA341F2719B2C903CF6AB25314C412B5AF5C542DB5D4BE5E3DB5CC2A4B - 6D75D554770D6CD52D6B3D3617B1B4FC6B3D6A3DA1717577B2C8B184936444C4 - 24D076380F002407FFE0E70617D610111136E4BDC1DE13D95043A2884FC46D44 - 8B4B2878443664C2B8458F4FF4CB2480F769033414756C6D449D4B1811A218AA - 9338DE1CD66083EA1BCD537888364C4B51E6144153B9E4EA487151E4114E0E80 - 3A9663D8B847C2AAAC76F232373F76F3CA1B1BBDC3D30F2B670B9FD4495DAB43 - 5E6383940AEB2BA5928F2A2DD106490A2EC5F8534604CDE2E0DFAEAA4435A40F - 002DB28A7A2DF744522911110F62DFAE2422408291CE5400B0DC9044348F020A - 890ED7C0C8358C26C07620CD71F3A3C82FD0B72F20D5801615811F910487BFF1 - 2DAD2253F31ADAC8A6C2B4B99085604BDBD7ACF62B19AE506C578B21D76C28B5 - 0768410573E8457BFFF216212210014F441098E8F0F4B7C0F52D4FD020E2854A - 2491CC010F42351880E8B89439225C5174AF90C8124B0680D245E851170221A3 - 44E7BB8AA0718C35B01D00700780B88DB15F900B1C2DB6F811B2F9D18F324B19 - D7FE58B594111290833C64CB14F947664DC73AE2D312A914A8A5E34544011DCC - E4A9CA98240A66726899B49DADB494A2FA69C993EC9323FF8094A22669B29211 - 7160C20ED849FBADEF959DBCA044CA87CB20912A22A31C60442229CB67E05184 - 4002A500E5A8112EAC6085CF4CDB3367E84C68DED09A7E94A635B529CDA945B3 - 9ADCE442385C90082B184188D5E10487F4A4CE0BEDA022731BA3C7CA28CF7A46 - 087673E45029ED19FFA1BA55519F83E3501801A08057B42E22F25C9219A315A6 - 85CAD30013D9233F0380CF2E4A718CA0CBE344F1D84C467AF4A3200D292357C1 - 3614D4C43ACA0C52467FB12F5D02E047A6CAC42FEE674AF391AE98BD1CD23B23 - E24A61D634A701D8294FA5E43F5A48498EF5B38152671A4B5C2A14970A98C6BE - 36905100844AA713E1E0AD087A5522D12189F9DCEA1CC7A7A7A611C94FC8CCA9 - 5037B2C217BAB5AD707DAB5CE34AD7B9DA156DABF0210A6C421D894A880E13B9 - E8F1EC2821DBB11464E7C3D30E92D84E0E65C248848DD02FADA8D8241A004FC2 - CB67B8F8B64E8FF4ED5A0E0D001D7C7737890C40A98FFAAAE61C2B1168E02952 - 12D10387DAF8382FFF71C89F11892C84A6F54508BD2289BA0D40663B2AD2E21A - F7B8645B850B486018EA70424A6BED2A90D6FA5CFD51047036E5A4A8329B89F1 - D96E95C295483083544A296516BCE7959288A0C1BE0D28D5921431EB26132B25 - F8DA4D71E6DDA5A9E8E052003C6A07EF9DC8789F2122620609B014A1A490F494 - D6679CD754C3CD485D277CD70A53F8C276659B5EA873517CD69143AA8D483C21 - 04DB888CAB4F89651106033791BE098FB22A1ED941FFB959005C144FEA602667 - 517C5D2472441DB38B96F01A1BA1B56EE471448690910190E44601A0B7548C88 - 8B3D42C86956D3CA55C332D9B48C362B7F33CB7F7CA698B77C6532AF422D9FF1 - 0D4B719AA4366A77FF481C95EFDFEAEB38F5B638BF3CCDE093A584C7066EB7CE - A2F21F6771EAE1411BB0C749FAA5456C005EF6092F805A2AF1913338608EFAF7 - 5F794C529F214C6569AE60CC62FE345CBFF9E950933A16A046B533450D6A565F - D9D562A6C003F28207DF34B99E4275A8253F9B62091D0F7753CE738D7B7BBC60 - 0B1B452B966794773CBA1ED7982227B6A7F01C6AE98C3C8E51967EA3C788DDE2 - 1973A4D5624635AC576D6A7197DA99E626F7ABC10DEB4FABFADCB1D011099EA0 - 3DD13438A7087E3391E28CE99B8AEAD744BDF39F81A9E79F02A9D8781EAAAB28 - 728DEEF6D27672AE0876C16491EA8E0FC0EC1DB855F9F591018BA8A741CA76BF - 1B5C6C4E77A4D428FF4FB9CA578E721EB0FCE53067B9CB3F4D0C0DF39534879D - 688468CB2149477B9EBA4E36B964CCE2630FFDC91C2A79D18D5EA88BBCAE78D1 - 822DAF9D9DA78AB856A020BCA4B7E9F852E1DA60123600AB6691CD640E2DB9C9 - 54E436D125E79198BB7DE5C478BBDC591EF752E3E6E6A3B1385087E4BFEF8D8A - 2290769ABF8704F0858F2CE1202730FDE87C788D8F35D01B5140E5A02BE3ECD2 - 179614599158739B705E3ED08DFD4E7C81F75B1105873CD39897B2C9BFFD6997 - BB7E05AF8F3DEC672FFB96CFBEF52FAF7DA9652FFB593F019DA381BACE451B91 - 9C4B88A900303ED0932EF4A6AF3D7834263BD22FA474B647FFE8BA53EAE2AAFA - 5229FAC9D8BD8E10FF7C471C008E0A1F8BADC5131EBDD8D9B10FFD88B79D4870 - C1AA76D52F7D2373973BB951BEFF15981BE6FDC7726C634EF556196BB677A6D2 - 46F92324353053C56070B334784452787C277043223C1EB778FF66812304680B - 040052157081252AF86460403253BF9075132724F0B58207560C52667A1E3411 - 10F80C91F20B0E3724C0005619A8709AA67A76867A2CD86DF67372BAC77BB497 - 8448B8844AD8844C287B5CF00091817797F1733BE774784245569850E10721BF - 0650CF877E4CE764D3E76BDD767F8F437E4E06401C3200E9D73154147414716B - 70247F3A575160485037263AB6537FCC067D27977BBB3788B8877BAF6788B797 - 8833A78884C88885FF881BF88219321800FDD55AE38360B9C26611A86F07E781 - 44F2247E7681FF24561088708E075EFE93716C6664A8A4253BE582CF005F7BA4 - 893338119A97538A267A1361829A743C2447845A126118417B3C107BC5588CC4 - 788C83A88CB0E77AC7B888CAE88CD1F88CCF488CBBB70D43A002CE8219CA3721 - 19716359175C89F2454D447DCD47867F2886EEE77C65287E67687D6398224F14 - 2D7A207694D3314F658EF0B444EDC02815B14678528FE7C825E2D87EF4C37C61 - 185E815888CB480C3CE0904EB88C11697BB6F78429078DA230136E83197E9724 - 920678FB52821DF44E0637671B584522286509D7837B76922A798A41985B2935 - 3E86420493E860B4FF947A134104B03881979624DC2765ADB879044794C9A755 - FB9209594783A6527245C811D5488D523995545995562995CD488D59598DC440 - 4ED2218978E26616B1222036110AC03A850251EDE8375D18005FF86CC6066366 - 98900FF66C523609E7D7216197118A433B07A48F16210580B201930056983445 - 17213BE4583B98938714715A575403EAB09414E187E0A711AEE790C8788CC440 - 0E3CE099A0397BA1A98CA0598C9DD9849EF97AA5599AC5989AC4480EB4470CE1 - 20274F40854F739BB88919E4009ABBF999BDB99BBCC99ABE199CC3E99BCF489C - C0599CC9D99BD4B89CBB299B18F336B9399DD4791838D099E4709DBBA99DD9D9 - 999F899DE4809DDCFF399EE2E99DE1E999E4B99DE5099AE6D99EEA199EB30644 - D5399FF4D917D9999D388003F7999FFAC99FF8B99DF8E99FFC39A0F9B99F014A - A008DA9F060AA00ADA9FE140036B519F123AA155C1A0F709A016AA9F190A9C0D - BAA006DAA120CAA1228AA1F7490C0F90089E518014BAA22C9A13FB59A002FAA1 - 013AA30D0AA330FAA2FD69A3390AA23A2AA3B33927B6D9A2423AA426D1A1C029 - A31AEAA11B1AA20A6AA14B8AA4482A9B0C42A4545AA52341A01F80A3587AA0FA - 99A509FAA5FCE9A5034A0E1F00A6664AA0E4100E3FB48D56DAA66E7A11315AA6 - 59BA9D38E0A5F759A60A2AA7376AA77C5AA72FAAA7805AA7822AA71F5AA078FA - A028406F6FBAA88CFF3AA88E1AA85D8A9F810AA81F30A9755AA98F9AA9964AA8 - 620AA9F54003D2A1A28C3AAA2B4AA9804AA6838AA9789AA95D5AA6647AA7AAEA - A790AAA98FAAAA772AA8268AA2416A321DC996BFC10930F8164942997917AC38 - 51A9C89AACCABAACCCDAACCEFAACD01AADCAFA0028506BD4A96D27441952B038 - 6EF81669541ADB1A00DD7AACCB8AAA593AA9B6CAA997AAACB25AA9641AADEB1A - ABEC8AACE6FAAEE19017D2C9AB4392AD8AA1001347AC5531ACA3E1AF4402B029 - 11AF94DA05CF4AABCC8AB00EABB0F39AACA9DAB0806AA226B5ABFC81ADBC7145 - 063B15DF6A6F12D2B12741B1EB5AAB9B8AB0128BACF1DA0FCDEAB0729AB2F27A - A938F00034306FF9FF9AB1FBBAB14362AC6D21B0F6B6B33AF1010A3BB4425BB4 - 447BB4469BB448BBB44ADBB44CFBB44E5BB41FF0A0E6949B1A5B1A5734AE6DF1 - B1A191B5412BAD601BB6623BB6CEFA0076801FFA310D16B703BFD0ABB4720DFC - E33A3A66112244425785479E278F39EB5F840700D7C04174D02F48992472740D - 7AE75E16410B9EE77595781152A040810B003E1B11D3D0975B625FBB78348135 - 244B09B717C898BBD4B77F0B24912B8184DB5AF8E58AD58611C80AB14D5BA9AE - 1BBBAD9BB4B00BB1B23BB4B6DB05440BBBB42BB542ABBBAF5BB4C4400376F004 - FAF10B17257C7E42B00CB511C053037D930960A56DF2D86CDA263B02F5977832 - 2D3C192D7440995BFF182174807C18C128E7B794F318008FF58D74F38662C8BC - EAA75FE2A76DBEA5BD1C322DE11B3C736B11B76BB4C0CBBB002CB5BACB0FBBFB - BFBE8BBB083CBB018CB4B04BC0C1DB0530400CB881076C7A1DD35083D6F552F7 - 06671A214233495EF7284CA1E8ABBD1A785A024283AB25D3729344C254B72440 - C29838C594758B6B5EF638875815C2A7C77E05A42725DC4128BC4CF7234BDA32 - 115D200047FCBBBA8BC4BABBC4499CC04D1CC54DCCC451ECBF527CC4575CB454 - 7CC5518CC45E8CC50A1B0E89F095EE91BF3C069017B2BF1AB544464296ECE82D - 4B42BFD15222A1B55B00803AA2530349343774003A034044981B117BF8AD87C9 - 8F18617CF9267C46FF82C68575696344C71D6324757C21377C114EDCC4FD80C9 - 97ACBB99CCC94BDCC95DD0C95B0CCAA01CC5A26CCA5C7CCA9AECC9ACDC05E1F0 - 00CDE21E0A16473F7956206878D0A060AB2B84011041B3B86FB5AC782F092471 - 5C4C68C5B912118244B2587C0B4B5AC55F11C109C0A0546AECB7A212260A9083 - 4102427AF7413AFC0CD07C110A063A3045CCB75C810090CB14D7AB0274CC059B - CCA212412FA54C628911530CC6F7BCC954FCC54ECCCF52BCCF5C1CD0FE1CD002 - 0DC688AAA8D741446E6646197259F3743F12A2682124215186C76C49BDCF17C7 - 884904B2354F1C2B11841562EEF74E23E65E3610C88913D112E157100242C2A7 - B56654CF13F17361FF42587B43588AA24592E5C81152221CDD6CED28B294B350 - 282D11A14CD0575CCA48BDD449CDD4AB4CD0A49CC5349BA8C0F71BE51C24B6E3 - B6C1AC49F946B75AE2662F1C5E79DB78E6DCCCA4AB5F82D7924062AC9EB7564D - 434205B403D57C8BC2DC5442024240B5CBCAFC0C24FD795B2D4080D5ABF9E679 - EEBCD6152179ECAC93F6FCC500EDC54C0CD04B2C008C8DCF92EDD8FEBCCF924D - D958DCD8479CD993BDC9530BAA91E81B856CC7F6573266CC2119F1D111C1D282 - E3C66478B557FB87682521E30A284FA2D36298DA74A0C6B8CD941182D7F55468 - 2009218095375404DB4BC4D3BE4ADB0719215A0BBF1D53D41131D9D6EDD99B9D - DD95DDD98C5DD9DEFF6DDDDCEDDDD9DDCFE1BDDDE0CDCF66EB36A21A1A57FD0C - 599DB3359C49ABFDD5202D8A848D92B66CD6CDDD34851D004B49D76E1D8CA88B - C182561174FD24029BD71911D64D9351F1CD3EFAFD7D87A6D6FE9DCC06C709B5 - 834CD40D009EFDDD962DDEE6EDE1DC5DDE22EEE1DF3DE221FEE1290EE295FD01 - C4BB911C3697F4F42D0E4D46217145152D217AC0DCE20AD1D60BD470FCDC2DFD - 7C5D0D284B465036104F5D4D11DA263C2C5DE12F4D1279033CBF84D38E02E440 - CDDA7FA86880CC1126DEE102D00F276EDE620EE666FEDD65FEE52B3EE66A6EE2 - DCDD0F0900A1781034BE11780DB8D519B2D7E5D7DAC8B4CB48D73D00500C9EA4 - 3A0F9EC15A0D849BFFF8536132537ACECCEC8C384AB501E19C405E75C8244850 - DAFC0CDC4C3419D553937E11740DCC947BCD7CBECE7B6B689BA4E8C917CC9980 - 341B94241BDEE6B2EEDD0420EBB53EEBB89EEBB9DE05CC00AAD6EA1B05D96C8C - 6CDC950CDC4BE486352E3A1A3D4F416EBF11723A75787545D6DA406D11798927 - 2054DA1DE3E7EEE363D7E7BD4934DBCD3EE317323CF514EB0270EBBA4EEBEBDE - EEEA1EE6EAFEEEEDEEDD6A2A9FBF91E95335381B4C24F28C11FB9ED643A9CDC5 - 9CDFA8EE277A2724466293AFC454292C25421DD60244C3AF24D11891E946C6C3 - 9924CF875EF01271F058FDCBE6A5D81751D9F14E00B57EF2E94EF2247FEB257F - F2269FEE2F8FF2F1FF9EF2332FD92F0FF3286FF32C4FF32AEFF2040003473027 - D4A1008205D4EFD331323DD189E258B6A35B1B50DACB6EE3E34EF41C9275DD8B - 594BA9001D1D2D493F872003284B69D17D52EC8BC6B5ADD55B57788FCC0ED454 - FFAD620F21275D751BE1F3341FF33C6FF2742FF378BFF77C8FF3768FF7759FF7 - 7E2FF87DEFF3373FBC5680B1A1A10016D70EBFA000A74E395D25B71C814CB430 - BAA265690D47BAD8BCB71BCFDF9AD35572BD8B875B6D36305E9960038D2B300A - E43A61B5CD9A333B97FB11571DC3FE35F9A04B39A70EFA12F10BA23F2DF39083 - ED0083982424146F117C9FFCCABFFCCCDFFCCEFFFCD01FFD557004896001A34D - A55A4EAA2213FDDCFFDFFDDEFFFDDC5F053040BC27D5A696AFFD4F03FD64C0F7 - EBBFFCEDCFFCEF9FFCEBFFFEF1AFFCF57FFF0450FFF22F0045001034EC3CE904 - C0E0418409152E64D8D0E1438811254AAC11C062005A13356EE4D8D1E3479021 - 458E3C48C0A4490127539E64D9D2E54B9830C9C4A4496065CD97330974099708 - 85119241850E6D58F159806719892E65DAD4E9D3A004664E955A95CCD5AB52B1 - 52E59A95AB55AF5609882123A62AD9AF53C35E35DB352D589D307AAA9803D5EE - DD85152F2AC5DBD7EF5FC01AB18A1D4CB66D59C46F0FA72D4BD8EB63B591C742 - 76CC982A5A93FD8ED8A11BD8B350A348F97E265DDA34D1C4880D635D4DB684EA - D46C61CB6E0DBB76FF6DDA885FDF8E4D66B76FDB65BB1C49D4F9F471E4C9952F - 1F8A36B5F3ADD0B7B29E2EDBFA73EAD79D4BD75E1D7BF5ED9AED58D8C4DCFC79 - F4E99597787D95FD7BF7EFE5B3C74ADFF7FCD7F9F1EF6F7F5FBEFBF8F8F3AF3E - F6C4E00FBE1286E3EC13F51A74F0410885CA0FB8092BA4F0420B33C470430D3B - E4F0430F351463B8442CE82542145354714583E8834F1C17631467400463D48F - 3D18F59BB1C61BC980F147FC689C0F481D857CED471FAB38028527EA62F14928 - A33CAD471E6DA430C8FD8CF4CF4523059C8F432CAFFCF2BD226860524A34D354 - F32901702C4192F7E0841184F7E8C4CFCE374B98334E3ED993B3043CF9C3934E - 18FFC4134E3FF504FF545144DFDBB350F88A4885C982D6B4F4524C352A420031 - C428541C5041950FD43F711435515443FD54D544493555D5501165F555585D85 - 753E4962D573C6236850C18813331576D861532902064FE904419C6541709659 - 689565569A669F5516D065A795165469B365D6DA50B3C5B6596ABFADF65C68B9 - 2DD7D96601D5561C027AFD95587AEB4DF3050E8E28428C6A088DD6DD66990538 - 5A81735C94DB1F139E53D476C50DB54E82039698E085276E98603288B3C0497B - 3BF618C2345EA0E18422A875961476513E396596D975F9E595619619049567A6 - 59E69A73C6B9E5976B56723C3C2AFD7868A2951B20E47CF715C366A6C1B57866 - 739D76795165618EFFB669ACCF75591C18046AB268B0C326AD185A42D6E48804 - AA31396BB69BAEB96DB8E38E79EB2A52198F63B1F3D6DBA901EC29DB87658C25 - 8BDDB50B279C7095A549FC64C39D2D7C71C70FA759F1C81D871C84C631971CF3 - CB4DEE7A20A1F7DE9B91084A37FD74D453577D75D65B77FD75D8556744A80106 - 289B161F3421998C7108218590020A204578528A0FBEF8E191173E78DF83171E - 78E2914F5E79E9AB1F3E7AEB8DBFDEF8E88F777E7BEABF4719E5AE7F6250F4BD - 81887D7DF6DB77DFFD2C846A6680F9ED3126F7238EA842F1E497EFFFFFEE0150 - 80E30381FFB4E73F04562F810754DECD12F8C00116501C45280EB0D0A7B73BBC - 4F831BE420FB8020FFBFF9D98E1603988726527184A53D6F7AC96BDEEF58A840 - 1716CF77D9435E0BB5D7C219522F87367CA1F570F84215CAB07855A0200AF070 - C1B0790300A4FB47049AF80F28E6C174522C1D152360452C4E518B55DCE215BB - 98452E86D18B1B6C620466171465D08F7EB4B0873D0C60875484A30A055C2129 - C6E1BC7118EF8ED82B401E5788BD3F1640097BB4A31EC557BC3C7A4F907E3460 - 1D1539C8E041F278075452718286C48F71A21D41E00420BC80814F86121033D0 - 86094A794A53A6F294DA58E50458A90D574E4096B34CC2046A298124E4129712 - E0651278E9015E4A0098C3F400153CE0886252419923A002249AD9CC11400211 - 90F80235A9F9852FFF2082112CC8030BCC213F77344319E1B4C730EC2185179C - B00A8254C20E0B003C78FEEE9DD5F35D0E87A704E7E15379F03C5E3DDF794817 - 46F29F3314643EF95850E60DF49F42C467018858C16061B25E3BB0852D760088 - 0E5C41A31AED002072D003908654A42325294867D08393A674062B65E90C4CE0 - 5213C434A6AD7CE52C6D79D35CEA3298B210A6048CE981642A73991E40861758 - C0024BC86F00699C5F33EAD70C1FC4E008E3F047439D7755AC6615AB4A208555 - 97A755B07E15ABFDD3AA57AF0AC0B07E0F9FE3F8990A2E29517AED80A2EDC8C5 - 46AF80018D7AB4A47B2D694A51DA52970656A6305DE52B61094B9BE6D296BED4 - E92F810A54630A55FFA8CCF400238C8A54A1D8A319EEB88653373B80629C339D - FAAB863FFC818602A096104A40AD12DAB9DA76BED3B5ECC42721D000CFD9BAB6 - 9D6840436DBB2A5B42C016B7F8D42D3BE1D9DBD4F25690F22C2E6F5BCB5ADBE6 - 16BAAE25445BF106D74C396007EDE0442E3AF0DD2B64B4030DC841793FCA5793 - 86D4AF2CFDEB4A5FFA5E99CED494863DAC2C6B79DF9CEED297C17C6C31FD2BD9 - C826C1B2474D6A507EA159713A957EA1A585140CC08107C0A00A77BCAD6A57FB - 4EDB16F4B6C42DE86E3BFCE10A171478B54DED87397C620D0BD2B617065E6B55 - BCE1175F189F217E6D1136E3D6D061D7526500448F77608349D820130D684021 - CA500824AF03BD7DFF6D6F7B59FA5E98CAB7B0884DEC6273BADF5F0AB3BFFF15 - AA2CEE910530C3E3B2DF0C8A37A0610FFA85D3B3B62B461A1E6CAC09B3B3C2D4 - E5AD6B9DAB5BDDF2D6B675C6336B373C5DE8F2F9CE7DCEB39EED1CDDDDF636CF - 88F6B3A2E9AC683D57D2883ACE1406C42B8583CCE31935A88878AF0052658434 - D4E95DAF93DD2BD8F8AA92BEB1C4A99519BB4BFE3E1699C674C464A930020F98 - C18B2CB86C814942046FFC021A6956F0FCD89806296862644518076BDBF9ECE0 - 5E20B52B5E6DB457DCDBD55EE0D917082EB45FABED6C1302DCD01677B9C71D6E - 6E8F9BDB7346F7B6BBCDED6A97BBBA1ADB448E292DA55CE0B503F338880D9EE1 - 8C1A9461A31858B2FF48D70BD8530F36BEF4AD6F62F18B4B2C6719B241B5B507 - B250BA7FE4A1D743990638844DBFCE3A359CA045F60B74C7ECD4923BBA7586B7 - 122E808675C35CE6E086F96BB33D739CC7FBE62F7FB9CE71CE7399DF36B8B6ED - F96E690E6E71CFBC0A3AB0E4BDD764E9F05EE32006A007A703F0DD8C96340748 - D8FA47BDDE83AF83F4BC066FF24AF92058C2AA920FACC6AF2E5F1D4CC93213D7 - 17776237093C944E745CD8B4D8AC679B410BC037230DF8D35FB3BF2D6E97137D - E8E56EADB9BBBDF8C56B3BDDE6B6F9D02F006F6BC77BF22E9F3CE679EEF86863 - 1EF4D6757A9A025008226FA01DED18450D0041E432384318B227690E92208825 - E45EF7BBE7FD12EEFFE07BDEFF5EF8C017FE1D8C6F7C20DC21F940C002F29BAF - FCE7339F1158000280994905BA677CCC44E9441F88F0713537B576B7CBDD0974 - 3061DE5E5EFDE2BE3CFBD33DF3F6AF5FFEF1A7FFFBD35D7FF7E71FE8F3BF7FFA - 61AEFFF833376E5BBAE2B8AED25B11ED6A0707F02EAC132F8F322F5043A91E40 - 022090220BF4A20BCC400CDC400DEC400E441D28822256488664C8382F923B68 - 42042AD0B5BADBB8A0382283C83B058086115AB3106A23634027752A00F50B40 - F5B386CE73BC201C421F1442011C422384B9FBBB002004C2FFEB3C202CC2CE7B - 28E3384016912B5BA02BBBC2AB2BD0ABBDCA810C7A9F101C43322C4333FC8712 - 2441121C84641884FF41C88264309D7FB8B5651A0166CA3E8DBBBBA068018EF1 - 3E614333BF530605033C29F0811392841E4C44455C44466CC444743F47544421 - 64C4238CC4F52384712882F1F8047BB3C2076907B96A078C0AAF8DEA004B282F - B0233B245802308A1D5688805724A3314CC33624412772A265BAB51150413C3C - 2ACC0A0A12E0C383E804225080031B80F06BAA625846748A810758A76050023F - 90C45BA0BF5B80C46ACCC6FA5BC45B88426EABC61ED4C66BE43FF5F3036B0047 - 6EEC41485C4471FB190B381F4F44914CC8841AC8041E038442C8857CC3800698 - 076E588665A8BD307422337043833C48841C043330832C6048876CC8865C4888 - 7CC3877C4830CB02FF46C0488C64848CF42256A0433BB443ECC3B83CF426A1D0 - 82F13082F20000EF0BB611EAAC344A2311A2057748B65408817108866050C45B - B88569ACC69F0CC769F40370ECC96964C4A3BC00A34C44A20CCACB43C71E244A - 474C4AA84CC70BA0423C88A8787410A8EB004C33084DB33A4F233590BA030B34 - 035BD22FB57C35B6D4AF2BBBAF9B8A25868B2FB4E30341302AA30AC95D440415 - 6441EDD34392700121084605988313E9BE60F31B35532363B39F34389B22A882 - 500806A054CA0B084ACCB4CCCCACCC70BC4CCDFCCCCA0C4DCF044ACA543FCEBC - CCD274CAD404CDD15C3FD2DBCA07C9B7F0E23783F0378013388D22B8910243D3 - 318324782C2D2326FFE10CCE9E02A66062CB9C8A4B59AA2F564A2513E881BBF4 - 45BDDCC53B244917248905588037D00226398518EC036F50007BE02C0513C4BF - 63235A30004D8881C8BC4CA2F4C9A6EC499F94CFA6F4CCA1544A9F2CC7FC34CA - F9E4CFCA1C4AFAA44FFD94CFA77C4FCFBC3C3F78CFF79C4F00D5C65070C77A83 - CD06A9ABD93C885A0800600086ABCB4D5534CBD2F1CD2D0B511105AAE20CA6B5 - 7CCBB8442CFA3201BBC44B16D04B44D8C51524495FF4B591580017D04E2DB082 - AF894170104F64F42CF39C1FB2B91F0E2019502084041DCA50E8C65B68D2736C - 52CBFCCF2865D26C94D29F8C52276D4D2785D227DDD22DBD4F6DBC4F73FC522D - 3DD3A1B48607DD0CFF0B804109450FD9BC825AE88369E8031B08003A000681C3 - 000CC80581ECCDDF2CD161125442354E2CBBB2569BA5FA52A5989A81E83C2A5D - B4C3181DC9163C2A32C3CEECD4CE372001BA38915EE8831F35065AB806CE1AD2 - F12B1B7C49051D08016B388304954F5885D5F88C4F590D50FE5CD05AA5D558AD - D55BED4F06F5D55DDDD5057DD02DE00C037CD3E4D8810DB02840B82B67B53440 - 402903582909A4560FCD03101D51112DD1E33CCEE4844B9B5AD1526AD4476501 - BE8CD16CFA8211F0CB92B45191C8D41C7D834DFD151894411A2436A6AA1DB219 - BC4438219C24CA33B885801DD860ED49823D58814D58845D58F964D880855586 - 3558859D58873D83FF810D8535355664350F2CD4C281CBABB1532F94E2CD0FFD - 4D12054E943DD99E3251B744D45A924B574225547ACE72A5CE738D513CBCCE1B - CD54781D0212B00023F04E00988619A4C166B80665304F7D259B4294AA100085 - 50B0588A8DD581B558A9B5DAABC5DAA9C5DA87DDDA8935D8AB5558AD3DD8ACAD - 5AB23D032A3CD68D2D8D04EC2EAC23C5F132AF1C38B81EF0D008C8566DDD326E - EDA59685CB975554C3724E168D4EA38AD19B555776AD51A1C05178CD4E17D8D4 - 1670D369084FA3153F1BA4491FE0006391048C3D83A8B5D8A815D8D0355B8105 - DD8B35DBB255D8D12D5DCF3DDD9EFC5CB3855DD5B5DAD9355DD125D85000051D - B89B4E5C5BCF2883FF06E8315B5007759884212BB23258874208006190409322 - D9BB0DD4419DDEBDEDD6B704572A0BDC996D549ABDAC173D5C9CB54E4B5D5C9E - 2D5F5C20012BC80127F984EFBB57911352117287A84A05061887330886335005 - 113883FDC5DAFDFD5FFE0D60001E60012EE0FEB558FD2DE0AA3D6002FE5FFD7D - E0063660AB558500A6E033D0DDA6F3DDD3E8CAAF0480B0EC345254296B3D4B93 - CD5B428535B74CD4707D25C11D2C47F5DEC3C5A67515DF5FC4D4F2AD874C7D83 - C1DC984AE90363F41B1B3C557B2839F694043FE05AD44562255E6226B6D803A6 - DD264662028EE22616585028020EF81578D460CF90CD7DEBB77F0BB881ABD691 - 1D48BC254E945D59FF13652C147D59E664E171E55E97824E183E576C52D79C05 - CC9D2DDFF27D83F3FD959504CF03E3BB045BB3D04A8390311650B85F06B6DA46 - 7662478E64489EE400CE5F1148E047AE644D666008B6E04CE6E44B7E64428001 - 0E480323D8622EFE8BAE943A83A03AB1042FBAB55BBCD5D6EAE5DBEB55CEE53C - ACED7561C23557444857194E5C3D7E573EE6633FE6D43908E4F00444C6742AC0 - 1BA1C1D3041D58642466DDD27D626B8EE26C4E5D2566DDB1E5667026DD6EBE60 - 2C369F540E0CD44B3D0718054E703DE41586751086E61561E805D142556396ED - A56FFDDBE58CA5F98A63287BA9932AD75FFEE53B46843C36C9A028E6627EDC21 - 601227D9841F1D06FF5A10C490EBBBFAB99F1860801008053FF85F1150833310 - 69918664921E69947660023E699646699106E0933669979EE99316019BA6699C - DE5F960E8510A081347802543E67BB48C0056C4007945B84AB5B121E5134CEE7 - 57B3B270954B164E35B47B615FBCE32F6802AD460476D5596266E8F2750117D0 - 82609C03EF3C05A2A5C16B2055BFAB1D7B68B31252D545566903C6644C16E09B - 0E65FEB56BBAD66BBFC6E4BC16E0BB06E9061E6CFECDEB0456852BE6809FD04A - A1868A8EA5D0DC04D98363A91C509F924D59EA65593676599BCAE5E6DCE5C0B2 - 6C82C6EA26C8A68476D790C8D455606DD76EED4CC50514680123E80383004FCD - 82C9B6B61DD07287FF745AD538D05F9B1E6EE22E6EE33E6EE44E6EE55E6EE66E - EEE1060519B8041F00EAC7BE0B50DCAE51CC288E222FF57AB29392E588CB675B - 863836C6E59A92A97175A9B31BED26EB01477051D3CE6AAEA6D1615E6DD7E6D9 - D6866D787D8321B0828D31884F3033BF0952BFFB3B7B8086C18B0145A6E0E1DE - 6BC23EEC076F70BF46ECBECE6B0B8FF00B77700D9FF0BEE66BFE8D839E1E88A0 - AE6EA2D8007AB4C71E6B807DC40040D006800C487A1EC841708425C087258084 - 1ABFF11A17044810047CE0711E87841E7704218704473872243FF26540720970 - 84256FF2277F710958860900021836ED2640681ABED43DA68005F07230FF7231 - 6F6D2FC7D14DED51FF50DD3BFA294F054B8306CB1DFA0505E1766E3AAF733BBF - F3E60E814B588327782B125F0A0ECEB44DAB8142F0B484FB6E2AD2382F587446 - 6F74477F74488F74498F745F6401AD3EED2568022898EF4AADE1912073B0066B - 79E554A000805E98833FA449777007C67CE69A34A1F38B5A090F69E43E6C3518 - EE5BB7E95CB7F097E6755C276E5BFF755D17765AD7750827F65E1FEE509001AF - 19F13F1F092FA64D00B04D31CE4DC07A4ECCCEB84ADF766EEF766FFF7670FFF6 - ACCE6A4D3FEDAEAE6F9010732F0775761F7331C7D1B1FE89529F5C0530860140 - 5AA712C49944D5182099E0F6855FDFF55D1FF65B2F785A1FF8622F6E833778E2 - 5EF8837F788747F8FF8857F890CEDD235883367D76A2A0D02FAE4D0CD550EDC6 - 80967A29A5361DEF0D77944F79953F2AA3C226AD86024DFF0261F67491D0EF50 - 07EB7A10CC1EA0ED8220C6192C86DA2970DB79EBC10B9C2288033C57035540F8 - E21E69859FF384D775A8C7F3395F7A9BB67AE406855428113C105A8D87762E9C - 87EEEB843BCDD340C84D911F79307C456D5F79B77F7B713FED4B3FED84E6F277 - 0DF3327F7777C77B311FEBFE2EF54EF8D1335BF3425E2AA01FBC1738812AF085 - A5578382777CC70F69C89F7C04887CCAB77CC8AF7CC7D7FCC95703CD97FCCE07 - FDCEE77CD2CF7CCCDFFCC90F695588031DC86237FDFA9050D648B08566C52BDB - EF2897AA05398E2FFF5693252A5F8624007EE10FFE292F7E4768F2634AFE5AAB - 356762FE688AA6698AA66AFA822518F74CBF7E2858022880F997DF7E99A761D5 - 068976E7D9BC2FFF0568F77AE06FDA8ED0C93DC6CF6A2A63A3851C4CFC220801 - A40F697480FCFC3F78C70708746A060A14A1C6E040830605121CA886E1438708 - 23267408F1A2448B1A156A6CA826CE91442A8C002869F224CA942A57B26CE9F2 - 25CC983267D26C996F87AD76B9AEF0BC828127A01C3386CE3051B4A889A449B5 - 9960AA4DDB04A813A64E4D62358904AC582570F520C1AB070F54C452295B7604 - 95116AD7221A8108D117B85F9ACC6D62B70994BCADCC4488F02F8F17162C2CD5 - 6CB98AC2020A8713FF3346ECB83164C40BDE0CB162014F27007DC0FDB2D7CC9D - B2CFCD9A0D18408B561A1F2F529D0861CD971AD808D4CC1E589B36EEDBBA1DCE - EE9DFBB76DDEB865FFDE1DDC77F0E4C507AA027584860A22BD0A53AF6EFD3AF6 - EC2ADBD9B2B50350879E3C3B34E043D4287AA54E9B3E951A35C904F857B766E5 - DA352CFEB166CDA255DBF6FF5B727D31575D764181575E5FF0E5571E820DA65D - 498F4918198512AE3299163D586044669D10D1D9009F29A34C88250E600F2D06 - 70704408A0A8828E2F181184003A34D626E343365EA4E38DB6C948A3453A7644 - 518E02FD5823926A84028A0E1C8C042194514A39E54C0EB4B30327B974105E78 - 40E5D0430E421935FF547A4E3DC55E545451259F56F5D9079658F9ED97565A6B - F917605C03D275D75D7A2DF857602C9803E561142866E8A186168AA8A2882E6A - A80B6F9080C2137D00E061679F5DD34C68A3B933C030D0D0228526A9E810822A - B421809CAABDADEACAAA08B8928D43D9BCEA5BACB0D6B61BAEC5AD8A9B72B9C6 - DA2AB0BAF6E60B02BEA45304744F644625B4D14A8B1D20B9E4828103D7B873CD - 0E0D045046198000820D204AA9C7DE53694AC5E67C6EBE895F9C6539C21F9D90 - AC05099E70C945D78106E605C52101EFD517A0821106E1A1892D36A1630B3BDC - 3005F5508682111C76324DA6A395481AC7A5A5A6C90992A4DA1B92BD9A5C728D - B9954C1BCA3CAECCFFA3CA2E9F6C23CB34934CF218473809CE74D3FAFC33D02A - FD7445070698540B3DC0D450867847996B66BAEEAD79557DF47D955FBC73F667 - E75B6EE9AB6781FEFE7B0814033318E8C1DA31DAA8A10A27FAF6A27173518F0B - 5AA0B061497D28004D68DA6E3A5A680314534C6A1C9C50848BC91EDB1BACB022 - DBF8E2B4214B1BE4BFCA7AF9AD8F5F2EF96CD9C0CA39E49C73BEEAE4B1927EF9 - E77130AB023841BBFEBAB43B113D8F493604000C30017489C1D34DA1EB9E36F0 - 5545759BEFC2AB9FD675FEE7F55B790E58D781D18F2DF09F0D1A0C25C31556B8 - 706387D14D590B46CC7129110AA0085AA7A39D86E20006BC10038B71C07873CD - 35239BB2CD35DE4FFF7FFE8AEBDFFFCBFE87BF01F28F80FB43C71856F7849EC1 - AE810EB4CE4FB6740D9318800E35C884EEBAE434F59C296A6AAA4A7CDA64B5E3 - C9693F5BE35ABE9E379756F0E95F002B5BF502352884396A6D6C835B0D6FE8A8 - 3768810423D90400A6B1B7628C06704534CD69DCE18318B4260EC8321DE65C15 - 45D3B5CA58A69B55AC6C25456355118AB7B29C17C318C52A2E2B1594FAC403D3 - A8C6982CA210DFBA602632F18C5C54AB01C2C884302AD13B0F4A8D5DC5B3CF57 - AE863C13D2C94EF86A0BBEE24297012DA14F796902D9C87607EA110C30D7A321 - 0E6F18B7436D5293AB88D4105430BE207A031AF60851A74C741A5A283106A960 - 401CA0F83929E2CFFF576334D92C63969B5BEDF296CB61DCB07065393524D08C - 4F5823329389122B05214B5BDAD27882C2871CF0C15CBF4BD307E76315775D8D - 8466F1407FEAC4160039EF792D945E24037608B315EC4108E3820DE329CF7932 - 8A0BF67441289F80874DF4E143D028CD118F689A6618A0540C00C5FCA0A84504 - 2C548C626C681821EAD0895274A1129555088E60070BA051991E4D2377BC031E - F1100D10D55C0A07F928BC106EF38FDDC4DA9C0AE9969906E86BFB821E82F292 - CE8061819DD673A7DA1243012EAC029EF4CCE1DA3A49D4B9B9400826C801114E - A199BD9DD21D45248D694CE30E29D820063AA8C2186AB42AB1A20E57562C6BCD - BC584B61512E56F8FFFB6201C358B9CBADD515CBD2C1463BFAD1BDBAAE1D5772 - 66977A224D31ED112A5203614BB7F92641C2B490E2A4690A55183617461260EB - 8CA16066A81D2EC462A89CB5E7518DBAB6CE7676A8A4FD2C5127B3D127A0711A - DE00D1A648D431D3D8230DEF3B9CFC56050104EC76A1BB5D95AD76FB5B866691 - B7C6ED6DAC844B5CE01AD7B7C92D2E73958B5CDD42D7B8C04DA01D7EF12CBE72 - 775A35A00330E8B08E42ACE3190DB016061A50894A64A212EBF1E09AE2C35211 - 76E5A56119247FD802D9E6999340D183E4F4787A889E6216A8D9812782871ADA - A31A2AC10EE6C264864082CB7CA213E050002D34C6318D15C394A959CD0912E7 - 45639D15AE250E66FFABAE2857619998A224667114E3A00391E8B5BB36965204 - 3B30C19254F0826578E615AE7958F9B60B90F62D213865EA1FC83A6F917CC24B - 2B746A59750EF8B295441B94EC895A0A74D69EB1D0F297BD0CE6318BB9CCA825 - 6AA47C68844FF4E1B5A7016888AE0A50292C51077118C34431F15CEAAE4ACF7C - B6AE43FD8C0041133A5682369DA0875BE83E8B310E0C4884058078E349434876 - 1DA05D496C873BDDF10403ED312C0887079FAA01123F8C8DE909F76BD33D4D16 - 419515301606EC5307A5EDC05ABE35AE73AD6B5D7B56D7E1F8A4A4468246BDFD - A2189BB2EA869B510C5A1823354C84A52F9E38458A4EF4C4D4BE36B6AF2DE38D - 3290D2DEA6CEB566FF57BB6738A30681E834EFCC844D35F9712B5B819337937C - 16FD925340E6EC93ABA7ACCE581FA2C09A3DF00A3E1BF02F0F9C0B050FB83D0F - 2EF033137CE15F8E05DDECF604239C6233C556865507904A24A2A6A03180658D - A47BDC918BBCE4243FB9C9538EF2959B5CCFCA4580EA44D287ED7EBBE631B134 - A601A069671462779F5E379189C74D78DD972C84548BBD00C45F4512E89C5226 - 5BACA38E859E0EE2CA97DCACAE1BAE755C239CEBBB3E73C23FD9C3F075620EE5 - 13559C676B1A0FBFEF54E90074B6E30EC5E122DA1574BFF670EF4E5119AFE117 - 98B139E05F12EE4B8FBBDC4CEB747B3E1874C596FAA5F83DCB6397D73C7BD705 - A74FA77295A73EF5FF7E5BDDC0D8F9ECC3412FFAD0937EF4A62F7DE85770211E - 0A7B1342FC6733AE31220D9B868874365C08A8BB5B97035AE5BE5FB9EE4F1EFC - DF13DF747C5781A502AF7C95E0BC76B7CBDDEED4C5EE1092DA7812D08FD1E965 - A7254F1E6C7BC23765F79DF9016FBEEA0CA27596BFAEFEF5B37FD7756BC186E6 - 606110794AC31A1B8031A4F0821330230E6FE72D046082AE40C0001AD7A1199A - AE08609F25E071256001EA96DD019A020E1A03EE9E032E2004C64A08CC98282D - 9F079AC4E0E59C0D909BB9A1DBCF4D9F3671C5BB1D19F2A0C5BC711FF3505EAB - 851F95451DF971DED9645696A1DEE9F5200FFE600F02DB10500C105DD83064D8 - 35FC0DEDD1C200F8FF00C89C8A2A40801462821456E1145621155EA116062016 - 76A1157EA17081A11566611872A11402A01996E118BA82A37180318CD2072A9F - A5194D49D4C2EDF01C976080F4C5574B0D9DE391C5BC40DE92C5202240427FD1 - 45231DC812FCCB2409184F6D9EE61D82F9B553AD7D5EFB5D2226AA5FC4510C1E - CCC13470863DB803685CD5680CCEA82C512A84401CC00A17A2A1DD49610412A0 - 70C5622C36E02C5621CB9D61C9BDA22CF2162DEE621546A05D318093FC5D1C02 - 9E2D444226D842B5A017063C232068C33248C032F4D17C551FBC35D659C8C201 - 0841377EA3378623388EA33896E31B08C11BDC83D4695E241658255E870FC623 - 10CEA30FC6C20AACFF403DE0821DA88005C8DF879C929C715831D416A9984A08 - BCDD17A2A115A22143E2A243EAA2184A57444264424A64C951A414EA4308A4C2 - 1A90C431DA1C77EC403B8C947874804925DED4F4E10805D2F1240F371E004CC6 - A44CCE244DD6644CBE810DB263244EE24FBDA375DC5AC005A5C10D65C2E99A50 - 1665D71DE550765DAE8559DD5881B3581CDA75CC8665956D7955088C81DD51E1 - 56A65C2DBA5C570E1A150E1AC9FD2257B62217D6225A1AE058822558CEA2CBA1 - 431C5C820AE0C147D65C1074C748769A4F78094AAECB7CF5214B12DDE371A337 - C2E4617E2362C66462362663C2643AE6A44EE2603BFD1B76D8E33D66A6666EA6 - 6662E6667A266786FF66667A2668C6C2C440551FB419DFA49DC6698C32108EFE - 315111A443159EC342EE966D06E03900E06E82616E42C06F4EA41806676D16A7 - 6F46A471F5E6198202477AE45D4E9A0388A40368099095141F5C271FA0207D2D - 169C3842F6ED07373A414C8A27798EA74D9EE701A46337AC2723685E1660417B - 26435F44000B78817DB2009404A568DEE352F2A77E66667F0A25806E66801ADC - 66AEC21BE0829A6DC227BC963D1011ED91C69BD1826AA4421168255A8EA57469 - 28870A5787F2D68766A8878E288892A88896288A8A281B1E810F74E273DE5803 - 884B2EEC402DD4E806344019144203140220148225A4E4761A4FD10D123E8483 - 2814C1039080925AFF01935A410B2829095801944AA91054A99556E90190A713 - 886738EC03327CA92CBC4198BE819892A928B8C03188829A8A4222E4E77EBE69 - 66F2009CDE233164669DCEA99CD62931A419A58003115C18341443FA08D440DA - 836A04819DF1E2707E611B7CA16D366A44FEA6A41AA7A3522A710AA71506271B - 72A4054CC38B76170670891498C43C3C430DD400A7750006C8C73572E7F521D9 - 371D433FC0000C24400B34690BE46AAE3629AF5AC1955EE9966E831308AB1314 - 8129FCC00F68C0793A6637E6276886E6B37266B4AEC0B46AA6C1556B67D68313 - D84DF8F45329B1E66C0D4E1A18800F18CE18F8C243A6211992211A52A186EAA2 - BB7261BCB62B5A6EFF61BCB2EB897AE1886A240DF880B37C2A5F8560E195A04F - E861BBA9607DD9D7E3C96A02C0C036F06AF8EC6AAF322909FCAA956E29C66E69 - 02288206742CB32A26C80E819BC6E90AC8A99C6AA6C992EC3DA6ECC9922CCB86 - E6CBAE6CC9966C2C84833EF2231E7CE22FFCD3B6704A116D4A69D49657190286 - 36AAD142C0D1266D151EAD143E2AA32EEDD3422AD42AAD1432ED4452EDD26AE4 - 11ACC113C021C02653A812CD8E018001D0C3A9665078B0AA552CC34AC209F6ED - C7BC1C03ADD6EAAD32A9AE4AECC45A6C95662CC62640B2FEC01FA0274D0A819B - B6ACE1AAECCCAE2C661EAECC366EE2DAE3E2226ECBAE4038488C8276EAC5EC4D - 12FECDC69446B3A1FFE2A9D89DD42AADD5622DE9222DD4562DEA8EEEEAA26E18 - 9AEED4BA6EEB42C0186C24D7D6D8D7AAD1331402B864C20EFCAE33884B8C3282 - 3014EFE2594D7D7913BD5081ACD2EA36402909544CC5F400F442E91090292E90 - 6982BEC13624C0367CEFF75641B27A2C397A637992272EB4430CAC2F76CCECCB - BEAFFBC62FFCCEAFFCD6EFFCD6ACC4A8D934BC9EC6219B9CD102E1D89626B89D - 2B9CAE01B7EE012730022FB00237B0EB6EEA1A5C46EE225374B6036071897562 - 679125AFE39545F6AD05F3CE6D0268010927C276A1002E90B00A6B012E1CC103 - 1C8128B8B00BD36A15CC2D0C48C2DFFE81DE0A41B00EAB0F2780291CEB0FB46F - E2CE6911F3C0E472FF66122BB111CBACC94ACC10EA13A62061FA94082D208131 - 1843419D800EC8C118A8AE038731038F710267A118B78119BB821C6C010748F0 - 04A7515EE60420F0E5D0981490BA94C27E279D8470C31E81160CC11FEB150A90 - 302017322E3C0022273222372CAD366C024842C776EC10E86D96F2EDB08EEF1F - 6007126F3239F040279BAC276FF22697AC27BBAF289332CB22F1CC76F2279FB2 - 9CB272288B3239ACC036E002A5E0816A86C835A49D4035C387998A1CA4431B0C - 331917F3191B33321F331A8F4193A880A7BEB1035D89486A09D1F484495E6712 - F081DA0ADD0879802CC44BF6C96D2303B21D68C14990C01F0F412103B2282872 - 2233B223F3832408FFB106ECB0256BECF86A8026DBAFFDAA32FDFE733FCF3240 - B36C2CD48D1DE48037F0D36B158328722E56AD9214CC03131D241893313137F0 - 453370461BED456F74327BF430A3711CB0314741730365C2A9EA4121E8288F5A - 0B1D2D432508422540024D1BE21240C2127C414E37124F43C122FE3414DC4150 - 1FC21D1C03331CB528E0022ED0002EA4010A38350D3C402AD0C03148350D1C29 - 331CA9286475115481247CB524108224C4812120832150023A0A012EA4350F0B - AB5B0FABDF766C265F07278BB25D23312CDFB55EDB755EEB752BEF3560D7AC0B - 8844D7FE29882803E79248699CC635A8C82BC5012684B4644F76489F0365B781 - 655F76656BF66667FF00676B766663F6676336EDCA402AA8006B99B4EB84AD8E - 5190D9A22A06E7C17CCA765FD07604D8366ECFF67CCEE73FB0020CD4B0F81EAB - 10232B7117B77123AB22246B1077C01F90803A0F413BCBF00B3F4011FCF6DCD6 - 302447F23E0F343F73B777AF002B77B7FC3A811058810A28803794CF2F3061B2 - 95E2E00CC05532831C886E1B6400D2763447DB7748DF3747F7377FFFF7307B76 - 804B368077B480E377811F381AEB43115CC219759B6A478BC0661A099E5B5FEE - 368667B8866F785F9443ADD26A2487B8888F38892B421037F71F6B813B27F211 - 88F07563B226CB3239CCF85FCFB85F7B328DE7388D73728DDB385FB3B28EF3B8 - 8F934341E3C210A4FF413F76C2DEB03729360313C2F755C212D27E83685B7606 - 5C797D7FC39567C03758B996D7B7687FC39753B967B3019873F995B3019673B9 - 659BB9977BF69667809B67399C7F399A5FF997ABB92B30C016A4C13145B8CF34 - 5FA6DD61CF751A871F3AA277B80D6BC0DF32BAA3373AA43FBAA307B129FC0120 - 93703B2372A653B70D37320E6B375D9B725EAFB23F933A2C9F7A2C93B240AB7A - A9BF72289FBAA9AF32391083B60AC12D138137980F2B61DCC69422164BB40EC0 - 520183399987349C9F39B19FF9988F794817FBB13B7BB327FBB10FB867173BB4 - 573B9863C246B20EA04FCBB5FC840D1081B8AB430080D7E1FD44A2A7BB867B38 - 0C30030C68C01FC0FFBBBCC73BBDCFBBBDD73BA3FF0032A0333BBB70743F8028 - 10430DD370754332BD63878EE30039283C0EE078272B3C90CF38C32F3CC5EF38 - C43B3C8D4F7CC4E3F8C4437CC6B732C513C327E9A305540A1E28C03034831464 - DCC61DA13BBC8026206A1C40409CDFB9CD6B399ED77CCEEB3CCEDBBCCEEFBCCF - 6F79CF0FBDD0177DCDEB8369A340EB743BB484D477F4C4D0F884834C3DD557BD - D55FFDD50BAED6A327898BB8227CBD2220C32974C2D863070E1083C4A3FDC2AB - FDD9A73D2BB33DDCBBFDDACB7DDBCFBD27C7FDDCE77DDBF340DD9343E5BE811D - 40E5270E915559D5C69D8631B803B0FB5F80DB39B26FF9E3C7797DAFF9E34FFE - B143FEE59FF99A53FF7EE6C3F9E6433E338701EBD01CD343481CEF655FFEC44F - 603DEBB77EEB9FE3632EA6EC83ECC786A31374BDD77FBD304009C5777CEF7FFC - C5FBBEF057FCEFFBBEC5173FF27BBCC62F3C0F986622DC8D11B8D67AAFBC1202 - 4E874143332C5110308021D0FCCF7F3FF887BFF88F3FF98FBF3E30803195BE94 - 383D498A0706B83EFCC7BF606C3DFDD3643EDF7F24837DD843C9F203040E7202 - 090E24775020C283060B1654D890A141850F255684A870C5035C242CE021E20D - 5A3391CD068C143900A5BB342F623088832943CC0CDF64D26C3333C34D9B3875 - CA8CD913284FA13B89E61C6AD46751A0FA8A705041044054A953A956B57A156B - 56AD5BB976F50A60FFC70E5BED725D317B05C3D93C2CD8B675FB166E5CB96EDF - 1CB07B176F5EBD7985DC15F24643E0C03F34FC305C581136C5C8BE6E8D3871E1 - C5C80C71245C78B932C1CA0337677E3CD921C2849DC9117B4063088A2778FA78 - FB35E0DA3577EE4E921C408BD6CA540C42D4693325E637363E83FB1C1EF37886 - E4C071CA3C4ED37974E4C5A52BAF9E3C794E303A52A998D3187C78F1E3C94B05 - E70DFD2F7B48EC415BBF1E498EF8F3E5D7A77FDF7E7EFCF39849EA4F82042B02 - B4A2052B043C304000855890C1059D7810C207090B6C9B082D7CC0095CCAA3AA - B4CB20EBF0338488A1C843D022922C34114BB48C45727858A51E5C50E8A80F70 - 1428A6996B9A51A6FFA4926819A098DC7CD0249522C680093AE26EEA89B8E698 - FBC9A824976C8ECA2477BA89BA2A637A92B86FF491E11215C0E964C332CD3C13 - CD34AF32028604DA24D0C0168C90B34003E134B0C1060FB0D0896D04FBE18005 - 031DB4AFBE484093B286325B74331319D52CB24725958C22CD1AF5CC521E16C0 - C50E157EF1C6C6617E6C86B666D2E0F1B66206F0E185201830C4959B809B3583 - 2769BDB5D65CB794C9565E7DDD95D6E17ADD95585D739DD54B195249E38953D4 - 7C16DA68A5ADCA0218AC85C14E025BD8B6CE6CF1CCD3413E9D98500327F6F24B - 0834217208870F16FA80B475C981D7DD75DB3DF15E79F56DB7337ED725261C17 - 6898B1934E40A265FF479214462948845F48458710C6C0B2562B81CDD2628C2F - D61263646BFA983A5A6742F6CBEEF09816E5945516EF896B13001040398D3042 - 40986D7EA32E9C737622816D7CF639813FDF6070CFA2CD3D808676628841930D - 37A397337AF9851AD37E2B83D7D2A817D53AB30FB0E62CEBABFD9D37DF7EBDFE - 201C1A3822021C707E81A6A4520750E6245AECD1ED0406E48069BABE8FB5CE6F - ECA2C355F0C0732D1CF0C49F1436574C18E80EAA95259F9CF2A8AABD568BCC71 - 31422A1570C91CF4CC8F78E00851461FBD0818AAB8B68A2A8466F0C10A65E799 - 5CA7B5961A77AFB716FB6BDECD9E1A6CE071EF7A6AE287A7FA6A78891138B527 - A6990624914A3D29FFD562A49887C88831C1B2D75D8C656ECAEF7F4D1C719F16 - F7D57BF047CE357D5EBD6C4A85932B9F9FFE675B76B3082D86C8BC85CE33DF1F - 805A78C0000938C070B8AC4DAE1B4CA00425AE6D4CE80F1B3A1BBD7437C17E4C - 706A15C4E0048F57C1766DD0831CFCA008CF96410EEA0E07A6498D05BC410405 - 4043553A5A1849EC360029B0246247BAD81476011CC60D078887B38E0F8548C4 - 1FF6B05653B8151B1817855DFC30035150A272901885BF31254C447056FDB8D8 - 45F154AB1F30E807E83627150BE86F08004C63010BE8A63685518C84318C1360 - 07A10A3D2801B52B4F098FD72E1888307914FC1A06FD553C1286D0901AECE308 - 3918B558B8400B9DFF52C0477E8123BA2DCC1DB418060CD330A413E8C01010C0 - 1570BC07C5201211958A1B1F29A7182CEBB48F56B064DF10ADC314A780C38BB9 - D4E5568C908023F8920689A08116D2A0826226E201C7A0C16994F9005114E199 - D12C427FAA20890414E1084588C71F90F18737E0C241B3BB631E0313C13D9E10 - 9D2364243A41C8CE43BED39DE974E70801F6864E3D81086FC3CD25E73612BADD - E686AED2C7379458D0631514A10805E214AC38AB829EF2A0065DA811AD73CA84 - 4E740A4164C337EAA003A7C86F9721152911E6F18292EAA10691E0C41F4CF183 - 961A06A63195294C0BF3871D38A01D0E78C01B06280AD23D2075ABB3D6EA2421 - 180D487082F3522AFF09EFE52EA7C6739D5E9B57521BE954433695AA4D6DEA52 - C97636626CE30D89B082028CC0B64AC6466E2329863D8C618087E9400EAE0096 - 129F58D1213231891355CE14D9F01B5ED555AF1AAD285FED2A58C14EE11B71D8 - 02079EF009913E56977878C11A5EF0023DE8C1162B35EA6639DB590DFC21080E - 704010D848C0232070A810446A3C591BCF2E28B29D517D2D6BD5C9C713D6F603 - B32DCD6950A082279CA79274BB641A6CD3B06BF82006A9D81B4D101A0526B2E1 - 894CA42B7495085D364C77BAC2A2AE7399F8C4EC5AB7BBD7E5E173A30B5EF346 - 97A1DF1883472D60842D4216BE9503C70B3441DF48D420B37F906361F8BB5FFF - F6B7A6B618AD037CFFDA5302A6EE5AD64A80240E73D473CA7383268C2A3C6D5B - E108F791A9824CA486BDC68F7AA06646A052C02F7E34BD85D9ED6E9A38811CE4 - 900DBF56573978D5AEB032BA57543EF7A1300E6C8C354AD8E7C638A34094B178 - D98009436CE105F18BEF9227D707153C590539B5C509FE504E0DB8E1B357CE32 - 96ABCC652D6B801241D04324F4E04C33FB5414C410AA828BE0BA2A9B933C679B - 6D6EE55C67AFCD19CF76A6F39DF59C673EFF79CF81F6B3A0FB5C671C84236D76 - 78C21CF00012BAD1869F3CAAA11488A487BDE595C8E7AD2E7AB97B5EE94A31A3 - E5153579491DDEF04AD1BB0C956E90D910856F1C990316702C93693DAD16D8A5 - 2FE7D2F5AE0FF040FFCF76361E64D6C30E5CA30005ACB6B5C956F6B299DDEC78 - 1243461620AB375E588C47D78624AAEAA48A9961084CF455A2431E2F5E753C64 - 1A8F5BC8E9E6F1BA7F8CE320F790DC35BEAEAB15FB82C6D61ADFCF32C2A070ED - 177FF71BE0FC2694AF7F6DD41F182212640E02389EA0006F48F0B511A7B3C429 - 3E718B571CE317D778C639BE718F773CE287D6080A90C01A6F0C0336B331094A - 7223855AA818AEFA102F4319DA439B4BD1B93D7422CEC7ABF39E5B17E7BB40F5 - 7669BE73553F71E848AF39CF710E5D4CD4E1046BC065BEA96EA67DF31AEB7B11 - C2364CF127AF0F46307F10F60E6C646C64F379CE800679A0D929F109561CD06F - D7B3DC3B4EF73D57FF66E4EDA5360C492237940009376E8DC10942908E73D4EA - BAD7456246599DE3EAAE9AD5CF4D3CE3273FF3C483DAF238766E4641FD782626 - 36156B300299AA5E7AF15C3DEB58CF75A0085EF0C15062030A3F8FD91F4CF12E - B85DD0B7CFADEE6F1FF1DEE7D9F7B8EFBDC6D14EE8E20F1FF9BC9F38EF7BDF8F - 0AD9210D1678826BEC511219F61348F6A08514289D376F2BDE893C14BFD03F7D - F3772F1DDEDE15FACDCDBFF31ED69C87520CAF12C35F74F233D1D54716BDE9F9 - CF15141CE108B6E10810A440EA244110840418284FC4859C7EE00F3841058C41 - 0590200227300291001A8C4D019EA013FAE013FA6043D62EF82E8EF94610F996 - 0FF8740FED5470E3FF58D0044BB0CE92CFEDBE2A11426CC4A00161F86986008A - 48F4261BE08DF22E8AF1AA8B8776C1E6E88F088950BC308FF29850098D50FC2C - 2F08274FBDBA63D6FA0F0BAB0205DA0406B6E14EE88466B2A50049005CC2C542 - 8A4011CAE9D82AE7F7DA5000DA100EDFF00D6F4F0EBB600EE1100FE3300FF7F0 - 0EE9D00EFFB00EEBD00FEF30106FEFAB0EA0537E61F6864119E4869F06E06E0C - 207BE480C6822E0A2E51E8948817C26F1397CE138D2EA378A1D52EF1133331FE - 688E173C710A3A5114A5A815978E0DE48003D2E03BB2D016A3620B154C0CB9C5 - 5BEC840486065C62A74FF0488EE08C726470F7BAA01FE8701999AF0F7FAF1995 - B1F990711A6F2F1AFFAFB11AFBB01909B1F704201A77EF19FDB00BF8A10BEAA9 - 0615D146ECC11E46A2476EA386DC614874200EDAA00DE66D099530FE52B1F2C6 - AF09258FE6A6300A8770F3F6D1F31A6FF23021046840053AA1176E310B73B10B - ED845BB6452225920CCB904F0E809C3E8B7E00D123B9F1F740F20FC5710F43D2 - 0DF150103FF2240B31250B711055321C9C60609060FAAAAD1179E492B2AD188C - 01B92CAD0E3061158D2EFC840E135731FED8CFFDE82F153B3129D72FE8E20FD5 - EAEF12A36029418D296F0E21D740016AD121F9CF0E5C860486202C676666C2D2 - 2CC5728D78EA0D9C402D7BC62DB72101AAA0183B321A4BD22EED3219F3302FAB - 710FBF110FEBF22EFFFFB2F7F8E1AB0646058C201D7304DB8A4B55DC2A0840E9 - 373491FEC02F15C92FFEAE6B1315CF282D13FEF4F114770EFC42F33247933341 - 4DE80C4107ECC002BAB2FFB6D04D8E2074480F00F6277434E7CCCECC8D5CA6A8 - CAA9235D52255BB21B3DF2255972247FB338459238933338819339ED50000420 - 1C1E6085A44D3D1A51364C4224ECA6936200AEEAE01B9812FD2CD129E96AE736 - D129339113851213DD8F3DCFB33D8572FD74C1104EC0073890354B0F22138036 - B56013A482043EA73671213A0D6C8012EC5A18ACA6E8A7399593418D931B7DB3 - 411754381D542587D323D1661B124135C1611A5EC81D62A3367C2448A400B952 - C1D2666E2AD96F0AFF6661285B942845F1326761FD8E9246D7F30877A11559F4 - E66C340A74F4124BE17150001C1AF23EF38D04AE651BD2487FA6222CD1328D48 - 400B5C60A7A694A7DC2401DCA41F128010684A41E5F039BFD44BC1544CC1D439 - C3B44CC9F44BCF744CC5544D9FB34DCD344DE3744DE5944DDDF4D068A053A4EF - 6D54053BB313374C85255E251B086A2ADFD3479D92452F71167861FD78615159 - 14527B545213B54779611321D551DF53512775523DE171C4A448F34D05688054 - 83699862A0B2E80B624441078E40075855079881191840566795196E41120C21 - 14B0A9087440188081121860EA28C71BBFB41FE4F058EDF0589F33598B95598D - 1559A3F55995555AFF9DD55A97F55AA195599DB359B1D54DADF55BBD954EDD94 - 183204058C013D5E6824DCA124EA461DDB8ADBC6A01452D44541F33277AE475B - 2DF166A1D5DC73FD12D532FFB55F4793479D722A3D014C942C54A96E1ADAC161 - DB61A6225662FB4B0738A11DE6C11BE6E11AE66100E6674E05A00AD634649F73 - 643FD6644F566451566557B66455D634EC0009D2F54F1386242E0961E051C518 - A00EB2612A59F452A952527FF6521D355385366827B5688BF6687D3668959669 - 9F16613F6A61F3CD1B062C08F80BECB2166BB776427E800146EB05ECC1066CA0 - 1668C16357166DD3566DD7966DD9761B86C9072C001C5C086E3E34446F03251C - 1332E96F3D7DD46FFF77EE6F1B7553717451852E7025F51C6414709D484619B5 - 525B4D4765F4C8EC8D2BA776C9C041B41C2006FEE0CDB2AC733FD77343B7621D - E005A0C106E6611EECE16CDB566D0980755FB76D5D17655DB71C13AD23DC066E - FA94E570031E1FD3DB8832528397538517536781098237538917691F757893B7 - 5291B714D6EB0564CD72AB77C9C09400C45565B3177BC5947BD754763F367CBB - 1776C557005C377BC7177C9F931FC2C19E2CE01746AC927A4461B2B318A0613B - 57AC0ED8E01CE8D55FDF13511DB7510B1780772E71FBF73CF9557177815FDD8F - 5F77A114E220157C6058ADD78277E97C09007D35388337D88335188441B88343 - 988445B8843D7884FF4DB8843B38853958853FF8844398854F5800AA214B8309 - 05A081DA5E8354E8D74F69E11AA48013564C1FCEE11198E0128D96458F380A98 - 4089A3808999808981B6892F558A9118688D378A8FF85191F88A9B788A1DD513 - C0A03B7A41362F188DEB077D67F87CDB788DDF988D4D78865D7885E11885EFD8 - 8DF3D88EF5388E5BD88E5D388F61C05C55C0D82C00096023446DA33DD220062A - C1070BD57001D78BFB56929BD8928FD789B09828BDD8472FD99289D693271993 - 852E1B1840137E611AD25895E927865BD9955F199663599667999669B90B7AE6 - 01ECA007D2B51840B466DD750024913B43A01418CA782D19156681458F579927 - 399997B947670115FF42999A45B99AAFD99A77A10E18E0057E6195BF79726A59 - 9CC7999CCBD99C637819D3660808D9D8D4316E6AE3478264DB56CC1330E11239 - B999A3199A99F998F9D99AFF199B031AA075A1A35000A4C019A1A3E59C69990C - 62B9A117DA951F7A9CC5C0A13598188E20117C207EDDA69763A35D454219D491 - 163CE955E6350A2AE0111CF58A8DB79F535A8B397913BF58A6B7D88B691A8C6B - 1AA76FFAA6E5007212DAA79FE595FD3886853AA821FA9C1F9AA86759A25D3701 - 6A109FAA8D1D7750244814620CA11438F978B33A8A7901A75FBA8959DA89B5DA - 8BB95AA7C3BA8AB31AACC19A8B57BAA362ED0A7F1AAECB830024BAA1EB7AAE41 - D8AE35D8AEF7FAAEFFF97AA9FB1AAFC9C0AF017BB0F5FAAE0DBBAE059BB0175B - B0FF9AAF43B8B119BB1F128D90E7C06D06E0434DCC368CE18620460EEAE09E8F - 9809469BB4459BB44FDBB48D77B455FBB48FF711D67AB453FB8A633B994B9BB4 - 8D97A3A28E73E29AB7C723AF015B0C14DBB0191AAF0FBBB821FB847F9B9CE9DA - B81DFBB88BDBB9873B84C3E834C4A446E637AA19A618AC47125DC510FAF7B5BD - 1815641AAC6F7AADD39A09C67BB5C37AADCFFB8AD51BADC51AAC754182BDE38C - 7B1BBFB7820C823BB805BBBFC5A0BF1B5BC0079CC0079CBF0D7CBF0B9CC0035C - C11BBCC119FCC113DCBF131CC227BCC235F80806061AA6EF17860147B0D31D5B - AE07EB605E2BA0B5FFC37ABD49DBC45B9BB54F3CBD1F61C56721C66D3BB66FDB - C64FDB5335217EEE3BBF7BBC2A0E1CC8259CC2873CC88B9CC81BDBC893FCC80F - 5CC0955CC92D7CC9A3DCC929DCA273F917F0E03C7237917F043774430E0C6117 - 8E5817563AAB477BBCC71CAC477BCC4FFBCC5D5C17C27BBDD79C09C6BCCDD59C - B4C7FC88E5E004148DC77DDCCF0120C14B20D0853CB805BDD007FDD0139D0C0C - 7DD11B9BD11F1DD11B5DD1215DB0217DD2237DC22D5DD2375DD33B5DC0FBE101 - CED5E1A88F66EBB719ECA118DC41135C450E3CE11C66DBC54FBBC5639DD64D3B - C5693DD61FC113E4600B7CEBCF7F5D2A14BCC21D9CD88BBDC98DDDC1871DD997 - 9DD8037CD80920C3FFA16F35A6A1C37524276948556E883B99A10E8CB889CD7C - CEC3DDCEC71CCFC53DDCE9FCDCEF3CDDC11DDDED7CDCD37BCEE3C1A37EE1AD81 - BDC7C940121A3BDF057BDFF15D0CC401DF2B5DD0F9DDD1FBBBDFFB7DE01B7DD1 - 4B80E119BEBF139EE1099EDFFF3DE0055EE2FD7DE2C521E22F1EE1233EDF1B5E - DFC900E00F9EE23FBE04FA9D007C29A32789FADE991D6F4354E6210622A1A451 - 7AB4571CD7735EE7771ED709FA04ECCDDEFF1CD913BED21B9CE88D5DD0935EE1 - 1D7DE905FCE88BDEE9975EE98BFDE89FBEE91B1DE2A3BE1FA25DDA6C44CBB16D - 00A0011AE0D5B3AFDAB4DB1DDEC77BBC8F18BEEB3CDCDBFEED5B5BCEC19DDDE5 - DE1096C508EA3DE8FFE33AE241DEEFFB1EF0933EF0175EF00B9FF009BFE10DFF - EF157FF017FFF01D1FF21B5FF2195FF109A008F0D4B75C0307FBC9D4F1560A0C - 803BADFAE699C0C4717EF4D3BBF449FFC4E15EF54F9FEEE15DC55B5FF557DC13 - 4280038C61B7F7BEB729BFEF1F1FEB7D5FE9173FF11F3FF08B3FF8895FF1B17E - F80B7FF9113FF9FDDEF9135FFA0BFF86138190FBC085EC4119A4C024886BBB85 - C401F47789C11DBEDDBD02D09EF4C93DEED19DFDD31EDED15DEDD75F3E53F309 - 741FBF1B5EE325A104341E0400A284B81204074A228830A142840313824078D0 - A0C2810F134AB4C850E1C185154B6C2CF1F02248811E497EEC789264C891121B - 12807184060A0B78FFBC29B0D7AC993B77CD940D18400B6833039A523130448D - 4905A54C9A2E5DEAB4A9D4A752AB5ABD3A152B54ACBA0C9D48030E80D8B164CB - 9A3D8B36ADDAB56CDB023076E9928A4F6EEBDA254BC446A646EFDA79BB0B38F0 - D98264081B1658187189C289172F169718B2E3858A2736BE6C98B163CD091B77 - 2EF8B9B264D198278A6B581AA3B89824543C01E70D1ACE9CB49BFDB4472BCD8B - 183AE4C4D32515555426C29B0A2F0EF538F1E5CA9B2F37CE3C78F4E3A518A452 - 81E794E0EDDCBB937D2143068A69DECB1B60572650203DEE1418005B3EBED991 - 0F4188B37F3AE4FDD305F3D3E7AF1F7EFBE577DF7FF51978DA800A0608A04005 - 1E689F7D074148DFFF7FFE5188E182163E781F0862149140222A1831476C035C - C3D300B401959B14BBF5068B7115CCB8142A34D6389D53C2DD88A38D333AE723 - 8DC709C95C1D0C84F10B5DF22DC9645936A493C21A733409D82F99ACA78E26EA - 48E100307AD042657C0D919420990E8E39509AFD6554669BFC81861F9BFCB9A9 - 669A6F9279A79D7566041A686AF649129C73068AA79E208913CE10C6BCE6CD2F - D0A8B8E28AB9F9A0C9097294324B541520F7E323C7794A5C72342AF5E98C4C80 - 8A0AA84A99AAAAA9A90A478D273AF8804798B696E7430A5192776B5BB404D2C8 - 3C626DA2402481B02345AFDC81C06C7DCD3E1B21B4D2420B92B4F7494311B3D5 - 46EB6CB30F4ABBEDFFB6CF863B6DB9E6364BEEB9E7EE07823420F4130E0D3E58 - E0CD34B129E3CE35B5FD34401A03CC13831EBE3155C123A1DE68B08D09171CEA - C208377CF0A605D3E830C507CBC1C12FCACAF744C7D33CF1CB13BD88D5C7132A - 9CEC8D92647D02B20A9AE813E5942CFFB2860A6B842CD634213F21163821AB9C - B302EE48610F1165C5363434468B6513270D04320F34E04C638C1E653462C32F - 0A4CA3C02FE07402401F5D1BDD09380A6C0D406C06A86343330A801DF6D94410 - 618FD26381038D14D7FCC26B5A1822882EB78746C8A1E08443C8EE83802B8EF8 - E185335EE1DFF525DE78E4DA6618E1E0035601030D76D04B84028F36A3EF8A40 - E1368F263A84F0DBFF533BBA9E2390A1AE9AA3A9CFB94A3BEE36D6A1831D4F7C - 32F2C6DCD9B0C51A3E6C91C2253CE3E14E2432A420C3162A4C295627781C1FBD - 0C70C0B106790A8411420A7040AF3C002A8421C31A9F7412C6169718113C0044 - CC034C200DB0A3CE589D4063CB3B6594B1081B84050036A8013B1A5006762CC2 - 0106D083FFAE060C5BFC22128BE0445814A0073D18407E3600C60EA0D1877634 - E27F4F8BC42FC0660F5BE8611EEA6007309255364E2C223DC01020DCCE2289FA - E410243B84560E3BD42D20F2905BCC7297344871B91FB64B874C1C22B37AD843 - 660911044A4C6213A978C52A669189E3C2E2B6A6E82E208AA173899889D9A0A1 - 0C9DEC6B00C528C6FF00A4502906D44117A21A95EC6477232011294843CAE372 - 36E51514884C78DC89440AC0C0801B8C4F050008C3F8A20786F1716069C5129F - 0C18203EEE9147056080DE161830BE4B80E3139158641A30B986F811F07F3588 - 4423F4003703CCB00C99A85F196C013675D4AF010D784720DA61033DD8EF698D - 88840232D18048180300B5F05F10CA56835B9EAD0681C8C40E5C59063D280000 - D7604720805186A7ED0000BFB01A3B361089FF39C01E7E7357119BE5CE25BE73 - 9EF2AC673CEF09CF7CD2139FFBD4A73DFDC9CF7FF673A0022D6840F15985221C - 4144AF7154506C1329DBD8430A36080233EA500A57F9E8554EA991468BE329D8 - A5CA549B220E2A6CFFC4C7519574A4BA90430C7E47C8ED6CA193C97BC116BC91 - 864ECAC03552A029237B1106F1C94505418864F700F0849ABDE6097A801ECF54 - 80C92D6CE1065BE0D95888608B32BCC318DEB88601FA203FAB2DC200BFF8C50E - 7AF95570D8C36965B0813114000E5A203310EA80C62F4258066034A30F4140A0 - 36BDD1880668A20FF373C72F88000EA705021A0070C70C1B508317B0AD0F3BB8 - 1A27BA668B062C629C6801011299F559CF360B89A41DAD68435BDACF9262B5A9 - 152D684DFBDAD79276B5AEAD2D6A616B5BDCDE36B6B9E5ED6E7B0BDCCF8AA10A - 0B4581D7CC368C13D52627031846312855898BCEC2751243298FAE8BDDECF228 - 48DABD9127AE03B4FF98DA251291AC2A397B31D5288D85138A5C0339B5B753B1 - 18A0BDD41B8B31C200CA14680C00F300031860E65EB24CA31DBC74C036C3C65F - FB711600F6A0433697668006FC619939DB40031A9186B10C40AB2F98C622021B - C05F20305964A1853A16C1CB6536831EFF334027B806D8BC92D518956D0030FC - 46CF67B933B4E5FAAD6C4FBBE3784E8BC7A785166977AC632243EB88B5ED316E - D5E5592143595AC495890AC071465A2CD736B468E3357CC09B39EEB1A4A4AA2E - 75CB8C6689A57948365A3375AB23C81B8AB72EE90DB058A6BAD3E0F5140E97E8 - 434E53B005B012707B6BA8D51CCEF7491944320556054710B667DEB218230807 - ACC13C96E680A7E5FF2F6791B8F0816B814077C04D01166E048901300D70B603 - 1A6508023577300F1B6BAC0FB470801E80018C0396014CCD404F2406C860FB6D - C0161F1EE63BFC365B528C83B4E328006D59EBD9D52E9B14CE4EADB459DBEC6B - 8BB6DA456E2D12AB3D6D65437BB5D59636B7BD1DED73475BDCAC25F7BABB7DDA - 67C3DBDDE82EAD1812E0B934BC4674C3C8094FD2E80E5AD8C31E69F0413B9811 - 8F5274D4CC15D8C38F24D65DEC3A5C48108FF849E5900AF8CC79BC3788EF58B4 - 970215C0AD19E59DC31A8C5A2B00BC409197984627F60C872D54F40621CF5918 - 6E4055469EC506286E803AC272D640D8407F160EC4816DC04B7708DA1BC87CC7 - A90190596038AD19FFEA78C7661B1084BF48E18081A8412DD4C14B7636C37F9C - 581A006811CE0DEC801D0AC47524D2428A23529BB505C8760198ACEC723BBBEE - 7BB73BDEE55E7766F77DF0D4B6BBE109CFF7C2EF9DEE878F32B90F3FF7C7231E - F28927F76A014FF9CCAF561C0A15D11CEC050D5AF08427B42986C09501661D18 - 22A51BB56EC48574D2EEC63E8FB397982E3C71240BA872E36BC1B3CEEF4C73F5 - 89E5E47CEE840F687E09EACDA3BD65D3031CC0A0F347335A2C69588422B92767 - 0074026CD0E874195E000075A4C70163F1868517F117668E78D49D7EC706C762 - 8340E4B50C48B0C70C81E1732274E2AC659807D862BD6B00D00CCF50060E006C - D0603FB6B035E030FF37730377966779052081ED466D13588115B877164881CE - 460874378112988121888123088224A881E4F681E53677255882ED26811D4808 - 2928822DA88133288326C881C49508FA360D44F00BF6A022A5930629627A52C0 - 1B94E009DCD570AEE7704DD8704FD8844C08855088520EE7060F870A134723F1 - A00385165EBC87167A4073BF070041C07270638637E05EFD1573E4E10D61000B - 37700967B708311716C6905E1A33415495481E9733B4202C61636135D007BF70 - 407A0061E11409BC82740DA0744C834C0D500B4C434EF8F7340AD0079900080D - 00082EE60D7AA0597FA10004D600621700AD066C0AF00E9A750D633151147616 - B3A5772BB881B418FF8191177920B078BB488BB3A882BD088CBC288CF2768B8B - 578CC1088C2E486DEB968CB6487773270D30806F286004A8263A03902FFB2270 - CD006627701449F170145785B1B70759B8846656854B187B3E528E0CA7851580 - 7B9AF00BF505866911091D67676F11497CD63E38377DB4B08F6110095BA00760 - A08625538760803E5B708F70C0336608072A600191240382A67D9CB01E9CC009 - AB680B2ED70EE154030ED00E5C070D7063039B28057043049CB089C0D00EB660 - 0B5F63610DA0077F418A81A03178905965B0037A10093B900B8EC84D01D000ED - 006C4490699AD50E9C90559130746831771D788CBF688C51E98CC3B8781D5895 - 55798B5A898C5E99FF95B8C88B60F98C58898CC7A88CBE588B8B370E63241353 - C335BF207AFA9246B6D146435314DF4847E618856E90857FE98456F8977E598E - 57188585C9974B489854880A816455F59816625873FAE30306897338B7537401 - 0E37779932A0090679537DC05E3807074160038A640CD04091620191A934162F - C04B9B08087A600F60338A81109441893F64D1885220689DF00B35C08941A907 - 61C1560E603406B08AC529162F10089BF803ED300F81A001C23200A76894FAA3 - 0041B08AB9D9003BF07465117862697869996D79A77865A979E9A977E7C97892 - C79ED39678F3B96C9E259F901781993779D8D677E6096E5C599E05A004D5806F - BE33077D60365A46FF7A39410B5D46702F22477B1985D5B58E87695D175A8E13 - 87A1E70898EA880A9E50041C303D90991606100637631688163D724116BFA009 - 522517E0B00697B00617D43EEEF304DE10174F600C33AA737041A337A4001515 - 091BE0006072552FD00EE8140406D03700000D0EE000FBA5619C100991D00EBE - F9161A992469530B0EF08800000E36B0A4533A0D3670A40030A40E90064F2AA6 - 3E704D1B10049C70586921A020A804ACA5042DB85A7B2A8179EA827AE7A7BFA8 - A7788AA785FAA7869AA87A77A77F4A817D7AA81E78A730B881025AA8923AA879 - 0A838ADAA81E4877996AA85540036BF004D380A072493A5BA6652E12300C9084 - 56488581B9848739FFABB52AAB196A8E86D9A16E000B60900A6B508D242AACC3 - BA24D9D71D20C8A72BC8A82C88AC16E8A718C8A7CD8AAC922AADCC5A6DD58A82 - 28D8ACDA1A832AB86E9D1A79D64A83D32AAD9E0A81D0FA82E2806F3EA00053C2 - 35CAA00CA52329FD923ADE180FE6785219EAA1B8AAAFFC7A5280F997F90AB0FC - AA8EF1C0009A303DBB47AC0BCBB073C6A97B0AA878AA0410FBB01338B1790AAA - 8BDAA8E05A81196BA914ABB1194B0A18BBB1AB1583173BB2162BB18B9AB2CEE6 - B1A00AA9216BA8111BB2D1282FF328A6BFE0460B6A1B409106B44029DE5807D4 - 40ABFE6AB4B33AB0497BB416DA980CE0034F60AC0D2BB5531B266870A7568BAC - 79EAB21B4B0884F0FFAC05400868E0B5776A795F8BA7615B815DABB515880626 - 38A862BBA7589B82564BB1717BA8564BB70590B719A8B537F8AC7BDAAD291883 - 1768AD61ABB71BFBB7613B0E9DF339783007A1630FC510293F2170C6004727A0 - 7A444B8EFFBA29469BB49B22B0ED08B0A1EBA19B827B3160011649B5AB0B867D - 10B55472B1B12BBBB38B06628B064A60BB621BB65E8BBBB53BBBB2ABB6131BB6 - B81BB6B7DBBBB98BBCBBCBBBB5CBBBB16BBBCEABBBCDFBBB175BBC702BBCB5FB - BC4A30BCDACBBCD55BBD13CBBCD6DBBBCBBBBD132B0DC4258FB5A233A697463F - D1B341410B06600395C000F1D0707B90A1F8CB9759B8078BD9AFFCEBBFFB8BBF - FFDB84FD0B0B86F0FFABAA3BAC9DE00DC096B366F76216D907D340C10286042E - 1736A67A55BF907E6133371AAC7D66D337A1A3C039C32B84451E82160DDEE00D - 16E983C0D609A173437DF0173D6891C3509241035762110DAEBBC1C0160D206C - 8D07761675ABB7B87BB5137BB5C1BBBBB7EBB527BBBB466CB7C28BBB4A7001D7 - 6BB8DCDBC45BFCC44A6CBB770AB151BCC44F0CC6659CB7B63BBC78BBC580EBC5 - C3EBB5680CB77AEBC64B4CB7624CC53A4813A7103AD0500C3C8B8DCD500C1335 - 0F1675AF9E8BAB84A9B4A880C8870CC0898CBFB0C03B76E0C0C35A0C938004D5 - A300F3300906907E0A500C548A04C5700DCAC02BDE6000D7E00DB62905FBA500 - CAB0C9A99C369A3CFF0FB0EC0DB560036FA3A6B5E0A466010EF0CA3493500B70 - 0536BF500BF380C10A700D3630CB6053CB9340CA62F10BA340CCB530407D300A - 937037B5300907263A7FC1C0F3A00C443C0C51037FB5A00C69D1B584700168B0 - CEEBFCC4EC0CCF57DCB5EEACB6E90CCFE9DCB5EC5CCFF1CCCFF28CCFF5FCCFB9 - 2BCFECACBDFF4CCF61DBCE058DD0F79CCEEEACD0057D01DF9BCEC7CBBDD1FBCF - F8CCBDFE1CD1D88BCFFC4C08E3A0832AA07F628304CD2005AA8A8D2ED20E3A60 - BF56D8BF2FED06302DD3318DBF31ED06370DC0332DD3F9CBABB0C0001C60019F - A01DC43A09AF300FD11036DCA0D4D72C16C5C00DAD2816B5C00DA3900FB05CD4 - D080C1D7900F9308FF0093209D9C706950FA0ACE9009C3201648E00CF9B05FD0 - 9009DCD0C163A100A3C00D62310C99B00EB57042FCD5D6BC3209F9700DAF700D - 468304AFD0D6DBD409D750083640D6FB159CF930409DB001F9B034C560038C35 - 0D7D3D0FBF390A99F07E7DF00A468DCE60ABCEA31DD15E1BD1A74DDAA95DDAA9 - 3DCFAAEDDAA82DCF60ABBD05B0DA64DCDAB0ADCEB26DDAAFFDDAB37DDBAE8DCF - B08DC416EDDB56ACB61ACDDA5DABDBAE8D0620BD505660042F161B5BC65C3E9B - 7AF1400D9DABBF36DDC8DC4DD38ADCBF8309DE7E49DEE3DDDD8D990A3E90320B - 3B0DDC3009B3360AB550C9730D00C3300950CD5F93300AA33040EA900F64A10C - A370CE0070CDC43CFF094613CD847DC90030D86E5D3DD0900FC3907D0A3009F4 - 8D049BEDD8FFF70ADC20684A0D0EF18DE09F6DCC00100DCAF00AF9F00AD22C16 - 459D09F8CDD4747D0D8C4504DC7059D5030E84FD7E6A3A0AAF80CEF3DCCFB6DB - CE3F1EE4F67CD0426EE407DDD1B59DE43FDED147CEE40D7DE44B1EE4ED7CD1F9 - 5CDAFA3CE5FA7CD159DECE17000A47700982D40734EC5C3B21AF5C467006E000 - 3A4009BA50D3FD7BD3370DE7714EE7733EE7745EE7787EE7BC8A716930070A0B - 86BF6003EFAD7D957CCD664D4EC03C40BFD0D7932068953C0FB86CDF035EC993 - 300920444E52BD010BFE0BF910E939A30CDC500C0AEC0DC04CD7F3B0DFE9770D - EF0D3703C00D527DFF57E4E4DEB71C36C3E0E9C0AC319D20D52FDED581484E64 - 45E248F0EA7F110D4EEDE94653884ADDE3AB8DDBCD2ECFCDCEDBD02EED060DDC - 0D9DDA568CDBBF3DEDD27E01A7DDEDD1AECEDF9EEDA3DDDAC15DEDDA9EDAE310 - 13AE310725127A750929CC65D206C01BF66BD33A7DEFF98EEFFBAEEFF96E080C - 6007D9C1BA034FF082D1BBDE5EBBDD9EF0A41DD1B8DBEDEB8CE5AAFDF0134FF1 - 155FF1CC4BF10C3FF113ABF0EC3CF1EA8CBD164FF11E2FF2E21EEEDE5EF229AF - F22B3FF1A0308D16B07D3ED36F6A643A6990060660514851D3798EE7362DE771 - BEE73D6FE7407FD3B0200761003F05AFF44BBF16CD46F216AFF1D80EF5B0CDF2 - 559FF1285FF24F6FFFF556AFF11ABFF55FAFF21FAD509FF30984253A0ABA46B8 - 41EF96E2093312E78A2CF4DECDF33D4FF4E66DD3B0100FA980CB4CCFF77D0F00 - 45300E526FF1B750F5277FF2603FF8157FF888CFF8226FF88D0FF9835F055B60 - 075E43C15DF350DA387052C00996120F740FFAA12FFAA30F0B3A70657E8FFA4A - 7F04801F0C841FF9AF0FFBB12FFBB3BFF55D0B1376801D61D3283B1BEF40F128 - DD2807D430FAC34FFCA00F0B27F0B45F98FACBBFB09502F8B44DF1AECFF2D23F - F1D26FFD564FFD2A7FFD29BFFD1790FDDDFEFDDEAFFDD8FFF0DD1FFEE75FF121 - 6D04636E13926B1B0007147DCCF996020BC56FFFC56FF461900629C7FC000140 - E04082050D1E4498FF50E142860D1D3E2C682051AA2355C659BB708BD0858C1D - 39DEF2C8B123489017368EE4B8919046932D45963CE9B264CA8F23637AC49892 - A4C7933B77FA11E9B2E6D095288516050AB3A64F944C45F60C49A8C891352A8C - 74EA434441315ACDBC0E68464BEC0003314EC841B5678F1BB66DDDBE851B576E - 5B58B00CE958F304E25EBE7DFDFE051C58705F7B3E34510C318EA39F5BB74231 - 060AF98264CA8D4335762C99E4E5979635DF8A8CB971D2C6933D83CE78FAA365 - CCA633B346FD993448C68E475F46BD79B4EBC7B961BF9E8D3B786BC6A1AA1C49 - 8402DC2600447ED9A3A54C99BBAF03A01BE0A4231EACB57035CC05FF1D7C5B39 - A97E0D469F5EFD7A67F6ED0742B327C507875445AA2C9D9CF171C7A49C99FE6C - 2A3FA69212B0C0FE00A4AD29CEF043D040FD1A6CF040FE022490C0FF0A047031 - 0A2F38A38A049203A797E614B067007794F1AA99018A81A61829CC9283BBF166 - A4F1AD784E48C33D1D77E4B1C7F50202003B} - end - end - object bAceptar: TButton - Left = 344 - Top = 367 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Aceptar' - Default = True - ModalResult = 1 - TabOrder = 1 - end - object memModulos: TMemo - Left = 128 - Top = 112 - Width = 289 - Height = 233 - BevelInner = bvNone - BevelOuter = bvNone - BorderStyle = bsNone - ParentColor = True - TabOrder = 2 - end -end diff --git a/Varela/Varela/Source/Cliente/uAcercaDe.pas b/Varela/Varela/Source/Cliente/uAcercaDe.pas deleted file mode 100644 index 693ee22..0000000 --- a/Varela/Varela/Source/Cliente/uAcercaDe.pas +++ /dev/null @@ -1,66 +0,0 @@ -unit uAcercaDe; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, JvGIF, ExtCtrls, JvExControls, JvComponent, JvGradient, StdCtrls, - uHostManager; - -type - TfAcercaDe = class(TForm) - JvGradient1: TJvGradient; - Panel1: TPanel; - Image1: TImage; - Bevel1: TBevel; - bAceptar: TButton; - memModulos: TMemo; - procedure FormShow(Sender: TObject); - private - FHostManager: THostManager; - public - property HostManager : THostManager read FHostManager write FHostManager; - end; - -var - fAcercaDe: TfAcercaDe; - -implementation - -{$R *.dfm} - -uses JclFileUtils; - -procedure TfAcercaDe.FormShow(Sender: TObject); -var - i : integer; - Obj : TJclFileVersionInfo; -begin - memModulos.Lines.Clear; - - Obj := TJclFileVersionInfo.Create(Application.ExeName); - try - with Obj do - begin - memModulos.Lines.Add(ProductName + ' - Versión ' + FileVersion); - memModulos.Lines.Add(CompanyName); - memModulos.Lines.Add(''); - memModulos.Lines.Add('Se autoriza el uso de este programa a:'); - memModulos.Lines.Add('VARELA IMAGEN Y DISEÑO S.L.'); - end; - finally - FreeAndNil(Obj); - end; - - if Assigned(FHostManager) then - begin - memModulos.Lines.Add(''); - memModulos.Lines.Add(''); - memModulos.Lines.Add('Módulos disponibles:'); - for i := 0 to (HostManager.ModulesCount - 1) do - memModulos.Lines.Add(' - ' + FHostManager.Modules[i].Module.ModuleName + - ' - v. ' + FHostManager.Modules[i].Module.Version); - end; -end; - -end. diff --git a/Varela/Varela/Source/Cliente/uMenuUtils.pas b/Varela/Varela/Source/Cliente/uMenuUtils.pas deleted file mode 100644 index 8333cce..0000000 --- a/Varela/Varela/Source/Cliente/uMenuUtils.pas +++ /dev/null @@ -1,263 +0,0 @@ -unit uMenuUtils; - -interface - -uses - Forms, ImgList, ActnList, JvPageList, JvNavigationPane, Menus, - Controls; - - -procedure MergeMenus(Source, Dest: TMainMenu; ImageIndex : Integer = -1); -procedure SortMenuByTag(Menu : TMainMenu); - -function CreatePageNavPane(const APageList : TJvCustomPageList; - ACaption : String; AAction : TAction; AImageIndex : Integer): Integer; - -procedure PopulateNavPagePane(APanePage : TJvNavPanelPage; - AMenuItem: TMenuItem; AImageList : TCustomImageList; - AStyleManager : TJvNavPaneStyleManager); overload; - -function getSubMenu(Const pMenu: TMainMenu; Const pCaption: String): TMenuItem; -procedure copiarItemsMenu(MenuDestino: TMenuItem; pMenu: TMenuItem); - -procedure PopulateNavPagePane(AParentControl : TWinControl; - AMenuItem: TMenuItem; AImageList : TCustomImageList; - AStyleManager : TJvNavPaneStyleManager); overload; - - - - - -implementation - -uses - ComCtrls, Classes, Math, TBXDkPanels, StrUtils, SysUtils, - ExtCtrls, Graphics; - -type - TAssignCallback = procedure(Source, Dest: TMenuItem); - - -procedure AssignMenus(Source, Dest: TMenuItem; AImageIndex : Integer; - AssignProc: TAssignCallback); -var - I: Integer; - Item: TMenuItem; -begin - for I := 0 to Source.Count - 1 do - begin - Item := Dest.Find(Source.Items[I].Caption); - if Item = NIL then - begin - Item := TMenuItem.Create(Dest); - Dest.Add(Item); - if Assigned(AssignProc) then - begin - AssignProc(Source.Items[I], Item); - if (Source.Items[I].ImageIndex >= 0) then - Item.ImageIndex := Source.Items[I].ImageIndex + AImageIndex; - end; - end; - AssignMenus(Source.Items[I], Item, AImageIndex, AssignProc); - end; -end; - -procedure AssignMenuItem(Source, Dest: TMenuItem); -begin - Dest.Caption := Source.Caption; - Dest.Hint := Source.Hint; - Dest.Checked := Source.Checked; - Dest.GroupIndex := Source.GroupIndex; - Dest.Tag := Source.Tag; - Dest.Action := Source.Action; - Dest.ImageIndex := Source.ImageIndex; - Dest.ShortCut := Source.ShortCut; - Dest.RadioItem := Source.RadioItem; - Dest.AutoCheck := Source.AutoCheck; - Dest.AutoHotkeys := Source.AutoHotkeys; - Dest.AutoLineReduction := Source.AutoLineReduction; - Dest.Break := Source.Break; - Dest.Default := Source.Default; - Dest.Enabled := Source.Enabled; - Dest.HelpContext := Source.HelpContext; - Dest.Visible := Source.Visible; -end; - -procedure SortMenuItems(MenuItems : TMenuItem); - - function CompareTags(Item1, Item2: Pointer): Integer; - begin - Result := CompareValue(TMenuItem(Item1).Tag, TMenuItem(Item2).Tag); - end; - -var - I: Integer; - AList : TList; -begin - AList := TList.Create; - - try - for I := 0 to MenuItems.Count - 1 do - begin - SortMenuItems(MenuItems.Items[i]); - AList.Add(Pointer(MenuItems.Items[i])); - end; - - AList.Sort(@CompareTags); - - for i := 0 to AList.Count - 1 do - TMenuItem(AList.Items[i]).MenuIndex := i; - - finally - AList.Free; - end; -end; - -procedure MergeMenus(Source, Dest: TMainMenu; ImageIndex : Integer = -1); -begin - AssignMenus(Source.Items, Dest.Items, ImageIndex, AssignMenuItem); -end; - -procedure SortMenuByTag(Menu : TMainMenu); -begin - SortMenuItems(Menu.Items); -end; - -function CreatePageNavPane(const APageList : TJvCustomPageList; - ACaption : String; AAction : TAction; AImageIndex : Integer): Integer; -var - APanePage: TJvNavPanelPage; -begin - Result := 0; - APanePage := TJvNavPanelPage.Create(Application); - with APanePage do - begin - Caption := StringReplace(ACaption, '&', '', []); - Action := AAction; - PageList := APageList; - Iconic := False; - ImageIndex := AImageIndex; - Result := PageIndex; - end; -end; - -procedure PopulateNavPagePane(APanePage : TJvNavPanelPage; - AMenuItem: TMenuItem; AImageList : TCustomImageList; - AStyleManager : TJvNavPaneStyleManager); -var - APanel : TScrollBox; - ItemIndex : Integer; -begin - with TJvNavPanelDivider.Create(APanePage) do - begin - Caption := AMenuItem.Caption; - Parent := APanePage; - Top := 100; - Align := alTop; - Enabled := false; - Cursor := crDefault; - end; - - APanel := TScrollBox.Create(APanePage); - with APanel do - begin - Top := 200; - Align := alTop; - Font.Style := []; - BorderStyle := bsNone; - Parent := APanePage; - BevelEdges := []; - BorderStyle := bsNone; - //ParentColor := True; - ParentFont := True; - Color := clRed; - end; - - for ItemIndex := 0 to (AMenuItem.Count - 1) do - begin - if AMenuItem[ItemIndex].Caption <> '-' then - with TTBXLink.Create(Application) do - begin - Parent := APanePage; - Align := alTop; - Tag := AMenuItem[ItemIndex].Tag; - Caption := AMenuItem[ItemIndex].Caption; - Action := AMenuItem[ItemIndex].Action; - Images := AImageList; - ImageIndex := AMenuItem[ItemIndex].ImageIndex; - {if ItemIndex = 0 then - Margins.Top := 20 - else - Margins.Top := 14; - Margins.Bottom := 14; - Margins.Left := 10; - Margins.Right := 10;} - //Invalidate; - end; - end; -end; - -function getSubMenu(const pMenu: TMainMenu; const pCaption: String): TMenuItem; -var - i: Integer; -begin - i:=0; - while ((i < pMenu.Items.Count) and (StringReplace(pMenu.Items[i].Caption,'&','',[]) <> pCaption)) do - inc(i); - Result := pMenu.Items[i]; -end; - -procedure copiarItemsMenu(MenuDestino, pMenu: TMenuItem); -var - i: Integer; - Item: TMenuItem; -begin - for i := 0 to (pMenu.Count - 1) do - begin - Item := TMenuItem.Create(MenuDestino); - Item.Caption := pMenu.Items[i].Caption; - Item.Action := pMenu.Items[i].Action; - MenuDestino.Add(Item); - end; -end; - -procedure PopulateNavPagePane(AParentControl : TWinControl; - AMenuItem: TMenuItem; AImageList : TCustomImageList; - AStyleManager : TJvNavPaneStyleManager); -var - ItemIndex : Integer; - AHeight : Integer; -begin - AHeight := 0; - for ItemIndex := 0 to (AMenuItem.Count - 1) do - begin - if AMenuItem[ItemIndex].Caption <> '-' then - with TTBXLink.Create(Application) do - begin - Parent := AParentControl;//APanel; - Align := alTop; - ParentFont := True; - Tag := AMenuItem[ItemIndex].Tag; - Caption := AMenuItem[ItemIndex].Caption; - Action := AMenuItem[ItemIndex].Action; - Images := AImageList; - ImageIndex := AMenuItem[ItemIndex].ImageIndex; - if ItemIndex = 0 then - Margins.Top := 15 - else - Margins.Top := 8; - Margins.Bottom := 8; - Margins.Left := 10; - Margins.Right := 10; - Height := 18; - Invalidate; - AHeight := AHeight + Margins.Top + Margins.Bottom + Height; - end; - end; - AParentControl.Height := AHeight; - AParentControl.Invalidate; -end; - - -end. - diff --git a/Varela/Varela/Source/Cliente/uPantallaPrincipal.ddp b/Varela/Varela/Source/Cliente/uPantallaPrincipal.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Cliente/uPantallaPrincipal.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Cliente/uPantallaPrincipal.dfm b/Varela/Varela/Source/Cliente/uPantallaPrincipal.dfm deleted file mode 100644 index 7f7fe90..0000000 --- a/Varela/Varela/Source/Cliente/uPantallaPrincipal.dfm +++ /dev/null @@ -1,441 +0,0 @@ -object fPantallaPrincipal: TfPantallaPrincipal - Left = 358 - Top = 250 - Caption = 'Pantalla principal' - ClientHeight = 599 - ClientWidth = 771 - Color = clWindow - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - Menu = HostMenu - OldCreateOrder = False - Position = poScreenCenter - WindowState = wsMaximized - OnCreate = FormCreate - OnDestroy = FormDestroy - PixelsPerInch = 96 - TextHeight = 13 - object pnlContenido: TTBXAlignmentPanel - Left = 0 - Top = 0 - Width = 771 - Height = 580 - Margins.Left = 5 - Margins.Top = 5 - Margins.Right = 5 - Margins.Bottom = 5 - ParentColor = True - Align = alClient - TabOrder = 0 - object JvSyncSplitter1: TJvSyncSplitter - Left = 210 - Top = 5 - Width = 5 - Height = 570 - ResizeStyle = rsPattern - end - object JvNavigationPane: TJvNavigationPane - Left = 5 - Top = 5 - Width = 205 - Height = 570 - ActivePage = pagInicio - Align = alLeft - AutoHeaders = True - Background.Stretch = False - Background.Proportional = False - Background.Center = False - Background.Tile = False - Background.Transparent = False - ButtonHeight = 32 - Colors.ButtonColorFrom = clWhite - Colors.ButtonColorTo = 12435133 - Colors.ButtonHotColorFrom = 13009540 - Colors.ButtonHotColorTo = 13009540 - Colors.ButtonSelectedColorFrom = 14602190 - Colors.ButtonSelectedColorTo = 14602190 - Colors.SplitterColorFrom = 13026246 - Colors.SplitterColorTo = 9211532 - Colors.DividerColorFrom = 15725551 - Colors.DividerColorTo = 13026246 - Colors.HeaderColorFrom = 8684164 - Colors.HeaderColorTo = 8684164 - Colors.FrameColor = 8684676 - Colors.ToolPanelHeaderColorFrom = clWhite - Colors.ToolPanelHeaderColorTo = 12435133 - StyleManager = dmBase.StyleManager - ParentStyleManager = False - LargeImages = ModulesLargeImageList - MaximizedCount = 0 - NavPanelFont.Charset = DEFAULT_CHARSET - NavPanelFont.Color = clWindowText - NavPanelFont.Height = -13 - NavPanelFont.Name = 'Tahoma' - NavPanelFont.Style = [] - NavPanelHotTrackFont.Charset = DEFAULT_CHARSET - NavPanelHotTrackFont.Color = clWindow - NavPanelHotTrackFont.Height = -13 - NavPanelHotTrackFont.Name = 'Tahoma' - NavPanelHotTrackFont.Style = [] - SmallImages = ModulesSmallImageList - object pagInicio: TJvNavPanelPage - Left = 0 - Top = 0 - Width = 203 - Height = 497 - Background.Stretch = False - Background.Proportional = False - Background.Center = False - Background.Tile = False - Background.Transparent = False - Caption = 'Men'#250' principal' - Iconic = True - ImageIndex = 0 - end - end - object pnlBorde: TJvXPContainer - Left = 215 - Top = 5 - Width = 551 - Height = 570 - BoundColor = clActiveCaption - BoundLines = [blLeft, blTop, blRight, blBottom] - Caption = 'pnlBorde' - Align = alClient - object pnlMain: TTBXAlignmentPanel - Left = 1 - Top = 1 - Width = 549 - Height = 568 - Align = alClient - Color = clWindow - TabOrder = 0 - object lblBienvenido: TLabel - Left = 8 - Top = 8 - Width = 210 - Height = 54 - Caption = 'Bienvenido' - Font.Charset = DEFAULT_CHARSET - Font.Color = clHighlight - Font.Height = -43 - Font.Name = 'Trebuchet MS' - Font.Style = [] - ParentFont = False - Transparent = True - end - object Label22: TLabel - Left = 116 - Top = 52 - Width = 247 - Height = 22 - Caption = 'Administraci'#243'n de puntos de venta' - Font.Charset = DEFAULT_CHARSET - Font.Color = clGray - Font.Height = -16 - Font.Name = 'Trebuchet MS' - Font.Style = [] - ParentFont = False - Transparent = True - end - end - end - end - object StatusBar: TStatusBar - Left = 0 - Top = 580 - Width = 771 - Height = 19 - Panels = <> - end - object XPManifest1: TXPManifest - Left = 248 - Top = 48 - end - object GeneralActionList: TActionList - Left = 248 - Top = 149 - object actSalir: TAction - Category = 'Archivo' - Caption = '&Salir' - OnExecute = actSalirExecute - end - object actLogin: TAction - Category = 'Archivo' - Caption = 'Login' - OnExecute = actLoginExecute - end - object actAdministracion: TAction - Category = 'Archivo' - Caption = 'Panel de administraci'#243'n' - end - object actCambiarPass: TAction - Category = 'Archivo' - Caption = 'Cambiar mi contrase'#241'a' - Enabled = False - OnExecute = actCambiarPassExecute - end - object actConexion: TAction - Category = 'Archivo' - Caption = 'Configurar conexi'#243'n' - OnExecute = actConexionExecute - end - object actAcerca: TAction - Caption = 'Acerca de...' - OnExecute = actAcercaExecute - end - end - object ModulesSmallImageList: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300004E2000004E2001167D99DE000001504944415478DA - 63FCFFFF3F0325801197C4840C067D207501CA352898C17071060303D8B60C24 - 7D8CF8343B381880F9070E80CD31E098C170E11990D184CF0064CD0776401CE0 - E0610036E42AD009CF81FC2DB80C40D7AC9F70082C7E71851D03580C6808D02B - 28FA18F16976B0B78578E1E061144360610237009F6610F8F9EB0FC3F1E3C7B1 - 1AC2488C6618BE7AF93C862120032009E107035ECD3F80F817106F3F7886E1EF - 314FCC74E01391F57FF3F2A970898999A811E453F91A6CD0BEE31718A6F75533 - 5CBB708E11A701208533F25919321212C0FC190B1630B8163F07BBE2D8D92BF8 - 0D8039797E2927D880EFDF3F322C5CB99EC136F73158FCECE51BB80D58B37022 - DC8065D5BC0C617ECE0C2B0FBC6660FC7489C12CFD3E58FCCACD3BB80D5838A3 - 9B61D92648E20105949F9B29C3B3E7D718CE5CFECAC06CB51D1E1E380DB877E3 - 0403B1006E00A5D919001742F4296979DC590000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001DD4944415478DA - 63FCFFFF3F032580916203C064C305B24CF95FAFCF0837A0C35205220834EAD7 - EFFF0C9FBEFD67F8FAFD3FC3C7AF0C0C9F81ECF79F80625FFF33FCFC0DD17C4B - F811AA01E8A63771DC6278F9EC21982D2E25CF50F7430DB70B262FDAFE3F27D6 - 032E9193DFC3905C94C0F0879F9FE1E73F26863F9F3F33ACE99BC3505797CEF0 - E7EF3F300E48AC6638B7631AAA018585850C4212560C5C867A0CF9AE6A0C1377 - DF821B6A66A4C87060EE4686772F8E3138F9A730D4774CC53400667B5C431EC3 - CF1F6C0C1F7F32300873323030333130BCFCC5C0B0B3AB87A100E8B2EBF75F62 - 3700E482DFFFA41914BD7D19A494D4199EDDBB097781B7853AC394DA1E0656A6 - A7D85D901EE90AF65B69D94486D0A21486F78C020CB2DC0C0C826C0C0C124057 - FC03C2FEDEB50CBE7E560C8F5F7EC0342029D489E1FD4267864B12C50C5BF7DD - 6188ACCE663871E111D8F6201B1586DECA7EB0ED2080D50581DF5A19441C6218 - 2EED39CD7081C182E1E2AD0F70E783A2D1DBD792E1F79FBF0CBF7FFF6578FFF9 - 3BAA014F66D8FC07697EBA6D1DC39633EC0CE71F9F66086ADA833715C20D8069 - 7EB97723C386A32C60CD17B902894ACA60038A3352FEAB72BE65F8F9F20F58F3 - 82C32F1889CE0BC0740F560C32E4EDD52D2469861900008660FEE14240093000 - 00000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 43 - Top = 493 - Bitmap = {} - end - object ModulesActionList: TActionList - Left = 11 - Top = 492 - end - object ModulesLargeImageList: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000002D14944415478DA - B5965F4853511CC7BF238A120DD9437F1E621B0D7D547AE8C18712F1DF42D1C0 - 87081F7C08121FFA4744B190A0B70211A2B208315965A0CDE58386A5CBD61FC5 - 6C2B373633B76BC66C19AD6DEA74BBF776EECDDDEEDDBDFBF390077E9CB373EF - F97CCEF9FDCE85A95896C56636D5A60BB279A9BD1945A4B3274D179FE980831B - 3C849E0D61969FFC49C228E2661424E0A5A5C59279ABD52E481202864C2C9168 - CD5620867BBD7E84C32BFC7C5E5E0E74BABD82645787DE1E248265F2E307896B - D908C4709F6F910F71D36AF7F0C1497698B6221C896171E3045D990462F89CEF - 17E67D140AEA86A056ABF9E7C160086E7339343A2D749A7C5EE2370154040890 - E723E90492B4CC8741CD7DE1E186EA2AC97BC3CF47E1EA2B8376BF1EDA7DB9BC - C4DA0738498E3EA71248764E919D7B2914127875129C21579BA619BC181985C7 - 5C213949A705F8E8571028E5BCB0EE1981572AC2E3711A71D2DB6C36CCF45748 - 6A02D1155629DD168AFAAE989664381F710693136F3163A98446B35B72BB3889 - 4A69E79AAA27A8AF3F9A153C31FE303106EF609DEC249C8015E7BC80A4C59021 - 2DC9707AA3F738A730FBB44A52135E9000A52B6826384DFF7DEE763AB0306410 - D60B45AE39D6C20E3CBA29812716769CDEA6F831D61A9764F2D793D3B8DD6684 - CB3EA54A2B10EFEADEB9ED686E6AFA772A86C1DDEE6E1CB918909D6CDCEECA2C - 10C3B9455D17720401CB32585B5B46574F1F2ACFFB65697BFFC99D5E900CE77A - D3A55C41108D86B1BA1AC263CB30CACE7E93D5C4E19A492D309B6EC8E05CF45C - DE89138DC7118B45115909612918C5CB57361C3AF55556F069CF6C6A41EFFD76 - 199C1BF75EC94763432DD97D0881DF71B40E14A13CFF164A5A28099C6B69053D - 9D6D3238D7F75F55A3A1E6309F1E2ED663AB181B5FC0C1935E093CA3A0FBCE75 - 3CB08CC9AE23FDC6809AF203041EE14FB11E5BC18423842D25838AD737A560CE - FD0EFFAB0982CDFE57F107B61AA443A57B28CB0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003E74944415478DA - D59559685C5518C77FB364EECCDCE9EC596996491BC618432A28246E041B4DEB - 065553445AA122218D55093E0982425F7C9354903EA9141F24421FB4D4D6B6D4 - A549C198496C163B314D4D3219C634D3244C3B6B26D773679AB4433241213E78 - E0DCE570EEFFF76DE7BB1A4551F82F87E6FF0F587BFA70684B49CA070D9A7580 - 8F9A76AEDBB89C8678522196C8DEA37145DC212ADEA3B1EC7B340EB7E377ED1B - 774DFF33407A458826EE8AC7EE80D4793B96155601AAF8BDEE8F3BF300D699BF - 220869616E4A282D8BFB4A5A751EB47A2890C43482AE202BA3D1E47CBA0EF0C9 - 89EF942307F7AC6D48A552CC06E7189F986572FA16716539B39E5C4AD3505726 - F422B88BEC58AD0E24A3118D56875A2F2BC2A87DAFBF8FEFCCA7F901AAF8E464 - 80A1DF4348F6424AAADD388A2C1408CB171723F80726882F452971E8902D5A01 - 2AC66CB608A886ABD76FF0DED1EEFC80AEAE2EE2F138EED28778F2B956763D50 - CA673F4CE4B8BFFB112F17FAFC38E7FE62D8779648640E93C9844EA763CFCB1D - 9B0392C924BF0E8C31BD20B3BBC543A141CF9248EA4F419813A9D06A411261AF - 7289244F0519EBBD4C5585134FF50E0C46137F06173607747676A22DA8C6F3EC - F399F5B6262F5F5FF6E778B0C3EBE59A3FBBA64C8ED27FF1240E8705A3C8C5DE - B6C39B0382C1203D674678F1600B7F2C6A9909835EEC728AA2A9B18BA2128914 - 91E05A040CB2C29593E7D0256E50DF5087C3E922148EE607BC79A095F6F676EA - 9ADA486FAFCCACBB2ABC84A7733DD8FFA8979EDEEC9A2E30C5A5D327B0DB8DC8 - B2CC33FB3BF3033A5E7D9A5028C4573DBD3CDCFA047265315745EC4B65281753 - 2D5497887F914978229E87C31166468204FCFD548BB0399D6E1622C9FC80432F - 35F3CEDB47588A2478EA85B78814DAA8ABF7323A9CEB41578B978FCFFBA991D2 - 4C8D8E3034F03D7ABD2E53497973D0FDF92965EFE3F7633EFF1AC77C0F5254DF - 4C794D35B58DB5CCA7A54CDB2832804358AF881CCC4ECED17BFA9238E0612A3C - 15949555A03748A26DA436061CEDFE5239241DC7DD7C80D8E059CE056AF02D96 - 73DFAE46E6ADDB723CF0C806C67FF1914ECD3332F823369B15499244096BF39F - 83C0F1C714553CFDDBB78C5D49D1775D62D65285697B1546931BC9EC125563E0 - 6620245AC22D2C36232565A5B80B4B44AB9045ABD08A36A19048A5D70356C593 - 03DFE01F5BCE880FCEF4636D3C4CA567A70098C5E98E914A264489EA31CB16AC - 363B168B95021116F50467C4EE34BC1CC04696ABE2176E7A916DC5184CDB328D - 0C6585B59E2C84548B351B74D1D5B106E83BB64FA975A598184BAE897FF17368 - E3AFFEC558FD156BDEED78437945FC81B6523C07A05E544878F4D49689DF0BF8 - 1B2694FBE012B66F2C0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 75 - Top = 493 - Bitmap = {} - end - object HostManager: THostManager - OnAfterLoad = HostManagerAfterLoad - Left = 276 - Top = 47 - end - object StyleManagerButtons: TJvNavPaneStyleManager - Colors.ButtonColorFrom = clWindow - Colors.ButtonColorTo = clWindow - Colors.ButtonHotColorFrom = 13009540 - Colors.ButtonHotColorTo = 13009540 - Colors.ButtonSelectedColorFrom = 14602190 - Colors.ButtonSelectedColorTo = 14602190 - Colors.ButtonSeparatorColor = clWindow - Colors.SplitterColorFrom = clWindow - Colors.SplitterColorTo = clWindow - Colors.DividerColorFrom = clWindow - Colors.DividerColorTo = clWindow - Colors.HeaderColorFrom = clWindow - Colors.HeaderColorTo = clWindow - Colors.FrameColor = clWindow - Colors.ToolPanelHeaderColorFrom = clWindow - Colors.ToolPanelHeaderColorTo = clWindow - Fonts.NavPanelFont.Charset = DEFAULT_CHARSET - Fonts.NavPanelFont.Color = clWindowText - Fonts.NavPanelFont.Height = -11 - Fonts.NavPanelFont.Name = 'Tahoma' - Fonts.NavPanelFont.Style = [] - Fonts.NavPanelHotTrackFont.Charset = DEFAULT_CHARSET - Fonts.NavPanelHotTrackFont.Color = clWindow - Fonts.NavPanelHotTrackFont.Height = -11 - Fonts.NavPanelHotTrackFont.Name = 'Tahoma' - Fonts.NavPanelHotTrackFont.Style = [] - Fonts.DividerFont.Charset = DEFAULT_CHARSET - Fonts.DividerFont.Color = clWindowText - Fonts.DividerFont.Height = -11 - Fonts.DividerFont.Name = 'Tahoma' - Fonts.DividerFont.Style = [] - Fonts.HeaderFont.Charset = DEFAULT_CHARSET - Fonts.HeaderFont.Color = clWindow - Fonts.HeaderFont.Height = -16 - Fonts.HeaderFont.Name = 'Arial' - Fonts.HeaderFont.Style = [] - Theme = nptCustom - Left = 176 - Top = 504 - end - object JvFormStorage: TJvFormStorage - AppStorage = JvAppRegistryStorage - AppStoragePath = 'fPantallaPrincipal\' - VersionCheck = fpvcNocheck - StoredValues = <> - Left = 472 - Top = 120 - end - object JvAppRegistryStorage: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 504 - Top = 128 - end - object ApplicationEvents: TApplicationEvents - OnActionExecute = ApplicationEventsActionExecute - Left = 248 - Top = 190 - end - object HostMenu: TJvMainMenu - Images = ModulesSmallImageList - Style = msItemPainter - ImageMargin.Left = 0 - ImageMargin.Top = 0 - ImageMargin.Right = 0 - ImageMargin.Bottom = 0 - ImageSize.Height = 0 - ImageSize.Width = 0 - ItemPainter = JvXPMenuItemPainter1 - Left = 384 - Top = 256 - object Archivo2: TMenuItem - Tag = -9000 - Caption = 'Archivo' - object Cambiarmicontrasea2: TMenuItem - Tag = 1 - Action = actCambiarPass - end - object N3: TMenuItem - Tag = 2 - Caption = '-' - end - object Configurarconexin2: TMenuItem - Tag = 3 - Action = actConexion - end - object Paneldeadministracin2: TMenuItem - Tag = 4 - Action = actAdministracion - Visible = False - end - object N4: TMenuItem - Tag = 5 - Caption = '-' - end - object Salir2: TMenuItem - Tag = 6 - Action = actSalir - end - end - object Ayuda2: TMenuItem - Tag = 10000 - Caption = 'Ayuda' - object Acercade2: TMenuItem - Action = actAcerca - end - end - end - object JvXPMenuItemPainter1: TJvXPMenuItemPainter - SelectionFrameBrush.Color = 13811126 - SelectionFramePen.Color = 6956042 - Left = 424 - Top = 256 - end -end diff --git a/Varela/Varela/Source/Cliente/uPantallaPrincipal.pas b/Varela/Varela/Source/Cliente/uPantallaPrincipal.pas deleted file mode 100644 index 4408715..0000000 --- a/Varela/Varela/Source/Cliente/uPantallaPrincipal.pas +++ /dev/null @@ -1,569 +0,0 @@ - -unit uPantallaPrincipal; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, XPMan, uGUIBase, uCustomEditor, - JvNavigationPane, JvExExtCtrls, JvComponent, Menus, ImgList, - PngImageList, ActnList, uHostManager, JvExControls, JvPageList, JvPanel, - TBX, TB2Item, TB2Dock, TB2Toolbar, ComCtrls, TBXToolPals, TBXLists, - TBXExtItems, TB2ExtItems, TBXMDI, TBXDkPanels, JvSplitter, JvSyncSplitter, - JvXPBar, JvXPCore, JvXPContainer, JvLookOut, JvOutlookBar, Buttons, - JvExButtons, JvBitBtn, JvSpeedButton, JvExStdCtrls, JvButton, JvCtrls, - JvStartMenuButton, JvTransparentButton, JvExComCtrls, JvListView, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvBaseDlg, - JvJVCLAboutForm, AppEvnts, JvWaitingGradient, JvGradient, - cxControls, JvComponentBase, JvMenus; - -type - TfPantallaPrincipal = class(TForm, IHostForm) - GeneralActionList: TActionList; - ModulesSmallImageList: TPngImageList; - XPManifest1: TXPManifest; - actSalir: TAction; - ModulesActionList: TActionList; - ModulesLargeImageList: TPngImageList; - pnlContenido: TTBXAlignmentPanel; - JvNavigationPane: TJvNavigationPane; - pnlMain: TTBXAlignmentPanel; - JvSyncSplitter1: TJvSyncSplitter; - StatusBar: TStatusBar; - HostManager: THostManager; - actLogin: TAction; - pagInicio: TJvNavPanelPage; - StyleManagerButtons: TJvNavPaneStyleManager; - JvFormStorage: TJvFormStorage; - JvAppRegistryStorage: TJvAppRegistryStorage; - actAdministracion: TAction; - ApplicationEvents: TApplicationEvents; - actCambiarPass: TAction; - actConexion: TAction; - actAcerca: TAction; - pnlBorde: TJvXPContainer; - HostMenu: TJvMainMenu; - JvXPMenuItemPainter1: TJvXPMenuItemPainter; - Archivo2: TMenuItem; - Ayuda2: TMenuItem; - Cambiarmicontrasea2: TMenuItem; - N3: TMenuItem; - Configurarconexin2: TMenuItem; - Paneldeadministracin2: TMenuItem; - N4: TMenuItem; - Salir2: TMenuItem; - Acercade2: TMenuItem; - lblBienvenido: TLabel; - Label22: TLabel; - procedure FormCreate(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure HostManagerAfterLoad(Sender: TObject; AModuleInfo: TModuleInfo); - procedure Salir1Click(Sender: TObject); - procedure actSalirExecute(Sender: TObject); - procedure actLoginExecute(Sender: TObject); - procedure ApplicationEventsActionExecute(Action: TBasicAction; - var Handled: Boolean); - procedure actCambiarPassExecute(Sender: TObject); - procedure actAcercaExecute(Sender: TObject); - procedure Button1Click(Sender: TObject); - procedure actConexionExecute(Sender: TObject); - private - FContenido : TCustomEditor; - FStartDefaultAction : TBasicAction; - - procedure ShowEmbedded(AEditor : ICustomEditor); - procedure AplicarPerfil; - function FindNavPanePage(ACaption : String) : Integer; - procedure InitializeUI; - procedure OnThemeChange(Sender: TObject); - procedure CopyImages(const SrcList: TPngImageList; var DstList: TPngImageList; - out Index, Count: Integer); - procedure RegisterModule(AModuleInfo : TModuleInfo); - procedure ExecuteActionMenu(Sender : TObject); - protected - function GetWorkPanel : TWinControl; - public - function IsShortcut(var Message: TWMKey): Boolean; override; - procedure OnWorkPanelChanged(AEditor : ICustomEditor); - property WorkPanel : TWinControl read GetWorkPanel; - constructor Create(AOwner: TComponent); override; - end; - -var - fPantallaPrincipal: TfPantallaPrincipal; - -implementation - -uses - PNGImage, uModuleController, uDataModuleBase, Math, uMenuUtils, - uPanelControl, uDataModuleUsuarios, uSplash, uAcercaDe, - uViewBase,UxTheme, Themes; - - -{$R *.dfm} - -function OpenThemeData(hwnd: HWND; pszClassList: LPCWSTR): THandle; stdcall; - external 'uxtheme.dll'; - -function CloseThemeData(hTheme: THandle): HRESULT; stdcall; - external 'uxtheme.dll'; - -function DrawThemeBackground(hTheme: THandle; hdc: HDC; iPartId, iStateId: -Integer; const pRect: TRect; - pClipRect: PRECT): HRESULT; stdcall; - external 'uxtheme.dll'; - -{ -***************************** TfPantallaPrincipal ****************************** -} - -procedure TfPantallaPrincipal.CopyImages(const SrcList: TPngImageList; var DstList: - TPngImageList; out Index, Count: Integer); -begin - Index := -1; - Count := 0; - - if not Assigned(SrcList) or not Assigned(DstList) then - Exit; - - DstList.BeginUpdate; - try - Index := DstList.Count; - DstList.AddImages(SrcList); - Count := SrcList.Count; - finally - DstList.EndUpdate; - end; -end; - -procedure TfPantallaPrincipal.FormCreate(Sender: TObject); -begin - Caption := Application.Title + ' - ' + dmBase.DarVersion; - SplashScreen := TSplashScreen.Create(Application) ; - SplashScreen.Show; - - JvNavigationPane.StyleManager := dmBase.StyleManager; - dmBase.OnThemeChange := Self.OnThemeChange; - Self.OnThemeChange(Self); // Forzar el refresco de los colores del tema activo - - with HostManager do - begin - BPLPath := ExtractFilePath(Application.ExeName) + '\'; - MainForm := Self; - end; - - actLogin.Execute; -end; - -procedure TfPantallaPrincipal.FormDestroy(Sender: TObject); -begin - HostManager.UnloadModules; -end; - -procedure TfPantallaPrincipal.HostManagerAfterLoad(Sender: TObject; - AModuleInfo: TModuleInfo); -begin - RegisterModule(AModuleInfo); -end; - -procedure TfPantallaPrincipal.RegisterModule(AModuleInfo : TModuleInfo); -var - AModule: TModuleController; - AModuleMenu : TMainMenu; - AIndex: Integer; - ACount: Integer; -begin - AModule := AModuleInfo.Module; - SplashScreen.Texto := 'Cargando ''' + AModule.ModuleName + '''...'; - - CopyImages(TPngImageList(AModule.SmallImages), TPngImageList(ModulesSmallImageList), AIndex, ACount); - CopyImages(TPngImageList(AModule.LargeImages), TPngImageList(ModulesLargeImageList), AIndex, ACount); - - if Assigned(AModule.ModuleMenu) then - begin - AModuleMenu := AModule.ModuleMenu; - MergeMenus(AModuleMenu, Self.Menu, AIndex); - end; -end; - -procedure TfPantallaPrincipal.Salir1Click(Sender: TObject); -begin - Close; -end; - -procedure TfPantallaPrincipal.actSalirExecute(Sender: TObject); -begin - Close; -end; - -procedure TfPantallaPrincipal.OnThemeChange(Sender: TObject); -begin - LockWindowUpdate(Handle); - try - Color := dmBase.StyleManager.Colors.DividerColorTo; - //pnlBorde.Color := dmBase.StyleManager.Colors.FrameColor; - pnlBorde.BoundColor := dmBase.StyleManager.Colors.FrameColor; - with StyleManagerButtons do - begin - Colors.ButtonColorFrom := clWindow; - Colors.ButtonColorTo := clWindow; - Colors.ButtonSeparatorColor := clWindow; - Colors.SplitterColorFrom := clWindow; - Colors.SplitterColorTo := clWindow; - Colors.DividerColorFrom := clWindow; - Colors.DividerColorTo := clWindow; - Colors.HeaderColorFrom := clWindow; - Colors.HeaderColorTo := clWindow; - Colors.FrameColor := clWindow; - Colors.ToolPanelHeaderColorFrom := clWindow; - Colors.ToolPanelHeaderColorTo := clWindow; - - Colors.ButtonHotColorFrom := dmBase.StyleManager.Colors.ButtonHotColorFrom; - Colors.ButtonHotColorTo := dmBase.StyleManager.Colors.ButtonHotColorTo; - - Colors.ButtonSelectedColorFrom := dmBase.StyleManager.Colors.ButtonSelectedColorFrom; - Colors.ButtonSelectedColorTo := dmBase.StyleManager.Colors.ButtonSelectedColorTo; - end; - lblBienvenido.Font.Color := JvNavigationPane.Colors.ButtonColorTo; -{ JvGradient1.StartColor := JvNavigationPane.Colors.ButtonColorFrom; - JvGradient1.EndColor := JvNavigationPane.Colors.ButtonColorTo;} - finally - LockWindowUpdate(0); - Refresh; - end; -end; - -function TfPantallaPrincipal.GetWorkPanel: TWinControl; -begin - Result := pnlMain; -end; - -procedure TfPantallaPrincipal.InitializeUI; - - function EsUnModulo(AMenuItem : TMenuItem) : Boolean; - begin - Result := (AMenuItem.Tag >= 0) and (AMenuItem.Tag < 9000) - end; - -var - i : Integer; - AMenuItem : TMenuItem; - APageIndex : Integer; - AStringList : TStringList; - APanel : TScrollBox; -begin - SortMenuByTag(Menu); - - AStringList := TStringList.Create; - AStringList.Duplicates := dupIgnore; - try - for i := 0 to Menu.Items.Count - 1 do - begin - AMenuItem := Menu.Items[i]; - if not EsUnModulo(AMenuItem) then - Continue; - - AStringList.Add(StringReplace(AMenuItem.Caption, '&', '', [])) - end; - - for i := 0 to AStringList.Count - 1 do - begin - with TJvNavPanelDivider.Create(Self) do - begin - Parent := pagInicio; - Top := 100 * i; - Align := alTop; - Caption := AStringList[i]; - ParentFont := True; - if i = 0 then - begin - Enabled := false; - Cursor := crDefault; - end - else - Cursor := crSizeNS; - end; - - APanel := TScrollBox.Create(Self); - with APanel do - begin - Parent := pagInicio; - Top := 101 * i; - if i = AStringList.Count - 1 then - Align := alClient - else - Align := alTop; - BorderStyle := bsNone; - end; - AStringList.Objects[i] := APanel; - end; - - for i := 0 to Menu.Items.Count - 1 do - begin - AMenuItem := Menu.Items[i]; - if not EsUnModulo(AMenuItem) then - Continue; - - if not Assigned(FStartDefaultAction) then - FStartDefaultAction := AMenuItem[0].Action; - - APageIndex := AStringList.IndexOf(StringReplace(AMenuItem.Caption, '&', '', [])); - PopulateNavPagePane(TScrollBox(AStringList.Objects[APageIndex]), AMenuItem, ModulesLargeImageList, StyleManagerButtons); - - // Elimino la imagen que tiene el menú porque queda feo. - AMenuItem.ImageIndex := -1; - end; - finally - AStringList.Free; - end; - - ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute; -end; - - -{ var - i : Integer; - AMenuItem : TMenuItem; - APageIndex : Integer; -begin - SortMenuByTag(Menu); - - for i := 0 to Menu.Items.Count - 1 do - begin - AMenuItem := Menu.Items[i]; - if not EsUnModulo(AMenuItem) then - Continue; - - if Pos('Ficheros', AMenuItem.Caption) > 0 then - PopulateNavPagePane(pnlEDI, AMenuItem, ModulesLargeImageList, StyleManagerButtons); - - if Pos('Inventario', AMenuItem.Caption) > 0 then - PopulateNavPagePane(pnlInventario, AMenuItem, ModulesLargeImageList, StyleManagerButtons); - - if Pos('Ventas', AMenuItem.Caption) > 0 then - PopulateNavPagePane(pnlVentas, AMenuItem, ModulesLargeImageList, StyleManagerButtons); - - if Pos('Stock', AMenuItem.Caption) > 0 then - PopulateNavPagePane(pnlStock, AMenuItem, ModulesLargeImageList, StyleManagerButtons); - - // Elimino la imagen que tiene el menú porque queda feo. - AMenuItem.ImageIndex := -1; - end; - JvNavigationPane.ActivePage := pagInicio; - ApplicationEvents.OnActionExecute := ApplicationEventsActionExecute; -end;} - - -procedure TfPantallaPrincipal.actLoginExecute(Sender: TObject); -begin - HostManager.UnloadModules; - - if dmUsuarios.Login then - begin - ShowHourglassCursor; - SplashScreen.Update; - Application.ProcessMessages; - try - HostManager.LoadModule('FicherosEDI.bpl'); - HostManager.LoadModule('VentasTerminadas.bpl'); - HostManager.LoadModule('VentasProceso.bpl'); - HostManager.LoadModule('ReferenciaGenerica.bpl'); - HostManager.LoadModule('Recepciones.bpl'); - HostManager.LoadModule('Devoluciones.bpl'); - HostManager.LoadModule('Traspasos.bpl'); - HostManager.LoadModule('Stock.bpl'); - - InitializeUI; - Application.ProcessMessages; - Visible := True; - AplicarPerfil; - finally - SplashScreen.Update; - SplashScreen.Hide; - SplashScreen.Free; - HideHourglassCursor; - end; - end - else - Application.Terminate; -end; - -function TfPantallaPrincipal.FindNavPanePage(ACaption: String): Integer; -var - i : integer; -begin - Result := -1; - for i := 0 to JvNavigationPane.PageCount - 1 do - if JvNavigationPane.NavPages[i].Caption = ACaption then - begin - Result := i; - break; - end; -end; - -procedure TfPantallaPrincipal.ExecuteActionMenu(Sender: TObject); -var - i : integer; -begin - for i := 0 to JvNavigationPane.PageCount - 1 do - begin - if JvNavigationPane.NavPages[i].Caption = (Sender as TAction).Caption then - begin - JvNavigationPane.ActivePageIndex := i; - Break; - end; - end; -end; - -procedure TfPantallaPrincipal.AplicarPerfil; -begin - actAdministracion.Visible := dmUsuarios.EsAdmin; -end; - -procedure TfPantallaPrincipal.ApplicationEventsActionExecute( - Action: TBasicAction; var Handled: Boolean); -var - APageIndex : Integer; -begin - if (Action is TAction) then - begin - APageIndex := FindNavPanePage((Action as TAction).Category); - if APageIndex > 0 then - JvNavigationPane.ActivePageIndex := APageIndex; - end; -end; - -procedure TfPantallaPrincipal.OnWorkPanelChanged(AEditor: ICustomEditor); -begin - // -end; - -procedure TfPantallaPrincipal.ShowEmbedded(AEditor: ICustomEditor); -begin - ShowHourglassCursor; - LockWindowUpdate(Handle); - try - if Assigned(FContenido) then - FContenido.Release; - - FContenido := AEditor.GetInstance as TCustomEditor; - with (FContenido) do - begin - Visible := False; - BorderIcons := []; - BorderStyle := bsNone; - Parent := WorkPanel; - FContenido.Show; - Align := alClient; - FContenido.SetFocus; - end; - finally - Application.ProcessMessages; - LockWindowUpdate(0); - HideHourglassCursor; - end; - OnWorkPanelChanged(FContenido); -end; - -constructor TfPantallaPrincipal.Create(AOwner: TComponent); -begin - inherited; - FContenido := NIL; -end; - -procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject); -begin - dmUsuarios.CambiarPassword; -end; - -procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject); -begin - with TfAcercaDe.Create(NIL) do - try - HostManager := Self.HostManager; - ShowModal; - finally - Free; - end; -end; - -function TfPantallaPrincipal.IsShortcut(var Message: TWMKey): Boolean; -Var - ctrl: TWinControl; - comp: TComponent; - i: Integer; - Begin - ctrl := ActiveControl; - If ctrl <> Nil Then Begin - Repeat - ctrl := ctrl.Parent - Until (ctrl = nil) or (ctrl Is TCustomForm); - // Note: replace TCustomFrame with TForm, check if the found form is - // self, if not, execute the following block of code. - If ctrl <> nil Then Begin - For i:= 0 To ctrl.componentcount-1 Do Begin - comp:= ctrl.Components[i]; - If comp Is TCustomActionList Then Begin - result := TCustomActionList(comp).IsShortcut( message ); - If result Then - Exit; - End; - End; - End; - End; - //Result := inherited IsShortCut(Message); -end; - - -procedure TfPantallaPrincipal.Button1Click(Sender: TObject); -var - i : integer; - AModule : TModuleInfo; -{ lCLG: TdxLayoutGroup; - lLI: TdxLayoutItem;} -begin - { - for i := 0 to HostManager.ModulesCount -1 do - begin - AModule := HostManager.Modules[i]; - if Supports(AModule.Module, IViewInicio, AVista) then - begin - Exit; - lLI := dxLayoutControl1.CreateItemForControl(Button2); - lLI.Caption := 'Hello World'; - lCLG := dxLayoutControl1.CreateGroup; - lCLG.Caption := 'Test this'; - lCLG.Parent := dxLayoutControl1.Items; - lLI.Parent := lCLG; - dxLayoutControl1.Customization := True; - end; - end; - } -end; - -{procedure TfPantallaPrincipal.JvPanel1Paint(Sender: TObject); -var - PS: PAINTSTRUCT; -begin - BeginPaint(JvPanel1.Canvas.Handle, PS); - ThemeServices.DrawElement(JvPanel1.Canvas.Handle, ThemeServices.GetElementDetails(tebExplorerBarDontCare), JvPanel1.BoundsRect); -// ThemeServices.DrawText(JvPanel1.Canvas.Handle, ThemeServices.GetElementDetails(tspUserPane), 'Hola', JvPanel1.Canvas.ClipRect, 0, 0); - EndPaint(JvPanel1.Canvas.Handle, PS); - -end; - -procedure TfPantallaPrincipal.JvPanel2Paint(Sender: TObject); -var - PS: PAINTSTRUCT; -begin - BeginPaint(JvPanel2.Canvas.Handle, PS); - ThemeServices.DrawElement(JvPanel2.Canvas.Handle, ThemeServices.GetElementDetails(tebExplorerBarDontCare), JvPanel2.BoundsRect); - EndPaint(JvPanel2.Canvas.Handle, PS); -end;} - -procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject); -begin - dmBase.ConfigurarConexion; -end; - -end. diff --git a/Varela/Varela/Source/Cliente/uSplash.ddp b/Varela/Varela/Source/Cliente/uSplash.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Cliente/uSplash.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Cliente/uSplash.dfm b/Varela/Varela/Source/Cliente/uSplash.dfm deleted file mode 100644 index 664f75c..0000000 --- a/Varela/Varela/Source/Cliente/uSplash.dfm +++ /dev/null @@ -1,935 +0,0 @@ -object SplashScreen: TSplashScreen - Left = 507 - Top = 382 - BorderStyle = bsNone - Caption = 'SplashScreen' - ClientHeight = 275 - ClientWidth = 452 - Color = clBlack - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - Scaled = False - PixelsPerInch = 96 - TextHeight = 13 - object lblTexto: TLabel - Left = 11 - Top = 256 - Width = 3 - Height = 13 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 452 - Height = 252 - AutoSize = True - BevelOuter = bvNone - BorderWidth = 1 - Color = clBlack - TabOrder = 0 - object Image1: TImage - Left = 1 - Top = 1 - Width = 450 - Height = 250 - AutoSize = True - Picture.Data = { - 0B544A76474946496D616765826E0000474946383961C201FA00F70000FFFFFF - 626262BD810AD3D3D3BA7C0AB36C08C9C7C4FEBC49A45103C98B28EAEAE9CDA5 - 15AB734B554F4CA9A4A3C8A645A24B020098009BD884A8DB96C99D128C4105F1 - E6D3AE66062A2F299C44036443098D8D8DCFAD8B0D120E96D77CC1890CB57108 - AF6E31A95A0588D367EFD78BB77508B3DFA6B58F6AE7D4ADCC4E3CECDBC8C695 - 10016001FCF6B8D1A931C8BBACC6831EBDA991CF6254BBE2B0D5AE68787878B7 - B7B7B4332BC38C0ED0EEC8B58855999797C5920EC4E4BCCFC3B75A39035EBD55 - AC9690F7C550E7CC79F5F4F4B88639F9F4E8C7954BDADEDAA2DA8DB16A0671C4 - 6590420477CF51E9A83BF4EBE172CD4B944204CDCBC99742028ED570B9791DFE - E79B1D221D66CB3C2EAC27DEC470CE8673C79B12BF840C0058007CD058AC4E45 - CB9B97B9760AA6591AB8780A5E575525A91CAB5F06B06807D5D1CBA75804E7B7 - AE9744029E4703874008DBB84AC63C2EAC631BA16631FCF9F56C6C6C9A561CDE - C39865C15AF9F6F10082008B817B884006B1E79CFAFAFAAD620672541E464B42 - 665C5B86BB7C1EA518AF68085868569E5E256FCD4481D15FDCBB87484906716A - 684AB0406C63618AC57B9142027FC96B968986AD751CAFB5B572663A89A88032 - 7E32E1978F9C4C0C828483C1B3A0FDFDFAAEAAA9FDFDFD964D13FDFBF9B26E1B - AD630EB8A6359EA6A6B36E08954A0B432A00FFFFFD8C4408BE9F7AAA5B0ACB9F - 1A0E940576D248A4500A8D96978D4911C997139ED269934404D6D5D5BCBFBF95 - 9290AB6306DCBC60363935914609954405934402FFFDFCA95503E2E2E2747171 - B2640463775ED7D9DAC69019D6D7D7DDDAD6A3B650676B1912A011CFD2D3A1C7 - 99A08525D2D1D1697575656665DEDEDEFBFDFDB6700CF7F7F78E480DBA7206B0 - 6409CECECE3945029B5010ADDD9ED89A32A7AEAF6BD743EEEDED994708F2F1F0 - CA9625B7730AB46E10C38F0E1F9404328232964907A85709A85810AEAEAE676A - 676E6765A1A0A0D1CFCE69615F1A8B1492511AFDFFFFC1C1C1686868CFA324D9 - D9D95ED9429DBF5A959D9EA251145A6414C78908C48212B56E05089B082C0000 - 0000C201FA000008FF0017081C48B0A0C18308132A1CA80585914D00224A9C48 - B1A2C58B18336ADCC8B1A3C78F20438A1C49B2A4C9932853AACCB8B0A5CB9707 - 5DBC216161CECA9B3873EADCC9B3A7CF9F40512E5C05B32851976FB4E43012B4 - A9D3A750A34A9D4A15C0827A03B10AD47A35ABD7AD07B98AFDDA15AC40172E70 - 39ACCAB6ADDBB770E3E62C4AB72E4217432CC8DDCBB7AFDFBF50ED0A169CB405 - E0C388132B5E6C71B063BAB8549C624CB9B2E5CB4F1F6B6E29B3C51C8898438B - 1E4DDAE3020AA70B525885FA256AD4445B27942D5B60ED370EE74C2ECDBBB76F - CB028F1614DE523651E20B90DB1E483B79F27A78553CFC4DBDBA75B9CE61A78E - 9DFAF5F6EEA75983FFF74E3E7C79EEC7D3D2047DBDBDFBF73F352BDF5CF0CD10 - CFF0F3EBDF6F32F572EFCBFD371E73D98187DE800182B7805A4CF1B743001046 - 08612625CD2321841B00D5CE8501B4A3D286177A88D300DC5006A2842266A4CE - 859C3C75A0763012F8A28CDF3537E372E8D533530BBBE547C433010029649001 - 28409285433E93E14F1B2699E249ED2419C0283729B08392261229E493161141 - 8796364025DE6AAF8D3966776696A9A6796C92D9669ADDBD61474D3DBE270587 - 1286399285172EE9D38911725912A0100A5A123711FAA918A11D6A6483842D42 - 55DEA403526A699B959ED99C0B0D19D1897E576A292A857B8A8AE54FA3986AE8 - 48518ABA6A48F37CFF29A4A289A5EA6446D3D0B1A554AC51E0EBAFC006FB6BAF - 640A6BECB1C812CB9A4C347DE2E397784668A4487C4A48EB4E8CBE1A52B62855 - 9B689621663449A05391C91A9C6EA67BAEB9EC8EE9EB69BEAEFBE69AEFDAD742 - 83EF5D63AAA97AC26AEAB5FC5984A49600F346043041161C94B0C4226BACB2C3 - 46EC70C312AFB6006E2DB0D7DE83D17E4B2D870A072C91B7188AFC1417AB70F1 - AEB92AA386F2CB2B530033CB0BA0CC2EBCAFAD6CA6CD328717DD1C9FBA87F090 - 99E82AEA341F2719B2C903CF6AB25314C412B5AF5C542DB5D4BE5E3DB5CC2A4B - 6D75D554770D6CD52D6B3D3617B1B4FC6B3D6A3DA1717577B2C8B184936444C4 - 24D076380F002407FFE0E70617D610111136E4BDC1DE13D95043A2884FC46D44 - 8B4B2878443664C2B8458F4FF4CB2480F769033414756C6D449D4B1811A218AA - 9338DE1CD66083EA1BCD537888364C4B51E6144153B9E4EA487151E4114E0E80 - 3A9663D8B847C2AAAC76F232373F76F3CA1B1BBDC3D30F2B670B9FD4495DAB43 - 5E6383940AEB2BA5928F2A2DD106490A2EC5F8534604CDE2E0DFAEAA4435A40F - 002DB28A7A2DF744522911110F62DFAE2422408291CE5400B0DC9044348F020A - 890ED7C0C8358C26C07620CD71F3A3C82FD0B72F20D5801615811F910487BFF1 - 2DAD2253F31ADAC8A6C2B4B99085604BDBD7ACF62B19AE506C578B21D76C28B5 - 0768410573E8457BFFF216212210014F441098E8F0F4B7C0F52D4FD020E2854A - 2491CC010F42351880E8B89439225C5174AF90C8124B0680D245E851170221A3 - 44E7BB8AA0718C35B01D00700780B88DB15F900B1C2DB6F811B2F9D18F324B19 - D7FE58B594111290833C64CB14F947664DC73AE2D312A914A8A5E34544011DCC - E4A9CA98240A66726899B49DADB494A2FA69C993EC9323FF8094A22669B29211 - 7160C20ED849FBADEF959DBCA044CA87CB20912A22A31C60442229CB67E05184 - 4002A500E5A8112EAC6085CF4CDB3367E84C68DED09A7E94A635B529CDA945B3 - 9ADCE442385C90082B184188D5E10487F4A4CE0BEDA022731BA3C7CA28CF7A46 - 087673E45029ED19FFA1BA55519F83E3501801A08057B42E22F25C9219A315A6 - 85CAD30013D9233F0380CF2E4A718CA0CBE344F1D84C467AF4A3200D292357C1 - 3614D4C43ACA0C52467FB12F5D02E047A6CAC42FEE674AF391AE98BD1CD23B23 - E24A61D634A701D8294FA5E43F5A48498EF5B38152671A4B5C2A14970A98C6BE - 36905100844AA713E1E0AD087A5522D12189F9DCEA1CC7A7A7A611C94FC8CCA9 - 5037B2C217BAB5AD707DAB5CE34AD7B9DA156DABF0210A6C421D894A880E13B9 - E8F1EC2821DBB11464E7C3D30E92D84E0E65C248848DD02FADA8D8241A004FC2 - CB67B8F8B64E8FF4ED5A0E0D001D7C7737890C40A98FFAAAE61C2B1168E02952 - 12D10387DAF8382FFF71C89F11892C84A6F54508BD2289BA0D40663B2AD2E21A - F7B8645B850B486018EA70424A6BED2A90D6FA5CFD51047036E5A4A8329B89F1 - D96E95C295483083544A296516BCE7959288A0C1BE0D28D5921431EB26132B25 - F8DA4D71E6DDA5A9E8E052003C6A07EF9DC8789F2122620609B014A1A490F494 - D6679CD754C3CD485D277CD70A53F8C276659B5EA873517CD69143AA8D483C21 - 04DB888CAB4F89651106033791BE098FB22A1ED941FFB959005C144FEA602667 - 517C5D2472441DB38B96F01A1BA1B56EE471448690910190E44601A0B7548C88 - 8B3D42C86956D3CA55C332D9B48C362B7F33CB7F7CA698B77C6532AF422D9FF1 - 0D4B719AA4366A77FF481C95EFDFEAEB38F5B638BF3CCDE093A584C7066EB7CE - A2F21F6771EAE1411BB0C749FAA5456C005EF6092F805A2AF1913338608EFAF7 - 5F794C529F214C6569AE60CC62FE345CBFF9E950933A16A046B533450D6A565F - D9D562A6C003F28207DF34B99E4275A8253F9B62091D0F7753CE738D7B7BBC60 - 0B1B452B966794773CBA1ED7982227B6A7F01C6AE98C3C8E51967EA3C788DDE2 - 1973A4D5624635AC576D6A7197DA99E626F7ABC10DEB4FABFADCB1D011099EA0 - 3DD13438A7087E3391E28CE99B8AEAD744BDF39F81A9E79F02A9D8781EAAAB28 - 728DEEF6D27672AE0876C16491EA8E0FC0EC1DB855F9F591018BA8A741CA76BF - 1B5C6C4E77A4D428FF4FB9CA578E721EB0FCE53067B9CB3F4D0C0DF39534879D - 688468CB2149477B9EBA4E36B964CCE2630FFDC91C2A79D18D5EA88BBCAE78D1 - 822DAF9D9DA78AB856A020BCA4B7E9F852E1DA60123600AB6691CD640E2DB9C9 - 54E436D125E79198BB7DE5C478BBDC591EF752E3E6E6A3B1385087E4BFEF8D8A - 2290769ABF8704F0858F2CE1202730FDE87C788D8F35D01B5140E5A02BE3ECD2 - 179614599158739B705E3ED08DFD4E7C81F75B1105873CD39897B2C9BFFD6997 - BB7E05AF8F3DEC672FFB96CFBEF52FAF7DA9652FFB593F019DA381BACE451B91 - 9C4B88A900303ED0932EF4A6AF3D7834263BD22FA474B647FFE8BA53EAE2AAFA - 5229FAC9D8BD8E10FF7C471C008E0A1F8BADC5131EBDD8D9B10FFD88B79D4870 - C1AA76D52F7D2373973BB951BEFF15981BE6FDC7726C634EF556196BB677A6D2 - 46F92324353053C56070B334784452787C277043223C1EB778FF66812304680B - 040052157081252AF86460403253BF9075132724F0B58207560C52667A1E3411 - 10F80C91F20B0E3724C0005619A8709AA67A76867A2CD86DF67372BAC77BB497 - 8448B8844AD8844C287B5CF00091817797F1733BE774784245569850E10721BF - 0650CF877E4CE764D3E76BDD767F8F437E4E06401C3200E9D73154147414716B - 70247F3A575160485037263AB6537FCC067D27977BBB3788B8877BAF6788B797 - 8833A78884C88885FF881BF88219321800FDD55AE38360B9C26611A86F07E781 - 44F2247E7681FF24561088708E075EFE93716C6664A8A4253BE582CF005F7BA4 - 893338119A97538A267A1361829A743C2447845A126118417B3C107BC5588CC4 - 788C83A88CB0E77AC7B888CAE88CD1F88CCF488CBBB70D43A002CE8219CA3721 - 19716359175C89F2454D447DCD47867F2886EEE77C65287E67687D6398224F14 - 2D7A207694D3314F658EF0B444EDC02815B14678528FE7C825E2D87EF4C37C61 - 185E815888CB480C3CE0904EB88C11697BB6F78429078DA230136E83197E9724 - 920678FB52821DF44E0637671B584522286509D7837B76922A798A41985B2935 - 3E86420493E860B4FF947A134104B03881979624DC2765ADB879044794C9A755 - FB9209594783A6527245C811D5488D523995545995562995CD488D59598DC440 - 4ED2218978E26616B1222036110AC03A850251EDE8375D18005FF86CC6066366 - 98900FF66C523609E7D7216197118A433B07A48F16210580B201930056983445 - 17213BE4583B98938714715A575403EAB09414E187E0A711AEE790C8788CC440 - 0E3CE099A0397BA1A98CA0598C9DD9849EF97AA5599AC5989AC4480EB4470CE1 - 20274F40854F739BB88919E4009ABBF999BDB99BBCC99ABE199CC3E99BCF489C - C0599CC9D99BD4B89CBB299B18F336B9399DD4791838D099E4709DBBA99DD9D9 - 999F899DE4809DDCFF399EE2E99DE1E999E4B99DE5099AE6D99EEA199EB30644 - D5399FF4D917D9999D388003F7999FFAC99FF8B99DF8E99FFC39A0F9B99F014A - A008DA9F060AA00ADA9FE140036B519F123AA155C1A0F709A016AA9F190A9C0D - BAA006DAA120CAA1228AA1F7490C0F90089E518014BAA22C9A13FB59A002FAA1 - 013AA30D0AA330FAA2FD69A3390AA23A2AA3B33927B6D9A2423AA426D1A1C029 - A31AEAA11B1AA20A6AA14B8AA4482A9B0C42A4545AA52341A01F80A3587AA0FA - 99A509FAA5FCE9A5034A0E1F00A6664AA0E4100E3FB48D56DAA66E7A11315AA6 - 59BA9D38E0A5F759A60A2AA7376AA77C5AA72FAAA7805AA7822AA71F5AA078FA - A028406F6FBAA88CFF3AA88E1AA85D8A9F810AA81F30A9755AA98F9AA9964AA8 - 620AA9F54003D2A1A28C3AAA2B4AA9804AA6838AA9789AA95D5AA6647AA7AAEA - A790AAA98FAAAA772AA8268AA2416A321DC996BFC10930F8164942997917AC38 - 51A9C89AACCABAACCCDAACCEFAACD01AADCAFA0028506BD4A96D27441952B038 - 6EF81669541ADB1A00DD7AACCB8AAA593AA9B6CAA997AAACB25AA9641AADEB1A - ABEC8AACE6FAAEE19017D2C9AB4392AD8AA1001347AC5531ACA3E1AF4402B029 - 11AF94DA05CF4AABCC8AB00EABB0F39AACA9DAB0806AA226B5ABFC81ADBC7145 - 063B15DF6A6F12D2B12741B1EB5AAB9B8AB0128BACF1DA0FCDEAB0729AB2F27A - A938F00034306FF9FF9AB1FBBAB14362AC6D21B0F6B6B33AF1010A3BB4425BB4 - 447BB4469BB448BBB44ADBB44CFBB44E5BB41FF0A0E6949B1A5B1A5734AE6DF1 - B1A191B5412BAD601BB6623BB6CEFA0076801FFA310D16B703BFD0ABB4720DFC - E33A3A66112244425785479E278F39EB5F840700D7C04174D02F48992472740D - 7AE75E16410B9EE77595781152A040810B003E1B11D3D0975B625FBB78348135 - 244B09B717C898BBD4B77F0B24912B8184DB5AF8E58AD58611C80AB14D5BA9AE - 1BBBAD9BB4B00BB1B23BB4B6DB05440BBBB42BB542ABBBAF5BB4C4400376F004 - FAF10B17257C7E42B00CB511C053037D930960A56DF2D86CDA263B02F5977832 - 2D3C192D7440995BFF182174807C18C128E7B794F318008FF58D74F38662C8BC - EAA75FE2A76DBEA5BD1C322DE11B3C736B11B76BB4C0CBBB002CB5BACB0FBBFB - BFBE8BBB083CBB018CB4B04BC0C1DB0530400CB881076C7A1DD35083D6F552F7 - 06671A214233495EF7284CA1E8ABBD1A785A024283AB25D3729344C254B72440 - C29838C594758B6B5EF638875815C2A7C77E05A42725DC4128BC4CF7234BDA32 - 115D200047FCBBBA8BC4BABBC4499CC04D1CC54DCCC451ECBF527CC4575CB454 - 7CC5518CC45E8CC50A1B0E89F095EE91BF3C069017B2BF1AB544464296ECE82D - 4B42BFD15222A1B55B00803AA2530349343774003A034044981B117BF8AD87C9 - 8F18617CF9267C46FF82C68575696344C71D6324757C21377C114EDCC4FD80C9 - 97ACBB99CCC94BDCC95DD0C95B0CCAA01CC5A26CCA5C7CCA9AECC9ACDC05E1F0 - 00CDE21E0A16473F7956206878D0A060AB2B84011041B3B86FB5AC782F092471 - 5C4C68C5B912118244B2587C0B4B5AC55F11C109C0A0546AECB7A212260A9083 - 4102427AF7413AFC0CD07C110A063A3045CCB75C810090CB14D7AB0274CC059B - CCA212412FA54C628911530CC6F7BCC954FCC54ECCCF52BCCF5C1CD0FE1CD002 - 0DC688AAA8D741446E6646197259F3743F12A2682124215186C76C49BDCF17C7 - 884904B2354F1C2B11841562EEF74E23E65E3610C88913D112E157100242C2A7 - B56654CF13F17361FF42587B43588AA24592E5C81152221CDD6CED28B294B350 - 282D11A14CD0575CCA48BDD449CDD4AB4CD0A49CC5349BA8C0F71BE51C24B6E3 - B6C1AC49F946B75AE2662F1C5E79DB78E6DCCCA4AB5F82D7924062AC9EB7564D - 434205B403D57C8BC2DC5442024240B5CBCAFC0C24FD795B2D4080D5ABF9E679 - EEBCD6152179ECAC93F6FCC500EDC54C0CD04B2C008C8DCF92EDD8FEBCCF924D - D958DCD8479CD993BDC9530BAA91E81B856CC7F6573266CC2119F1D111C1D282 - E3C66478B557FB87682521E30A284FA2D36298DA74A0C6B8CD941182D7F55468 - 2009218095375404DB4BC4D3BE4ADB0719215A0BBF1D53D41131D9D6EDD99B9D - DD95DDD98C5DD9DEFF6DDDDCEDDDD9DDCFE1BDDDE0CDCF66EB36A21A1A57FD0C - 599DB3359C49ABFDD5202D8A848D92B66CD6CDDD34851D004B49D76E1D8CA88B - C182561174FD24029BD71911D64D9351F1CD3EFAFD7D87A6D6FE9DCC06C709B5 - 834CD40D009EFDDD962DDEE6EDE1DC5DDE22EEE1DF3DE221FEE1290EE295FD01 - C4BB911C3697F4F42D0E4D46217145152D217AC0DCE20AD1D60BD470FCDC2DFD - 7C5D0D284B465036104F5D4D11DA263C2C5DE12F4D1279033CBF84D38E02E440 - CDDA7FA86880CC1126DEE102D00F276EDE620EE666FEDD65FEE52B3EE66A6EE2 - DCDD0F0900A1781034BE11780DB8D519B2D7E5D7DAC8B4CB48D73D00500C9EA4 - 3A0F9EC15A0D849BFFF8536132537ACECCEC8C384AB501E19C405E75C8244850 - DAFC0CDC4C3419D553937E11740DCC947BCD7CBECE7B6B689BA4E8C917CC9980 - 341B94241BDEE6B2EEDD0420EBB53EEBB89EEBB9DE05CC00AAD6EA1B05D96C8C - 6CDC950CDC4BE486352E3A1A3D4F416EBF11723A75787545D6DA406D11798927 - 2054DA1DE3E7EEE363D7E7BD4934DBCD3EE317323CF514EB0270EBBA4EEBEBDE - EEEA1EE6EAFEEEEDEEDD6A2A9FBF91E95335381B4C24F28C11FB9ED643A9CDC5 - 9CDFA8EE277A2724466293AFC454292C25421DD60244C3AF24D11891E946C6C3 - 9924CF875EF01271F058FDCBE6A5D81751D9F14E00B57EF2E94EF2247FEB257F - F2269FEE2F8FF2F1FF9EF2332FD92F0FF3286FF32C4FF32AEFF2040003473027 - D4A1008205D4EFD331323DD189E258B6A35B1B50DACB6EE3E34EF41C9275DD8B - 594BA9001D1D2D493F872003284B69D17D52EC8BC6B5ADD55B57788FCC0ED454 - FFAD620F21275D751BE1F3341FF33C6FF2742FF378BFF77C8FF3768FF7759FF7 - 7E2FF87DEFF3373FBC5680B1A1A10016D70EBFA000A74E395D25B71C814CB430 - BAA265690D47BAD8BCB71BCFDF9AD35572BD8B875B6D36305E9960038D2B300A - E43A61B5CD9A333B97FB11571DC3FE35F9A04B39A70EFA12F10BA23F2DF39083 - ED0083982424146F117C9FFCCABFFCCCDFFCCEFFFCD01FFD557004896001A34D - A55A4EAA2213FDDCFFDFFDDEFFFDDC5F053040BC27D5A696AFFD4F03FD64C0F7 - EBBFFCEDCFFCEF9FFCEBFFFEF1AFFCF57FFF0450FFF22F0045001034EC3CE904 - C0E0418409152E64D8D0E1438811254AAC11C062005A13356EE4D8D1E3479021 - 458E3C48C0A4490127539E64D9D2E54B9830C9C4A4496065CD97330974099708 - 85119241850E6D58F159806719892E65DAD4E9D3A004664E955A95CCD5AB52B1 - 52E59A95AB55AF5609882123A62AD9AF53C35E35DB352D589D307AAA9803D5EE - DD85152F2AC5DBD7EF5FC01AB18A1D4CB66D59C46F0FA72D4BD8EB63B591C742 - 76CC982A5A93FD8ED8A11BD8B350A348F97E265DDA34D1C4880D635D4DB684EA - D46C61CB6E0DBB76FF6DDA885FDF8E4D66B76FDB65BB1C49D4F9F471E4C9952F - 1F8A36B5F3ADD0B7B29E2EDBFA73EAD79D4BD75E1D7BF5ED9AED58D8C4DCFC79 - F4E99597787D95FD7BF7EFE5B3C74ADFF7FCD7F9F1EF6F7F5FBEFBF8F8F3AF3E - F6C4E00FBE1286E3EC13F51A74F0410885CA0FB8092BA4F0420B33C470430D3B - E4F0430F351463B8442CE82542145354714583E8834F1C17631467400463D48F - 3D18F59BB1C61BC980F147FC689C0F481D857CED471FAB38028527EA62F14928 - A33CAD471E6DA430C8FD8CF4CF4523059C8F432CAFFCF2BD226860524A34D354 - F32901702C4192F7E0841184F7E8C4CFCE374B98334E3ED993B3043CF9C3934E - 18FFC4134E3FF504FF545144DFDBB350F88A4885C982D6B4F4524C352A420031 - C428541C5041950FD43F711435515443FD54D544493555D5501165F555585D85 - 753E4962D573C6236850C18813331576D861532902064FE904419C6541709659 - 689565569A669F5516D065A795165469B365D6DA50B3C5B6596ABFADF65C68B9 - 2DD7D96601D5561C027AFD95587AEB4DF3050E8E28428C6A088DD6DD66990538 - 5A81735C94DB1F139E53D476C50DB54E82039698E085276E98603288B3C0497B - 3BF618C2345EA0E18422A875961476513E396596D975F9E595619619049567A6 - 59E69A73C6B9E5976B56723C3C2AFD7868A2951B20E47CF715C366A6C1B57866 - 739D76795165618EFFB669ACCF75591C18046AB268B0C326AD185A42D6E48804 - AA31396BB69BAEB96DB8E38E79EB2A52198F63B1F3D6DBA901EC29DB87658C25 - 8BDDB50B279C7095A549FC64C39D2D7C71C70FA759F1C81D871C84C631971CF3 - CB4DEE7A20A1F7DE9B91084A37FD74D453577D75D65B77FD75D8556744A80106 - 289B161F3421998C7108218590020A204578528A0FBEF8E191173E78DF83171E - 78E2914F5E79E9AB1F3E7AEB8DBFDEF8E88F777E7BEABF4719E5AE7F6250F4BD - 81887D7DF6DB77DFFD2C846A6680F9ED3126F7238EA842F1E497EFFFFFEE0150 - 80E30381FFB4E73F04562F810754DECD12F8C00116501C45280EB0D0A7B73BBC - 4F831BE420FB8020FFBFF9D98E1603988726527184A53D6F7AC96BDEEF58A840 - 1716CF77D9435E0BB5D7C219522F87367CA1F570F84215CAB07855A0200AF070 - C1B0790300A4FB47049AF80F28E6C174522C1D152360452C4E518B55DCE215BB - 98452E86D18B1B6C620466171465D08F7EB4B0873D0C60875484A30A055C2129 - C6E1BC7118EF8ED82B401E5788BD3F1640097BB4A31EC557BC3C7A4F907E3460 - 1D1539C8E041F278075452718286C48F71A21D41E00420BC80814F86121033D0 - 86094A794A53A6F294DA58E50458A90D574E4096B34CC2046A298124E4129712 - E0651278E9015E4A0098C3F400153CE0886252419923A002249AD9CC11400211 - 90F80235A9F9852FFF2082112CC8030BCC213F77344319E1B4C730EC2185179C - B00A8254C20E0B003C78FEEE9DD5F35D0E87A704E7E15379F03C5E3DDF794817 - 46F29F3314643EF95850E60DF49F42C467018858C16061B25E3BB0852D760088 - 0E5C41A31AED002072D003908654A42325294867D08393A674062B65E90C4CE0 - 5213C434A6AD7CE52C6D79D35CEA3298B210A6048CE981642A73991E40861758 - C0024BC86F00699C5F33EAD70C1FC4E008E3F047439D7755AC6615AB4A208555 - 97A755B07E15ABFDD3AA57AF0AC0B07E0F9FE3F8990A2E29517AED80A2EDC8C5 - 46AF80018D7AB4A47B2D694A51DA52970656A6305DE52B61094B9BE6D296BED4 - E92F810A54630A55FFA8CCF400238C8A54A1D8A319EEB88653373B80629C339D - FAAB863FFC818602A096104A40AD12DAB9DA76BED3B5ECC42721D000CFD9BAB6 - 9D6840436DBB2A5B42C016B7F8D42D3BE1D9DBD4F25690F22C2E6F5BCB5ADBE6 - 16BAAE25445BF106D74C396007EDE0442E3AF0DD2B64B4030DC841793FCA5793 - 86D4AF2CFDEB4A5FFA5E99CED494863DAC2C6B79DF9CEED297C17C6C31FD2BD9 - C826C1B2474D6A507EA159713A957EA1A585140CC08107C0A00A77BCAD6A57FB - 4EDB16F4B6C42DE86E3BFCE10A171478B54DED87397C620D0BD2B617065E6B55 - BCE1175F189F217E6D1136E3D6D061D7526500448F77608349D820130D684021 - CA500824AF03BD7DFF6D6F7B59FA5E98CAB7B0884DEC6273BADF5F0AB3BFFF15 - AA2CEE910530C3E3B2DF0C8A37A0610FFA85D3B3B62B461A1E6CAC09B3B3C2D4 - E5AD6B9DAB5BDDF2D6B675C6336B373C5DE8F2F9CE7DCEB39EED1CDDDDF636CF - 88F6B3A2E9AC683D57D2883ACE1406C42B8583CCE31935A88878AF0052658434 - D4E95DAF93DD2BD8F8AA92BEB1C4A99519BB4BFE3E1699C674C464A930020F98 - C18B2CB86C814942046FFC021A6956F0FCD89806296862644518076BDBF9ECE0 - 5E20B52B5E6DB457DCDBD55EE0D917082EB45FABED6C1302DCD01677B9C71D6E - 6E8F9BDB7346F7B6BBCDED6A97BBBA1ADB448E292DA55CE0B503F338880D9EE1 - 8C1A9461A31858B2FF48D70BD8530F36BEF4AD6F62F18B4B2C6719B241B5B507 - B250BA7FE4A1D743990638844DBFCE3A359CA045F60B74C7ECD4923BBA7586B7 - 122E808675C35CE6E086F96BB33D739CC7FBE62F7FB9CE71CE7399DF36B8B6ED - F96E690E6E71CFBC0A3AB0E4BDD764E9F05EE32006A007A703F0DD8C96340748 - D8FA47BDDE83AF83F4BC066FF24AF92058C2AA920FACC6AF2E5F1D4CC93213D7 - 17776237093C944E745CD8B4D8AC679B410BC037230DF8D35FB3BF2D6E97137D - E8E56EADB9BBBDF8C56B3BDDE6B6F9D02F006F6BC77BF22E9F3CE679EEF86863 - 1EF4D6757A9A025008226FA01DED18450D0041E432384318B227690E92208825 - E45EF7BBE7FD12EEFFE07BDEFF5EF8C017FE1D8C6F7C20DC21F940C002F29BAF - FCE7339F1158000280994905BA677CCC44E9441F88F0713537B576B7CBDD0974 - 3061DE5E5EFDE2BE3CFBD33DF3F6AF5FFEF1A7FFFBD35D7FF7E71FE8F3BF7FFA - 61AEFFF833376E5BBAE2B8AED25B11ED6A0707F02EAC132F8F322F5043A91E40 - 022090220BF4A20BCC400CDC400DEC400E441D28822256488664C8382F923B68 - 42042AD0B5BADBB8A0382283C83B058086115AB3106A23634027752A00F50B40 - F5B386CE73BC201C421F1442011C422384B9FBBB002004C2FFEB3C202CC2CE7B - 28E3384016912B5BA02BBBC2AB2BD0ABBDCA810C7A9F101C43322C4333FC8712 - 2441121C84641884FF41C88264309D7FB8B5651A0166CA3E8DBBBBA068018EF1 - 3E614333BF530605033C29F0811392841E4C44455C44466CC444743F47544421 - 64C4238CC4F52384712882F1F8047BB3C2076907B96A078C0AAF8DEA004B282F - B0233B245802308A1D5688805724A3314CC33624412772A265BAB51150413C3C - 2ACC0A0A12E0C383E804225080031B80F06BAA625846748A810758A76050023F - 90C45BA0BF5B80C46ACCC6FA5BC45B88426EABC61ED4C66BE43FF5F3036B0047 - 6EEC41485C4471FB190B381F4F44914CC8841AC8041E038442C8857CC3800698 - 076E588665A8BD307422337043833C48841C043330832C6048876CC8865C4888 - 7CC3877C4830CB02FF46C0488C64848CF42256A0433BB443ECC3B83CF426A1D0 - 82F13082F20000EF0BB611EAAC344A2311A2057748B65408817108866050C45B - B88569ACC69F0CC769F40370ECC96964C4A3BC00A34C44A20CCACB43C71E244A - 474C4AA84CC70BA0423C88A8787410A8EB004C33084DB33A4F233590BA030B34 - 035BD22FB57C35B6D4AF2BBBAF9B8A25868B2FB4E30341302AA30AC95D440415 - 6441EDD34392700121084605988313E9BE60F31B35532363B39F34389B22A882 - 500806A054CA0B084ACCB4CCCCACCC70BC4CCDFCCCCA0C4DCF044ACA543FCEBC - CCD274CAD404CDD15C3FD2DBCA07C9B7F0E23783F0378013388D22B8910243D3 - 318324782C2D2326FFE10CCE9E02A66062CB9C8A4B59AA2F564A2513E881BBF4 - 45BDDCC53B244917248905588037D00226398518EC036F50007BE02C0513C4BF - 63235A30004D8881C8BC4CA2F4C9A6EC499F94CFA6F4CCA1544A9F2CC7FC34CA - F9E4CFCA1C4AFAA44FFD94CFA77C4FCFBC3C3F78CFF79C4F00D5C65070C77A83 - CD06A9ABD93C885A0800600086ABCB4D5534CBD2F1CD2D0B511105AAE20CA6B5 - 7CCBB8442CFA3201BBC44B16D04B44D8C51524495FF4B591580017D04E2DB082 - AF894170104F64F42CF39C1FB2B91F0E2019502084041DCA50E8C65B68D2736C - 52CBFCCF2865D26C94D29F8C52276D4D2785D227DDD22DBD4F6DBC4F73FC522D - 3DD3A1B48607DD0CFF0B804109450FD9BC825AE88369E8031B08003A000681C3 - 000CC80581ECCDDF2CD161125442354E2CBBB2569BA5FA52A5989A81E83C2A5D - B4C3181DC9163C2A32C3CEECD4CE372001BA38915EE8831F35065AB806CE1AD2 - F12B1B7C49051D08016B388304954F5885D5F88C4F590D50FE5CD05AA5D558AD - D55BED4F06F5D55DDDD5057DD02DE00C037CD3E4D8810DB02840B82B67B53440 - 402903582909A4560FCD03101D51112DD1E33CCEE4844B9B5AD1526AD4476501 - BE8CD16CFA8211F0CB92B45191C8D41C7D834DFD151894411A2436A6AA1DB219 - BC4438219C24CA33B885801DD860ED49823D58814D58845D58F964D880855586 - 3558859D58873D83FF810D8535355664350F2CD4C281CBABB1532F94E2CD0FFD - 4D12054E943DD99E3251B744D45A924B574225547ACE72A5CE738D513CBCCE1B - CD54781D0212B00023F04E00988619A4C166B80665304F7D259B4294AA100085 - 50B0588A8DD581B558A9B5DAABC5DAA9C5DA87DDDA8935D8AB5558AD3DD8ACAD - 5AB23D032A3CD68D2D8D04EC2EAC23C5F132AF1C38B81EF0D008C8566DDD326E - EDA59685CB975554C3724E168D4EA38AD19B555776AD51A1C05178CD4E17D8D4 - 1670D369084FA3153F1BA4491FE0006391048C3D83A8B5D8A815D8D0355B8105 - DD8B35DBB255D8D12D5DCF3DDD9EFC5CB3855DD5B5DAD9355DD125D85000051D - B89B4E5C5BCF2883FF06E8315B5007759884212BB23258874208006190409322 - D9BB0DD4419DDEBDEDD6B704572A0BDC996D549ABDAC173D5C9CB54E4B5D5C9E - 2D5F5C20012BC80127F984EFBB57911352117287A84A05061887330886335005 - 113883FDC5DAFDFD5FFE0D60001E60012EE0FEB558FD2DE0AA3D6002FE5FFD7D - E0063660AB558500A6E033D0DDA6F3DDD3E8CAAF0480B0EC345254296B3D4B93 - CD5B428535B74CD4707D25C11D2C47F5DEC3C5A67515DF5FC4D4F2AD874C7D83 - C1DC984AE90363F41B1B3C557B2839F694043FE05AD44562255E6226B6D803A6 - DD264662028EE22616585028020EF81578D460CF90CD7DEBB77F0BB881ABD691 - 1D48BC254E945D59FF13652C147D59E664E171E55E97824E183E576C52D79C05 - CC9D2DDFF27D83F3FD959504CF03E3BB045BB3D04A8390311650B85F06B6DA46 - 7662478E64489EE400CE5F1148E047AE644D666008B6E04CE6E44B7E64428001 - 0E480323D8622EFE8BAE943A83A03AB1042FBAB55BBCD5D6EAE5DBEB55CEE53C - ACED7561C23557444857194E5C3D7E573EE6633FE6D43908E4F00444C6742AC0 - 1BA1C1D3041D58642466DDD27D626B8EE26C4E5D2566DDB1E5667026DD6EBE60 - 2C369F540E0CD44B3D0718054E703DE41586751086E61561E805D142556396ED - A56FFDDBE58CA5F98A63287BA9932AD75FFEE53B46843C36C9A028E6627EDC21 - 601227D9841F1D06FF5A10C490EBBBFAB99F1860801008053FF85F1150833310 - 69918664921E69947660023E699646699106E0933669979EE99316019BA6699C - DE5F960E8510A081347802543E67BB48C0056C4007945B84AB5B121E5134CEE7 - 57B3B270954B164E35B47B615FBCE32F6802AD460476D5596266E8F2750117D0 - 82609C03EF3C05A2A5C16B2055BFAB1D7B68B31252D545566903C6644C16E09B - 0E65FEB56BBAD66BBFC6E4BC16E0BB06E9061E6CFECDEB0456852BE6809FD04A - A1868A8EA5D0DC04D98363A91C509F924D59EA65593676599BCAE5E6DCE5C0B2 - 6C82C6EA26C8A68476D790C8D455606DD76EED4CC50514680123E80383004FCD - 82C9B6B61DD07287FF745AD538D05F9B1E6EE22E6EE33E6EE44E6EE55E6EE66E - EEE1060519B8041F00EAC7BE0B50DCAE51CC288E222FF57AB29392E588CB675B - 863836C6E59A92A97175A9B31BED26EB01477051D3CE6AAEA6D1615E6DD7E6D9 - D6866D787D8321B0828D31884F3033BF0952BFFB3B7B8086C18B0145A6E0E1DE - 6BC23EEC076F70BF46ECBECE6B0B8FF00B77700D9FF0BEE66BFE8D839E1E88A0 - AE6EA2D8007AB4C71E6B807DC40040D006800C487A1EC841708425C087258084 - 1ABFF11A17044810047CE0711E87841E7704218704473872243FF26540720970 - 84256FF2277F710958860900021836ED2640681ABED43DA68005F07230FF7231 - 6F6D2FC7D14DED51FF50DD3BFA294F054B8306CB1DFA0505E1766E3AAF733BBF - F3E60E814B588327782B125F0A0ECEB44DAB8142F0B484FB6E2AD2382F587446 - 6F74477F74488F74498F745F6401AD3EED2568022898EF4AADE1912073B0066B - 79E554A000805E98833FA449777007C67CE69A34A1F38B5A090F69E43E6C3518 - EE5BB7E95CB7F097E6755C276E5BFF755D17765AD7750827F65E1FEE509001AF - 19F13F1F092FA64D00B04D31CE4DC07A4ECCCEB84ADF766EEF766FFF7670FFF6 - ACCE6A4D3FEDAEAE6F9010732F0775761F7331C7D1B1FE89529F5C0530860140 - 5AA712C49944D5182099E0F6855FDFF55D1FF65B2F785A1FF8622F6E833778E2 - 5EF8837F788747F8FF8857F890CEDD235883367D76A2A0D02FAE4D0CD550EDC6 - 80967A29A5361DEF0D77944F79953F2AA3C226AD86024DFF0261F67491D0EF50 - 07EB7A10CC1EA0ED8220C6192C86DA2970DB79EBC10B9C2288033C57035540F8 - E21E69859FF384D775A8C7F3395F7A9BB67AE406855428113C105A8D87762E9C - 87EEEB843BCDD340C84D911F79307C456D5F79B77F7B713FED4B3FED84E6F277 - 0DF3327F7777C77B311FEBFE2EF54EF8D1335BF3425E2AA01FBC1738812AF085 - A5578382777CC70F69C89F7C04887CCAB77CC8AF7CC7D7FCC95703CD97FCCE07 - FDCEE77CD2CF7CCCDFFCC90F695588031DC86237FDFA9050D648B08566C52BDB - EF2897AA05398E2FFF5693252A5F8624007EE10FFE292F7E4768F2634AFE5AAB - 356762FE688AA6698AA66AFA822518F74CBF7E2858022880F997DF7E99A761D5 - 068976E7D9BC2FFF0568F77AE06FDA8ED0C93DC6CF6A2A63A3851C4CFC220801 - A40F697480FCFC3F78C70708746A060A14A1C6E040830605121CA886E1438708 - 23267408F1A2448B1A156A6CA826CE91442A8C002869F224CA942A57B26CE9F2 - 25CC983267D26C996F87AD76B9AEF0BC828127A01C3386CE3051B4A889A449B5 - 9960AA4DDB04A813A64E4D62358904AC582570F520C1AB070F54C452295B7604 - 95116AD7221A8108D117B85F9ACC6D62B70994BCADCC4488F02F8F17162C2CD5 - 6CB98AC2020A8713FF3346ECB83164C40BDE0CB162014F27007DC0FDB2D7CC9D - B2CFCD9A0D18408B561A1F2F529D0861CD971AD808D4CC1E589B36EEDBBA1DCE - EE9DFBB76DDEB865FFDE1DDC77F0E4C507AA027584860A22BD0A53AF6EFD3AF6 - EC2ADBD9B2B50350879E3C3B34E043D4287AA54E9B3E951A35C904F857B766E5 - DA352CFEB166CDA255DBF6FF5B727D31575D764181575E5FF0E5571E820DA65D - 498F4918198512AE3299163D586044669D10D1D9009F29A34C88250E600F2D06 - 70704408A0A8828E2F181184003A34D626E343365EA4E38DB6C948A3453A7644 - 518E02FD5823926A84028A0E1C8C042194514A39E54C0EB4B30327B974105E78 - 40E5D0430E421935FF547A4E3DC55E545451259F56F5D9079658F9ED97565A6B - F917605C03D275D75D7A2DF857602C9803E561142866E8A186168AA8A2882E6A - A80B6F9080C2137D00E061679F5DD34C68A3B933C030D0D0228526A9E810822A - B421809CAABDADEACAAA08B8928D43D9BCEA5BACB0D6B61BAEC5AD8A9B72B9C6 - DA2AB0BAF6E60B02BEA45304744F644625B4D14A8B1D20B9E4828103D7B873CD - 0E0D045046198000820D204AA9C7DE53694AC5E67C6EBE895F9C6539C21F9D90 - AC05099E70C945D78106E605C52101EFD517A0821106E1A1892D36A1630B3BDC - 3005F5508682111C76324DA6A395481AC7A5A5A6C90992A4DA1B92BD9A5C728D - B9954C1BCA3CAECCFFA3CA2E9F6C23CB34934CF218473809CE74D3FAFC33D02A - FD7445070698540B3DC0D450867847996B66BAEEAD79557DF47D955FBC73F667 - E75B6EE9AB6781FEFE7B0814033318E8C1DA31DAA8A10A27FAF6A27173518F0B - 5AA0B061497D28004D68DA6E3A5A680314534C6A1C9C50848BC91EDB1BACB022 - DBF8E2B4214B1BE4BFCA7AF9AD8F5F2EF96CD9C0CA39E49C73BEEAE4B1927EF9 - E77130AB023841BBFEBAB43B113D8F493604000C30017489C1D34DA1EB9E36F0 - 5545759BEFC2AB9FD675FEE7F55B790E58D781D18F2DF09F0D1A0C25C31556B8 - 706387D14D590B46CC7129110AA0085AA7A39D86E20006BC10038B71C07873CD - 35239BB2CD35DE4FFF7FFE8AEBDFFFCBFE87BF01F28F80FB43C71856F7849EC1 - AE810EB4CE4FB6740D9318800E35C884EEBAE434F59C296A6AAA4A7CDA64B5E3 - C9693F5BE35ABE9E379756F0E95F002B5BF502352884396A6D6C835B0D6FE8A8 - 3768810423D90400A6B1B7628C06704534CD69DCE18318B4260EC8321DE65C15 - 45D3B5CA58A69B55AC6C25456355118AB7B29C17C318C52A2E2B1594FAC403D3 - A8C6982CA210DFBA602632F18C5C54AB01C2C884302AD13B0F4A8D5DC5B3CF57 - AE863C13D2C94EF86A0BBEE24297012DA14F796902D9C87607EA110C30D7A321 - 0E6F18B7436D5293AB88D4105430BE207A031AF60851A74C741A5A283106A960 - 401CA0F83929E2CFFF576334D92C63969B5BEDF296CB61DCB07065393524D08C - 4F5823329389122B05214B5BDAD27882C2871CF0C15CBF4BD307E76315775D8D - 8466F1407FEAC4160039EF792D945E24037608B315EC4108E3820DE329CF7932 - 8A0BF67441289F80874DF4E143D028CD118F689A6618A0540C00C5FCA0A84504 - 2C548C626C681821EAD0895274A1129555088E60070BA051991E4D2377BC031E - F1100D10D55C0A07F928BC106EF38FDDC4DA9C0AE9969906E86BFB821E82F292 - CE8061819DD673A7DA1243012EAC029EF4CCE1DA3A49D4B9B9400826C801114E - A199BD9DD21D45248D694CE30E29D820063AA8C2186AB42AB1A20E57562C6BCD - BC584B61512E56F8FFFB6201C358B9CBADD515CBD2C1463BFAD1BDBAAE1D5772 - 66977A224D31ED112A5203614BB7F92641C2B490E2A4690A55183617461260EB - 8CA16066A81D2EC462A89CB5E7518DBAB6CE7676A8A4FD2C5127B3D127A0711A - DE00D1A648D431D3D8230DEF3B9CFC56050104EC76A1BB5D95AD76FB5B866691 - B7C6ED6DAC844B5CE01AD7B7C92D2E73958B5CDD42D7B8C04DA01D7EF12CBE72 - 775A35A00330E8B08E42ACE3190DB016061A50894A64A212EBF1E09AE2C35211 - 76E5A56119247FD802D9E6999340D183E4F4787A889E6216A8D9812782871ADA - A31A2AC10EE6C264864082CB7CA213E050002D34C6318D15C394A959CD0912E7 - 45639D15AE250E66FFABAE2857619998A224667114E3A00391E8B5BB36965204 - 3B30C19254F0826578E615AE7958F9B60B90F62D213865EA1FC83A6F917CC24B - 2B746A59750EF8B295441B94EC895A0A74D69EB1D0F297BD0CE6318BB9CCA825 - 6AA47C68844FF4E1B5A7016888AE0A50292C51077118C34431F15CEAAE4ACF7C - B6AE43FD8C0041133A5682369DA0875BE83E8B310E0C4884058078E349434876 - 1DA05D496C873BDDF10403ED312C0887079FAA01123F8C8DE909F76BD33D4D16 - 419515301606EC5307A5EDC05ABE35AE73AD6B5D7B56D7E1F8A4A4468246BDFD - A2189BB2EA869B510C5A1823354C84A52F9E38458A4EF4C4D4BE36B6AF2DE38D - 3290D2DEA6CEB566FF57BB6738A30681E834EFCC844D35F9712B5B819337937C - 16FD925340E6EC93ABA7ACCE581FA2C09A3DF00A3E1BF02F0F9C0B050FB83D0F - 2EF033137CE15F8E05DDECF604239C6233C556865507904A24A2A6A03180658D - A47BDC918BBCE4243FB9C9538EF2959B5CCFCA4580EA44D287ED7EBBE631B134 - A601A069671462779F5E379189C74D78DD972C84548BBD00C45F4512E89C5226 - 5BACA38E859E0EE2CA97DCACAE1BAE755C239CEBBB3E73C23FD9C3F075620EE5 - 13559C676B1A0FBFEF54E90074B6E30EC5E122DA1574BFF670EF4E5119AFE117 - 98B139E05F12EE4B8FBBDC4CEB747B3E1874C596FAA5F83DCB6397D73C7BD705 - A74FA77295A73EF5FF7E5BDDC0D8F9ECC3412FFAD0937EF4A62F7DE85770211E - 0A7B1342FC6733AE31220D9B868874365C08A8BB5B97035AE5BE5FB9EE4F1EFC - DF13DF747C5781A502AF7C95E0BC76B7CBDDEED4C5EE1092DA7812D08FD1E965 - A7254F1E6C7BC23765F79DF9016FBEEA0CA27596BFAEFEF5B37FD7756BC186E6 - 606110794AC31A1B8031A4F0821330230E6FE72D046082AE40C0001AD7A1199A - AE08609F25E071256001EA96DD019A020E1A03EE9E032E2004C64A08CC98282D - 9F079AC4E0E59C0D909BB9A1DBCF4D9F3671C5BB1D19F2A0C5BC711FF3505EAB - 851F95451DF971DED9645696A1DEE9F5200FFE600F02DB10500C105DD83064D8 - 35FC0DEDD1C200F8FF00C89C8A2A40801462821456E1145621155EA116062016 - 76A1157EA17081A11566611872A11402A01996E118BA82A37180318CD2072A9F - A5194D49D4C2EDF01C976080F4C5574B0D9DE391C5BC40DE92C5202240427FD1 - 45231DC812FCCB2409184F6D9EE61D82F9B553AD7D5EFB5D2226AA5FC4510C1E - CCC13470863DB803685CD5680CCEA82C512A84401CC00A17A2A1DD49610412A0 - 70C5622C36E02C5621CB9D61C9BDA22CF2162DEE621546A05D318093FC5D1C02 - 9E2D444226D842B5A017063C232068C33248C032F4D17C551FBC35D659C8C201 - 0841377EA3378623388EA33896E31B08C11BDC83D4695E241658255E870FC623 - 10CEA30FC6C20AACFF403DE0821DA88005C8DF879C929C715831D416A9984A08 - BCDD17A2A115A22143E2A243EAA2184A57444264424A64C951A414EA4308A4C2 - 1A90C431DA1C77EC403B8C947874804925DED4F4E10805D2F1240F371E004CC6 - A44CCE244DD6644CBE810DB263244EE24FBDA375DC5AC005A5C10D65C2E99A50 - 1665D71DE550765DAE8559DD5881B3581CDA75CC8665956D7955088C81DD51E1 - 56A65C2DBA5C570E1A150E1AC9FD2257B62217D6225A1AE058822558CEA2CBA1 - 431C5C820AE0C147D65C1074C748769A4F78094AAECB7CF5214B12DDE371A337 - C2E4617E2362C66462362663C2643AE6A44EE2603BFD1B76D8E33D66A6666EA6 - 6662E6667A266786FF66667A2668C6C2C440551FB419DFA49DC6698C32108EFE - 315111A443159EC342EE966D06E03900E06E82616E42C06F4EA41806676D16A7 - 6F46A471F5E6198202477AE45D4E9A0388A40368099095141F5C271FA0207D2D - 169C3842F6ED07373A414C8A27798EA74D9EE701A46337AC2723685E1660417B - 26435F44000B78817DB2009404A568DEE352F2A77E66667F0A25806E66801ADC - 66AEC21BE0829A6DC227BC963D1011ED91C69BD1826AA4421168255A8EA57469 - 28870A5787F2D68766A8878E288892A88896288A8A281B1E810F74E273DE5803 - 884B2EEC402DD4E806344019144203140220148225A4E4761A4FD10D123E8483 - 2814C1039080925AFF01935A410B2829095801944AA91054A99556E90190A713 - 886738EC03327CA92CBC4198BE819892A928B8C03188829A8A4222E4E77EBE69 - 66F2009CDE233164669DCEA99CD62931A419A58003115C18341443FA08D440DA - 836A04819DF1E2707E611B7CA16D366A44FEA6A41AA7A3522A710AA71506271B - 72A4054CC38B76170670891498C43C3C430DD400A7750006C8C73572E7F521D9 - 371D433FC0000C24400B34690BE46AAE3629AF5AC1955EE9966E831308AB1314 - 8129FCC00F68C0793A6637E6276886E6B37266B4AEC0B46AA6C1556B67D68313 - D84DF8F45329B1E66C0D4E1A18800F18CE18F8C243A6211992211A52A186EAA2 - BB7261BCB62B5A6EFF61BCB2EB897AE1886A240DF880B37C2A5F8560E195A04F - E861BBA9607DD9D7E3C96A02C0C036F06AF8EC6AAF322909FCAA956E29C66E69 - 02288206742CB32A26C80E819BC6E90AC8A99C6AA6C992EC3DA6ECC9922CCB86 - E6CBAE6CC9966C2C84833EF2231E7CE22FFCD3B6704A116D4A69D49657190286 - 36AAD142C0D1266D151EAD143E2AA32EEDD3422AD42AAD1432ED4452EDD26AE4 - 11ACC113C021C02653A812CD8E018001D0C3A9665078B0AA552CC34AC209F6ED - C7BC1C03ADD6EAAD32A9AE4AECC45A6C95662CC62640B2FEC01FA0274D0A819B - B6ACE1AAECCCAE2C661EAECC366EE2DAE3E2226ECBAE4038488C8276EAC5EC4D - 12FECDC69446B3A1FFE2A9D89DD42AADD5622DE9222DD4562DEA8EEEEAA26E18 - 9AEED4BA6EEB42C0186C24D7D6D8D7AAD1331402B864C20EFCAE33884B8C3282 - 3014EFE2594D7D7913BD5081ACD2EA36402909544CC5F400F442E91090292E90 - 6982BEC13624C0367CEFF75641B27A2C397A637992272EB4430CAC2F76CCECCB - BEAFFBC62FFCCEAFFCD6EFFCD6ACC4A8D934BC9EC6219B9CD102E1D89626B89D - 2B9CAE01B7EE012730022FB00237B0EB6EEA1A5C46EE225374B6036071897562 - 679125AFE39545F6AD05F3CE6D0268010927C276A1002E90B00A6B012E1CC103 - 1C8128B8B00BD36A15CC2D0C48C2DFFE81DE0A41B00EAB0F2780291CEB0FB46F - E2CE6911F3C0E472FF66122BB111CBACC94ACC10EA13A62061FA94082D208131 - 1843419D800EC8C118A8AE038731038F710267A118B78119BB821C6C010748F0 - 04A7515EE60420F0E5D0981490BA94C27E279D8470C31E81160CC11FEB150A90 - 302017322E3C0022273222372CAD366C024842C776EC10E86D96F2EDB08EEF1F - 6007126F3239F040279BAC276FF22697AC27BBAF289332CB22F1CC76F2279FB2 - 9CB272288B3239ACC036E002A5E0816A86C835A49D4035C387998A1CA4431B0C - 331917F3191B33321F331A8F4193A880A7BEB1035D89486A09D1F484495E6712 - F081DA0ADD0879802CC44BF6C96D2303B21D68C14990C01F0F412103B2282872 - 2233B223F3832408FFB106ECB0256BECF86A8026DBAFFDAA32FDFE733FCF3240 - B36C2CD48D1DE48037F0D36B158328722E56AD9214CC03131D241893313137F0 - 453370461BED456F74327BF430A3711CB0314741730365C2A9EA4121E8288F5A - 0B1D2D432508422540024D1BE21240C2127C414E37124F43C122FE3414DC4150 - 1FC21D1C03331CB528E0022ED0002EA4010A38350D3C402AD0C03148350D1C29 - 331CA9286475115481247CB524108224C4812120832150023A0A012EA4350F0B - AB5B0FABDF766C265F07278BB25D23312CDFB55EDB755EEB752BEF3560D7AC0B - 8844D7FE29882803E79248699CC635A8C82BC5012684B4644F76489F0365B781 - 655F76656BF66667FF00676B766663F6676336EDCA402AA8006B99B4EB84AD8E - 5190D9A22A06E7C17CCA765FD07604D8366ECFF67CCEE73FB0020CD4B0F81EAB - 10232B7117B77123AB22246B1077C01F90803A0F413BCBF00B3F4011FCF6DCD6 - 302447F23E0F343F73B777AF002B77B7FC3A811058810A28803794CF2F3061B2 - 95E2E00CC05532831C886E1B6400D2763447DB7748DF3747F7377FFFF7307B76 - 804B368077B480E377811F381AEB43115CC219759B6A478BC0661A099E5B5FEE - 368667B8866F785F9443ADD26A2487B8888F38892B421037F71F6B813B27F211 - 88F07563B226CB3239CCF85FCFB85F7B328DE7388D73728DDB385FB3B28EF3B8 - 8F934341E3C210A4FF413F76C2DEB03729360313C2F755C212D27E83685B7606 - 5C797D7FC39567C03758B996D7B7687FC39753B967B3019873F995B3019673B9 - 659BB9977BF69667809B67399C7F399A5FF997ABB92B30C016A4C13145B8CF34 - 5FA6DD61CF751A871F3AA277B80D6BC0DF32BAA3373AA43FBAA307B129FC0120 - 93703B2372A653B70D37320E6B375D9B725EAFB23F933A2C9F7A2C93B240AB7A - A9BF72289FBAA9AF32391083B60AC12D138137980F2B61DCC69422164BB40EC0 - 520183399987349C9F39B19FF9988F794817FBB13B7BB327FBB10FB867173BB4 - 573B9863C246B20EA04FCBB5FC840D1081B8AB430080D7E1FD44A2A7BB867B38 - 0C30030C68C01FC0FFBBBCC73BBDCFBBBDD73BA3FF0032A0333BBB70743F8028 - 10430DD370754332BD63878EE30039283C0EE078272B3C90CF38C32F3CC5EF38 - C43B3C8D4F7CC4E3F8C4437CC6B732C513C327E9A305540A1E28C03034831464 - DCC61DA13BBC8026206A1C40409CDFB9CD6B399ED77CCEEB3CCEDBBCCEEFBCCF - 6F79CF0FBDD0177DCDEB8369A340EB743BB484D477F4C4D0F884834C3DD557BD - D55FFDD50BAED6A327898BB8227CBD2220C32974C2D863070E1083C4A3FDC2AB - FDD9A73D2BB33DDCBBFDDACB7DDBCFBD27C7FDDCE77DDBF340DD9343E5BE811D - 40E5270E915559D5C69D8631B803B0FB5F80DB39B26FF9E3C7797DAFF9E34FFE - B143FEE59FF99A53FF7EE6C3F9E6433E338701EBD01CD343481CEF655FFEC44F - 603DEBB77EEB9FE3632EA6EC83ECC786A31374BDD77FBD304009C5777CEF7FFC - C5FBBEF057FCEFFBBEC5173FF27BBCC62F3C0F986622DC8D11B8D67AAFBC1202 - 4E874143332C5110308021D0FCCF7F3FF887BFF88F3FF98FBF3E30803195BE94 - 383D498A0706B83EFCC7BF606C3DFDD3643EDF7F24837DD843C9F203040E7202 - 090E24775020C283060B1654D890A141850F255684A870C5035C242CE021E20D - 5A3391CD068C143900A5BB342F623088832943CC0CDF64D26C3333C34D9B3875 - CA8CD913284FA13B89E61C6AD46751A0FA8A705041044054A953A956B57A156B - 56AD5BB976F50A60FFC70E5BED725D317B05C3D93C2CD8B675FB166E5CB96EDF - 1CB07B176F5EBD7985DC15F24643E0C03F34FC305C581136C5C8BE6E8D3871E1 - C5C80C71245C78B932C1CA0337677E3CD921C2849DC9117B4063088A2778FA78 - FB35E0DA3577EE4E921C408BD6CA540C42D4693325E637363E83FB1C1EF37886 - E4C071CA3C4ED37974E4C5A52BAF9E3C794E303A52A998D3187C78F1E3C94B05 - E70DFD2F7B48EC415BBF1E498EF8F3E5D7A77FDF7E7EFCF39849EA4F82042B02 - B4A2052B043C304000855890C1059D7810C207090B6C9B082D7CC0095CCAA3AA - B4CB20EBF0338488A1C843D022922C34114BB48C45727858A51E5C50E8A80F70 - 1428A6996B9A51A6FFA4926819A098DC7CD0249522C680093AE26EEA89B8E698 - FBC9A824976C8ECA2477BA89BA2A637A92B86FF491E11215C0E964C332CD3C13 - CD34AF32028604DA24D0C0168C90B34003E134B0C1060FB0D0896D04FBE18005 - 031DB4AFBE484093B286325B74331319D52CB24725958C22CD1AF5CC521E16C0 - C50E157EF1C6C6617E6C86B666D2E0F1B66206F0E185201830C4959B809B3583 - 2769BDB5D65CB794C9565E7DDD95D6E17ADD95585D739DD54B195249E38953D4 - 7C16DA68A5ADCA0218AC85C14E025BD8B6CE6CF1CCD3413E9D98500327F6F24B - 0834217208870F16FA80B475C981D7DD75DB3DF15E79F56DB7337ED725261C17 - 6898B1934E40A265FF479214462948845F48458710C6C0B2562B81CDD2628C2F - D61263646BFA983A5A6742F6CBEEF09816E5945516EF896B13001040398D3042 - 40986D7EA32E9C737622816D7CF639813FDF6070CFA2CD3D808676628841930D - 37A397337AF9851AD37E2B83D7D2A817D53AB30FB0E62CEBABFD9D37DF7EBDFE - 201C1A3822021C707E81A6A4520750E6245AECD1ED0406E48069BABE8FB5CE6F - ECA2C355F0C0732D1CF0C49F1436574C18E80EAA95259F9CF2A8AABD568BCC71 - 31422A1570C91CF4CC8F78E00851461FBD0818AAB8B68A2A8466F0C10A65E799 - 5CA7B5961A77AFB716FB6BDECD9E1A6CE071EF7A6AE287A7FA6A78891138B527 - A6990624914A3D29FFD562A49887C88831C1B2D75D8C656ECAEF7F4D1C719F16 - F7D57BF047CE357D5EBD6C4A85932B9F9FFE675B76B3082D86C8BC85CE33DF1F - 805A78C0000938C070B8AC4DAE1B4CA00425AE6D4CE80F1B3A1BBD7437C17E4C - 706A15C4E0048F57C1766DD0831CFCA008CF96410EEA0E07A6498D05BC410405 - 4043553A5A1849EC360029B0246247BAD81476011CC60D078887B38E0F8548C4 - 1FF6B05653B8151B1817855DFC30035150A272901885BF31254C447056FDB8D8 - 45F154AB1F30E807E83627150BE86F08004C63010BE8A63685518C84318C1360 - 07A10A3D2801B52B4F098FD72E1888307914FC1A06FD553C1286D0901AECE308 - 3918B558B8400B9DFF52C0477E8123BA2DCC1DB418060CD330A413E8C01010C0 - 1570BC07C5201211958A1B1F29A7182CEBB48F56B064DF10ADC314A780C38BB9 - D4E5568C908023F8920689A08116D2A0826226E201C7A0C16994F9005114E199 - D12C427FAA20890414E1084588C71F90F18737E0C241B3BB631E0313C13D9E10 - 9D2364243A41C8CE43BED39DE974E70801F6864E3D81086FC3CD25E73612BADD - E686AED2C7379458D0631514A10805E214AC38AB829EF2A0065DA811AD73CA84 - 4E740A4164C337EAA003A7C86F9721152911E6F18292EAA10691E0C41F4CF183 - 961A06A63195294C0BF3871D38A01D0E78C01B06280AD23D2075ABB3D6EA2421 - 180D487082F3522AFF09EFE52EA7C6739D5E9B57521BE954433695AA4D6DEA52 - C97636626CE30D89B082028CC0B64AC6466E2329863D8C618087E9400EAE0096 - 129F58D1213231891355CE14D9F01B5ED555AF1AAD285FED2A58C14EE11B71D8 - 02079EF009913E56977878C11A5EF0023DE8C1162B35EA6639DB590DFC21080E - 704010D848C0232070A810446A3C591BCF2E28B29D517D2D6BD5C9C713D6F603 - B32DCD6950A082279CA79274BB641A6CD3B06BF82006A9D81B4D101A0526B2E1 - 894CA42B7495085D364C77BAC2A2AE7399F8C4EC5AB7BBD7E5E173A30B5EF346 - 97A1DF1883472D60842D4216BE9503C70B3441DF48D420B37F906361F8BB5FFF - F6B7A6B618AD037CFFDA5302A6EE5AD64A80240E73D473CA7383268C2A3C6D5B - E108F791A9824CA486BDC68F7AA06646A052C02F7E34BD85D9ED6E9A38811CE4 - 900DBF56573978D5AEB032BA57543EF7A1300E6C8C354AD8E7C638A34094B178 - D98009436CE105F18BEF9227D707153C590539B5C509FE504E0DB8E1B357CE32 - 96ABCC652D6B801241D04324F4E04C33FB5414C410AA828BE0BA2A9B933C679B - 6D6EE55C67AFCD19CF76A6F39DF59C673EFF79CF81F6B3A0FB5C671C84236D76 - 78C21CF00012BAD1869F3CAAA11488A487BDE595C8E7AD2E7AB97B5EE94A31A3 - E5153579491DDEF04AD1BB0C956E90D910856F1C990316702C93693DAD16D8A5 - 2FE7D2F5AE0FF040FFCF76361E64D6C30E5CA30005ACB6B5C956F6B299DDEC78 - 1243461620AB375E588C47D78624AAEAA48A9961084CF455A2431E2F5E753C64 - 1A8F5BC8E9E6F1BA7F8CE320F790DC35BEAEAB15FB82C6D61ADFCF32C2A070ED - 177FF71BE0FC2694AF7F6DD41F182212640E02389EA0006F48F0B511A7B3C429 - 3E718B571CE317D778C639BE718F773CE287D6080A90C01A6F0C0336B331094A - 7223855AA818AEFA102F4319DA439B4BD1B93D7422CEC7ABF39E5B17E7BB40F5 - 7669BE73553F71E848AF39CF710E5D4CD4E1046BC065BEA96EA67DF31AEB7B11 - C2364CF127AF0F46307F10F60E6C646C64F379CE800679A0D929F109561CD06F - D7B3DC3B4EF73D57FF66E4EDA5360C492237940009376E8DC10942908E73D4EA - BAD7456246599DE3EAAE9AD5CF4D3CE3273FF3C483DAF238766E4641FD782626 - 36156B300299AA5E7AF15C3DEB58CF75A0085EF0C15062030A3F8FD91F4CF12E - B85DD0B7CFADEE6F1FF1DEE7D9F7B8EFBDC6D14EE8E20F1FF9BC9F38EF7BDF8F - 0AD9210D1678826BEC511219F61348F6A08514289D376F2BDE893C14BFD03F7D - F3772F1DDEDE15FACDCDBFF31ED69C87520CAF12C35F74F233D1D54716BDE9F9 - CF15141CE108B6E10810A440EA244110840418284FC4859C7EE00F3841058C41 - 0590200227300291001A8C4D019EA013FAE013FA6043D62EF82E8EF94610F996 - 0FF8740FED5470E3FF58D0044BB0CE92CFEDBE2A11426CC4A00161F86986008A - 48F4261BE08DF22E8AF1AA8B8776C1E6E88F088950BC308FF29850098D50FC2C - 2F08274FBDBA63D6FA0F0BAB0205DA0406B6E14EE88466B2A50049005CC2C542 - 8A4011CAE9D82AE7F7DA5000DA100EDFF00D6F4F0EBB600EE1100FE3300FF7F0 - 0EE9D00EFFB00EEBD00FEF30106FEFAB0EA0537E61F6864119E4869F06E06E0C - 207BE480C6822E0A2E51E8948817C26F1397CE138D2EA378A1D52EF1133331FE - 688E173C710A3A5114A5A815978E0DE48003D2E03BB2D016A3620B154C0CB9C5 - 5BEC840486065C62A74FF0488EE08C726470F7BAA01FE8701999AF0F7FAF1995 - B1F990711A6F2F1AFFAFB11AFBB01909B1F704201A77EF19FDB00BF8A10BEAA9 - 0615D146ECC11E46A2476EA386DC614874200EDAA00DE66D099530FE52B1F2C6 - AF09258FE6A6300A8770F3F6D1F31A6FF23021046840053AA1176E310B73B10B - ED845BB6452225920CCB904F0E809C3E8B7E00D123B9F1F740F20FC5710F43D2 - 0DF150103FF2240B31250B711055321C9C60609060FAAAAD1179E492B2AD188C - 01B92CAD0E3061158D2EFC840E135731FED8CFFDE82F153B3129D72FE8E20FD5 - EAEF12A36029418D296F0E21D740016AD121F9CF0E5C860486202C676666C2D2 - 2CC5728D78EA0D9C402D7BC62DB72101AAA0183B321A4BD22EED3219F3302FAB - 710FBF110FEBF22EFFFFB2F7F8E1AB0646058C201D7304DB8A4B55DC2A0840E9 - 373491FEC02F15C92FFEAE6B1315CF282D13FEF4F114770EFC42F33247933341 - 4DE80C4107ECC002BAB2FFB6D04D8E2074480F00F6277434E7CCCECC8D5CA6A8 - CAA9235D52255BB21B3DF2255972247FB338459238933338819339ED50000420 - 1C1E6085A44D3D1A51364C4224ECA6936200AEEAE01B9812FD2CD129E96AE736 - D129339113851213DD8F3DCFB33D8572FD74C1104EC0073890354B0F22138036 - B56013A482043EA73671213A0D6C8012EC5A18ACA6E8A7399593418D931B7DB3 - 411754381D542587D323D1661B124135C1611A5EC81D62A3367C2448A400B952 - C1D2666E2AD96F0AFF6661285B942845F1326761FD8E9246D7F30877A11559F4 - E66C340A74F4124BE17150001C1AF23EF38D04AE651BD2487FA6222CD1328D48 - 400B5C60A7A694A7DC2401DCA41F128010684A41E5F039BFD44BC1544CC1D439 - C3B44CC9F44BCF744CC5544D9FB34DCD344DE3744DE5944DDDF4D068A053A4EF - 6D54053BB313374C85255E251B086A2ADFD3479D92452F71167861FD78615159 - 14527B545213B54779611321D551DF53512775523DE171C4A448F34D05688054 - 83699862A0B2E80B624441078E40075855079881191840566795196E41120C21 - 14B0A9087440188081121860EA28C71BBFB41FE4F058EDF0589F33598B95598D - 1559A3F55995555AFF9DD55A97F55AA195599DB359B1D54DADF55BBD954EDD94 - 183204058C013D5E6824DCA124EA461DDB8ADBC6A01452D44541F33277AE475B - 2DF166A1D5DC73FD12D532FFB55F4793479D722A3D014C942C54A96E1ADAC161 - DB61A6225662FB4B0738A11DE6C11BE6E11AE66100E6674E05A00AD634649F73 - 643FD6644F566451566557B66455D634EC0009D2F54F1386242E0961E051C518 - A00EB2612A59F452A952527FF6521D355385366827B5688BF6687D3668959669 - 9F16613F6A61F3CD1B062C08F80BECB2166BB776427E800146EB05ECC1066CA0 - 1668C16357166DD3566DD7966DD9761B86C9072C001C5C086E3E34446F03251C - 1332E96F3D7DD46FFF77EE6F1B7553717451852E7025F51C6414709D484619B5 - 525B4D4765F4C8EC8D2BA776C9C041B41C2006FEE0CDB2AC733FD77343B7621D - E005A0C106E6611EECE16CDB566D0980755FB76D5D17655DB71C13AD23DC066E - FA94E570031E1FD3DB8832528397538517536781098237538917691F757893B7 - 5291B714D6EB0564CD72AB77C9C09400C45565B3177BC5947BD754763F367CBB - 1776C557005C377BC7177C9F931FC2C19E2CE01746AC927A4461B2B318A0613B - 57AC0ED8E01CE8D55FDF13511DB7510B1780772E71FBF73CF9557177815FDD8F - 5F77A114E220157C6058ADD78277E97C09007D35388337D88335188441B88343 - 988445B8843D7884FF4DB8843B38853958853FF8844398854F5800AA214B8309 - 05A081DA5E8354E8D74F69E11AA48013564C1FCEE11198E0128D96458F380A98 - 4089A3808999808981B6892F558A9118688D378A8FF85191F88A9B788A1DD513 - C0A03B7A41362F188DEB077D67F87CDB788DDF988D4D78865D7885E11885EFD8 - 8DF3D88EF5388E5BD88E5D388F61C05C55C0D82C00096023446DA33DD220062A - C1070BD57001D78BFB56929BD8928FD789B09828BDD8472FD99289D693271993 - 852E1B1840137E611AD25895E927865BD9955F199663599667999669B90B7AE6 - 01ECA007D2B51840B466DD750024913B43A01418CA782D19156681458F579927 - 399997B947670115FF42999A45B99AAFD99A77A10E18E0057E6195BF79726A59 - 9CC7999CCBD99C637819D3660808D9D8D4316E6AE3478264DB56CC1330E11239 - B999A3199A99F998F9D99AFF199B031AA075A1A35000A4C019A1A3E59C69990C - 62B9A117DA951F7A9CC5C0A13598188E20117C207EDDA69763A35D454219D491 - 163CE955E6350A2AE0111CF58A8DB79F535A8B397913BF58A6B7D88B691A8C6B - 1AA76FFAA6E5007212DAA79FE595FD3886853AA821FA9C1F9AA86759A25D3701 - 6A109FAA8D1D7750244814620CA11438F978B33A8A7901A75FBA8959DA89B5DA - 8BB95AA7C3BA8AB31AACC19A8B57BAA362ED0A7F1AAECB830024BAA1EB7AAE41 - D8AE35D8AEF7FAAEFFF97AA9FB1AAFC9C0AF017BB0F5FAAE0DBBAE059BB0175B - B0FF9AAF43B8B119BB1F128D90E7C06D06E0434DCC368CE18620460EEAE09E8F - 9809469BB4459BB44FDBB48D77B455FBB48FF711D67AB453FB8A633B994B9BB4 - 8D97A3A28E73E29AB7C723AF015B0C14DBB0191AAF0FBBB821FB847F9B9CE9DA - B81DFBB88BDBB9873B84C3E834C4A446E637AA19A618AC47125DC510FAF7B5BD - 1815641AAC6F7AADD39A09C67BB5C37AADCFFB8AD51BADC51AAC754182BDE38C - 7B1BBFB7820C823BB805BBBFC5A0BF1B5BC0079CC0079CBF0D7CBF0B9CC0035C - C11BBCC119FCC113DCBF131CC227BCC235F80806061AA6EF17860147B0D31D5B - AE07EB605E2BA0B5FFC37ABD49DBC45B9BB54F3CBD1F61C56721C66D3BB66FDB - C64FDB5335217EEE3BBF7BBC2A0E1CC8259CC2873CC88B9CC81BDBC893FCC80F - 5CC0955CC92D7CC9A3DCC929DCA273F917F0E03C7237917F043774430E0C6117 - 8E5817563AAB477BBCC71CAC477BCC4FFBCC5D5C17C27BBDD79C09C6BCCDD59C - B4C7FC88E5E004148DC77DDCCF0120C14B20D0853CB805BDD007FDD0139D0C0C - 7DD11B9BD11F1DD11B5DD1215DB0217DD2237DC22D5DD2375DD33B5DC0FBE101 - CED5E1A88F66EBB719ECA118DC41135C450E3CE11C66DBC54FBBC5639DD64D3B - C5693DD61FC113E4600B7CEBCF7F5D2A14BCC21D9CD88BBDC98DDDC1871DD997 - 9DD8037CD80920C3FFA16F35A6A1C37524276948556E883B99A10E8CB889CD7C - CEC3DDCEC71CCFC53DDCE9FCDCEF3CDDC11DDDED7CDCD37BCEE3C1A37EE1AD81 - BDC7C940121A3BDF057BDFF15D0CC401DF2B5DD0F9DDD1FBBBDFFB7DE01B7DD1 - 4B80E119BEBF139EE1099EDFFF3DE0055EE2FD7DE2C521E22F1EE1233EDF1B5E - DFC900E00F9EE23FBE04FA9D007C29A32789FADE991D6F4354E6210622A1A451 - 7AB4571CD7735EE7771ED709FA04ECCDDEFF1CD913BED21B9CE88D5DD0935EE1 - 1D7DE905FCE88BDEE9975EE98BFDE89FBEE91B1DE2A3BE1FA25DDA6C44CBB16D - 00A0011AE0D5B3AFDAB4DB1DDEC77BBC8F18BEEB3CDCDBFEED5B5BCEC19DDDE5 - DE1096C508EA3DE8FFE33AE241DEEFFB1EF0933EF0175EF00B9FF009BFE10DFF - EF157FF017FFF01D1FF21B5FF2195FF109A008F0D4B75C0307FBC9D4F1560A0C - 803BADFAE699C0C4717EF4D3BBF449FFC4E15EF54F9FEEE15DC55B5FF557DC13 - 4280038C61B7F7BEB729BFEF1F1FEB7D5FE9173FF11F3FF08B3FF8895FF1B17E - F80B7FF9113FF9FDDEF9135FFA0BFF86138190FBC085EC4119A4C024886BBB85 - C401F47789C11DBEDDBD02D09EF4C93DEED19DFDD31EDED15DEDD75F3E53F309 - 741FBF1B5EE325A104341E0400A284B81204074A228830A142840313824078D0 - A0C2810F134AB4C850E1C185154B6C2CF1F02248811E497EEC789264C891121B - 12807184060A0B78FFBC29B0D7AC993B77CD940D18400B6833039A523130448D - 4905A54C9A2E5DEAB4A9D4A752AB5ABD3A152B54ACBA0C9D48030E80D8B164CB - 9A3D8B36ADDAB56CDB023076E9928A4F6EEBDA254BC446A646EFDA79BB0B38F0 - D98264081B1658187189C289172F169718B2E3858A2736BE6C98B163CD091B77 - 2EF8B9B264D198278A6B581AA3B89824543C01E70D1ACE9CB49BFDB4472BCD8B - 183AE4C4D32515555426C29B0A2F0EF538F1E5CA9B2F37CE3C78F4E3A518A452 - 81E794E0EDDCBB937D2143068A69DECB1B60572650203DEE1418005B3EBED991 - 0F4188B37F3AE4FDD305F3D3E7AF1F7EFBE577DF7FF51978DA800A0608A04005 - 1E689F7D074148DFFF7FFE5188E182163E781F0862149140222A1831476C035C - C3D300B401959B14BBF5068B7115CCB8142A34D6389D53C2DD88A38D333AE723 - 8DC709C95C1D0C84F10B5DF22DC9645936A493C21A733409D82F99ACA78E26EA - 48E100307AD042657C0D919420990E8E39509AFD6554669BFC81861F9BFCB9A9 - 669A6F9279A79D7566041A686AF649129C73068AA79E208913CE10C6BCE6CD2F - D0A8B8E28AB9F9A0C9097294324B541520F7E323C7794A5C72342AF5E98C4C80 - 8A0AA84A99AAAAA9A90A478D273AF8804798B696E7430A5192776B5BB404D2C8 - 3C626DA2402481B02345AFDC81C06C7DCD3E1B21B4D2420B92B4F7494311B3D5 - 46EB6CB30F4ABBEDFFB6CF863B6DB9E6364BEEB9E7EE07823420F4130E0D3E58 - E0CD34B129E3CE35B5FD34401A03CC13831EBE3155C123A1DE68B08D09171CEA - C208377CF0A605D3E830C507CBC1C12FCACAF744C7D33CF1CB13BD88D5C7132A - 9CEC8D92647D02B20A9AE813E5942CFFB2860A6B842CD634213F21163821AB9C - B302EE48610F1165C5363434468B6513270D04320F34E04C638C1E653462C32F - 0A4CA3C02FE07402401F5D1BDD09380A6C0D406C06A86343330A801DF6D94410 - 618FD26381038D14D7FCC26B5A1822882EB78746C8A1E08443C8EE83802B8EF8 - E185335EE1DFF525DE78E4DA6618E1E0035601030D76D04B84028F36A3EF8A40 - E1368F263A84F0DBFF533BBA9E2390A1AE9AA3A9CFB94A3BEE36D6A1831D4F7C - 32F2C6DCD9B0C51A3E6C91C2253CE3E14E2432A420C3162A4C295627781C1FBD - 0C70C0B106790A8411420A7040AF3C002A8421C31A9F7412C6169718113C0044 - CC034C200DB0A3CE589D4063CB3B6594B1081B84050036A8013B1A5006762CC2 - 0106D083FFAE060C5BFC22128BE0445814A0073D18407E3600C60EA0D1877634 - E27F4F8BC42FC0660F5BE8611EEA6007309255364E2C223DC01020DCCE2289FA - E410243B84560E3BD42D20F2905BCC7297344871B91FB64B874C1C22B37AD843 - 660911044A4C6213A978C52A669189E3C2E2B6A6E82E208AA173899889D9A0A1 - 0C9DEC6B00C528C6FF00A4502906D44117A21A95EC6477232011294843CAE372 - 36E51514884C78DC89440AC0C0801B8C4F050008C3F8A20786F1716069C5129F - 0C18203EEE9147056080DE161830BE4B80E3139158641A30B986F811F07F3588 - 4423F4003703CCB00C99A85F196C013675D4AF010D784720DA61033DD8EF698D - 88840232D18048180300B5F05F10CA56835B9EAD0681C8C40E5C59063D280000 - D7604720805186A7ED0000BFB01A3B361089FF39C01E7E7357119BE5CE25BE73 - 9EF2AC673CEF09CF7CD2139FFBD4A73DFDC9CF7FF673A0022D6840F15985221C - 4144AF7154506C1329DBD8430A36080233EA500A57F9E8554EA991468BE329D8 - A5CA549B220E2A6CFFC4C7519574A4BA90430C7E47C8ED6CA193C97BC116BC91 - 864ECAC03552A029237B1106F1C94505418864F700F0849ABDE6097A801ECF54 - 80C92D6CE1065BE0D95888608B32BCC318DEB88601FA203FAB2DC200BFF8C50E - 7AF95570D8C36965B0813114000E5A203310EA80C62F4258066034A30F4140A0 - 36BDD1880668A20FF373C72F88000EA705021A0070C70C1B508317B0AD0F3BB8 - 1A27BA668B062C629C6801011299F559CF360B89A41DAD68435BDACF9262B5A9 - 152D684DFBDAD79276B5AEAD2D6A616B5BDCDE36B6B9E5ED6E7B0BDCCF8AA10A - 0B4581D7CC368C13D52627031846312855898BCEC2751243298FAE8BDDECF228 - 48DABD9127AE03B4FF98DA251291AC2A397B31D5288D85138A5C0339B5B753B1 - 18A0BDD41B8B31C200CA14680C00F300031860E65EB24CA31DBC74C036C3C65F - FB711600F6A0433697668006FC619939DB40031A9186B10C40AB2F98C622021B - C05F20305964A1853A16C1CB6536831EFF334027B806D8BC92D518956D0030FC - 46CF67B933B4E5FAAD6C4FBBE3784E8BC7A785166977AC632243EB88B5ED316E - D5E5592143595AC495890AC071465A2CD736B468E3357CC09B39EEB1A4A4AA2E - 75CB8C6689A57948365A3375AB23C81B8AB72EE90DB058A6BAD3E0F5140E97E8 - 434E53B005B012707B6BA8D51CCEF7491944320556054710B667DEB218230807 - ACC13C96E680A7E5FF2F6791B8F0816B814077C04D01166E048901300D70B603 - 1A6508023577300F1B6BAC0FB470801E80018C0396014CCD404F2406C860FB6D - C0161F1EE63BFC365B528C83B4E328006D59EBD9D52E9B14CE4EADB459DBEC6B - 8BB6DA456E2D12AB3D6D65437BB5D59636B7BD1DED73475BDCAC25F7BABB7DDA - 67C3DBDDE82EAD1812E0B934BC4674C3C8094FD2E80E5AD8C31E69F0413B9811 - 8F5274D4CC15D8C38F24D65DEC3A5C48108FF849E5900AF8CC79BC3788EF58B4 - 970215C0AD19E59DC31A8C5A2B00BC409197984627F60C872D54F40621CF5918 - 6E4055469EC506286E803AC272D640D8407F160EC4816DC04B7708DA1BC87CC7 - A90190596038AD19FFEA78C7661B1084BF48E18081A8412DD4C14B7636C37F9C - 581A006811CE0DEC801D0AC47524D2428A23529BB505C8760198ACEC723BBBEE - 7BB73BDEE55E7766F77DF0D4B6BBE109CFF7C2EF9DEE878F32B90F3FF7C7231E - F28927F76A014FF9CCAF561C0A15D11CEC050D5AF08427B42986C09501661D18 - 22A51BB56EC48574D2EEC63E8FB397982E3C71240BA872E36BC1B3CEEF4C73F5 - 89E5E47CEE840F687E09EACDA3BD65D3031CC0A0F347335A2C69588422B92767 - 0074026CD0E874195E000075A4C70163F1868517F117668E78D49D7EC706C762 - 8340E4B50C48B0C70C81E1732274E2AC659807D862BD6B00D00CCF50060E006C - D0603FB6B035E030FF37730377966779052081ED466D13588115B877164881CE - 460874378112988121888123088224A881E4F681E53677255882ED26811D4808 - 2928822DA88133288326C881C49508FA360D44F00BF6A022A5930629627A52C0 - 1B94E009DCD570AEE7704DD8704FD8844C08855088520EE7060F870A134723F1 - A00385165EBC87167A4073BF070041C07270638637E05EFD1573E4E10D61000B - 37700967B708311716C6905E1A33415495481E9733B4202C61636135D007BF70 - 407A0061E11409BC82740DA0744C834C0D500B4C434EF8F7340AD0079900080D - 00082EE60D7AA0597FA10004D600621700AD066C0AF00E9A750D633151147616 - B3A5772BB881B418FF8191177920B078BB488BB3A882BD088CBC288CF2768B8B - 578CC1088C2E486DEB968CB6487773270D30806F286004A8263A03902FFB2270 - CD006627701449F170145785B1B70759B8846656854B187B3E528E0CA7851580 - 7B9AF00BF505866911091D67676F11497CD63E38377DB4B08F6110095BA00760 - A08625538760803E5B708F70C0336608072A600191240382A67D9CB01E9CC009 - AB680B2ED70EE154030ED00E5C070D7063039B28057043049CB089C0D00EB660 - 0B5F63610DA0077F418A81A03178905965B0037A10093B900B8EC84D01D000ED - 006C4490699AD50E9C90559130746831771D788CBF688C51E98CC3B8781D5895 - 55798B5A898C5E99FF95B8C88B60F98C58898CC7A88CBE588B8B370E63241353 - C335BF207AFA9246B6D146435314DF4847E618856E90857FE98456F8977E598E - 57188585C9974B489854880A816455F59816625873FAE30306897338B7537401 - 0E37779932A0090679537DC05E3807074160038A640CD04091620191A934162F - C04B9B08087A600F60338A81109441893F64D1885220689DF00B35C08941A907 - 61C1560E603406B08AC529162F10089BF803ED300F81A001C23200A76894FAA3 - 0041B08AB9D9003BF07465117862697869996D79A77865A979E9A977E7C97892 - C79ED39678F3B96C9E259F901781993779D8D677E6096E5C599E05A004D5806F - BE33077D60365A46FF7A39410B5D46702F22477B1985D5B58E87695D175A8E13 - 87A1E70898EA880A9E50041C303D90991606100637631688163D724116BFA009 - 522517E0B00697B00617D43EEEF304DE10174F600C33AA737041A337A4001515 - 091BE0006072552FD00EE8140406D03700000D0EE000FBA5619C100991D00EBE - F9161A992469530B0EF08800000E36B0A4533A0D3670A40030A40E90064F2AA6 - 3E704D1B10049C70586921A020A804ACA5042DB85A7B2A8179EA827AE7A7BFA8 - A7788AA785FAA7869AA87A77A77F4A817D7AA81E78A730B881025AA8923AA879 - 0A838ADAA81E4877996AA85540036BF004D380A072493A5BA6652E12300C9084 - 56488581B9848739FFABB52AAB196A8E86D9A16E000B60900A6B508D242AACC3 - BA24D9D71D20C8A72BC8A82C88AC16E8A718C8A7CD8AAC922AADCC5A6DD58A82 - 28D8ACDA1A832AB86E9D1A79D64A83D32AAD9E0A81D0FA82E2806F3EA00053C2 - 35CAA00CA52329FD923ADE180FE6785219EAA1B8AAAFFC7A5280F997F90AB0FC - AA8EF1C0009A303DBB47AC0BCBB073C6A97B0AA878AA0410FBB01338B1790AAA - 8BDAA8E05A81196BA914ABB1194B0A18BBB1AB1583173BB2162BB18B9AB2CEE6 - B1A00AA9216BA8111BB2D1282FF328A6BFE0460B6A1B409106B44029DE5807D4 - 40ABFE6AB4B33AB0497BB416DA980CE0034F60AC0D2BB5531B266870A7568BAC - 79EAB21B4B0884F0FFAC05400868E0B5776A795F8BA7615B815DABB515880626 - 38A862BBA7589B82564BB1717BA8564BB70590B719A8B537F8AC7BDAAD291883 - 1768AD61ABB71BFBB7613B0E9DF339783007A1630FC510293F2170C6004727A0 - 7A444B8EFFBA29469BB49B22B0ED08B0A1EBA19B827B3160011649B5AB0B867D - 10B55472B1B12BBBB38B06628B064A60BB621BB65E8BBBB53BBBB2ABB6131BB6 - B81BB6B7DBBBB98BBCBBCBBBB5CBBBB16BBBCEABBBCDFBBB175BBC702BBCB5FB - BC4A30BCDACBBCD55BBD13CBBCD6DBBBCBBBBD132B0DC4258FB5A233A697463F - D1B341410B06600395C000F1D0707B90A1F8CB9759B8078BD9AFFCEBBFFB8BBF - FFDB84FD0B0B86F0FFABAA3BAC9DE00DC096B366F76216D907D340C10286042E - 1736A67A55BF907E6133371AAC7D66D337A1A3C039C32B84451E82160DDEE00D - 16E983C0D609A173437DF0173D6891C3509241035762110DAEBBC1C0160D206C - 8D07761675ABB7B87BB5137BB5C1BBBBB7EBB527BBBB466CB7C28BBB4A7001D7 - 6BB8DCDBC45BFCC44A6CBB770AB151BCC44F0CC6659CB7B63BBC78BBC580EBC5 - C3EBB5680CB77AEBC64B4CB7624CC53A4813A7103AD0500C3C8B8DCD500C1335 - 0F1675AF9E8BAB84A9B4A880C8870CC0898CBFB0C03B76E0C0C35A0C938004D5 - A300F3300906907E0A500C548A04C5700DCAC02BDE6000D7E00DB62905FBA500 - CAB0C9A99C369A3CFF0FB0EC0DB560036FA3A6B5E0A466010EF0CA3493500B70 - 0536BF500BF380C10A700D3630CB6053CB9340CA62F10BA340CCB530407D300A - 937037B5300907263A7FC1C0F3A00C443C0C51037FB5A00C69D1B584700168B0 - CEEBFCC4EC0CCF57DCB5EEACB6E90CCFE9DCB5EC5CCFF1CCCFF28CCFF5FCCFB9 - 2BCFECACBDFF4CCF61DBCE058DD0F79CCEEEACD0057D01DF9BCEC7CBBDD1FBCF - F8CCBDFE1CD1D88BCFFC4C08E3A0832AA07F628304CD2005AA8A8D2ED20E3A60 - BF56D8BF2FED06302DD3318DBF31ED06370DC0332DD3F9CBABB0C0001C60019F - A01DC43A09AF300FD11036DCA0D4D72C16C5C00DAD2816B5C00DA3900FB05CD4 - D080C1D7900F9308FF0093209D9C706950FA0ACE9009C3201648E00CF9B05FD0 - 9009DCD0C163A100A3C00D62310C99B00EB57042FCD5D6BC3209F9700DAF700D - 468304AFD0D6DBD409D750083640D6FB159CF930409DB001F9B034C560038C35 - 0D7D3D0FBF390A99F07E7DF00A468DCE60ABCEA31DD15E1BD1A74DDAA95DDAA9 - 3DCFAAEDDAA82DCF60ABBD05B0DA64DCDAB0ADCEB26DDAAFFDDAB37DDBAE8DCF - B08DC416EDDB56ACB61ACDDA5DABDBAE8D0620BD505660042F161B5BC65C3E9B - 7AF1400D9DABBF36DDC8DC4DD38ADCBF8309DE7E49DEE3DDDD8D990A3E90320B - 3B0DDC3009B3360AB550C9730D00C3300950CD5F93300AA33040EA900F64A10C - A370CE0070CDC43CFF094613CD847DC90030D86E5D3DD0900FC3907D0A3009F4 - 8D049BEDD8FFF70ADC20684A0D0EF18DE09F6DCC00100DCAF00AF9F00AD22C16 - 459D09F8CDD4747D0D8C4504DC7059D5030E84FD7E6A3A0AAF80CEF3DCCFB6DB - CE3F1EE4F67CD0426EE407DDD1B59DE43FDED147CEE40D7DE44B1EE4ED7CD1F9 - 5CDAFA3CE5FA7CD159DECE17000A47700982D40734EC5C3B21AF5C467006E000 - 3A4009BA50D3FD7BD3370DE7714EE7733EE7745EE7787EE7BC8A716930070A0B - 86BF6003EFAD7D957CCD664D4EC03C40BFD0D7932068953C0FB86CDF035EC993 - 300920444E52BD010BFE0BF910E939A30CDC500C0AEC0DC04CD7F3B0DFE9770D - EF0D3703C00D527DFF57E4E4DEB71C36C3E0E9C0AC319D20D52FDED581484E64 - 45E248F0EA7F110D4EEDE94653884ADDE3AB8DDBCD2ECFCDCEDBD02EED060DDC - 0D9DDA568CDBBF3DEDD27E01A7DDEDD1AECEDF9EEDA3DDDAC15DEDDA9EDAE310 - 13AE310725127A750929CC65D206C01BF66BD33A7DEFF98EEFFBAEEFF96E080C - 6007D9C1BA034FF082D1BBDE5EBBDD9EF0A41DD1B8DBEDEB8CE5AAFDF0134FF1 - 155FF1CC4BF10C3FF113ABF0EC3CF1EA8CBD164FF11E2FF2E21EEEDE5EF229AF - F22B3FF1A0308D16B07D3ED36F6A643A6990060660514851D3798EE7362DE771 - BEE73D6FE7407FD3B0200761003F05AFF44BBF16CD46F216AFF1D80EF5B0CDF2 - 559FF1285FF24F6FFFF556AFF11ABFF55FAFF21FAD509FF30984253A0ABA46B8 - 41EF96E2093312E78A2CF4DECDF33D4FF4E66DD3B0100FA980CB4CCFF77D0F00 - 45300E526FF1B750F5277FF2603FF8157FF888CFF8226FF88D0FF9835F055B60 - 075E43C15DF350DA387052C00996120F740FFAA12FFAA30F0B3A70657E8FFA4A - 7F04801F0C841FF9AF0FFBB12FFBB3BFF55D0B1376801D61D3283B1BEF40F128 - DD2807D430FAC34FFCA00F0B27F0B45F98FACBBFB09502F8B44DF1AECFF2D23F - F1D26FFD564FFD2A7FFD29BFFD1790FDDDFEFDDEAFFDD8FFF0DD1FFEE75FF121 - 6D04636E13926B1B0007147DCCF996020BC56FFFC56FF461900629C7FC000140 - E04082050D1E4498FF50E142860D1D3E2C682051AA2355C659BB708BD0858C1D - 39DEF2C8B123489017368EE4B8919046932D45963CE9B264CA8F23637AC49892 - A4C7933B77FA11E9B2E6D095288516050AB3A64F944C45F60C49A8C891352A8C - 74EA434441315ACDBC0E68464BEC0003314EC841B5678F1BB66DDDBE851B576E - 5B58B00CE958F304E25EBE7DFDFE051C58705F7B3E34510C318EA39F5BB74231 - 060AF98264CA8D4335762C99E4E5979635DF8A8CB971D2C6933D83CE78FAA365 - CCA633B346FD993448C68E475F46BD79B4EBC7B961BF9E8D3B786BC6A1AA1C49 - 8402DC2600447ED9A3A54C99BBAF03A01BE0A4231EACB57035CC05FF1D7C5B39 - A97E0D469F5EFD7A67F6ED0742B327C507875445AA2C9D9CF171C7A49C99FE6C - 2A3FA69212B0C0FE00A4AD29CEF043D040FD1A6CF040FE022490C0FF0A047031 - 0A2F38A38A049203A797E614B067007794F1AA99018A81A61829CC9283BBF166 - A4F1AD784E48C33D1D77E4B1C7F50202003B} - end - end -end diff --git a/Varela/Varela/Source/Cliente/uSplash.pas b/Varela/Varela/Source/Cliente/uSplash.pas deleted file mode 100644 index 7f951a8..0000000 --- a/Varela/Varela/Source/Cliente/uSplash.pas +++ /dev/null @@ -1,56 +0,0 @@ -unit uSplash; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, ExtCtrls, JvGIF, StdCtrls; - -type - TSplashScreen = class(TForm) - Image1: TImage; - Panel1: TPanel; - lblTexto: TLabel; - procedure Image1Click(Sender: TObject); - private - function GetTexto: String; - procedure SetTexto(const Value: String); - { Private declarations } - public - property Texto : String read GetTexto write SetTexto; - procedure ShowAsAbout; - end; - -var - SplashScreen: TSplashScreen; - -implementation - -{$R *.dfm} - -{ TSplashScreen } - -procedure TSplashScreen.ShowAsAbout; -begin - Image1.OnClick := Image1Click; - ShowModal; -end; - -procedure TSplashScreen.Image1Click(Sender: TObject); -begin - Close; -end; - -function TSplashScreen.GetTexto: String; -begin - Result := lblTexto.Caption; - -end; - -procedure TSplashScreen.SetTexto(const Value: String); -begin - lblTexto.Caption := Value; - Self.Update; -end; - -end. diff --git a/Varela/Varela/Source/Configuracion/Configuracion.bdsproj b/Varela/Varela/Source/Configuracion/Configuracion.bdsproj deleted file mode 100644 index 3e6bdf5..0000000 --- a/Varela/Varela/Source/Configuracion/Configuracion.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - Configuracion.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\Output\Debug\Cliente - ..\Lib - ..\Lib;..\Base - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Configuracion/Configuracion.cfg b/Varela/Varela/Source/Configuracion/Configuracion.cfg deleted file mode 100644 index 96c8d0b..0000000 --- a/Varela/Varela/Source/Configuracion/Configuracion.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\Output\Cliente" --LN"..\Lib" --U"..\Lib" --O"..\Lib" --I"..\Lib" --R"..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Configuracion/Configuracion.dof b/Varela/Varela/Source/Configuracion/Configuracion.dof deleted file mode 100644 index 38d0745..0000000 --- a/Varela/Varela/Source/Configuracion/Configuracion.dof +++ /dev/null @@ -1,471 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\Output\Cliente -PackageDCPOutputDir=..\Lib -SearchPath=..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=1 -Item0=..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlBPLOutput] -Count=1 -Item0=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=1 -Item0=..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Configuracion/Configuracion.dpk b/Varela/Varela/Source/Configuracion/Configuracion.dpk deleted file mode 100644 index e59d02e..0000000 --- a/Varela/Varela/Source/Configuracion/Configuracion.dpk +++ /dev/null @@ -1,35 +0,0 @@ -package Configuracion; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - JvGlobusD10R, - BaseD10, - Usuarios; - -contains - uPanelControl in 'uPanelControl.pas' {fPanelControl}; - -end. diff --git a/Varela/Varela/Source/Configuracion/Configuracion.drc b/Varela/Varela/Source/Configuracion/Configuracion.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Configuracion/Configuracion.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Configuracion/Configuracion.rc b/Varela/Varela/Source/Configuracion/Configuracion.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Configuracion/Configuracion.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Configuracion/Configuracion.res b/Varela/Varela/Source/Configuracion/Configuracion.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Configuracion/Configuracion.res and /dev/null differ diff --git a/Varela/Varela/Source/Configuracion/uPanelControl.dfm b/Varela/Varela/Source/Configuracion/uPanelControl.dfm deleted file mode 100644 index f04e221..0000000 --- a/Varela/Varela/Source/Configuracion/uPanelControl.dfm +++ /dev/null @@ -1,262 +0,0 @@ -object fPanelControl: TfPanelControl - Left = 509 - Top = 252 - BorderStyle = bsDialog - Caption = 'Panel de control' - ClientHeight = 458 - ClientWidth = 547 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - PixelsPerInch = 96 - TextHeight = 13 - object TabControl1: TTabControl - Left = 8 - Top = 32 - Width = 531 - Height = 383 - TabOrder = 0 - object Image1: TImage - Left = 112 - Top = 153 - Width = 48 - Height = 48 - AutoSize = True - Center = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000003000 - 00003008060000005702F987000000097048597300004E2000004E2001167D99 - DE0000000467414D410000AA11B57D14DC000016574944415478DAD55909905D - 65993D777DF7EDAFFB75A75F77A73BE94EA7B3922640D8229000E228E2A810C6 - D21970CA65600A0B95D151B12CA56AC6711D75449D08E2308C25E04204044380 - B08728210964EB24DDE97D7FFB76F739FF7D0DA53599194B29A7A6BB6EDEED97 - F7EEFDCEFF9DEF7CE7FBAFE4FB3EFE3FFF489FDA14FB9D376AB68BF37AD3306D - 07B62B61AA5246425771622187DEA63464C58722C9A83A1E1C5FC24CB9865F1F - A9E2A9FDB7E0D8FEB1D7AFA37B212C5473B0BD3A5625CFC91C9F1A7C8BAAEB57 - C5A3EA65AEEDA5AAB53A4CCB8669DA56B658DD1B56DCDD0FBD3071FF8E3D5323 - F305B3A02812BC3F1580D15215E62070C527FA51C95519BC8167A513F8EE9537 - E264FE245644CFC4B1B1A367AB867E59321EDAEC395E47B55A8B589653AC5B76 - 315BA81C30646FCFCF9E1E7DF427CF4D552DC76D2C82AAE07FE3C71B06205506 - 2EFAF000CAB91A42BE8157B483E88926B1A1FDECD4E68E4B3E3C591BB94CD3B4 - 01DBB1DA3CD743A55A0FEE51B7EA28E7CDB2AABAA75E3E9E7DE2F068FEF9FB9F - 18BD37D312C6E86C0DAA2CFFDF00D82B1FC4DA64A2FBFCA5177FE0C215E77DCE - 540A90F8BD6C360FDBF650AE55797D0766D524080B2ECF991184C398BCE3C1E1 - BFBFE7B1530F329C82C62CFCC9005CF1A9F3313D340D9714684AB7616547EB07 - 3A52ED1FEB6E6B5F57732B107C28166A41B0E53A5F1970DDACA356B3613926DF - 77113764BC7434F7E4E3FBE6BEF9CCE1991D85B2F3060248A523B2EA87082042 - 001601B804902700AF4353313FE1E0AF3FFA3E8C9F1AC3C0597D57F57437DF01 - D55E02DD46ADC2403C1F96C99576F9370BD87318789D854C1A95AA161CDB84A2 - C9688E189898ADBEF2AD07063FB5E768F6976F088043B339B53FDDFC564966AC - B2DC5D73FC05C7536A53E5F2DEE1627D68B9A1E6C4CAC6DA9BB07ACD2AF4ACCA - 7C637947FA665592A051514CD3854F3A9B04E03A0E6A5C798759F408C6B52D14 - 2B7566C10E6248450D4C2ED471DF93A7BEF8D08BD39F091B0AA43F14C048B1D0 - A74ADE95692336100F1B67FA9E9B72E0B771F94B16E329D6CCC142DD9A9D2BD4 - F618927F60494FE6E9359BD6AEE85BDE7A4F6BD238DFB2C5CA2BF03C870990E1 - 7A366452C9F32CD4EA1646A60AC8E64DD8A4635C9758271E3A5B43BCB78F7DC7 - F283FFBE6BE486E313E5DDAC05FFF706B0B9AF0525A6B6603ACB9B42C6AD4BA2 - C6070D55439D1CB53C8F9FB1E1F0DC21254CCF0DA8319DCB63C1749E32DAD23F - 5C7FE6EAB665CB5357B7C6639B6C7ECE63B3140D53ACA2CDEF8A33C712C5EB62 - 78B2845CD541346460494267564C24221E2C167ABEEC54763C3F7DFBCE7D93DF - 4F84B513BF17009B12D796D4D19E8CAE5364F5E3ED91F8F5BA2A2BE2E685402D - 5C16B0C80E01B0584DDF85D089F97215147064251CECEAE90CAF3DA3A7BDAF2F - 13AB911A123F2F945D913DCCCD573093AF622A67419514446321649AA2686D8E - 41E7FF576B26F2A532E60A5514CA269E3C30B773E7DEE9DB1211EDB9D302F8FC - F989D7FF10AB6B92972D49B56763A6757B2214BB3C1ED29063D7142B5EE2EA79 - FC8CC884B378D4F879B23B904250B3A7160A404847DB8A0EACDDB0022AA1CB7C - BF6E5A906489AF4085D9ADF0356A44B072590A7D1D1134C7341459C83566636A - 3E8FD19912696C62F7FE99977FFCC4C86D9DE9C803A70570F5DAD78207564474 - C09595FE4CF2F31B3AD29F957C0D941CAE2CD5821410D41119A82D066F933A8E - 2732E10435E330D06CA50A9732EB8505882E34A56290149DAB5AE7FB0ADA5BE2 - 48C723E8688D435525240C9DB26C4358079BF40D28C7A2CE174DC40C1F3B9E1F - DBF7ED1D83FF38365BFDE96901BC777DA3BE4530195D436732766D6F3AF5839E - A6645450822212041B646791CF0E6963997690EE7916624556D884EC802A3258 - 1FB2CA552497BB9AD0BFBE0F3D7DCB6155AB0C983C6F89A09320BAF8EA4BA291 - 31D84A0D36AFE7F3FA826AE1900C876AD5DDAAE2C7BB4E1DFADC3D07BE7C7CBC - 7CF769016C63060C2173ACFACE78F88CB33AD2B726D4D0DBA2A150DC16011181 - 085A089CC51B8862F4791BCB114556439677ACB37D3A04A8570AF0F91D4F9131 - 3D5545BA2B89BE75FDB8E8D2B3900ECB813C96D879832B08BF435D71858CF2BB - 41F0C1E105B55225B0F62605F7EF1E7DF52BF71FFEDAD074F587A705F0E9F3D9 - F6E7EAE436707647F8BA8B97B6FF9BCE1585AF30685E8C00244AA0C6D762B506 - 93241EA6612BAB3AEAA11096F666B0B42B4D1551B0303987C1A3A3989ACA6276 - 1A68EF025ABB97E25D576FC1405F1BD46404A5991C41928EAC19DF6737A71279 - 92CFA6E604007C014005B36B519514FC64F7C8AB5FF9C9D1AF0F4F97EF3A2D80 - 8F6DD23156B18412627D53EC1BEB3A5A6E96C51F1EB9A3040A19644020344527 - E5B2CDB25EBD6414D1F6166C5CDB8535DD093485550C8DE771E0E0308E1E1EC1 - ECE414058105CBE3CD579C83CB2F3A031D4B9A30450082FBE27A815DF61938D3 - EB13841380F0C0B24085F682A28A1F3D7E6AF7F6474E7C6B62A1FEF3D302B861 - A32AB747756FA26C36F5B6A4B62F8B46AEB1B8CA362F20B4B3463DCEF1A225DE - 446A49C04824B07C450619518C6D0924A32124A21214822B525A84CB1C1B99C3 - E1C3C338F8EA28B24560CB25FD78E7951760E9D234E666732C5804B4118DCD77 - 1ACAD6381A148AD24E944C33C8CA8F9E38F9ABEFED18FA66F792F023A705F0B9 - 0B2354154111E5BC5448FF523C1EBBC4A57590984766122E3BA4472935351D4D - 9DAD4834A7B0BEBF0319A6376948C8E5CA34636C4A2C425217AD9938CA549CE1 - 9129EC78702F0E0FE6D1DF97C6BBB76DC14A02AF174ABC364BDD12E52A6A0AAF - 0370BD466F49475552C8C1F18979FCEBC327FFE5E117A7EF4C45B503A705F089 - F3C3140FCF9754E9E2A8E37D21D596DE12E9CC20DC46E749698C47427496A448 - 2282543C4C7FEE91024A507CA281598BBDC1E64A4A8C49D51566A1469562137A - EA20F6EC1D43737B1CDBDEBD152BFB32906A35961725D3F40231684CB46E2002 - 1EB32D64794932843233F9CC4B9373DF7C60F02BFB478AF74774E5D4E901B006 - C44528DD5BADB2755B5B4FFB9B969DBD0E7D1BFB2199353618035182100E5157 - 7DD1AA51AA54E863D81B44017AE26011DA0D35516859443662E1109E7AE62076 - EE3E02998D6DDB355BB176553BCD69A3A155095861C684AA79BED7B01B220B94 - E865CD2152AF86AFDD77E4B96F3F34F419C6F93C8FD3FA6AE9939BB4E0028A2C - 5F5E2EDA5FE8EECD5CB8E2CC95D874E13A68BC588C4EB0C27406F219D4363B6B - 70EE0537148D47FC78813FF240571D9834CAA4FFF473AFE2C5174F493A33F78E - 776CC6DA95EDBC261580D710122D80FB8B3EC9155E4948218B995D0587860BB9 - AFDE77ECAE3DC7725FE5E5A7F0DFFC481F3F2F2402A1DB51DE51CFD56F5DBABC - F5AC15037DD874F199882A2E79AE2257B602EDF6A84C422D84660B09B1C50DDD - C6C2088BECF03C440A95A9F56EDDF29F2480DFEC1B97E294CFABDE7E0156F5B7 - 43764D213954283B90B80600362E5EB0D900BA68E8F6EC99CC6F7FF8C46377ED - 9FB99397FE15FE871FE9660220FF92AAA2BCD72FD66F69CE2456C4326D388719 - 10DDB22915A5A9B2982141560ED992D06A916EC1600FB2F0425EE31032188BE9 - 28D1AC8D4FCEFB4F3D7B1043C35529950EE3C28B376260D512A4C27EB018B59A - 1B6442AC84A06144526916EB810A6D7FF2D4E11D7B27EE9A9DB0BECB0F54CEDD - 3180D1EDE3987974016A5C85436D16AD4AC8AF74F3B9BA28C2564996AFA3A1B9 - 29D5145F2EC51338EB82B558BFAC09AD6D49CCB371C9FC659D70D116012CDA63 - 910D9108C77302CB918A1BC8E52B183C3EEE3FBE7B3FF21C853576EA33CE5A8D - 0BD73763659B4C8228A83B4AD06B6485168275D1A684F0C2C9021E3B99C77D33 - 73476B2AEE9ED937FFC59537ADA2989858783287F9E70B50630A9CAA4B25E3BD - 05808F9CC361C34527DFB851F6BC0F6B7AB8354F59DC74DE1A5CB27935BABADB - 3039394F5749CDF61A0D4750C0271029B0150D8B215008695C928E62663E8BDD - CF1CF29F7D6602092AF25C4A81D2DD8D8B370CE092250976E13C72C571D24E86 - 41DF54F375E866180F64E7B0B33087D14E2FDBDDD97CD8CD9A2FDA47723F4BAD - 0DBF927DAA503A2D801B364A22884EAEE64DB2247F4095E5D6B9BC8D0D034BBD - 0B376F9056ADEAF4F3F33959D39446D105DD536A6462B198858C8A0A7728BB86 - A1616474162FEC3D82032FE7D1AE01C73A81B9EE0CCEE8BB147F965809C59945 - AD3444F7E94077A39865CF3D5628E3D78919D4977266EE52912887582F0ACCF1 - D21E98957B66764EDD9EDF57A5CD901A05FF1A800F0E70F164F47392FB242DED - 5FF1552F647DF4AC8860C379FD38F7ECD54143A32342A5CC6F885A20777DAFC1 - 6551C426BD4D9C0ED20881F42962DFFE51BC74F01466475D6408E0C03260A837 - 89AE8E4B717DD75558B6A415AD7109B3A52C3ADD4E0C5B59DC39B9033BB45D68 - ED4CA33915879ED3394B1BF0B2F469057B32FBEBB12FE75F99FB51A4233137BB - 6B0E92BE08E0FD0322382C65287F4B79BE810C6912438766C06C6E6EC1E60BD6 - 6867AC6995C37A0845BA4F5177AF495FA0E10420AA4193FD20432F1F19C7BE97 - 193C3B74983788578143CB81B14D6D30DB9AF1BEBE77E3EDEBB671EE1EE09C41 - D3562DE1F19947F1C3D2DD783AF72C5AAC36442B714A1C6BCEE4AC6069BC7618 - 7EB564D50BD9EF8EDD37F48FE563B5D9A08B7A41270ED428C2C0AE2788EF2C50 - 15E7788CCFE120E87CDF72D18A966BDED6DBD9BD2405ABC2262576D31C51078D - D9C0E0179BB89A39FAA023B345FCE2D963183E99635103AB09B6758614EA050E - 5ED489C1BE22DED57D05FEA6E323784BDF25F4F1C033D93DF8EAF12FE325E740 - E01F43D5088CB201C95620D77958061B5E08AA25CC5EAD36BDFBE84D33CFCEFC - 40A3DDB1E639AFAC69E700A10535B83424615BAB226D0B6986AAE412BE548DAA - 3DDDE9B60D17463A3BFA5518292137BCA827E4483430618B590B460DC74F5A18 - 3D0A4C1C65CF504AB0953A6ACD453A5807E3EB62280C6430BC620ABD910CB6BA - 17E1EAE6AB504DD6716FF95E3C30F1083BB88A1EA51FAEC902AD68541EDEC754 - 09A271AE3951363A36D5B9B1A199FDC76ECC3E5BDAE99329D299EB81FDAF2E76 - 05A6E59248DBD67546C75BDF145B737DD450933473FA7C6A5A72FB7348AEB210 - 710DA4690D4411AB5490D16C05C3E4F2C42105C64C0BD6E59723D2E2619E36E4 - C1AE610CB5E7307D2E9059D20CB3C5A569A45DB64288EB34CB2A0717A546A76B - B29F4808D5A3816150EAAC3A5B0C052A34BEFAA493664602206EAD58CC0E0EDF - 31B37BEAF6FA823924FD03AEE144E6719869C175630FE3DAF4FA5B56EB992D9B - 5B97BD3DC499B4306BE3A8348E899527A09E9B439B9C4498B3729ECD4D22C98B - 256074BA02ED600BBAEADD38CFEF819A9668C37D3C1A1DC1896409CF5D3A8DCA - 3A06D9A120C45937EBCCA1589B0F8A2F66A4D1AA2E41C8A227AB48414F51C4AA - 5BD45F062FD7480FD2477322F428945B5AF7D2A9B1C1D1878E7EB2345EDA29FD - 9DB61575D2A125A9B7AC6D5A725B3C64DC28EC80D8517369CC12E528AC988591 - D653A86CA46AA463FC3F0DB39CE2AC580DA102ADC829036D43ED4869519A350D - 39AF8288478E965D9865070FAF9EC4D35B6631BABE8E949856C87D25D8849382 - 1D0DD118396807BC975C29085A7609C0E4DFCC86CC0C28AC05F06F9D6A571C99 - 9C1C7DF4F0ADE589D2C3D227F4CBD1648713AB3A539FCE34256EA1C46B41C7E5 - C02D56A8C989C1D16D1C9447609D9BC5DAB5CDC87444303351473D5D8134A643 - 7A2E85C82B69528729E66FD9B58240B40AFB770D38AA66B1B7770EBBB6CE61FA - 7C0B21DE2052538246E8D207A95E30984112AB2EBA33954761B020ADA46A28D0 - 799115B0A823315AEDF159FBE443073F5B9EC8DE2B7D54DA9A6C8A86FFB2AFBD - E9DBE95024E8B42A2FAC706C52789E9205000783330BF03756D0BB2582813747 - E14E69289A55CC3EE142DE976016C2B09BEAB02531B07BC18697D8B9137B42D1 - 71095956DC83678CE29177CE022D1484180332F9FF220F0200010BCA08004126 - 0846B616DF6306542B1C64C0A0D72A8E4DD4871EDDFF85F278E17EE94B2D576D - 896AA1F7B6C7231F125A2F7A934E4DA73782CE0CC45583F5E4617AAC8ADA8632 - 966CF1B1F6EA38A2F3ECA047AA18FD8589F84C023AA5CF0C89FD23DA6A4730A2 - 319C301788175494250B2FC466F0D8E6492CACA59D5EC17AC8FB4196255A0A39 - 0041ED27F5244B5087632A3B31C43901A96482E28660D0CCE5C687ACE15F1EF8 - 7C698C00EEEAF98BDB2952EF4B84D4A422FA33AFA4D1EA857888A665D0E00BB3 - 214DAA28F69450D85840E77B34F43AAD28EEF231762F8717AA52282EA36ED9B4 - D8087A80502993202C6621CC206CD94561BC82A7FBE6B1EFB21A462EF3D19A37 - 0293287622644F7803021020C4EA933E7075D602E943C596B9FA5E9DF49C9EC6 - FCE0D053732FCFFCB353B6F748DF6FDFF680A22A7F1E0F85A0D3EFC8CC278703 - 82E0176551CC088E68358C7CBA8CA9F6053FB255C60AAD49F2F7918F8FB32043 - ECC211A931D3BA7E631F69719B526C998802ADD28687A77CECEDCCE2C90BF278 - F522135D661CAAC6EFD51BF644628F5104951C35E0BFEC3732203617DC6285A2 - 50AECF1E187A297B7CEE17D6BC2B76EA26A53B975E3BC8616665949D4DA7AED3 - 7406BC157B43E2F194D80F12459DF40DCAB28519A5EC5B19CBCBE831D9C88620 - 4D50AF425C69D50D14C5751AD39590C3C64E1E255DECE4B14ADB66C2D81F9BC7 - CFFB4FE1F94D0B5E6FB885964571DD2A51BB32FD381ADB126207B3E6982C28D3 - 2AD4734EC135CDF9F29455B5C72A13D967DC2A7EC3E0831959DADE79CD010EE9 - 1BA2AAD6285C59094008FB2C1E2B888713E237C434F85C15DBE3D45A774591F8 - BA21C9BAA14962B4B49CC5D15080107BA63C17BB77E23D31B05BECC81DF5047E - E38FBBF729AF1CDADB3CF2627324E5C851B58AB25872DFE2504FD6F99E6BF3DC - B46B9EE954AC923BEB5450A6AD1961BC591EF3BF33916D5F7AED3102E88F88C0 - 45B0E295FF11129B370C5C67E0627B51A1D3930447C5506049AC375F585B49D1 - 102C9A785E86C5D956A88FBBF8EC403048042FC0ACD232D8571AC10F0A7B7FBA - D71EFB3A6BAEC45BCC335DC96068F7C552505C7DDF12ACE12FDB2143A78EF0D7 - 847B9A91F28EF6F77C87C17EC8D035553C9715749182C15AD4831FECA2C98DC6 - 106C950B695594C6A34F4F3CA8109213342451FF7E30DB3A6EC36E0B10AEA829 - 2A4B9DF35F4A8E6057F6E8DC8F17F6FDD310725FD7337A6089F9C140FDB0B871 - 106CB504F3B6DFB05CC23A9BC1EECB7F05F0BDD66BAED355F5FD71C3D86A681A - E3F4026D96C582F21F41A30010CF657117CEAE92DC78DA239EA5FB62D0179C17 - 92E57A012837D8224160AFC58A44A96E65CB41D1AAE181FCA1E776D506EFCEBB - D5EDE21AC65203AE7812F98702D8ACF7C4238AB6A9CF68B9A137943EB3458F2F - 0F2BB21696E9C399114314336188F61C6CF44AC1738CE0FA02802DDE137C173B - CBBEA83F71EE05F371D9B1827D9E39A75A1BB77233FB2B53270EDB53FF31EF56 - C53ECFE06B41845AB97096FF870168985009036A666597DEF4A6A416B938AE84 - 5AE2AAD6A1CB5A28AC849AC92285ED9F9457645F0A4A445CDF110FE4C4481E68 - BEE85B9EE750715C7661CB716CABE09BB9BA6BD927ABB9E1512F7F74DCCDBFCC - AF1EE231FBDB41FCD100229CCF56CA4DAC4D2F32E5577AC390239AA2A6154F0E - 93EF49C997382A4BB47892E62F767F31D78B3D66569E13705FF2C416B747DDB7 - 1DF138C1F72C0229905456DE35397AB8423D664EB7B7F34703B832BC1A05AF2E - CDB865FFB8F3BA4AE98B076D603016BF76881FB931D02DD67283C1EE6FBDBE76 - 988BEF99D2625C6F3480FF047136462EB85916B00000000049454E44AE426082} - end - object lblUsuarios: TcxLabel - Left = 168 - Top = 152 - Cursor = crHandPoint - Caption = 'Administraci'#243'n de usuarios' - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clHighlight - Style.Font.Height = -13 - Style.Font.Name = 'Tahoma' - Style.Font.Style = [fsBold] - Style.HotTrack = True - StyleFocused.BorderStyle = ebsNone - StyleFocused.TextStyle = [] - StyleHot.BorderStyle = ebsNone - StyleHot.TextStyle = [fsBold, fsUnderline] - Transparent = True - OnClick = lblUsuariosClick - end - end - object Button1: TButton - Left = 464 - Top = 424 - Width = 75 - Height = 25 - Caption = '&Cerrar' - ModalResult = 1 - TabOrder = 1 - end - object JvNavPanelHeader1: TJvNavPanelHeader - Left = 0 - Top = 0 - Width = 547 - Align = alTop - Caption = 'Panel de control' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - ColorFrom = 8684164 - ColorTo = 8684164 - ImageIndex = 0 - StyleManager = dmBase.StyleManager - ParentStyleManager = False - end -end diff --git a/Varela/Varela/Source/Configuracion/uPanelControl.pas b/Varela/Varela/Source/Configuracion/uPanelControl.pas deleted file mode 100644 index c2609b8..0000000 --- a/Varela/Varela/Source/Configuracion/uPanelControl.pas +++ /dev/null @@ -1,50 +0,0 @@ -unit uPanelControl; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, ComCtrls, JvExControls, JvComponent, JvgWizardHeader, StdCtrls, - ExtCtrls, uDataModuleBase, JvNavigationPane, cxControls, cxContainer, - cxEdit, cxLabel, Buttons, PngSpeedButton, pngimage; - -type - TfPanelControl = class(TForm) - TabControl1: TTabControl; - Button1: TButton; - JvNavPanelHeader1: TJvNavPanelHeader; - lblUsuarios: TcxLabel; - Image1: TImage; - procedure lblUsuariosClick(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - - - procedure VerPanelControl; - -implementation - -uses uUsuarios; - -{$R *.dfm} - - -procedure VerPanelControl; -begin - with TfPanelControl.Create(NIL) do - try - ShowModal; - finally - Free; - end; -end; - -procedure TfPanelControl.lblUsuariosClick(Sender: TObject); -begin - AdministrarUsuarios; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.dfm deleted file mode 100644 index f615384..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.dfm +++ /dev/null @@ -1,172 +0,0 @@ -object dmControles: TdmControles - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 300 - Width = 300 - object RemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvControles' - Left = 56 - Top = 16 - end - object ds_Controles: TDADataSource - DataSet = tbl_Controles.Dataset - DataTable = tbl_Controles - Left = 176 - Top = 80 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetDataCall.RemoteService = RemoteService - GetDataCall.MethodName = 'GetDatasetData' - GetDataCall.Params = < - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'ListaControlesPorCategoria' - end - item - Name = 'Params' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - Value = True - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - Value = -1 - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RemoteService - DataStreamer = DABinDataStreamer1 - Left = 56 - Top = 80 - end - object DABinDataStreamer1: TDABinDataStreamer - IsCompatibleV4 = False - Left = 56 - Top = 152 - end - object tbl_Controles: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datAutoInc - Required = True - ServerAutoRefresh = True - InPrimaryKey = True - end - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - end - item - Name = 'MODIFICABLE' - DataType = datString - Size = 1 - DefaultValue = 'S' - end - item - Name = 'ICONO' - DataType = datSmallInt - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - end - item - Name = 'ORDEN' - DataType = datSmallInt - end - item - Name = 'VISTA' - DataType = datMemo - end> - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Value = 'vebyas' - ParamType = daptInput - end> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - LocalDataStreamer = DABinDataStreamer1 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'ListaControlesPorCategoria' - IndexDefs = <> - Left = 176 - Top = 16 - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.pas b/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.pas deleted file mode 100644 index 9fbe2d4..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uDataModuleControles.pas +++ /dev/null @@ -1,76 +0,0 @@ -unit uDataModuleControles; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uROClient, uROServiceComponent, uRORemoteService, - uDARemoteDataAdapter, uDAInterfaces, uDADataStreamer, uDABinAdapter, - uDAMemDataTable; - -type - TdmControles = class(TDAClientDataModule) - RemoteService: TRORemoteService; - ds_Controles: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - DABinDataStreamer1: TDABinDataStreamer; - tbl_Controles: TDACDSDataTable; - procedure DAClientDataModuleCreate(Sender: TObject); - private - { Private declarations } - public - function GetItems (const ACategoria : String): TDACDSDataTable; - end; - -var - dmControles: TdmControles; - -implementation - -{$R *.DFM} - -uses - Forms, Controls, - schControlesClient_Intf, - uDataModuleBase, uDataTableUtils, DataAbstract3_Intf, cxControls; - -procedure TdmControles.DAClientDataModuleCreate(Sender: TObject); -begin - RemoteService.Channel := dmBase.Channel; - RemoteService.Message := dmBase.Message; -end; - -function TdmControles.GetItems (const ACategoria : String): TDACDSDataTable; -var - dtControles: TDACDSDataTable; - //AParams : TDADatasetParamArray; -begin - ShowHourglassCursor; - try - dtControles := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_Controles, dtControles); - - // Begin adaptación DA5 - {AParams := TDADatasetParamArray.Create; - with AParams.Add do begin - Name := fld_ListaControlesPorCategoriaCATEGORIA; - Value := ACategoria; - end;} - //dtControles.DataRequestCall.ParamByName(par_Params).AsComplexType := AParams; - - dtControles.ParamByName(fld_ListaControlesPorCategoriaCATEGORIA).AsString := ACategoria; // adaptación - // End adaptación DA5 - Result := dtControles; - finally - HideHourglassCursor; - end; -end; - -initialization - dmControles := TdmControles.Create(nil); - -finalization - FreeAndNil(dmControles); - -end. - diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uDateUtils.pas b/Varela/Varela/Source/ControlesBase/Cliente/uDateUtils.pas deleted file mode 100644 index d46a72b..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uDateUtils.pas +++ /dev/null @@ -1,68 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uDateUtils; - -interface - -function NumberDayOfTheWeek(const ADay : String) : Word; -function NumberMonthOfTheYear(const AMonth : String) : Word; - -implementation - -uses - DateUtils; - -function NumberDayOfTheWeek(const ADay : String) : Word; -begin - if (ADay = 'Monday') or (ADay = 'Lunes') then - Result := DayMonday; - if (ADay = 'Tuesday') or (ADay = 'Martes') then - Result := DayTuesday; - if (ADay = 'Wednesday') or (ADay = 'Miercoles') or (ADay = 'Miércoles') then - Result := DayWednesday; - if (ADay = 'Thursday') or (ADay = 'Jueves') then - Result := DayThursday; - if (ADay = 'Friday') or (ADay = 'Viernes') then - Result := DayFriday; - if (ADay = 'Saturday') or (ADay = 'Sabado') or (ADay = 'Sábado') then - Result := DaySaturday; - if (ADay = 'Sunday') or (ADay = 'Domingo') then - Result := DaySunday; -end; - -function NumberMonthOfTheYear(const AMonth : String) : Word; -begin - if (AMonth = 'January') or (AMonth = 'Enero') then - Result := 1; - if (AMonth = 'February') or (AMonth = 'Febrero') then - Result := 2; - if (AMonth = 'March') or (AMonth = 'Marzo') then - Result := 3; - if (AMonth = 'April') or (AMonth = 'Abril') then - Result := 4; - if (AMonth = 'May') or (AMonth = 'Mayo') then - Result := 5; - if (AMonth = 'June') or (AMonth = 'Junio') then - Result := 6; - if (AMonth = 'July') or (AMonth = 'Julio') then - Result := 7; - if (AMonth = 'August') or (AMonth = 'Agosto') then - Result := 8; - if (AMonth = 'September') or (AMonth = 'Septiembre') or (AMonth = 'Setiembre') then - Result := 9; - if (AMonth = 'October') or (AMonth = 'Octubre') then - Result := 10; - if (AMonth = 'November') or (AMonth = 'Noviembre') then - Result := 11; - if (AMonth = 'December') or (AMonth = 'Diciembre') then - Result := 12; -end; - -end. - \ No newline at end of file diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.dfm deleted file mode 100644 index 0aa84fd..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.dfm +++ /dev/null @@ -1,1324 +0,0 @@ -inherited fEditorControlBase: TfEditorControlBase - Left = 499 - Top = 302 - Caption = '' - ExplicitWidth = 320 - ExplicitHeight = 240 - PixelsPerInch = 96 - TextHeight = 13 - inherited TBXDock: TTBXDock - inherited tbxMain: TTBXToolbar - ExplicitWidth = 523 - inherited TBXItem2: TTBXItem - Visible = False - end - inherited TBXSeparatorItem1: TTBXSeparatorItem - Visible = False - end - inherited TBXItem5: TTBXItem - Visible = False - end - object tbxiPropiedades: TTBXItem [7] - Action = actPropiedades - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem14: TTBXSeparatorItem [8] - end - end - inherited tbxMenu: TTBXToolbar - inherited TBXSubmenuItem4: TTBXSubmenuItem - inherited TBXItem10: TTBXItem - Visible = False - end - object TBXSeparatorItem15: TTBXSeparatorItem [6] - end - object tbxiPropiedades2: TTBXItem [7] - Action = actPropiedades - end - end - end - end - inherited EditorActionList: TActionList - inherited actGuardarCerrar: TAction - OnUpdate = actGuardarCerrarUpdate - end - inherited actGuardar: TAction - OnUpdate = actGuardarUpdate - end - object actPropiedades: TAction - Category = 'Archivo' - Caption = 'Propiedades' - ImageIndex = 20 - OnExecute = actPropiedadesExecute - end - end - inherited SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.pas b/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.pas deleted file mode 100644 index ee7b12f..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlBase.pas +++ /dev/null @@ -1,133 +0,0 @@ -unit uEditorControlBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, - uBizControlesBase, schControlesClient_Intf, uViewControlBase, uDAInterfaces; - -type - IEditorControlBase = interface(IEditorDBItem) - ['{A9892225-82DB-41AF-B69D-821E0663B3EF}'] - function GetControl: IBizControlBase; - procedure SetControl(const Value: IBizControlBase); - property Control: IBizControlBase read GetControl write SetControl; - end; - - - TfEditorControlBase = class(TfEditorDBItem, IEditorControlBase) - actPropiedades: TAction; - TBXSeparatorItem14: TTBXSeparatorItem; - tbxiPropiedades: TTBXItem; - TBXSeparatorItem15: TTBXSeparatorItem; - tbxiPropiedades2: TTBXItem; - procedure actPropiedadesExecute(Sender: TObject); - procedure actGuardarCerrarUpdate(Sender: TObject); - procedure actGuardarUpdate(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - protected - FControl : IBizControlBase; - FViewControl : IViewControlBase; - function GetControl: IBizControlBase; virtual; - procedure SetControl(const Value: IBizControlBase); virtual; - procedure RefrescarTituloEditor; virtual; - function GetModified: Boolean; override; - procedure RellenarCabeceraInforme; virtual; - public - property Control: IBizControlBase read GetControl write SetControl; - end; - -implementation - -uses uEditorDBBase, uEditorBase; - -{$R *.dfm} - -{ TfEditorControlBase } - -function TfEditorControlBase.GetControl: IBizControlBase; -begin - Result := FControl; -end; - -procedure TfEditorControlBase.SetControl(const Value: IBizControlBase); -begin - FControl := Value; - dsDataTable.DataTable := FControl.DataTable; - if Assigned(FViewControl) then - FViewControl.Control := FControl; -end; - -procedure TfEditorControlBase.actPropiedadesExecute(Sender: TObject); -begin - inherited; - try - FControl.VerPropiedades; - finally - RefrescarTituloEditor; - FViewControl.Modificable := FControl.EsModificable; - inherited actGuardarExecute(Sender); - end; -end; - -procedure TfEditorControlBase.RefrescarTituloEditor; -begin - if Assigned(FControl) and (Length(FControl.NOMBRE) > 0) then - begin - Caption := FControl.NOMBRE; - JvNavPanelHeader.Caption := FControl.NOMBRE; - end; -end; - -function TfEditorControlBase.GetModified: Boolean; -begin - Result := inherited GetModified and - (Assigned(FControl) and FControl.EsModificable); -end; - -procedure TfEditorControlBase.actGuardarCerrarUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := Assigned(FControl) and (FControl.EsModificable); -end; - -procedure TfEditorControlBase.actGuardarUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := Assigned(FControl) and (FControl.EsModificable); -end; - -procedure TfEditorControlBase.actPrevisualizarExecute(Sender: TObject); -begin - RellenarCabeceraInforme; - inherited; -end; - -procedure TfEditorControlBase.RellenarCabeceraInforme; -begin - inherited; - // -end; - -procedure TfEditorControlBase.actImprimirExecute(Sender: TObject); -begin - RellenarCabeceraInforme; - inherited; -end; - - -procedure TfEditorControlBase.actEliminarExecute(Sender: TObject); -begin - if not FControl.EsModificable then - ShowMessage('Este control no se puede eliminar') - else - inherited -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.dfm deleted file mode 100644 index 941ccbd..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.dfm +++ /dev/null @@ -1,1394 +0,0 @@ -inherited fEditorControlesBase: TfEditorControlesBase - Left = 385 - Top = 375 - Caption = '' - ExplicitWidth = 320 - ExplicitHeight = 240 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 0 - ExplicitTop = 0 - end - inherited TBXDock: TTBXDock - Top = 27 - ExplicitTop = 27 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 386 - inherited TBXItem2: TTBXItem - ImageIndex = 0 - Images = pngImageNuevo - end - inherited TBXItem29: TTBXItem - Visible = False - end - inherited TBXItem27: TTBXItem - Visible = False - end - object TBXSeparatorItem14: TTBXSeparatorItem [6] - end - object TBXItem7: TTBXItem [7] - Action = actPropiedades - DisplayMode = nbdmImageAndText - end - inherited TBXItem23: TTBXItem - Visible = False - end - inherited TBXItem3: TTBXItem - Visible = False - end - inherited TBXSeparatorItem10: TTBXSeparatorItem - Visible = False - end - inherited TBXItem26: TTBXItem - Visible = False - end - inherited TBXItem25: TTBXItem - Visible = False - end - inherited TBXSeparatorItem11: TTBXSeparatorItem - Visible = False - end - inherited TBXItem28: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - Visible = False - end - end - inherited EditorActionList: TActionList - Left = 72 - Top = 128 - inherited actNuevo: TAction - Caption = 'Nuevo control...' - OnExecute = actNuevoExecute - end - inherited actModificar: TAction - Caption = 'Abrir control' - OnExecute = actModificarExecute - end - object actPropiedades: TAction - Category = 'Archivo' - Caption = 'Propiedades' - ImageIndex = 20 - OnExecute = actPropiedadesExecute - OnUpdate = actPropiedadesUpdate - end - end - inherited SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - object ViewPopupMenu: TPopupMenu - Images = SmallImages - Left = 72 - Top = 88 - object Modificar1: TMenuItem - Action = actModificar - end - object Eliminar1: TMenuItem - Action = actEliminar - end - object N1: TMenuItem - Caption = '-' - end - object Nuevo1: TMenuItem - Action = actNuevo - end - object N2: TMenuItem - Caption = '-' - end - object Propiedades1: TMenuItem - Action = actPropiedades - end - end - object pngImageNuevo: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F84944415478DA - 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA - 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4 - 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F - FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF - 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911 - BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4 - 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B - 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945 - 4E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 91 - Top = 224 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.dfm.cbk b/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.dfm.cbk deleted file mode 100644 index 941ccbd..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.dfm.cbk +++ /dev/null @@ -1,1394 +0,0 @@ -inherited fEditorControlesBase: TfEditorControlesBase - Left = 385 - Top = 375 - Caption = '' - ExplicitWidth = 320 - ExplicitHeight = 240 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 0 - ExplicitTop = 0 - end - inherited TBXDock: TTBXDock - Top = 27 - ExplicitTop = 27 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 386 - inherited TBXItem2: TTBXItem - ImageIndex = 0 - Images = pngImageNuevo - end - inherited TBXItem29: TTBXItem - Visible = False - end - inherited TBXItem27: TTBXItem - Visible = False - end - object TBXSeparatorItem14: TTBXSeparatorItem [6] - end - object TBXItem7: TTBXItem [7] - Action = actPropiedades - DisplayMode = nbdmImageAndText - end - inherited TBXItem23: TTBXItem - Visible = False - end - inherited TBXItem3: TTBXItem - Visible = False - end - inherited TBXSeparatorItem10: TTBXSeparatorItem - Visible = False - end - inherited TBXItem26: TTBXItem - Visible = False - end - inherited TBXItem25: TTBXItem - Visible = False - end - inherited TBXSeparatorItem11: TTBXSeparatorItem - Visible = False - end - inherited TBXItem28: TTBXItem - Visible = False - end - end - inherited tbxMenu: TTBXToolbar - Visible = False - end - end - inherited EditorActionList: TActionList - Left = 72 - Top = 128 - inherited actNuevo: TAction - Caption = 'Nuevo control...' - OnExecute = actNuevoExecute - end - inherited actModificar: TAction - Caption = 'Abrir control' - OnExecute = actModificarExecute - end - object actPropiedades: TAction - Category = 'Archivo' - Caption = 'Propiedades' - ImageIndex = 20 - OnExecute = actPropiedadesExecute - OnUpdate = actPropiedadesUpdate - end - end - inherited SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end> - Bitmap = {} - end - object ViewPopupMenu: TPopupMenu - Images = SmallImages - Left = 72 - Top = 88 - object Modificar1: TMenuItem - Action = actModificar - end - object Eliminar1: TMenuItem - Action = actEliminar - end - object N1: TMenuItem - Caption = '-' - end - object Nuevo1: TMenuItem - Action = actNuevo - end - object N2: TMenuItem - Caption = '-' - end - object Propiedades1: TMenuItem - Action = actPropiedades - end - end - object pngImageNuevo: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F84944415478DA - 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA - 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4 - 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F - FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF - 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911 - BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4 - 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B - 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945 - 4E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 91 - Top = 224 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.pas b/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.pas deleted file mode 100644 index 3817fac..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uEditorControlesBase.pas +++ /dev/null @@ -1,167 +0,0 @@ -unit uEditorControlesBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorDBBase, Menus, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, - TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent, - JvNavigationPane, pngimage, uBizControlesBase, uEditorBase, - uViewControlesBase, uDAInterfaces; - -type - IEditorControlesBase = interface(IEditorDBBase) - ['{9B15BCEA-4C31-442A-89EC-773B66460A3B}'] - function GetControl: IBizControlBase; - procedure SetControl(const Value: IBizControlBase); - property Control: IBizControlBase read GetControl write SetControl; - end; - - TfEditorControlesBase = class(TfEditorDBBase, IEditorControlesBase) - ViewPopupMenu: TPopupMenu; - Modificar1: TMenuItem; - Eliminar1: TMenuItem; - N1: TMenuItem; - Nuevo1: TMenuItem; - pngImageNuevo: TPngImageList; - actPropiedades: TAction; - TBXSeparatorItem14: TTBXSeparatorItem; - TBXItem7: TTBXItem; - N2: TMenuItem; - Propiedades1: TMenuItem; - procedure actNuevoExecute(Sender: TObject); - procedure actModificarExecute(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actPropiedadesExecute(Sender: TObject); - procedure actPropiedadesUpdate(Sender: TObject); - protected - FControl : IBizControlBase; - FViewControl : IViewControlesBase; - function GetControl: IBizControlBase; virtual; - procedure SetControl(const Value: IBizControlBase); virtual; - public - destructor Destroy; override; - property Control: IBizControlBase read GetControl write SetControl; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -{$R *.dfm} - -{ TfEditorControlesBase } - -function TfEditorControlesBase.GetControl: IBizControlBase; -begin - Result := FControl; -end; - -procedure TfEditorControlesBase.SetControl(const Value: IBizControlBase); -begin - FControl := Value; - dsDataTable.DataTable := FControl.DataTable; - if Assigned(FViewControl) then - begin - FViewControl.Control := FControl; - end; -end; - -procedure TfEditorControlesBase.actNuevoExecute(Sender: TObject); -begin - inherited; - try - FControl.Insert; - FControl.Show; - finally - FViewControl.Refresh; - end; -end; - -procedure TfEditorControlesBase.actModificarExecute(Sender: TObject); -begin - inherited; - try - FControl.Show; - finally - FViewControl.Refresh; - end; -end; - -procedure TfEditorControlesBase.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(FViewControl) then - raise Exception.Create('No hay ninguna vista asignada'); - - if not Assigned(Control) then - raise Exception.Create('No hay ningún control asignado'); - - FViewControl.OnDblClick := actModificar.OnExecute; - FViewControl.PopupMenu := ViewPopupMenu; - - Control.DataTable.Active := True; - - FViewControl.Refresh; -end; - -destructor TfEditorControlesBase.Destroy; -begin - FViewControl := NIL; - FControl := NIL; - inherited; -end; - -procedure TfEditorControlesBase.actEliminarExecute(Sender: TObject); -begin - try - if not FControl.EsModificable then - ShowMessage('Este control no se puede borrar') - else - if (Application.MessageBox('¿Desea borrar este control?', 'Atención', MB_YESNO) = IDYES) then - inherited; - finally - FViewControl.Refresh; - end; -end; - -procedure TfEditorControlesBase.actRefrescarExecute(Sender: TObject); -begin - inherited; - if Assigned(FViewControl) then - FViewControl.Refresh; -end; - -procedure TfEditorControlesBase.actPropiedadesExecute(Sender: TObject); -begin - inherited; - if Assigned(FControl) then - try - FControl.VerPropiedades; - actGuardar.Execute; - finally - FViewControl.Refresh; - end; -end; - -procedure TfEditorControlesBase.actPropiedadesUpdate(Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and not (dsDataTable.DataTable.State = dsInsert) - else - (Sender as TAction).Enabled := False; -end; - -constructor TfEditorControlesBase.Create(AOwner: TComponent); -begin - inherited; - actModificar.ShortCut := ShortCut(VK_RETURN, []); -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uFormPropiedadesControl.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uFormPropiedadesControl.dfm deleted file mode 100644 index 9180b16..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uFormPropiedadesControl.dfm +++ /dev/null @@ -1,384 +0,0 @@ -object frPropiedadesControl: TfrPropiedadesControl - Left = 569 - Top = 354 - ActiveControl = edtNombre - BorderStyle = bsDialog - Caption = 'Propiedades del informe' - ClientHeight = 418 - ClientWidth = 378 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnCloseQuery = FormCloseQuery - PixelsPerInch = 96 - TextHeight = 13 - object Label1: TLabel - Left = 15 - Top = 84 - Width = 92 - Height = 13 - Caption = '&Nombre del control:' - FocusControl = edtNombre - end - object Label2: TLabel - Left = 48 - Top = 112 - Width = 59 - Height = 13 - Caption = '&Descripci'#243'n:' - FocusControl = memDescripcion - end - object JvgWizardHeader1: TJvgWizardHeader - Left = 0 - Top = 0 - Width = 378 - Height = 60 - CaptionFont.Charset = DEFAULT_CHARSET - CaptionFont.Color = clWindowText - CaptionFont.Height = -11 - CaptionFont.Name = 'MS Sans Serif' - CaptionFont.Style = [fsBold] - CommentFont.Charset = DEFAULT_CHARSET - CommentFont.Color = clWindowText - CommentFont.Height = -11 - CommentFont.Name = 'MS Sans Serif' - CommentFont.Style = [] - SymbolFont.Charset = DEFAULT_CHARSET - SymbolFont.Color = clHighlightText - SymbolFont.Height = -35 - SymbolFont.Name = 'Wingdings' - SymbolFont.Style = [fsBold] - Captions.Strings = ( - 'Propiedades del control') - Comments.Strings = ( - 'Introduca los datos del control') - Gradient.FromColor = clGradientActiveCaption - Gradient.ToColor = clGradientInactiveCaption - Gradient.Active = True - Gradient.Orientation = fgdVertical - BufferedDraw = False - end - object Label3: TLabel - Left = 77 - Top = 272 - Width = 30 - Height = 13 - Caption = '&Icono:' - end - object Bevel1: TBevel - Left = 8 - Top = 360 - Width = 361 - Height = 10 - Shape = bsBottomLine - end - object memDescripcion: TcxMemo - Left = 120 - Top = 112 - Lines.Strings = ( - '') - Properties.ScrollBars = ssVertical - Properties.WantReturns = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 - Height = 105 - Width = 241 - end - object edtNombre: TcxTextEdit - Left = 120 - Top = 80 - Style.Color = 14745599 - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Width = 241 - end - object bAceptar: TButton - Left = 296 - Top = 384 - Width = 75 - Height = 25 - Caption = '&Aceptar' - Default = True - ModalResult = 1 - TabOrder = 2 - end - object cbModificable: TCheckBox - Left = 120 - Top = 232 - Width = 234 - Height = 17 - Caption = 'No &permitir realizar cambios en este control' - TabOrder = 3 - end - object btnIcono: TJvImgBtn - Left = 120 - Top = 272 - Width = 60 - Height = 60 - TabOrder = 4 - DropDownMenu = JvPopupMenu1 - DropArrow = True - Flat = True - HotTrackFont.Charset = DEFAULT_CHARSET - HotTrackFont.Color = clWindowText - HotTrackFont.Height = -11 - HotTrackFont.Name = 'MS Sans Serif' - HotTrackFont.Style = [] - Images = ReportImages - ImageIndex = 1 - end - object ReportImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002024944415478DA - BDD5DB2E03411800E0E923B870E1CE9D085A940B823894D2489C4FAFE101BC80 - 8444840B89B3D4A954292D8A2855DD5655EB14E205A4570E09BAFB9B5944C7A1 - B335F87727F3CFBF93F976B3995D1500A0FF0C553468D93A9107A4F6D6A8313E - E4F33597AFCBE74BDED93384FCF67E5534F0F181287061F3186A4AD27E74E746 - AB80921213507B471785C604CD1B21A82D4DFF1138B1B48F325393D175F88642 - FF0494F01A46AB07156853D0EDFD0385C604E71D41A82BCB880B1325098922A0 - 699B80CAF2D2D1E35384420F6C7DAA6FC1B9F523A8D7A9E3C6483F6BF7A2EEBE - B14F736282A6F50034E834716392847B51425BDE2B74777F87C2E1B03C6770C2 - C200D73058CE06BFC23ED64C36171B9C5D3D84C68A4C6E8CD4CC6B6E363863F7 - 43933E8B1B23F9A2C3C306A7ED07D0ACCFE6C6486EDD14D8E094CD072D955A0A - 227B8C0550B5D7F1AAD3A7005CC16095961B23BD63D7CF062757BCD05A95C38D - C95BC41D6083C66501DA0CB9DC18694E21A800B40AD062C8E1C6445C77F9426C - 107FF1F13BCCE5C622B8F71C9E28031B2BB4DC18C97DC1333638BEE8863A5D36 - 738F452FFC0ED278E0F4820D8E59F6A0A6348B1B237342E797CAC0EA620D3746 - 421138BAE0024391861B530C8E9877A1B250CD8D290687E777405FA0E6C61483 - 43734E28CFCF90FF65BF114C70D0B40DBD0393BF82BD454CF03FE219EFD39C05 - A47A98E90000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002CB4944415478DA - BDD36F4813711807F0EF4984F5A68108254249648689A961334B8C95342CAD4C - 222D5F66607F2C825E1426B504090A7B636446A00605A624A4258A664EF1DFA6 - 0E97298D72AED3306FCB68A277D7EE3776E9727AB7AB1E381EF8DDFD9ECFEFB9 - E78EE2791EFF33286F90A228E0DA171EB737504AB37E3D48F1DD34A865415556 - 13CF3CD5504AF2AB660D765D3E8F804F15E8A86644F40FF0597D2F59385B69C7 - 8353EBFCCA8FD24611929F8B840C15A0676076AA60187720DBC1514B8227B471 - A0624AC01B2ECACA6CDF05D43C2FC39EE4740C6487E2C0B77982093134F51D21 - 012C7C82728373D5F160344D639AF90A477E0A8269777D130D9C1126F6374096 - E3F0AE220FEF9D3BA056AB0926849DF901AAF028268C3CC17CCE500EE8C1E2F7 - 6F4780B5074F8C6A6C8DD84C30A1539D4E07ABD5EAFB2B5D0816D78CAF08AA1D - 3A119B9C9B01373F8B86E15472CF1B53D4A177671E8C9918839331E2B82E14C1 - 918761785DAA1C94825D2D2AC3E3AA97CA416F6C62D60E8E9D857DD226621DDD - 83A86DEC940F2E35C38533F3850987AA6BEAF2BF43E11FE3381EED95CB77D6DE - 35409E13C0FA961EFF407F3096E5F1A6AD573EE8C15896C3AD829398E3D39197 - FA62454CC84DED0679A080DDA9B591B54DB6EB181C9B41ECCC38FA5497901955 - 2462E7EE772EDA9F16BD8A1CB0A5B35F3A98793056EC4C386D516136AE24AD86 - A5D90C8B3310D59FD7E0ADE1C3929D913DAEABCDF5F1480633526244ACAE3C17 - DDFA56E4C586C160F909FD340D666D1C0A6E3EF489B1AE757DAF493A7844132D - 163A9D93838F23666C0CE611141A066D7C10128EDD5D169B77E52EE39074F050 - 7214D95CDA3885AA1B5A848547226B5F201233EE91E26ECC5DD8F326DCE06FBC - CF342C1DD4EE8D5C74FA85F394820957BF79443A9892B84D11263C631A1E950E - 6AD4118A30216481C9F1E18A30D960D2CE2DA86ED0436948068B4BCA15639E58 - 11FCD7F10B8E341130466CDCF80000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002B14944415478DA - BDD5CB4F13411800F0AF897AF2A0311E8C07F5604C63E9839683040D42A1D098 - D42A8826DEFC070C4AF4E4C1981883C117C13755B02922A505ACB440855829B5 - DB07B5151589070831846C222A242ADD717760B14B6B676991AFBB99D9D96FF7 - 37B3B3D3952084602D439208760E8CE003AE8DDF05C7EC0F6F8B757C1E6F0BF5 - DA9B2608BB6E4B1281E50312801DFDEF90E1E0DE8C7A6E7150B06DEB66A8BE50 - 2740D382F6973174B8489611687EFE0694D29D304D7F17A0FF0564D87B581C7E - 2850EF811F733F05685AD0E68E2263710EAE5FB14D12A173C6ED10671888C711 - B43A2928DE27835FBFE70568C8D920F927D8DEF7161DD1CA458F8CC7B8B2CD15 - 806B0DCD493969416B5F041DD52A568C310C5BC61918087C86D9B959A0691AE7 - 349A3B09602F0B9690C154D8F236ABD34B06DB7A865145A952F41C26C6A9C24D - 820ED87B7D64F0992B8C2A75AAAC46C6B775B9FD64B0D51542C774B959635CDD - D14F91C1A7CE20AA2A530B206E8D910041DBE2718F272802EC66C172754673C8 - 8751B501A3EEC130196CE90EA0E3E59AAC46B650B24BC41721839617143AA1CF - CB1AE3760F1515013A2854A5D7648DC5D9766F304606D97F7C760EF3F045D71D - 5329E7E864FE467CF31DF7C6539E0F566E8179F67AFFF08838B0A2542D6A64BB - 1E4C80A9F8EFB7939E61C07CEB34DCA93D8FF383D10F64F049970F19B5B9C435 - C63DB2DDA6C92590C3462718A0ECD5507FB906E746DE7F2283CD9D43C850A422 - 62DC2393367DC1208F8D8E3330133A0B372E9DC139B18F63E2C043850A8C3D1C - F89A728E0CCAF5B80332F3145CD5489730FA1B827563355077B11AE789029B3A - BC487F409176647C9BC2320DAAA1BB491D5A11F8D83E88CAF6CB89D8C2EB9FBC - 14124314F8C8F61AE90AE45963A24153BB0795E4E7E06FD96A04116CB4BE42F5 - F75B5605E3232DB816F1079F420105E5B916660000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002E14944415478DA - 63FCFFFF3F033D0123B2859B0E5C03734062308CC207423082B2C1F260046177 - 4F9ACF707EE77446640BD03D8462E1C6FD57FFFB3B6A93E5F2E55B4F33488A0A - 3214D5F5A1588AD7C20DFBAEFC0F70D221CBC2A55B4E3218682A30BC7EFB19C5 - 52A22DEC5CFF142E5E1E284D504C86F509838DB13AC3976F3F512CC56BE1FABD - 97FF073AEB92E4B3BFFFFE31FCFDFB9F61D58ED30CCE963A0CBF7EFF41B1F4DC - 8E698C382D5CB7E7D2FF20173D922D03D16B769E61E89FB618430D5E0BD7EEB9 - F83FD8451F23F8B081127F49B865FFFE01E9BFFF180E9CB9C7F0F5DB5786B76F - DF82D5CC5BBA898085BB8116BAEA93E4339865E8626B771C236CE19A5D17FE87 - B819506C19486CC3EE13842D5CBDF3FCFF5077439420454F8D20D5202D208341 - 74B6BB10D8B2C93BDF81B300509821D5818761F3DE53842D5CB5F3DCFF307723 - 8A7C06636FDD7F9AB0852B779CFD1FEE618CE2A3D20029B0013D9B9EA3F8ECDF - 7F089DEECC0FB674FADE8F50710686441B4E865D87CF1261E176A0859EC6703E - C85042BE411143E2EF3D7A9EB0852BB69FF91FE16982E2C3026F71B0017D5B5E - 217CF60FE1C354475EB06533F77F81C7619C251BC3811317095BB87CDBE9FF91 - 5EA614F90C2C0FC4874F5F26C2C2ADA7FF877B99800DE9DEF81CECE25C0F51B0 - 4113B7BF41F1D93F48CDC4906CC705B66CF6C16F701FC698B3301C3B7B85B085 - C0121F1887A614F9EC2F50FC0F903E75E11A711686B819A3C459B69B10D82048 - 3E43F80C9662136C38C0F2F38EFC848B459830329CBD7C83B0854B369FF81FE8 - 6244308FC17C815087E9D38BD76F13B670F1A6E3FFFD9D0CC11A27ED780B8E33 - 483EFB07CC679F507CF60FDAD48806C617C8B2C527FE80C5402058FF2FC3959B - 7788B3D0C7419F229FFD85DA4A94858B361EFBEF65A74FB165445BB870C3D1FF - 1EB67A6459B6EA3C13DC1CA28374C1FA23FFDD6DF428F219493E9CBFEEF07F57 - 2B5D705D460D40D0C2796B0FFD9F327B05552C8301BC16D2030000BD734D0581 - 7DF1720000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001C64944415478DA - 63FCFFFF3F033D01E38059B87CDB699ADB1CE965CA88622150806CC3FE01CDF9 - F7EF3FC3DFBFFF18FEFEFB87C4FECFB06CD32186794B37319CDB310DBF858C33 - 1919823435197EFDFD0BC6BFA134980D34F4C79F3F0C3F81EC3F40F64F201BCC - 07E237515FE196FD03CAADD87284780BC9011FA2BEC12D03D1ABB71D25CE424A - 8211661988BF6EE771D22D644CC4EFDBCF537F30FCF903B1186C21D462107FD3 - 9E9394F9106CE85F245F807CF7F73F56CB40BEDEB2EF146E0B09F9845470A7E9 - 35C3F60367F05BF87F3E224B5E5C69C8A01F7E1E271F19A0CB81CCBA59FF8A61 - D7E1B3F82D4CC830806B2A78C0C030418101271F19A0CB2D987181E17AED0B86 - 3D47CFD3CF8757AA9F33EC3F7E817E3EBC50FE84E1F0E9CBF4F3E1D9D2C70CC7 - CE5EA19F0F4F173F643871FE1AFD7C78A2F001C3E98BD7B15B18EE69C2C09CC4 - 44551F1ECDBBC770EECA4DEC1686BA1B33B0A63053D5878773EE325CB8760BBB - 85412E860C1CE9AC54F5E1FECCDB0C576EDEC16EA1BF933E0377263B557D88D7 - 426F7B5D06FE1C4E066A02BC167ADAE8E02CF149AD2190014E0BDDACB4A86E19 - 5E0B9D2D3419566D3D42D5208501AC16764F9A4F13CB6000C5427A01BA5B0800 - BE8AE7E7F700C7D10000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD2520000020E4944415478DA - 63FCFFFF3F033D0123C842464646086F06034D6CFF9FFE9F11C5C2695326FDEF - 9ED4CFF0A0F801C311EF7D641BFC0F08FFFCFFC5F0FBDF2F300DC2FE4D310CFF - E7A359A8A8A6F8FFFEADFB0C8585850C1BB66E6058B26F1E752CDB15C3C07082 - 01D342980F4100D9329BAD4E382D60636283606636067628FBE1D7470C5BDD57 - C12D0CDE9D84DD425C3E0459986060806A112307030FB310032F8B1098E666E6 - 63E060E201E3A8B61C868D754B2016027D1ABE3783741F225B88CF324E661E86 - C0E60486B5B5F3C096FD065A1AB32F8F7C1F12B20C447B3686302CAB9E0AB610 - E4CBA403E5E4F99018CB40D8B1DE836151653F3C0ED30ED692EEC334430BA22C - 6305261A9B5A278679159D700BB30E3593914A4F90963D669537C32DCC3BDC49 - 9A0F91C19FFFBFC1090196026186FE46E323F06F86A2237DA4F99012CB4072E5 - 47A790EE434296FDFAFF1D21CEF01BA5B4A93D3E97781F622BAA6096FE46E363 - B30C841B4F2C26CE878BF6CDA1D832106E3DB992B00FA9651908779E5A4F9C0F - 67EE9E40B16520F57DA7B712F621B52C03D193CEEC26CE871377B6906DD9CF7F - DFE1EC19E78E10F621BA65BF900C40CE637843018AE79C3F459C0FDBB695E2CD - D0C45806C20B2E5C20EC43522D5B1E7E066B99EAB05800B785E83EACDB9C4991 - CF6080281F52CB32BC16A2FB10D45CA41AC06621A821ACA0AA006E043FB0A6A2 - 65508061213D010026DA8D05688EA69C0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000003474944415478DA - BD946B48536118C79F95140409E62DBB7C083F85084566372135D2F292B74AD3 - CCC44B492C32FC966D5AFA2D2A34E9A236733A9D695EA76B622A998917549CA9 - 980895B75D6995A5DBD9DBD939DBAB23754B9D0FBC9CE7FF1ECEF37BFEEFCB79 - 180821D8C860E8808CDB03CE649E4AAEAB16E214902B033D741D330039AE7B6D - D604637AD8027F500D12A5CA28EF1E0F845EE526386A5F5040026329A055BC08 - 1173EAE5AB21C672E78353768C37D48895D0DBD36B948B9D7221EFE721C89E3F - 029A3C1F06063A8C0D5AE834E99038BB2C007730BBD048FA7E8B029DEF0E812A - E7300DB4BDD98DE4596EAB2EA6256B68B50808420B84965C04A29E863DBEA00D - 5822040AEE59D3C0FCFC853C2E6E657D296A1E4A8AB7601D10FC83825608DB81 - F5560B8A22BFB5395CCACD527B558D1D24902081FEC6C0FCC5EDAE43F8FA8751 - E0DAA64E600935A0280E589D43739D1972417317B01AD4A0E0051A03E3E37BA9 - 82797907CDBAC388C87928E519DF595DD576ACBD7DE5241481B0B51BD80DF320 - E79DA38176CC4E24CB765F77673A985A4340D3077218D4CF81BC24480FBCF111 - C9728E9974187D85006EE166AC432FCCC29BD7DBB03EEDA784C67A1BAC8F7BCD - 500DB474F4035BF007E4A5C134D03EA90D499F7A98ED4CD7F5B20E1769EA3DB9 - DE770D00BBEE37C8F9217AE0B556247D7EF21F87BA1F9AF372618E5E8C9883B2 - D2AD58FB07A940506D8DB5A78F0C5A447658BB9D98A08EB5BD474C0267496028 - 0D74486841925C4F2357A6A68739CE74300DF9ECECFB0469B5BF405616A607C6 - 352149FE29ECF045EE015CB8886B859B08393F0B95E52BDF597BB323D6AEEE5F - A81A3D03C3904E02A506A063AC08CD707CD6D599EE9E0DBA7F6814D2ABBE83B4 - 225C0F8C11A29957675605536BB48BDE2D0D178F7C867BE552905447D3C09DD1 - 023459E80789097D94CBAC272EF8C394E4617C446919FB202D751CEB943BBBE1 - 41E604D6D76FD9C1B3C732AC2F27D2434007BCCF9F8299BA583D30AA067D2B0C - C09D6A34A67F680D61DA992174C00CDE57986E48A081BB222BD11827C0ECE9F1 - 3F300CE48EC3B4288906EE09E5A291E270E094BF3339DE561B9905A330D5C4A4 - 814E5E8FD0B4B5DDDAABAE104E2A194C3627EB8F94045A94A60F0CDCC8D870E0 - 5FA7D4B1F664B3FE1D0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001084944415478DA - 63FCFFFF3F033D01E3A88534B19031F124ED6DBD7081E1FFF97446B885516106 - 0CEF7E3130ECD870812134D480E1EB1F06862F50FCE937847E71807C390C0B3D - 0220169EDA7681C12BD00045D38B1F1036C3093C72474F31788598E1D4876121 - CD82F2FF3F60C431A15AB874CBC9FF6E969A0C5FBFFF64387AE11E43B48F3956 - BD407564C98180914716C3B91DD310161AA849812DBCFDF82DD52D9CB27807C3 - BCA59B502D549515663875E90E83A0A020568D7FFFFE6558B1FD0C5972D397ED - C6B49016D1F7FBD72F0656363686F7EFDF635A48CB38C41AA4A3714809188DC3 - D1381C8D43E2E21014A42BB71DA3593C6258D83B6521CD2C8301B885F404C3DF - 42005A1A11E70A945A890000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 27 - Top = 216 - Bitmap = {} - end - object JvPopupMenu1: TJvPopupMenu - Images = ReportImages - OnPopup = JvPopupMenu1Popup - Style = msItemPainter - ImageMargin.Left = 0 - ImageMargin.Top = 0 - ImageMargin.Right = 0 - ImageMargin.Bottom = 0 - ImageSize.Height = 0 - ImageSize.Width = 0 - Left = 192 - Top = 288 - object N11: TMenuItem - Caption = '1' - end - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uFormPropiedadesControl.pas b/Varela/Varela/Source/ControlesBase/Cliente/uFormPropiedadesControl.pas deleted file mode 100644 index 22d8afa..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uFormPropiedadesControl.pas +++ /dev/null @@ -1,117 +0,0 @@ -unit uFormPropiedadesControl; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, StdCtrls, - JvExControls, JvComponent, JvgWizardHeader, ExtCtrls, ImgList, - PngImageList, JvExStdCtrls, JvButton, JvCtrls, Menus, JvMenus, ActnList; - -type - TfrPropiedadesControl = class(TForm) - edtNombre: TcxTextEdit; - Label1: TLabel; - Label2: TLabel; - bAceptar: TButton; - memDescripcion: TcxMemo; - JvgWizardHeader1: TJvgWizardHeader; - cbModificable: TCheckBox; - Label3: TLabel; - Bevel1: TBevel; - btnIcono: TJvImgBtn; - ReportImages: TPngImageList; - JvPopupMenu1: TJvPopupMenu; - N11: TMenuItem; - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); - procedure JvPopupMenu1Popup(Sender: TObject); - private - procedure SetDescripcion(const Value: String); - procedure SetNombre(const Value: String); - function GetDescripcion: String; - function GetNombre: String; - function GetModificable: Boolean; - procedure SetModificable(const Value: Boolean); - function GetIcono: Integer; - procedure SetIcono(const Value: Integer); - procedure OnMenuItemClick(Sender: TObject); - public - property Nombre : String read GetNombre write SetNombre; - property Descripcion : String read GetDescripcion write SetDescripcion; - property Modificable : Boolean read GetModificable write SetModificable; - property Icono : Integer read GetIcono write SetIcono; - end; - - -implementation - -{$R *.dfm} - -procedure TfrPropiedadesControl.FormCloseQuery(Sender: TObject; var CanClose: Boolean); -begin - CanClose := Length(edtNombre.Text) > 0; - if not CanClose then - ShowMessage('Debe indicar al menos el nombre de este control.'); -end; - -function TfrPropiedadesControl.GetDescripcion: String; -begin - Result := memDescripcion.Lines.Text; -end; - -function TfrPropiedadesControl.GetIcono: Integer; -begin - Result := btnIcono.ImageIndex; -end; - -function TfrPropiedadesControl.GetModificable: Boolean; -begin - Result := not cbModificable.Checked; -end; - -function TfrPropiedadesControl.GetNombre: String; -begin - Result := edtNombre.Text; -end; - -procedure TfrPropiedadesControl.SetDescripcion(const Value: String); -begin - memDescripcion.Lines.Text := Value; -end; - -procedure TfrPropiedadesControl.SetIcono(const Value: Integer); -begin - btnIcono.ImageIndex := Value; -end; - -procedure TfrPropiedadesControl.SetModificable(const Value: Boolean); -begin - cbModificable.Checked := not Value; -end; - -procedure TfrPropiedadesControl.SetNombre(const Value: String); -begin - edtNombre.Text := Value; -end; - -procedure TfrPropiedadesControl.JvPopupMenu1Popup(Sender: TObject); -var - AItem : TMenuItem; - i : integer; -begin - JvPopupMenu1.Items.Clear; - for i := 0 to ReportImages.Count - 1 do - begin - AItem := TMenuItem.Create(JvPopupMenu1); - AItem.OnClick := OnMenuItemClick; - AItem.ImageIndex := i; - JvPopupMenu1.Items.Add(AItem); - end; -end; - -procedure TfrPropiedadesControl.OnMenuItemClick(Sender: TObject); -begin - btnIcono.ImageIndex := (Sender as TMenuItem).ImageIndex; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.dfm deleted file mode 100644 index 20e4854..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.dfm +++ /dev/null @@ -1,135 +0,0 @@ -inherited frViewAgrupaciones: TfrViewAgrupaciones - Width = 228 - Height = 396 - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 228 - Height = 29 - Align = alTop - Caption = 'Agrupaciones' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - Margins.Top = 5 - Margins.Bottom = 10 - ParentColor = True - ParentFont = False - Underline = True - end - object pnlAgrupaciones: TTBXAlignmentPanel - Left = 0 - Top = 29 - Width = 228 - Height = 77 - Align = alTop - AutoSize = True - TabOrder = 1 - DesignSize = ( - 228 - 77) - object Label3: TLabel - Left = 7 - Top = 60 - Width = 74 - Height = 13 - Caption = 'y por '#250'ltimo por:' - Transparent = True - end - object Label2: TLabel - Left = 7 - Top = 32 - Width = 61 - Height = 13 - Caption = 'despu'#233's por:' - Transparent = True - end - object Label1: TLabel - Left = 7 - Top = 4 - Width = 95 - Height = 13 - Caption = 'Agrupar primero por:' - Transparent = True - end - object TBXButton1: TTBXButton - Tag = 1 - Left = 111 - Top = 0 - Width = 111 - Height = 21 - Action = actBoton1 - Anchors = [akLeft, akTop, akRight] - AutoSize = False - DropDownMenu = PopupMenu1 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ImageIndex = 0 - ParentFont = False - TabOrder = 0 - Wrapping = twEndEllipsis - end - object TBXButton3: TTBXButton - Tag = 3 - Left = 111 - Top = 56 - Width = 111 - Height = 21 - Action = actBoton3 - Anchors = [akLeft, akTop, akRight] - AutoSize = False - DropDownMenu = PopupMenu3 - ImageIndex = 0 - TabOrder = 1 - Wrapping = twEndEllipsis - end - object TBXButton2: TTBXButton - Tag = 2 - Left = 111 - Top = 28 - Width = 111 - Height = 21 - Action = actBoton2 - Anchors = [akLeft, akTop, akRight] - AutoSize = False - DropDownMenu = PopupMenu2 - ImageIndex = 0 - TabOrder = 2 - Wrapping = twEndEllipsis - end - end - object PopupMenu1: TPopupMenu - Left = 32 - Top = 136 - end - object PopupMenu2: TPopupMenu - Left = 64 - Top = 136 - end - object PopupMenu3: TPopupMenu - Left = 96 - Top = 136 - end - object ActionList1: TActionList - Left = 32 - Top = 168 - object actBoton2: TAction - OnExecute = actBoton2Execute - OnUpdate = actBoton2Update - end - object actBoton3: TAction - OnExecute = actBoton3Execute - OnUpdate = actBoton3Update - end - object actBoton1: TAction - OnExecute = actBoton1Execute - end - object actMenuClick: TAction - end - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.pas deleted file mode 100644 index ff987e2..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewAgrupaciones.pas +++ /dev/null @@ -1,339 +0,0 @@ -unit uViewAgrupaciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, ActnList, Menus, dxLayoutLookAndFeels, dxLayoutControl, uViewBase, - TBXDkPanels, cxControls, StdCtrls, ImgList, uViewControlGrid, - PngImageList, uViewParametrosControlGrid, JvExControls, JvComponent, - JvArrowButton, cxLookAndFeelPainters, cxButtons; - -type - IViewAgrupaciones = interface(IViewParametrosControlGrid) - ['{42030B8F-B12D-43D2-AEB2-F642F11D78DA}'] - function GetAgrupaciones: TStringList; - end; - - TfrViewAgrupaciones = class(TfrViewParametrosControlGrid, IViewAgrupaciones) - TBXButton1: TTBXButton; - TBXButton2: TTBXButton; - TBXButton3: TTBXButton; - PopupMenu1: TPopupMenu; - PopupMenu2: TPopupMenu; - PopupMenu3: TPopupMenu; - ActionList1: TActionList; - actBoton2: TAction; - actBoton3: TAction; - actBoton1: TAction; - actMenuClick: TAction; - TBXLabel1: TTBXLabel; - Label1: TLabel; - Label2: TLabel; - Label3: TLabel; - pnlAgrupaciones: TTBXAlignmentPanel; - procedure actBoton2Update(Sender: TObject); - procedure actBoton3Update(Sender: TObject); - procedure actBoton2Execute(Sender: TObject); - procedure actBoton3Execute(Sender: TObject); - procedure actBoton1Execute(Sender: TObject); - procedure AMenuItemClick(Sender: TObject); - protected - FColumns : TStringList; - - FBotonPulsado : TTBXButton; - procedure MarcarItem(AMenuItem : TMenuItem); overload; - procedure MarcarItem(AMenu : TPopupMenu; const ACaption : String); overload; - procedure DesmarcarItem(AMenu : TPopupMenu; const ACaption : String); - procedure DesmarcarItems(AMenu : TPopupMenu); - - procedure OnButtonPopup(Sender: TTBXCustomButton; var AllowDropDown: Boolean); - procedure RellenarListaColumnas; - procedure RellenarAgrupaciones; - procedure SetModificable(const Value: Boolean); override; - public - function GetAgrupaciones: TStringList; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - procedure Refresh; override; - procedure Execute; override; - end; - -implementation - -uses - cxGridDBTableView, JclStrings; - -{$R *.dfm} - -const - SIN_AGRUPACION = '(Quitar agrupación)'; - -{ TfrAgrupaciones } - -procedure TfrViewAgrupaciones.MarcarItem(AMenuItem : TMenuItem); -var - AItem : TMenuItem; -begin - AMenuItem.Checked := True; - - AItem := PopupMenu1.Items.Find(AMenuItem.Caption); - if Assigned(AItem) then - AItem.Enabled := False; - - AItem := PopupMenu2.Items.Find(AMenuItem.Caption); - if Assigned(AItem) then - AItem.Enabled := False; - - AItem := PopupMenu3.Items.Find(AMenuItem.Caption); - if Assigned(AItem) then - AItem.Enabled := False; -end; - -procedure TfrViewAgrupaciones.MarcarItem(AMenu : TPopupMenu; const ACaption : String); -var - AItem : TMenuItem; -begin - AItem := AMenu.Items.Find(ACaption); - if Assigned(AItem) then - MarcarItem(AItem); -end; - -procedure TfrViewAgrupaciones.DesmarcarItem(AMenu : TPopupMenu; const ACaption : String); -var - AItem : TMenuItem; -begin - AItem := AMenu.Items.Find(ACaption); - if Assigned(AItem) then - begin - AItem.Enabled := True; - AItem.Checked := False; - end; -end; - -procedure TfrViewAgrupaciones.DesmarcarItems(AMenu : TPopupMenu); -var - i : integer; -begin - for i := 0 to AMenu.Items.Count - 1 do - begin - AMenu.Items[i].Enabled := True; - AMenu.Items[i].Checked := False; - end; -end; - - -function TfrViewAgrupaciones.GetAgrupaciones: TStringList; -var - aux : String; - AIndex : Integer; -begin - Result := TStringList.Create; - if actBoton1.Enabled then - begin - aux := TBXButton1.Caption; - aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]); - if Length(Trim(aux)) > 0 then - Result.Add(aux); - - if actBoton2.Enabled then - begin - aux := TBXButton2.Caption; - aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]); - if Length(Trim(aux)) > 0 then - Result.Add(aux); - - if actBoton3.Enabled then - begin - aux := TBXButton3.Caption; - aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]); - if Length(Trim(aux)) > 0 then - Result.Add(aux); - end; - end; - end; -end; - -procedure TfrViewAgrupaciones.actBoton2Update(Sender: TObject); -begin - (Sender as TAction).Enabled := Length(TBXButton1.Caption) > 0; -end; - -procedure TfrViewAgrupaciones.actBoton3Update(Sender: TObject); -begin - (Sender as TAction).Enabled := Length(TBXButton2.Caption) > 0; -end; - -procedure TfrViewAgrupaciones.actBoton2Execute(Sender: TObject); -begin - // -end; - -procedure TfrViewAgrupaciones.actBoton3Execute(Sender: TObject); -begin - // -end; - -procedure TfrViewAgrupaciones.actBoton1Execute(Sender: TObject); -begin - // -end; - -procedure TfrViewAgrupaciones.AMenuItemClick(Sender: TObject); -var - i : integer; -begin - if (Sender as TMenuItem).MenuIndex > 0 then // El 0 es 'Sin agrupacion' - begin - DesmarcarItem(PopupMenu1, FBotonPulsado.Caption); - DesmarcarItem(PopupMenu2, FBotonPulsado.Caption); - DesmarcarItem(PopupMenu3, FBotonPulsado.Caption); - FBotonPulsado.Caption := (Sender as TMenuItem).Caption; - MarcarItem(Sender as TMenuItem); - end - else begin - DesmarcarItems(PopupMenu1); - DesmarcarItems(PopupMenu2); - DesmarcarItems(PopupMenu3); - // Anular los botones que estén por debajo del actual - for i := 3 downto FBotonPulsado.Tag do - TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := ''; - end; -end; - -constructor TfrViewAgrupaciones.Create(AOwner: TComponent); -begin - inherited; - FColumns := TStringList.Create; - - TBXButton1.OnDropDown := OnButtonPopup; - TBXButton2.OnDropDown := OnButtonPopup; - TBXButton3.OnDropDown := OnButtonPopup; -end; - -procedure TfrViewAgrupaciones.OnButtonPopup(Sender: TTBXCustomButton; - var AllowDropDown: Boolean); -begin - FBotonPulsado := (Sender as TTBXButton); -end; - -procedure TfrViewAgrupaciones.Execute; -var - AgrBotones : TStringList; - i : Integer; -begin - AgrBotones := GetAgrupaciones; - for i := 0 to FColumns.Count - 1 do - (FColumns.Objects[i] as TcxGridDBColumn).GroupIndex := AgrBotones.IndexOf(FColumns.Strings[i]); -end; - -procedure TfrViewAgrupaciones.Refresh; -begin - RellenarListaColumnas; - RellenarAgrupaciones; -end; - -procedure TfrViewAgrupaciones.RellenarListaColumnas; -var - i : integer; - - function DarItem (const ACaption : string):TMenuItem; - begin - Result := NewItem(ACaption, 0, false, true, AMenuItemClick, 0, ''); - end; - -begin - PopupMenu1.Items.Clear; - PopupMenu2.Items.Clear; - PopupMenu3.Items.Clear; - - PopupMenu1.Items.Add(DarItem(SIN_AGRUPACION)); - PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION)); - PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION)); - - for i := 0 to ViewControlGrid.ColumnCount - 1 do - begin - FColumns.AddObject(ViewControlGrid.Columns[i].Caption, ViewControlGrid.Columns[i]); - PopupMenu1.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption)); - PopupMenu2.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption)); - PopupMenu3.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption)); - end; -end; - -destructor TfrViewAgrupaciones.Destroy; -begin - FreeAndNIL(FColumns); - inherited; -end; - -procedure TfrViewAgrupaciones.RellenarAgrupaciones; -var - i : integer; - AList : TStringList; -begin - AList := TStringList.Create; - - try - // Recuperar las agrupaciones del grid - for i := 0 to ViewControlGrid.GroupedColumnCount - 1 do - begin - if i = 3 then - Break; // Sólo meter las 3 primera agrupaciones - AList.Add(ViewControlGrid.GroupedColumns[i].Caption); - end; - - if AList.Count > 0 then - begin - DesmarcarItems(PopupMenu1); - DesmarcarItems(PopupMenu2); - DesmarcarItems(PopupMenu3); - - // Anular los botones que estén por debajo del actual - for i := 1 to 3 do - TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := ''; - - TBXButton1.Caption := AList.Strings[0]; - MarcarItem(TBXButton1.DropDownMenu, AList.Strings[0]); - - if AList.Count > 1 then - begin - TBXButton2.Caption := AList.Strings[1]; - MarcarItem(TBXButton2.DropDownMenu, AList.Strings[1]); - - if AList.Count > 2 then - begin - TBXButton3.Caption := AList.Strings[2]; - MarcarItem(TBXButton3.DropDownMenu, AList.Strings[2]); - end; - end; - end; - finally - FreeAndNil(AList); - end; -end; - -procedure TfrViewAgrupaciones.SetModificable(const Value: Boolean); -begin - inherited; - pnlAgrupaciones.Enabled := Value; - - if pnlAgrupaciones.Enabled then - begin - Label1.Font.Color := clWindowText; - Label2.Font.Color := clWindowText; - Label3.Font.Color := clWindowText; - TBXButton1.Font.Color := clWindowText; - TBXButton2.Font.Color := clWindowText; - TBXButton3.Font.Color := clWindowText; - end - else begin - Label1.Font.Color := clBtnShadow; - Label2.Font.Color := clBtnShadow; - Label3.Font.Color := clBtnShadow; - TBXButton1.Font.Color := clBtnShadow; - TBXButton2.Font.Color := clBtnShadow; - TBXButton3.Font.Color := clBtnShadow; - end -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.dfm deleted file mode 100644 index ecbb78b..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.dfm +++ /dev/null @@ -1,42 +0,0 @@ -inherited frViewColumnas: TfrViewColumnas - Width = 316 - Height = 350 - object lbColumnas: TcxCheckListBox - Left = 0 - Top = 29 - Width = 316 - Height = 321 - Align = alClient - Items = <> - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.Color = clWindow - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - OnClickCheck = lbColumnasClickCheck - end - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 316 - Height = 29 - Align = alTop - Caption = 'Columnas' - FocusControl = lbColumnas - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - Margins.Top = 5 - Margins.Bottom = 10 - ParentColor = True - ParentFont = False - Underline = True - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.pas deleted file mode 100644 index ccba0d7..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewColumnas.pas +++ /dev/null @@ -1,113 +0,0 @@ -unit uViewColumnas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxListBox, - TBXDkPanels, ActnList, cxCustomData, cxGridDBTableView, cxGridTableView, - JvExControls, JvComponent, JvxCheckListBox, uViewControlGrid, - cxCheckListBox, cxCheckBox, uViewParametrosControlGrid; - -type - IViewColumnas = interface(IViewParametrosControlGrid) - ['{FD33275B-6875-421A-ABAC-595982ACDDDB}'] - function GetCheckedColumns : TStringList; - end; - - TfrViewColumnas = class(TfrViewParametrosControlGrid, IViewColumnas) - lbColumnas: TcxCheckListBox; - TBXLabel1: TTBXLabel; - procedure lbColumnasClickCheck(Sender: TObject; AIndex: Integer; - APrevState, ANewState: TcxCheckBoxState); - protected - procedure RellenarListaColumnas; - procedure SetModificable(const Value : Boolean); override; - public - procedure Refresh; override; - procedure Execute; override; - function GetCheckedColumns : TStringList; - end; - -implementation - -{$R *.dfm} - -{ TfrViewColumnas } - -procedure TfrViewColumnas.Refresh; -begin - inherited; - RellenarListaColumnas; -end; - -procedure TfrViewColumnas.RellenarListaColumnas; -var - i : integer; - AIndex : Integer; -begin - with lbColumnas do - begin - Items.BeginUpdate; - Items.Clear; - try - for i := 0 to ViewControlGrid.ColumnCount - 1 do - begin - AddItem(ViewControlGrid.Columns[i].Caption); - AIndex := Items.Count - 1; - Items[AIndex].Checked := ViewControlGrid.Columns[i].Visible; - Items[AIndex].ItemObject := ViewControlGrid.Columns[i]; - end; - finally - Items.EndUpdate; - end; - end; -end; - -procedure TfrViewColumnas.lbColumnasClickCheck(Sender: TObject; - AIndex: Integer; APrevState, ANewState: TcxCheckBoxState); -var - i : integer; -begin - inherited; - { No hacer nada por que el cambio en las columnas se debe ver cuando - el usuario pulse sobre el botón 'Refrescar'. } -{ with lbColumnas.Items[AIndex] do - if Assigned(ItemObject) then - (ItemObject as TcxGridDBColumn).Visible := (ANewState = cbsChecked);} -end; - -procedure TfrViewColumnas.Execute; -var - AIndex : integer; -begin - inherited; - for AIndex := 0 to lbColumnas.Items.Count - 1 do - with lbColumnas.Items[AIndex] do - if Assigned(ItemObject) then - (ItemObject as TcxGridDBColumn).Visible := (State = cbsChecked); -end; - -function TfrViewColumnas.GetCheckedColumns: TStringList; -var - AIndex : integer; -begin - result := TStringList.Create; - for AIndex := 0 to lbColumnas.Items.Count - 1 do - if (lbColumnas.Items[AIndex].State = cbsChecked) then - with lbColumnas.Items[AIndex] do - if Assigned(ItemObject) then - Result.Add((ItemObject as TcxGridDBColumn).DataBinding.FieldName); -end; - -procedure TfrViewColumnas.SetModificable(const Value: Boolean); -begin - inherited; - lbColumnas.ReadOnly := not Value; - if lbColumnas.ReadOnly then - lbColumnas.Style.TextColor := clBtnShadow - else - lbColumnas.Style.TextColor := clWindowText; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.dfm deleted file mode 100644 index 916411a..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.dfm +++ /dev/null @@ -1,616 +0,0 @@ -inherited frViewControlBase: TfrViewControlBase - Width = 699 - Height = 607 - ExplicitWidth = 699 - ExplicitHeight = 607 - object TBXMultiDock1: TTBXMultiDock - Left = 0 - Top = 0 - Width = 222 - Height = 607 - Position = dpLeft - object pnlParametros: TTBXDockablePanel - Left = 0 - Top = 0 - Caption = 'Par'#225'metros del informe' - CloseButton = False - CloseButtonWhenDocked = False - DockedWidth = 218 - DockedHeight = 185 - DockMode = dmCannotFloat - DockPos = 0 - ParentShowHint = False - ShowHint = False - SplitHeight = 261 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 0 - object TBXAlignmentPanel2: TTBXAlignmentPanel - Left = 0 - Top = 0 - Width = 218 - Height = 67 - Margins.Left = 4 - Margins.Top = 4 - Margins.Right = 4 - Margins.Bottom = 4 - Align = alTop - AutoSize = True - TabOrder = 0 - object TBXLink1: TTBXLink - Left = 4 - Top = 4 - Width = 210 - Height = 19 - Cursor = crHandPoint - Margins.Top = 2 - Margins.Bottom = 2 - Align = alTop - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ImageIndex = 29 - ParentColor = True - ParentFont = False - TabOrder = 0 - Wrapping = twPathEllipsis - end - object TBXLink5: TTBXLink - Left = 4 - Top = 23 - Width = 210 - Height = 20 - Cursor = crHandPoint - Margins.Top = 2 - Margins.Bottom = 2 - Action = actColumnas - Align = alTop - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ImageIndex = 3 - Images = SmallImages - ParentColor = True - ParentFont = False - TabOrder = 1 - Wrapping = twPathEllipsis - end - object TBXLink2: TTBXLink - Left = 4 - Top = 43 - Width = 210 - Height = 20 - Cursor = crHandPoint - Margins.Top = 2 - Margins.Bottom = 2 - Action = actAgrupaciones - Align = alTop - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ImageIndex = 0 - Images = SmallImages - ParentColor = True - ParentFont = False - TabOrder = 2 - Wrapping = twPathEllipsis - end - end - object pcParametros: TPageControl - Left = 0 - Top = 67 - Width = 218 - Height = 169 - ActivePage = tsAgrupacion - Align = alClient - Style = tsFlatButtons - TabOrder = 1 - object TabSheet5: TTabSheet - Caption = 'TabSheet5' - TabVisible = False - end - object tsColumnas: TTabSheet - Caption = 'tsColumnas' - ImageIndex = 1 - TabVisible = False - inline frViewColumnas1: TfrViewColumnas - Left = 0 - Top = 0 - Width = 210 - Height = 159 - Align = alClient - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 210 - ExplicitHeight = 159 - inherited lbColumnas: TcxCheckListBox - Width = 210 - Height = 130 - ExplicitWidth = 210 - ExplicitHeight = 130 - end - inherited TBXLabel1: TTBXLabel - Width = 210 - ExplicitWidth = 210 - end - end - end - object tsAgrupacion: TTabSheet - Caption = 'tsAgrupacion' - ImageIndex = 2 - TabVisible = False - inline frViewAgrupaciones1: TfrViewAgrupaciones - Left = 0 - Top = 0 - Width = 210 - Height = 159 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 210 - ExplicitHeight = 159 - inherited TBXLabel1: TTBXLabel - Width = 210 - ExplicitWidth = 210 - end - inherited pnlAgrupaciones: TTBXAlignmentPanel - Width = 210 - ExplicitWidth = 210 - DesignSize = ( - 210 - 77) - inherited Label3: TLabel - Width = 74 - ExplicitWidth = 74 - end - inherited Label2: TLabel - Width = 61 - ExplicitWidth = 61 - end - inherited Label1: TLabel - Width = 95 - ExplicitWidth = 95 - end - inherited TBXButton1: TTBXButton - Width = 97 - ExplicitWidth = 97 - end - inherited TBXButton3: TTBXButton - Width = 97 - ExplicitWidth = 97 - end - inherited TBXButton2: TTBXButton - Width = 97 - ExplicitWidth = 97 - end - end - inherited PopupMenu1: TPopupMenu - Left = 24 - Top = 120 - end - inherited PopupMenu2: TPopupMenu - Left = 56 - Top = 120 - end - inherited PopupMenu3: TPopupMenu - Left = 88 - Top = 120 - end - end - end - end - object TBXAlignmentPanel3: TTBXAlignmentPanel - Left = 0 - Top = 236 - Width = 218 - Height = 30 - Align = alBottom - TabOrder = 2 - object bRefrescar: TButton - Left = 2 - Top = 4 - Width = 100 - Height = 21 - Action = actRefrescar - TabOrder = 0 - end - end - end - object pnlTareas: TTBXDockablePanel - Left = 0 - Top = 288 - Caption = 'Modificar el informe' - CloseButton = False - CloseButtonWhenDocked = False - DockedWidth = 218 - DockMode = dmCannotFloat - DockPos = 288 - FloatingWidth = 128 - FloatingHeight = 128 - SplitHeight = 276 - SplitWidth = 3 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 1 - object TBXPageScroller1: TTBXPageScroller - Left = 0 - Top = 0 - Width = 218 - Height = 281 - Align = alClient - DoubleBuffered = False - Range = 0 - TabOrder = 0 - object TBXAlignmentPanel1: TTBXAlignmentPanel - Left = 0 - Top = 0 - Width = 218 - Height = 48 - Margins.Left = 4 - Margins.Top = 4 - Margins.Right = 4 - Margins.Bottom = 4 - Align = alTop - AutoSize = True - TabOrder = 0 - object bFiltros: TTBXLink - Left = 4 - Top = 24 - Width = 210 - Height = 20 - Cursor = crHandPoint - Margins.Top = 2 - Margins.Bottom = 2 - Action = actFiltros - Align = alTop - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ImageIndex = 1 - Images = SmallImages - ParentColor = True - ParentFont = False - TabOrder = 0 - end - object bSumarios: TTBXLink - Left = 4 - Top = 4 - Width = 210 - Height = 20 - Cursor = crHandPoint - Margins.Top = 2 - Margins.Bottom = 2 - Action = actSumarios - Align = alTop - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ImageIndex = 2 - Images = SmallImages - ParentColor = True - ParentFont = False - TabOrder = 1 - end - end - object pcTareas: TPageControl - Left = 0 - Top = 48 - Width = 218 - Height = 233 - ActivePage = tsFiltros - Align = alClient - Style = tsButtons - TabOrder = 1 - object tsSumarios: TTabSheet - Caption = 'tsSumarios' - ImageIndex = 2 - TabVisible = False - inline frViewSumarios1: TfrViewSumarios - Left = 0 - Top = 0 - Width = 210 - Height = 223 - Align = alClient - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 210 - ExplicitHeight = 223 - inherited TBXLabel1: TTBXLabel - Width = 210 - ExplicitWidth = 210 - end - inherited vgSumarios: TcxVerticalGrid - Width = 210 - Height = 194 - ExplicitWidth = 210 - ExplicitHeight = 194 - end - end - end - object tsFiltros: TTabSheet - Caption = 'tsFiltros' - ImageIndex = 1 - TabVisible = False - inline frViewFiltros1: TfrViewFiltros - Left = 0 - Top = 0 - Width = 210 - Height = 223 - Align = alClient - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 210 - ExplicitHeight = 223 - inherited vgFiltros: TcxVerticalGrid - Width = 196 - Height = 0 - ExplicitWidth = 196 - ExplicitHeight = 0 - inherited vgFiltrosEditorRow1: TcxEditorRow - Properties.EditProperties.OnEditValueChanged = nil - end - end - inherited TBXLabel1: TTBXLabel - Width = 210 - ExplicitWidth = 210 - end - inherited cxFilterControl1: TcxFilterControl - Width = 210 - Height = 164 - ExplicitWidth = 210 - ExplicitHeight = 164 - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 193 - Width = 210 - ExplicitTop = 193 - ExplicitWidth = 210 - end - end - end - end - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000794944415478DA - 63FCFFFF3F0325809162030CDD338936E1FCCEE98C580DC8CF4C870BFCF9F397 - E1FBCF5F0CDF7E00F1F79F0C5FBEFF6078F6FA3DC38D8B27F01BB0F3D845BCB6 - E33580222F60530832149B62AC81884B825843F02A20C6108236103204671810 - E37FBC06109B36F01A404CDAA0DC0B039E1B0126BE69852B2E82B70000000049 - 454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001574944415478DA - 63FCFFFF3F0308303232826943C3648800109C3F3F9791010780EB433600A4D9 - B1A892E1129300C399C38719144F6E61483F3F17AE2903A88CA001E7053C1918 - B8B9197C448E33F82C68620868296078346B2503EBA3E70C27910CC169809AC5 - 578685FA3718FEE99A332CB29EC9602427C9C00FD4CC0A54B38B9001B53D0BFE - 57F34C60600E2E6160E27AC6F07BF1328605191718D480F27C407C069F0175BD - 0BFF4BE87832243F7067604F2F61F839B38781D53E8AE1D9C5DD0C5B237683D5 - 6C4D6A03D34FCEDF6538776E0E238A017EC9EDFF37CDAD64F8F4FD2F43CFB425 - 60B10BD79EA1847C4A4626C39377BF18E65456611A00F2826F521BDC90379FFE - 30BCFDFC07AEF9F9FBDF70CDA0E8C51A062080CD1074CD38031106900D3970E5 - 3386668206201B326DE72B0CCD2419606494823549D3C780096D450C219ED9E4 - 1B004A30B8722451066C9E5745303B030083AA15F0BB1362F30000000049454E - 44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000000534944415478DA - 63FCFFFF3F03258071F018C0C8C848944940F58CB80CB0075207A0E20E407C10 - BB7EDC0680288286A07B19DD0082861063005E43883500A72174710145614051 - 2C509C0E284B89E4028A0D0000DBA366E1865C514F0000000049454E44AE4260 - 82} - Name = 'PngImage27' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000011E4944415478DA - 63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F - 3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F - E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E - 96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C - 5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD - A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53 - 06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B - 7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA - CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77 - 0000000049454E44AE426082} - Name = 'PngImage28' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001534944415478DA - 63542C3BFB9F8102C00832A0CE570F43E2E76F06864F5FFF337CFCF20F4C7FFA - FE9FE11750ECF3B7FF0C5FBE41E87FD74BB11B804D334C13CC001060B9033580 - 5CE70B5C9CC3C0B866CDEAFFC1C1217815FEFDF79FE1F79FBF402FFC61F8FDFB - 2F98BD66FB3186794B37611AC0987812CE6E50D881D5C0C4B43C864D7B4EE236 - E044860183C58C0B0C5247F318562FD8CF109AE008A6ADACB8181A1B1B196292 - 7218B61F388D6A0048026CEB030FB861475375C19A4100640008ECDEDDCD101E - 97C9B0E7C8394C03EAEBEB198E1DFB06B60944C334C30C80B9C03F3C85E1C8E9 - CB9806B8BA96E20CC8CBD6DC70B6E1A5870CA72E5C23EC02647A26232343FAD9 - B30C338D8D1974CEDE63387FF526F630C005241A1AE06CF593B719AEDCBC8330 - C0D73F101EBFBF40348CFDE72F5671104031C0C3CB8F61FE9A7D24A744B801AD - B349D70C4F37FFFF53949B1900BA770EC0E001FEA50000000049454E44AE4260 - 82} - Name = 'PngImage29' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 368 - Top = 32 - Bitmap = {} - end - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000CA4944415478DA - 63FCFFFF3F032D01E3D0B7A0A0730DD56C98501EC288D5020375151441908D7F - FFFE63F8FBEF1FC33F10FDF72F980D11FB0F66FF0189FD05D110F68EED9B19CE - EF9C4ED802720C07B177EFDA4AD802720D07D1FBF7EEC06F012586FF03CA1FDC - BF13B705FA400BEE3D7E497464A21B0E02782D38B86F2F555211560B88D50C73 - 083643F00192149363094916906309C916906A095916906209232ECDE45A4CB4 - 05D42A9F88B28092F289A00594964F782DA046F984D3026A954F382DA056F934 - F42B7D00F75AE9FD6BE4FF8E0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022F4944415478DA - 63FCFFFF3F030C303232C2D98686C9FA406A0A101B00F174205E7AFEFCDC8B0C - 44001433B1590034FC30C8E0ECB9737840FCA9C92920AA1F8817822CD902B40C - C85EE6C3C0B095640B8086AF033203818633ACBBCFC0B0EDFA7584AFD6F63234 - 9F9F8B6C16C89268522DF82F593387615B0BD4202323087DEE1CC396F3290CB6 - F3BA19FEBC7DC670BCB49F410B28BC0F8881FE6324C982F346D908D54083FFF7 - A4306C7566C0301C06D02D21CA82648E7360B11EAB140681A8974053C4C19680 - 00B2E120F00A88AF205982D782C6A605FF1FBDFCC3602A3187215CE904C47086 - CD60F90FCB52186E46430C7342337C63521BC3E67955F82D686A5EF85F4C531D - CCCE10B2049A826AB880E51C86F3FB52187EA5400CD5811AFE7BF571B09A6DDB - F783E94D732B19715AF0878B81E1C2B567508562D040069AA83807AE0E64C9B9 - 14081B6438C860032D2906091D4F861DABE6E2B7A0AC2296E1D79FFF0CBF8178 - E2ACA508CB6AC4E086D71F6B83EB01196C62E70F663F79F70BBF05A038A8ED59 - F0BF2A2F96E1EB8F7F0CBFFFFE67F803C4207AFEE21560CB4006FA0784A0C87D - FEFE0F6E38281E08E66498251FBEFE851B8242FF41B0DF7DF98B6238C1540403 - A0D4040AAE379FFEE0B4E0D5C73F1886136D01B225CFDFFFC6B0E0E9BBDF580D - 27C902644B1EBFF905B7E0C1AB5F380D27D902644BEEBDFC09B6E0C88D2F380D - 27CB02644BE6ED7B83D7F0510B86B80522669E040DA7C882330F9E11349C220B - EAEB12081A8E6E01002A731EEF226ACE030000000049454E44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000000DB4944415478DA - 63FCFFFF3F032D01E3A805245BC0C8C848B68D40B31889B16002908A066211A8 - 9003101FC463AE3D10EB03F144622D0051CD405C0315DA09C4ED4458D20034CB - 91580B40603E102740D97B80B88580250CD8E2139F0520D007C48550F62520CE - 43B304A49805887F936B01084C841A0C02A780B80C974FC8B500045600713894 - BD05887BB0F8E43F29168035A0A96D00E27A28FB3210E7A2FB84121FB001F12F - 205E0EC41150B11D40DC01C42780F827A916D0DD07548F036440D35444937CC0 - 0AD540D39C4CD3B288E6A5296DEB036A83A16F01003B61B4D1E99D5171000000 - 0049454E44AE426082} - Name = 'PngImage27' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001AD4944415478DA - 63FCFFFF3F032D0123C882A55B4ED2C496681F7346B805400E5986FC03EAFFF7 - EF3FC3DFBFFF20F81F88FECFE01456CC706EC734540BE44BCFA168BEA5928C61 - A0DA9DB9782D3C5FA3C1B06CD32186794B3761B7E07E97215CF1EF59460C0C1E - 6F802C1606862FEC0C0B7A6E32A4CEFB0797572C3B8FA21EC43F53A5C6B072CB - 11522CF800369CE1051BC3822597095A70B25C9561CDF6A3245860F31D6C38C3 - 1D668605272E10B4E058A932C3FA9DC7715B8011070F24E0FC052F7630B4899C - C51B07878B141936ED3949BB383858A0C0B065DF29DAC5C1DE5C39861D07CFD0 - 2E0E7666C930EC39728E7671B02D5D8A61FFF10BB48B83CDA9120C874E5EA25D - 1C6C481263387AE60AEDE2606DBC28C389F357312D88F436032BA0340E56440B - 319CBD7C03D382704F5306E58A0B14C7C1D24801860B576F615A10E46AC4A051 - 7399E2385814C6C770F9C61D4C0BFC9D0C18B4EBAF521C070B43F918AEDCC462 - 818F833E835EE3358C3800198A0C08C5014E0B3C6D75E1B51184FE07A9A9D0C4 - 20B5D67F863F2835D83F06E4AA1DAB056ED6DAE08A825A00C382DE290BA96638 - 0CC02DA02500004F8255EF277FDA8C0000000049454E44AE426082} - Name = 'PngImage28' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022E4944415478DA - 63FCFFFF3F032D0123DD2C60646404D351F98B2700A97C209EB86C626C013186 - E0D203321B9B05FF974E886130F2C86238BF733A23911660D583628152F93930 - C3F2E735063B4D558699EB17327CD04F212A1870E9B9D769C48862419DAF1EC3 - EE352BC0FCEB378E31E4D54C4231E8DB8FFF0C5F81184243F8DF80F4CF3B6BE0 - 7AB8F47BC0E21F386E62B7E0E6C5730C3B372F6070F74D6050D7372268F8F79F - 0C0C7FDF5C60B8737E11838C761CC3933FBA0C7FFE32307CE1C661013680CF70 - 30FBE77F381B64380860B580DCA4880BA058B076F7C5FFC1AEFA446BFEF70FE4 - DA7F0C7F804E86D040FC17C25EB7F338C3BCA59B18CEED9886DF02C6C49328FC - C94EEF095AECE76CCEB069EF49122CB87082E1C48C0C068B191718A48EE6313C - BD7592E1D8B16F0C56565C6035C8EC298B7730783998326C3B709A780B4E6418 - 80D9200B1678BC60A8AA6D6358BD603FD850693573381B66819BAD31C3AEC367 - 715B00520403B9FB04512C3C9AAACB70FBF16EB0253000B20006CEDD3DC4E064 - 69C0B0EFF805FC16E4C47A60781F990D7239B205C83EB033D3633874EA12F916 - 201B8ECD020B432D8613E7AFE1B7C048D98EE8E47AD99A1B85AF7FFE3EC399CB - 37280B2264F64C60297C0648CF3E7B9661A6B13183F699BB0C17AEDDA2AE05E9 - 40C3C16CA005EA276F335CB97987B854440C608DF344E1E3B5C0DF511792DDC1 - D9FE1F1A1BA938C0210F03382DF0B6D36298B36A2F493EC005B05AD0DA3B932A - 86C3008A05B40200F47739EF77A04B0C0000000049454E44AE426082} - Name = 'PngImage29' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 328 - Top = 32 - Bitmap = {} - end - object EditorActionList: TActionList - Images = SmallImages - Left = 288 - Top = 32 - object actAgrupaciones: TAction - Category = 'Tareas' - Caption = 'Agrupaciones' - ImageIndex = 0 - OnExecute = actAgrupacionesExecute - end - object actColumnas: TAction - Category = 'Tareas' - Caption = 'Columnas' - ImageIndex = 3 - OnExecute = actColumnasExecute - end - object actSumarios: TAction - Category = 'Tareas' - Caption = 'Res'#250'menes' - ImageIndex = 2 - OnExecute = actSumariosExecute - end - object actFiltros: TAction - Category = 'Tareas' - Caption = 'Filtros' - ImageIndex = 1 - OnExecute = actFiltrosExecute - end - object actRefrescar: TAction - Category = 'Ver' - Caption = 'Refrescar' - end - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.pas deleted file mode 100644 index 6104911..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlBase.pas +++ /dev/null @@ -1,179 +0,0 @@ -unit uViewControlBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, TBXDkPanels, StdCtrls, ComCtrls, TB2Dock, - uViewAgrupaciones, uCustomView, uViewColumnas, ImgList, PngImageList, - ActnList, uViewControlGrid, uBizControlesBase, uViewSumarios, - uViewParametrosControlGrid, uViewFiltros, cxStyles; - -type - IViewControlBase = interface(IViewBase) - ['{A9892225-82DB-41AF-B69D-821E0663B3EF}'] - function GetModificable: Boolean; - procedure SetModificable(const Value: Boolean); - property Modificable : Boolean read GetModificable write SetModificable; - - function GetControl: IBizControlBase; - procedure SetControl(const Value: IBizControlBase); - property Control: IBizControlBase read GetControl write SetControl; - - function GetOnViewChanged : TNotifyEvent; - procedure SetOnViewChanged(const Value : TNotifyEvent); - property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged; - end; - - TfrViewControlBase = class(TfrViewBase, IViewControlBase) - TBXMultiDock1: TTBXMultiDock; - pnlParametros: TTBXDockablePanel; - TBXAlignmentPanel2: TTBXAlignmentPanel; - TBXLink1: TTBXLink; - TBXLink5: TTBXLink; - TBXLink2: TTBXLink; - pcParametros: TPageControl; - TabSheet5: TTabSheet; - tsColumnas: TTabSheet; - tsAgrupacion: TTabSheet; - TBXAlignmentPanel3: TTBXAlignmentPanel; - bRefrescar: TButton; - pnlTareas: TTBXDockablePanel; - TBXPageScroller1: TTBXPageScroller; - TBXAlignmentPanel1: TTBXAlignmentPanel; - bFiltros: TTBXLink; - bSumarios: TTBXLink; - pcTareas: TPageControl; - tsSumarios: TTabSheet; - tsFiltros: TTabSheet; - frViewColumnas1: TfrViewColumnas; - frViewAgrupaciones1: TfrViewAgrupaciones; - SmallImages: TPngImageList; - LargeImages: TPngImageList; - EditorActionList: TActionList; - actAgrupaciones: TAction; - actColumnas: TAction; - actSumarios: TAction; - actFiltros: TAction; - frViewSumarios1: TfrViewSumarios; - actRefrescar: TAction; - frViewFiltros1: TfrViewFiltros; - procedure actColumnasExecute(Sender: TObject); - procedure actSumariosExecute(Sender: TObject); - procedure actFiltrosExecute(Sender: TObject); - procedure actAgrupacionesExecute(Sender: TObject); - protected - FControl : IBizControlBase; - FOnViewChanged : TNotifyEvent; - FModificable : Boolean; - procedure ActivarTarea (const ATarea : Integer); virtual; - function GetControl: IBizControlBase; virtual; - procedure SetControl(const Value: IBizControlBase); virtual; - function GetOnViewChanged : TNotifyEvent; virtual; - procedure SetOnViewChanged(const Value : TNotifyEvent); virtual; - function GetModificable: Boolean; virtual; - procedure SetModificable(const Value: Boolean); virtual; - public - property Modificable : Boolean read GetModificable write SetModificable; - property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged; - property Control: IBizControlBase read GetControl write SetControl; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -{$R *.dfm} - -const - COLUMNAS = 1; - AGRUPACIONES = 2; - SUMARIOS = 3; - FILTROS = 4; - - -procedure TfrViewControlBase.actColumnasExecute(Sender: TObject); -begin - inherited; - ActivarTarea(COLUMNAS); - frViewColumnas1.Refresh; -end; - -procedure TfrViewControlBase.ActivarTarea(const ATarea: Integer); -begin - case ATarea of - COLUMNAS : pcParametros.ActivePage := tsColumnas; - AGRUPACIONES : pcParametros.ActivePage := tsAgrupacion; - SUMARIOS : pcTareas.ActivePage := tsSumarios; - FILTROS : pcTareas.ActivePage := tsFiltros; - end; -end; - -function TfrViewControlBase.GetControl: IBizControlBase; -begin - Result := FControl; -end; - -procedure TfrViewControlBase.SetControl(const Value: IBizControlBase); -begin - FControl := Value; - frViewColumnas1.Refresh; - frViewAgrupaciones1.Refresh; - - // ¿Es modificable el control? - Self.Modificable := FControl.EsModificable; -end; - -procedure TfrViewControlBase.actSumariosExecute(Sender: TObject); -begin - inherited; - ActivarTarea(SUMARIOS); - frViewSumarios1.Refresh; -end; - -procedure TfrViewControlBase.actFiltrosExecute(Sender: TObject); -begin - inherited; - ActivarTarea(FILTROS); - frViewFiltros1.Refresh; - end; - -procedure TfrViewControlBase.actAgrupacionesExecute(Sender: TObject); -begin - inherited; - ActivarTarea(AGRUPACIONES); - frViewAgrupaciones1.Refresh; -end; - -function TfrViewControlBase.GetOnViewChanged: TNotifyEvent; -begin - Result := FOnViewChanged; -end; - -procedure TfrViewControlBase.SetOnViewChanged(const Value: TNotifyEvent); -begin - FOnViewChanged := Value; -end; - -constructor TfrViewControlBase.Create(AOwner: TComponent); -begin - inherited; - FModificable := False; - pcParametros.ActivePage := tsColumnas; - pcTareas.ActivePage := tsSumarios; - FOnViewChanged := nil; -end; - -function TfrViewControlBase.GetModificable: Boolean; -begin - Result := FModificable; -end; - -procedure TfrViewControlBase.SetModificable(const Value: Boolean); -begin - FModificable := Value; - - frViewColumnas1.Modificable := FModificable; - frViewAgrupaciones1.Modificable := FModificable; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.dfm deleted file mode 100644 index 60e526d..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.dfm +++ /dev/null @@ -1,149 +0,0 @@ -inherited frViewControlGrid: TfrViewControlGrid - object dxPrintStyleManager1: TdxPrintStyleManager - CurrentStyle = dxPrintStyleManager1Style1 - PageSetupDialog = dxPageSetupDialog1 - Version = 0 - Left = 16 - Top = 16 - object dxPrintStyleManager1Style1: TdxPSPrintStyle - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 20000 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 20000 - PrinterPage.PageFooter.CenterTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageFooter.Font.Color = clBlack - PrinterPage.PageFooter.Font.Height = -12 - PrinterPage.PageFooter.Font.Name = 'Tahoma' - PrinterPage.PageFooter.Font.Style = [] - PrinterPage.PageFooter.LeftTitle.Strings = ( - 'VARELA IMAGEN Y DISE'#209'O S.L.') - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageHeader.Font.Color = clBlack - PrinterPage.PageHeader.Font.Height = -15 - PrinterPage.PageHeader.Font.Name = 'Tahoma' - PrinterPage.PageHeader.Font.Style = [] - PrinterPage.PageHeader.LeftTitle.Strings = ( - '') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - BuiltInStyle = True - end - end - object dxPageSetupDialog1: TdxPageSetupDialog - ButtonsVisible = [psbStyleOptions] - Left = 48 - Top = 16 - end - object dxPSEngineController1: TdxPSEngineController - LookAndFeel = pslfOffice11 - UseNativeLookAndFeel = False - Left = 80 - Top = 16 - end - object dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxPrinterLinkcxGrid - PreviewOptions.ShowExplorer = True - PreviewOptions.WindowState = wsMaximized - Version = 0 - Left = 112 - Top = 16 - object dxPrinterLinkcxGrid: TdxGridReportLink - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.GrayShading = True - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage.ScaleMode = smFit - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 38877.461868113420000000 - StyleManager = dxPrintStyleManager1 - OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsFormatting.SuppressBackgroundBitmaps = True - OptionsFormatting.UseNativeStyles = True - OptionsFormatting.ConsumeSelectionStyle = True - OptionsLevels.Unwrap = True - OptionsRefinements.TransparentGraphics = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.ExpandButtons = False - OptionsView.FilterBar = False - StyleRepository = cxStyleRepositoryInforme - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - BuiltInReportLink = True - end - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 112 - Top = 48 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.pas deleted file mode 100644 index 4303660..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlGrid.pas +++ /dev/null @@ -1,284 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewControlGrid; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, ActnList, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, dxPScxCommon, dxPScxGridLnk, - dxPgsDlg; - -type - IViewControlGrid = interface(IViewBase) - ['{566F315A-70A6-4BCE-8A02-0C7E10FF311A}'] - procedure ExpandirTodo; - procedure ContraerTodo; - procedure AjustarAncho; - procedure Preview; - procedure Print; - procedure PrintSetup; - procedure GotoFirst; - procedure GotoLast; - - function GetColumnByCaption (const ACaption : String): TcxGridDBColumn; - - function GetFocusedView : TcxGridDBTableView; - property FocusedView : TcxGridDBTableView read GetFocusedView; - - function GetColumnCount: Integer; - function GetColumns(Index: Integer): TcxGridDBColumn; - property Columns[Index: Integer] : TcxGridDBColumn read GetColumns; - property ColumnCount : Integer read GetColumnCount; - - function GetGroupedColumnCount: Integer; - function GetGroupedColumns(index: Integer): TcxGridColumn; - property GroupedColumns[Index: Integer] : TcxGridColumn read GetGroupedColumns; - property GroupedColumnCount : Integer read GetGroupedColumnCount; - - function GetOnViewChanged : TNotifyEvent; - procedure SetOnViewChanged(const Value : TNotifyEvent); - property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged; - - function GetViewProperties: String; - procedure SetViewProperties(const Value: String); - property ViewProperties: String read GetViewProperties write SetViewProperties; - - function GetFilterValueList(index: Integer) : TStringList; - property FilterValueList[Index : Integer]: TStringList read GetFilterValueList; - - function GetOnFilterChanged: TNotifyEvent; - procedure SetOnFilterChanged(const Value: TNotifyEvent); - property OnFilterChanged: TNotifyEvent read GetOnFilterChanged write SetOnFilterChanged; - end; - - TfrViewControlGrid = class(TfrViewBase, IViewControlGrid) - dxPrintStyleManager1: TdxPrintStyleManager; - dxPrintStyleManager1Style1: TdxPSPrintStyle; - dxPageSetupDialog1: TdxPageSetupDialog; - dxPSEngineController1: TdxPSEngineController; - dxComponentPrinter: TdxComponentPrinter; - dxPrinterLinkcxGrid: TdxGridReportLink; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - private - protected - FOnViewChanged : TNotifyEvent; - FOnFilterChanged : TNotifyEvent; - function GetColumnCount: Integer; - function GetColumns(Index: Integer): TcxGridDBColumn; - function GetGroupedColumnCount: Integer; - function GetGroupedColumns(Index: Integer): TcxGridColumn; - function GetFocusedView : TcxGridDBTableView; virtual; abstract; - function GetColumnByCaption (const ACaption : String): TcxGridDBColumn; - function GetOnViewChanged : TNotifyEvent; virtual; - procedure SetOnViewChanged(const Value : TNotifyEvent); virtual; - function GetOnFilterChanged: TNotifyEvent; virtual; - procedure SetOnFilterChanged(const Value: TNotifyEvent); virtual; - function GetViewProperties: String; virtual; - procedure SetViewProperties(const Value: String); virtual; - function GetFilterValueList(index: Integer) : TStringList; virtual; - procedure ActivarEventos; virtual; - procedure DesactivarEventos; virtual; - public - procedure Preview; virtual; - procedure Print; virtual; - procedure PrintSetup; virtual; - procedure GotoFirst; virtual; - procedure GotoLast; virtual; - procedure ExpandirTodo; virtual; - procedure ContraerTodo; virtual; - procedure AjustarAncho; virtual; - property FocusedView : TcxGridDBTableView read GetFocusedView; - property Columns[Index: Integer] : TcxGridDBColumn read GetColumns; - property ColumnCount : Integer read GetColumnCount; - property GroupedColumns[Index: Integer] : TcxGridColumn read GetGroupedColumns; - property GroupedColumnCount : Integer read GetGroupedColumnCount; - property OnViewChanged: TNotifyEvent read GetOnViewChanged write SetOnViewChanged; - property OnFilterChanged: TNotifyEvent read GetOnFilterChanged write SetOnFilterChanged; - property ViewProperties: String read GetViewProperties write SetViewProperties; - property FilterValueList[Index : Integer]: TStringList read GetFilterValueList; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -{$R *.dfm} - -{ TfrViewControlGrid } - -procedure TfrViewControlGrid.ActivarEventos; -begin - // -end; - -procedure TfrViewControlGrid.AjustarAncho; -begin - FocusedView.ApplyBestFit; -end; - -procedure TfrViewControlGrid.ContraerTodo; -begin - FocusedView.ViewData.Collapse(True); -end; - -constructor TfrViewControlGrid.Create(AOwner: TComponent); -begin - inherited; - FOnViewChanged := nil; -end; - -procedure TfrViewControlGrid.DesactivarEventos; -begin - // -end; - -procedure TfrViewControlGrid.ExpandirTodo; -begin - FocusedView.ViewData.Expand(True); -end; - -function TfrViewControlGrid.GetColumnByCaption( - const ACaption: String): TcxGridDBColumn; -var - i : integer; -begin - Result := NIL; - for i := 0 to FocusedView.ColumnCount - 1 do - if FocusedView.Columns[i].Caption = ACaption then - begin - Result := FocusedView.Columns[i]; - Break; - end; -end; - -function TfrViewControlGrid.GetColumnCount: Integer; -begin - Result := FocusedView.ColumnCount; -end; - -function TfrViewControlGrid.GetColumns(Index: Integer): TcxGridDBColumn; -begin - Result := FocusedView.Columns[Index]; -end; - -function TfrViewControlGrid.GetFilterValueList( - index: Integer): TStringList; -var - AValueList : TcxDataFilterValueList; - i : Integer; -begin - Result := TStringList.Create; - AValueList := TcxDataFilterValueList.Create(FocusedView.DataController.Filter); - try - AValueList.Load(Columns[Index].Index); - for i := 0 to AValueList.Count - 1 do - Result.Add(AValueList[i].DisplayText); - finally - FreeAndNil(AValueList); - end; -end; - -function TfrViewControlGrid.GetGroupedColumnCount: Integer; -begin - Result := FocusedView.GroupedColumnCount; -end; - -function TfrViewControlGrid.GetGroupedColumns( - Index: Integer): TcxGridColumn; -begin - Result := FocusedView.GroupedColumns[Index]; -end; - -function TfrViewControlGrid.GetOnFilterChanged: TNotifyEvent; -begin - Result := FOnFilterChanged; -end; - -function TfrViewControlGrid.GetOnViewChanged: TNotifyEvent; -begin - Result := FOnViewChanged; -end; - -function TfrViewControlGrid.GetViewProperties: String; -var - AStream : TStringStream; -begin - DesactivarEventos; - AStream := TStringStream.Create(''); - try - FocusedView.StoreToStream(AStream, [gsoUseFilter,gsoUseSummary], FocusedView.Name); - Result := AStream.DataString; - finally - AStream.Free; - ActivarEventos; - end; -end; - -procedure TfrViewControlGrid.GotoFirst; -begin - FocusedView.DataController.GotoFirst; -end; - -procedure TfrViewControlGrid.GotoLast; -begin - FocusedView.DataController.GotoLast; -end; - -procedure TfrViewControlGrid.Preview; -begin - dxPrinterLinkcxGrid.Preview; -end; - -procedure TfrViewControlGrid.Print; -begin - dxPrinterLinkcxGrid.Print(True, nil); -end; - -procedure TfrViewControlGrid.PrintSetup; -begin - dxPrinterLinkcxGrid.PageSetup; -end; - -procedure TfrViewControlGrid.SetOnFilterChanged(const Value: TNotifyEvent); -begin - FOnFilterChanged := Value; -end; - -procedure TfrViewControlGrid.SetOnViewChanged(const Value: TNotifyEvent); -begin - FOnViewChanged := Value; -end; - -procedure TfrViewControlGrid.SetViewProperties(const Value: String); -var - AStream : TStringStream; -begin - DesactivarEventos; - AStream := TStringStream.Create(Value); - try - AStream.Position := 0; - FocusedView.RestoreFromStream(AStream, True, True, [gsoUseFilter,gsoUseSummary], - FocusedView.Name); - finally - AStream.Free; - ActivarEventos; - end; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.dfm deleted file mode 100644 index 0afad52..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.dfm +++ /dev/null @@ -1,269 +0,0 @@ -inherited frViewControlesBase: TfrViewControlesBase - object EasyListview: TEasyListview - Left = 0 - Top = 0 - Width = 294 - Height = 214 - Align = alClient - BevelKind = bkTile - CacheDoubleBufferBits = False - CellSizes.List.AutoSize = True - EditManager.Font.Charset = DEFAULT_CHARSET - EditManager.Font.Color = clWindowText - EditManager.Font.Height = -11 - EditManager.Font.Name = 'Tahoma' - EditManager.Font.Style = [] - UseDockManager = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - GroupFont.Charset = DEFAULT_CHARSET - GroupFont.Color = clWindowText - GroupFont.Height = -11 - GroupFont.Name = 'Tahoma' - GroupFont.Style = [] - Header.Font.Charset = DEFAULT_CHARSET - Header.Font.Color = clWindowText - Header.Font.Height = -11 - Header.Font.Name = 'Tahoma' - Header.Font.Style = [] - ImagesLarge = ReportImages - PaintInfoGroup.BandColor = clGradientActiveCaption - PaintInfoGroup.BandThickness = 2 - PaintInfoGroup.CaptionIndent = 5 - PaintInfoGroup.Expandable = False - PaintInfoGroup.MarginBottom.CaptionIndent = 4 - ParentFont = False - Selection.AlphaBlend = True - TabOrder = 0 - View = elsTile - OnItemContextMenu = EasyListviewItemContextMenu - OnItemDblClick = EasyListviewItemDblClick - OnItemSelectionChanged = EasyListviewItemSelectionChanged - end - object ReportImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002024944415478DA - BDD5DB2E03411800E0E923B870E1CE9D085A940B823894D2489C4FAFE101BC80 - 8444840B89B3D4A954292D8A2855DD5655EB14E205A4570E09BAFB9B5944C7A1 - B335F87727F3CFBF93F976B3995D1500A0FF0C553468D93A9107A4F6D6A8313E - E4F33597AFCBE74BDED93384FCF67E5534F0F181287061F3186A4AD27E74E746 - AB80921213507B471785C604CD1B21A82D4DFF1138B1B48F325393D175F88642 - FF0494F01A46AB07156853D0EDFD0385C604E71D41A82BCB880B1325098922A0 - 699B80CAF2D2D1E35384420F6C7DAA6FC1B9F523A8D7A9E3C6483F6BF7A2EEBE - B14F736282A6F50034E834716392847B51425BDE2B74777F87C2E1B03C6770C2 - C200D73058CE06BFC23ED64C36171B9C5D3D84C68A4C6E8CD4CC6B6E363863F7 - 43933E8B1B23F9A2C3C306A7ED07D0ACCFE6C6486EDD14D8E094CD072D955A0A - 227B8C0550B5D7F1AAD3A7005CC16095961B23BD63D7CF062757BCD05A95C38D - C95BC41D6083C66501DA0CB9DC18694E21A800B40AD062C8E1C6445C77F9426C - 107FF1F13BCCE5C622B8F71C9E28031B2BB4DC18C97DC1333638BEE8863A5D36 - 738F452FFC0ED278E0F4820D8E59F6A0A6348B1B237342E797CAC0EA620D3746 - 421138BAE0024391861B530C8E9877A1B250CD8D290687E777405FA0E6C61483 - 43734E28CFCF90FF65BF114C70D0B40DBD0393BF82BD454CF03FE219EFD39C05 - A47A98E90000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002CB4944415478DA - BDD36F4813711807F0EF4984F5A68108254249648689A961334B8C95342CAD4C - 222D5F66607F2C825E1426B504090A7B636446A00605A624A4258A664EF1DFA6 - 0E97298D72AED3306FCB68A277D7EE3776E9727AB7AB1E381EF8DDFD9ECFEFB9 - E78EE2791EFF33286F90A228E0DA171EB737504AB37E3D48F1DD34A865415556 - 13CF3CD5504AF2AB660D765D3E8F804F15E8A86644F40FF0597D2F59385B69C7 - 8353EBFCCA8FD24611929F8B840C15A0676076AA60187720DBC1514B8227B471 - A0624AC01B2ECACA6CDF05D43C2FC39EE4740C6487E2C0B77982093134F51D21 - 012C7C82728373D5F160344D639AF90A477E0A8269777D130D9C1126F6374096 - E3F0AE220FEF9D3BA056AB0926849DF901AAF028268C3CC17CCE500EE8C1E2F7 - 6F4780B5074F8C6A6C8DD84C30A1539D4E07ABD5EAFB2B5D0816D78CAF08AA1D - 3A119B9C9B01373F8B86E15472CF1B53D4A177671E8C9918839331E2B82E14C1 - 918761785DAA1C94825D2D2AC3E3AA97CA416F6C62D60E8E9D857DD226621DDD - 83A86DEC940F2E35C38533F3850987AA6BEAF2BF43E11FE3381EED95CB77D6DE - 35409E13C0FA961EFF407F3096E5F1A6AD573EE8C15896C3AD829398E3D39197 - FA62454CC84DED0679A080DDA9B591B54DB6EB181C9B41ECCC38FA5497901955 - 2462E7EE772EDA9F16BD8A1CB0A5B35F3A98793056EC4C386D516136AE24AD86 - A5D90C8B3310D59FD7E0ADE1C3929D913DAEABCDF5F1480633526244ACAE3C17 - DDFA56E4C586C160F909FD340D666D1C0A6E3EF489B1AE757DAF493A7844132D - 163A9D93838F23666C0CE611141A066D7C10128EDD5D169B77E52EE39074F050 - 7214D95CDA3885AA1B5A848547226B5F201233EE91E26ECC5DD8F326DCE06FBC - CF342C1DD4EE8D5C74FA85F394820957BF79443A9892B84D11263C631A1E950E - 6AD4118A30216481C9F1E18A30D960D2CE2DA86ED0436948068B4BCA15639E58 - 11FCD7F10B8E341130466CDCF80000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002B14944415478DA - BDD5CB4F13411800F0AF897AF2A0311E8C07F5604C63E9839683040D42A1D098 - D42A8826DEFC070C4AF4E4C1981883C117C13755B02922A505ACB440855829B5 - DB07B5151589070831846C222A242ADD717760B14B6B676991AFBB99D9D96FF7 - 37B3B3D3952084602D439208760E8CE003AE8DDF05C7EC0F6F8B757C1E6F0BF5 - DA9B2608BB6E4B1281E50312801DFDEF90E1E0DE8C7A6E7150B06DEB66A8BE50 - 2740D382F6973174B8489611687EFE0694D29D304D7F17A0FF0564D87B581C7E - 2850EF811F733F05685AD0E68E2263710EAE5FB14D12A173C6ED10671888C711 - B43A2928DE27835FBFE70568C8D920F927D8DEF7161DD1CA458F8CC7B8B2CD15 - 806B0DCD493969416B5F041DD52A568C310C5BC61918087C86D9B959A0691AE7 - 349A3B09602F0B9690C154D8F236ABD34B06DB7A865145A952F41C26C6A9C24D - 820ED87B7D64F0992B8C2A75AAAC46C6B775B9FD64B0D51542C774B959635CDD - D14F91C1A7CE20AA2A530B206E8D910041DBE2718F272802EC66C172754673C8 - 8751B501A3EEC130196CE90EA0E3E59AAC46B650B24BC41721839617143AA1CF - CB1AE3760F1515013A2854A5D7648DC5D9766F304606D97F7C760EF3F045D71D - 5329E7E864FE467CF31DF7C6539E0F566E8179F67AFFF08838B0A2542D6A64BB - 1E4C80A9F8EFB7939E61C07CEB34DCA93D8FF383D10F64F049970F19B5B9C435 - C63DB2DDA6C92590C3462718A0ECD5507FB906E746DE7F2283CD9D43C850A422 - 62DC2393367DC1208F8D8E3330133A0B372E9DC139B18F63E2C043850A8C3D1C - F89A728E0CCAF5B80332F3145CD5489730FA1B827563355077B11AE789029B3A - BC487F409176647C9BC2320DAAA1BB491D5A11F8D83E88CAF6CB89D8C2EB9FBC - 14124314F8C8F61AE90AE45963A24153BB0795E4E7E06FD96A04116CB4BE42F5 - F75B5605E3232DB816F1079F420105E5B916660000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002E14944415478DA - 63FCFFFF3F033D0123B2859B0E5C03734062308CC207423082B2C1F260046177 - 4F9ACF707EE77446640BD03D8462E1C6FD57FFFB3B6A93E5F2E55B4F33488A0A - 3214D5F5A1588AD7C20DFBAEFC0F70D221CBC2A55B4E3218682A30BC7EFB19C5 - 52A22DEC5CFF142E5E1E284D504C86F509838DB13AC3976F3F512CC56BE1FABD - 97FF073AEB92E4B3BFFFFE31FCFDFB9F61D58ED30CCE963A0CBF7EFF41B1F4DC - 8E698C382D5CB7E7D2FF20173D922D03D16B769E61E89FB618430D5E0BD7EEB9 - F83FD8451F23F8B081127F49B865FFFE01E9BFFF180E9CB9C7F0F5DB5786B76F - DF82D5CC5BBA898085BB8116BAEA93E4339865E8626B771C236CE19A5D17FE87 - B819506C19486CC3EE13842D5CBDF3FCFF5077439420454F8D20D5202D208341 - 74B6BB10D8B2C93BDF81B300509821D5818761F3DE53842D5CB5F3DCFF307723 - 8A7C06636FDD7F9AB0852B779CFD1FEE618CE2A3D20029B0013D9B9EA3F8ECDF - 7F089DEECC0FB674FADE8F50710686441B4E865D87CF1261E176A0859EC6703E - C85042BE411143E2EF3D7A9EB0852BB69FF91FE16982E2C3026F71B0017D5B5E - 217CF60FE1C354475EB06533F77F81C7619C251BC3811317095BB87CDBE9FF91 - 5EA614F90C2C0FC4874F5F26C2C2ADA7FF877B99800DE9DEF81CECE25C0F51B0 - 4113B7BF41F1D93F48CDC4906CC705B66CF6C16F701FC698B3301C3B7B85B085 - C0121F1887A614F9EC2F50FC0F903E75E11A711686B819A3C459B69B10D82048 - 3E43F80C9662136C38C0F2F38EFC848B459830329CBD7C83B0854B369FF81FE8 - 6244308FC17C815087E9D38BD76F13B670F1A6E3FFFD9D0CC11A27ED780B8E33 - 483EFB07CC679F507CF60FDAD48806C617C8B2C527FE80C5402058FF2FC3959B - 7788B3D0C7419F229FFD85DA4A94858B361EFBEF65A74FB165445BB870C3D1FF - 1EB67A6459B6EA3C13DC1CA28374C1FA23FFDD6DF428F219493E9CBFEEF07F57 - 2B5D705D460D40D0C2796B0FFD9F327B05552C8301BC16D2030000BD734D0581 - 7DF1720000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001C64944415478DA - 63FCFFFF3F033D01E38059B87CDB699ADB1CE965CA88622150806CC3FE01CDF9 - F7EF3FC3DFBFFF18FEFEFB87C4FECFB06CD32186794B37319CDB310DBF858C33 - 1919823435197EFDFD0BC6BFA134980D34F4C79F3F0C3F81EC3F40F64F201BCC - 07E237515FE196FD03CAADD87284780BC9011FA2BEC12D03D1ABB71D25CE424A - 8211661988BF6EE771D22D644CC4EFDBCF537F30FCF903B1186C21D462107FD3 - 9E9394F9106CE85F245F807CF7F73F56CB40BEDEB2EF146E0B09F9845470A7E9 - 35C3F60367F05BF87F3E224B5E5C69C8A01F7E1E271F19A0CB81CCBA59FF8A61 - D7E1B3F82D4CC830806B2A78C0C030418101271F19A0CB2D987181E17AED0B86 - 3D47CFD3CF8757AA9F33EC3F7E817E3EBC50FE84E1F0E9CBF4F3E1D9D2C70CC7 - CE5EA19F0F4F173F643871FE1AFD7C78A2F001C3E98BD7B15B18EE69C2C09CC4 - 44551F1ECDBBC770EECA4DEC1686BA1B33B0A63053D5878773EE325CB8760BBB - 85412E860C1CE9AC54F5E1FECCDB0C576EDEC16EA1BF933E0377263B557D88D7 - 426F7B5D06FE1C4E066A02BC167ADAE8E02CF149AD2190014E0BDDACB4A86E19 - 5E0B9D2D3419566D3D42D5208501AC16764F9A4F13CB6000C5427A01BA5B0800 - BE8AE7E7F700C7D10000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD2520000020E4944415478DA - 63FCFFFF3F033D0123C842464646086F06034D6CFF9FFE9F11C5C2695326FDEF - 9ED4CFF0A0F801C311EF7D641BFC0F08FFFCFFC5F0FBDF2F300DC2FE4D310CFF - E7A359A8A8A6F8FFFEADFB0C8585850C1BB66E6058B26F1E752CDB15C3C07082 - 01D342980F4100D9329BAD4E382D60636283606636067628FBE1D7470C5BDD57 - C12D0CDE9D84DD425C3E0459986060806A112307030FB310032F8B1098E666E6 - 63E060E201E3A8B61C868D754B2016027D1ABE3783741F225B88CF324E661E86 - C0E60486B5B5F3C096FD065A1AB32F8F7C1F12B20C447B3686302CAB9E0AB610 - E4CBA403E5E4F99018CB40D8B1DE836151653F3C0ED30ED692EEC334430BA22C - 6305261A9B5A278679159D700BB30E3593914A4F90963D669537C32DCC3BDC49 - 9A0F91C19FFFBFC1090196026186FE46E323F06F86A2237DA4F99012CB4072E5 - 47A790EE434296FDFAFF1D21CEF01BA5B4A93D3E97781F622BAA6096FE46E363 - B30C841B4F2C26CE878BF6CDA1D832106E3DB992B00FA9651908779E5A4F9C0F - 67EE9E40B16520F57DA7B712F621B52C03D193CEEC26CE871377B6906DD9CF7F - DFE1EC19E78E10F621BA65BF900C40CE637843018AE79C3F459C0FDBB695E2CD - D0C45806C20B2E5C20EC43522D5B1E7E066B99EAB05800B785E83EACDB9C4991 - CF6080281F52CB32BC16A2FB10D45CA41AC06621A821ACA0AA006E043FB0A6A2 - 65508061213D010026DA8D05688EA69C0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000003474944415478DA - BD946B48536118C79F95140409E62DBB7C083F85084566372135D2F292B74AD3 - CCC44B492C32FC966D5AFA2D2A34E9A236733A9D695EA76B622A998917549CA9 - 980895B75D6995A5DBD9DBD939DBAB23754B9D0FBC9CE7FF1ECEF37BFEEFCB79 - 180821D8C860E8808CDB03CE649E4AAEAB16E214902B033D741D330039AE7B6D - D604637AD8027F500D12A5CA28EF1E0F845EE526386A5F5040026329A055BC08 - 1173EAE5AB21C672E78353768C37D48895D0DBD36B948B9D7221EFE721C89E3F - 029A3C1F06063A8C0D5AE834E99038BB2C007730BBD048FA7E8B029DEF0E812A - E7300DB4BDD98DE4596EAB2EA6256B68B50808420B84965C04A29E863DBEA00D - 5822040AEE59D3C0FCFC853C2E6E657D296A1E4A8AB7601D10FC83825608DB81 - F5560B8A22BFB5395CCACD527B558D1D24902081FEC6C0FCC5EDAE43F8FA8751 - E0DAA64E600935A0280E589D43739D1972417317B01AD4A0E0051A03E3E37BA9 - 82797907CDBAC388C87928E519DF595DD576ACBD7DE5241481B0B51BD80DF320 - E79DA38176CC4E24CB765F77673A985A4340D3077218D4CF81BC24480FBCF111 - C9728E9974187D85006EE166AC432FCCC29BD7DBB03EEDA784C67A1BAC8F7BCD - 500DB474F4035BF007E4A5C134D03EA90D499F7A98ED4CD7F5B20E1769EA3DB9 - DE770D00BBEE37C8F9217AE0B556247D7EF21F87BA1F9AF372618E5E8C9883B2 - D2AD58FB07A940506D8DB5A78F0C5A447658BB9D98A08EB5BD474C0267496028 - 0D74486841925C4F2357A6A68739CE74300DF9ECECFB0469B5BF405616A607C6 - 352149FE29ECF045EE015CB8886B859B08393F0B95E52BDF597BB323D6AEEE5F - A81A3D03C3904E02A506A063AC08CD707CD6D599EE9E0DBA7F6814D2ABBE83B4 - 225C0F8C11A29957675605536BB48BDE2D0D178F7C867BE552905447D3C09DD1 - 023459E80789097D94CBAC272EF8C394E4617C446919FB202D751CEB943BBBE1 - 41E604D6D76FD9C1B3C732AC2F27D2434007BCCF9F8299BA583D30AA067D2B0C - C09D6A34A67F680D61DA992174C00CDE57986E48A081BB222BD11827C0ECE9F1 - 3F300CE48EC3B4288906EE09E5A291E270E094BF3339DE561B9905A330D5C4A4 - 814E5E8FD0B4B5DDDAABAE104E2A194C3627EB8F94045A94A60F0CDCC8D870E0 - 5FA7D4B1F664B3FE1D0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001084944415478DA - 63FCFFFF3F033D01E3A88534B19031F124ED6DBD7081E1FFF97446B885516106 - 0CEF7E3130ECD870812134D480E1EB1F06862F50FCE937847E71807C390C0B3D - 0220169EDA7681C12BD00045D38B1F1036C3093C72474F31788598E1D4876121 - CD82F2FF3F60C431A15AB874CBC9FF6E969A0C5FBFFF64387AE11E43B48F3956 - BD407564C98180914716C3B91DD310161AA849812DBCFDF82DD52D9CB27807C3 - BCA59B502D549515663875E90E83A0A020568D7FFFFE6558B1FD0C5972D397ED - C6B49016D1F7FBD72F0656363686F7EFDF635A48CB38C41AA4A3714809188DC3 - D1381C8D43E2E21014A42BB71DA3593C6258D83B6521CD2C8301B885F404C3DF - 42005A1A11E70A945A890000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 115 - Top = 96 - Bitmap = {} - end - object dsDataTable: TDADataSource - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.dfm.cbk b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.dfm.cbk deleted file mode 100644 index 0afad52..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.dfm.cbk +++ /dev/null @@ -1,269 +0,0 @@ -inherited frViewControlesBase: TfrViewControlesBase - object EasyListview: TEasyListview - Left = 0 - Top = 0 - Width = 294 - Height = 214 - Align = alClient - BevelKind = bkTile - CacheDoubleBufferBits = False - CellSizes.List.AutoSize = True - EditManager.Font.Charset = DEFAULT_CHARSET - EditManager.Font.Color = clWindowText - EditManager.Font.Height = -11 - EditManager.Font.Name = 'Tahoma' - EditManager.Font.Style = [] - UseDockManager = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - GroupFont.Charset = DEFAULT_CHARSET - GroupFont.Color = clWindowText - GroupFont.Height = -11 - GroupFont.Name = 'Tahoma' - GroupFont.Style = [] - Header.Font.Charset = DEFAULT_CHARSET - Header.Font.Color = clWindowText - Header.Font.Height = -11 - Header.Font.Name = 'Tahoma' - Header.Font.Style = [] - ImagesLarge = ReportImages - PaintInfoGroup.BandColor = clGradientActiveCaption - PaintInfoGroup.BandThickness = 2 - PaintInfoGroup.CaptionIndent = 5 - PaintInfoGroup.Expandable = False - PaintInfoGroup.MarginBottom.CaptionIndent = 4 - ParentFont = False - Selection.AlphaBlend = True - TabOrder = 0 - View = elsTile - OnItemContextMenu = EasyListviewItemContextMenu - OnItemDblClick = EasyListviewItemDblClick - OnItemSelectionChanged = EasyListviewItemSelectionChanged - end - object ReportImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002024944415478DA - BDD5DB2E03411800E0E923B870E1CE9D085A940B823894D2489C4FAFE101BC80 - 8444840B89B3D4A954292D8A2855DD5655EB14E205A4570E09BAFB9B5944C7A1 - B335F87727F3CFBF93F976B3995D1500A0FF0C553468D93A9107A4F6D6A8313E - E4F33597AFCBE74BDED93384FCF67E5534F0F181287061F3186A4AD27E74E746 - AB80921213507B471785C604CD1B21A82D4DFF1138B1B48F325393D175F88642 - FF0494F01A46AB07156853D0EDFD0385C604E71D41A82BCB880B1325098922A0 - 699B80CAF2D2D1E35384420F6C7DAA6FC1B9F523A8D7A9E3C6483F6BF7A2EEBE - B14F736282A6F50034E834716392847B51425BDE2B74777F87C2E1B03C6770C2 - C200D73058CE06BFC23ED64C36171B9C5D3D84C68A4C6E8CD4CC6B6E363863F7 - 43933E8B1B23F9A2C3C306A7ED07D0ACCFE6C6486EDD14D8E094CD072D955A0A - 227B8C0550B5D7F1AAD3A7005CC16095961B23BD63D7CF062757BCD05A95C38D - C95BC41D6083C66501DA0CB9DC18694E21A800B40AD062C8E1C6445C77F9426C - 107FF1F13BCCE5C622B8F71C9E28031B2BB4DC18C97DC1333638BEE8863A5D36 - 738F452FFC0ED278E0F4820D8E59F6A0A6348B1B237342E797CAC0EA620D3746 - 421138BAE0024391861B530C8E9877A1B250CD8D290687E777405FA0E6C61483 - 43734E28CFCF90FF65BF114C70D0B40DBD0393BF82BD454CF03FE219EFD39C05 - A47A98E90000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002CB4944415478DA - BDD36F4813711807F0EF4984F5A68108254249648689A961334B8C95342CAD4C - 222D5F66607F2C825E1426B504090A7B636446A00605A624A4258A664EF1DFA6 - 0E97298D72AED3306FCB68A277D7EE3776E9727AB7AB1E381EF8DDFD9ECFEFB9 - E78EE2791EFF33286F90A228E0DA171EB737504AB37E3D48F1DD34A865415556 - 13CF3CD5504AF2AB660D765D3E8F804F15E8A86644F40FF0597D2F59385B69C7 - 8353EBFCCA8FD24611929F8B840C15A0676076AA60187720DBC1514B8227B471 - A0624AC01B2ECACA6CDF05D43C2FC39EE4740C6487E2C0B77982093134F51D21 - 012C7C82728373D5F160344D639AF90A477E0A8269777D130D9C1126F6374096 - E3F0AE220FEF9D3BA056AB0926849DF901AAF028268C3CC17CCE500EE8C1E2F7 - 6F4780B5074F8C6A6C8DD84C30A1539D4E07ABD5EAFB2B5D0816D78CAF08AA1D - 3A119B9C9B01373F8B86E15472CF1B53D4A177671E8C9918839331E2B82E14C1 - 918761785DAA1C94825D2D2AC3E3AA97CA416F6C62D60E8E9D857DD226621DDD - 83A86DEC940F2E35C38533F3850987AA6BEAF2BF43E11FE3381EED95CB77D6DE - 35409E13C0FA961EFF407F3096E5F1A6AD573EE8C15896C3AD829398E3D39197 - FA62454CC84DED0679A080DDA9B591B54DB6EB181C9B41ECCC38FA5497901955 - 2462E7EE772EDA9F16BD8A1CB0A5B35F3A98793056EC4C386D516136AE24AD86 - A5D90C8B3310D59FD7E0ADE1C3929D913DAEABCDF5F1480633526244ACAE3C17 - DDFA56E4C586C160F909FD340D666D1C0A6E3EF489B1AE757DAF493A7844132D - 163A9D93838F23666C0CE611141A066D7C10128EDD5D169B77E52EE39074F050 - 7214D95CDA3885AA1B5A848547226B5F201233EE91E26ECC5DD8F326DCE06FBC - CF342C1DD4EE8D5C74FA85F394820957BF79443A9892B84D11263C631A1E950E - 6AD4118A30216481C9F1E18A30D960D2CE2DA86ED0436948068B4BCA15639E58 - 11FCD7F10B8E341130466CDCF80000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002B14944415478DA - BDD5CB4F13411800F0AF897AF2A0311E8C07F5604C63E9839683040D42A1D098 - D42A8826DEFC070C4AF4E4C1981883C117C13755B02922A505ACB440855829B5 - DB07B5151589070831846C222A242ADD717760B14B6B676991AFBB99D9D96FF7 - 37B3B3D3952084602D439208760E8CE003AE8DDF05C7EC0F6F8B757C1E6F0BF5 - DA9B2608BB6E4B1281E50312801DFDEF90E1E0DE8C7A6E7150B06DEB66A8BE50 - 2740D382F6973174B8489611687EFE0694D29D304D7F17A0FF0564D87B581C7E - 2850EF811F733F05685AD0E68E2263710EAE5FB14D12A173C6ED10671888C711 - B43A2928DE27835FBFE70568C8D920F927D8DEF7161DD1CA458F8CC7B8B2CD15 - 806B0DCD493969416B5F041DD52A568C310C5BC61918087C86D9B959A0691AE7 - 349A3B09602F0B9690C154D8F236ABD34B06DB7A865145A952F41C26C6A9C24D - 820ED87B7D64F0992B8C2A75AAAC46C6B775B9FD64B0D51542C774B959635CDD - D14F91C1A7CE20AA2A530B206E8D910041DBE2718F272802EC66C172754673C8 - 8751B501A3EEC130196CE90EA0E3E59AAC46B650B24BC41721839617143AA1CF - CB1AE3760F1515013A2854A5D7648DC5D9766F304606D97F7C760EF3F045D71D - 5329E7E864FE467CF31DF7C6539E0F566E8179F67AFFF08838B0A2542D6A64BB - 1E4C80A9F8EFB7939E61C07CEB34DCA93D8FF383D10F64F049970F19B5B9C435 - C63DB2DDA6C92590C3462718A0ECD5507FB906E746DE7F2283CD9D43C850A422 - 62DC2393367DC1208F8D8E3330133A0B372E9DC139B18F63E2C043850A8C3D1C - F89A728E0CCAF5B80332F3145CD5489730FA1B827563355077B11AE789029B3A - BC487F409176647C9BC2320DAAA1BB491D5A11F8D83E88CAF6CB89D8C2EB9FBC - 14124314F8C8F61AE90AE45963A24153BB0795E4E7E06FD96A04116CB4BE42F5 - F75B5605E3232DB816F1079F420105E5B916660000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000002E14944415478DA - 63FCFFFF3F033D0123B2859B0E5C03734062308CC207423082B2C1F260046177 - 4F9ACF707EE77446640BD03D8462E1C6FD57FFFB3B6A93E5F2E55B4F33488A0A - 3214D5F5A1588AD7C20DFBAEFC0F70D221CBC2A55B4E3218682A30BC7EFB19C5 - 52A22DEC5CFF142E5E1E284D504C86F509838DB13AC3976F3F512CC56BE1FABD - 97FF073AEB92E4B3BFFFFE31FCFDFB9F61D58ED30CCE963A0CBF7EFF41B1F4DC - 8E698C382D5CB7E7D2FF20173D922D03D16B769E61E89FB618430D5E0BD7EEB9 - F83FD8451F23F8B081127F49B865FFFE01E9BFFF180E9CB9C7F0F5DB5786B76F - DF82D5CC5BBA898085BB8116BAEA93E4339865E8626B771C236CE19A5D17FE87 - B819506C19486CC3EE13842D5CBDF3FCFF5077439420454F8D20D5202D208341 - 74B6BB10D8B2C93BDF81B300509821D5818761F3DE53842D5CB5F3DCFF307723 - 8A7C06636FDD7F9AB0852B779CFD1FEE618CE2A3D20029B0013D9B9EA3F8ECDF - 7F089DEECC0FB674FADE8F50710686441B4E865D87CF1261E176A0859EC6703E - C85042BE411143E2EF3D7A9EB0852BB69FF91FE16982E2C3026F71B0017D5B5E - 217CF60FE1C354475EB06533F77F81C7619C251BC3811317095BB87CDBE9FF91 - 5EA614F90C2C0FC4874F5F26C2C2ADA7FF877B99800DE9DEF81CECE25C0F51B0 - 4113B7BF41F1D93F48CDC4906CC705B66CF6C16F701FC698B3301C3B7B85B085 - C0121F1887A614F9EC2F50FC0F903E75E11A711686B819A3C459B69B10D82048 - 3E43F80C9662136C38C0F2F38EFC848B459830329CBD7C83B0854B369FF81FE8 - 6244308FC17C815087E9D38BD76F13B670F1A6E3FFFD9D0CC11A27ED780B8E33 - 483EFB07CC679F507CF60FDAD48806C617C8B2C527FE80C5402058FF2FC3959B - 7788B3D0C7419F229FFD85DA4A94858B361EFBEF65A74FB165445BB870C3D1FF - 1EB67A6459B6EA3C13DC1CA28374C1FA23FFDD6DF428F219493E9CBFEEF07F57 - 2B5D705D460D40D0C2796B0FFD9F327B05552C8301BC16D2030000BD734D0581 - 7DF1720000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001C64944415478DA - 63FCFFFF3F033D01E38059B87CDB699ADB1CE965CA88622150806CC3FE01CDF9 - F7EF3FC3DFBFFF18FEFEFB87C4FECFB06CD32186794B37319CDB310DBF858C33 - 1919823435197EFDFD0BC6BFA134980D34F4C79F3F0C3F81EC3F40F64F201BCC - 07E237515FE196FD03CAADD87284780BC9011FA2BEC12D03D1ABB71D25CE424A - 8211661988BF6EE771D22D644CC4EFDBCF537F30FCF903B1186C21D462107FD3 - 9E9394F9106CE85F245F807CF7F73F56CB40BEDEB2EF146E0B09F9845470A7E9 - 35C3F60367F05BF87F3E224B5E5C69C8A01F7E1E271F19A0CB81CCBA59FF8A61 - D7E1B3F82D4CC830806B2A78C0C030418101271F19A0CB2D987181E17AED0B86 - 3D47CFD3CF8757AA9F33EC3F7E817E3EBC50FE84E1F0E9CBF4F3E1D9D2C70CC7 - CE5EA19F0F4F173F643871FE1AFD7C78A2F001C3E98BD7B15B18EE69C2C09CC4 - 44551F1ECDBBC770EECA4DEC1686BA1B33B0A63053D5878773EE325CB8760BBB - 85412E860C1CE9AC54F5E1FECCDB0C576EDEC16EA1BF933E0377263B557D88D7 - 426F7B5D06FE1C4E066A02BC167ADAE8E02CF149AD2190014E0BDDACB4A86E19 - 5E0B9D2D3419566D3D42D5208501AC16764F9A4F13CB6000C5427A01BA5B0800 - BE8AE7E7F700C7D10000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD2520000020E4944415478DA - 63FCFFFF3F033D0123C842464646086F06034D6CFF9FFE9F11C5C2695326FDEF - 9ED4CFF0A0F801C311EF7D641BFC0F08FFFCFFC5F0FBDF2F300DC2FE4D310CFF - E7A359A8A8A6F8FFFEADFB0C8585850C1BB66E6058B26F1E752CDB15C3C07082 - 01D342980F4100D9329BAD4E382D60636283606636067628FBE1D7470C5BDD57 - C12D0CDE9D84DD425C3E0459986060806A112307030FB310032F8B1098E666E6 - 63E060E201E3A8B61C868D754B2016027D1ABE3783741F225B88CF324E661E86 - C0E60486B5B5F3C096FD065A1AB32F8F7C1F12B20C447B3686302CAB9E0AB610 - E4CBA403E5E4F99018CB40D8B1DE836151653F3C0ED30ED692EEC334430BA22C - 6305261A9B5A278679159D700BB30E3593914A4F90963D669537C32DCC3BDC49 - 9A0F91C19FFFBFC1090196026186FE46E323F06F86A2237DA4F99012CB4072E5 - 47A790EE434296FDFAFF1D21CEF01BA5B4A93D3E97781F622BAA6096FE46E363 - B30C841B4F2C26CE878BF6CDA1D832106E3DB992B00FA9651908779E5A4F9C0F - 67EE9E40B16520F57DA7B712F621B52C03D193CEEC26CE871377B6906DD9CF7F - DFE1EC19E78E10F621BA65BF900C40CE637843018AE79C3F459C0FDBB695E2CD - D0C45806C20B2E5C20EC43522D5B1E7E066B99EAB05800B785E83EACDB9C4991 - CF6080281F52CB32BC16A2FB10D45CA41AC06621A821ACA0AA006E043FB0A6A2 - 65508061213D010026DA8D05688EA69C0000000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000003474944415478DA - BD946B48536118C79F95140409E62DBB7C083F85084566372135D2F292B74AD3 - CCC44B492C32FC966D5AFA2D2A34E9A236733A9D695EA76B622A998917549CA9 - 980895B75D6995A5DBD9DBD939DBAB23754B9D0FBC9CE7FF1ECEF37BFEEFCB79 - 180821D8C860E8808CDB03CE649E4AAEAB16E214902B033D741D330039AE7B6D - D604637AD8027F500D12A5CA28EF1E0F845EE526386A5F5040026329A055BC08 - 1173EAE5AB21C672E78353768C37D48895D0DBD36B948B9D7221EFE721C89E3F - 029A3C1F06063A8C0D5AE834E99038BB2C007730BBD048FA7E8B029DEF0E812A - E7300DB4BDD98DE4596EAB2EA6256B68B50808420B84965C04A29E863DBEA00D - 5822040AEE59D3C0FCFC853C2E6E657D296A1E4A8AB7601D10FC83825608DB81 - F5560B8A22BFB5395CCACD527B558D1D24902081FEC6C0FCC5EDAE43F8FA8751 - E0DAA64E600935A0280E589D43739D1972417317B01AD4A0E0051A03E3E37BA9 - 82797907CDBAC388C87928E519DF595DD576ACBD7DE5241481B0B51BD80DF320 - E79DA38176CC4E24CB765F77673A985A4340D3077218D4CF81BC24480FBCF111 - C9728E9974187D85006EE166AC432FCCC29BD7DBB03EEDA784C67A1BAC8F7BCD - 500DB474F4035BF007E4A5C134D03EA90D499F7A98ED4CD7F5B20E1769EA3DB9 - DE770D00BBEE37C8F9217AE0B556247D7EF21F87BA1F9AF372618E5E8C9883B2 - D2AD58FB07A940506D8DB5A78F0C5A447658BB9D98A08EB5BD474C0267496028 - 0D74486841925C4F2357A6A68739CE74300DF9ECECFB0469B5BF405616A607C6 - 352149FE29ECF045EE015CB8886B859B08393F0B95E52BDF597BB323D6AEEE5F - A81A3D03C3904E02A506A063AC08CD707CD6D599EE9E0DBA7F6814D2ABBE83B4 - 225C0F8C11A29957675605536BB48BDE2D0D178F7C867BE552905447D3C09DD1 - 023459E80789097D94CBAC272EF8C394E4617C446919FB202D751CEB943BBBE1 - 41E604D6D76FD9C1B3C732AC2F27D2434007BCCF9F8299BA583D30AA067D2B0C - C09D6A34A67F680D61DA992174C00CDE57986E48A081BB222BD11827C0ECE9F1 - 3F300CE48EC3B4288906EE09E5A291E270E094BF3339DE561B9905A330D5C4A4 - 814E5E8FD0B4B5DDDAABAE104E2A194C3627EB8F94045A94A60F0CDCC8D870E0 - 5FA7D4B1F664B3FE1D0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001084944415478DA - 63FCFFFF3F033D01E3A88534B19031F124ED6DBD7081E1FFF97446B885516106 - 0CEF7E3130ECD870812134D480E1EB1F06862F50FCE937847E71807C390C0B3D - 0220169EDA7681C12BD00045D38B1F1036C3093C72474F31788598E1D4876121 - CD82F2FF3F60C431A15AB874CBC9FF6E969A0C5FBFFF64387AE11E43B48F3956 - BD407564C98180914716C3B91DD310161AA849812DBCFDF82DD52D9CB27807C3 - BCA59B502D549515663875E90E83A0A020568D7FFFFE6558B1FD0C5972D397ED - C6B49016D1F7FBD72F0656363686F7EFDF635A48CB38C41AA4A3714809188DC3 - D1381C8D43E2E21014A42BB71DA3593C6258D83B6521CD2C8301B885F404C3DF - 42005A1A11E70A945A890000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 115 - Top = 96 - Bitmap = {} - end - object dsDataTable: TDADataSource - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.pas deleted file mode 100644 index 4c6cddb..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewControlesBase.pas +++ /dev/null @@ -1,210 +0,0 @@ -unit uViewControlesBase; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, cxGraphics, cxCustomData, cxStyles, cxTL, - cxImageComboBox, cxMaskEdit, cxTextEdit, cxInplaceContainer, cxDBTL, - cxControls, cxTLData, Menus, uBizControlesBase, DB, uDADataTable, - ImgList, PngImageList, uDAInterfaces, MPCommonObjects, MPCommonUtilities, - EasyListview; - -type - IViewControlesBase = interface(IViewBase) - ['{D991FCEC-08DB-4F77-BD57-FA04B3C88788}'] - function GetDblClick: TNotifyEvent; - procedure SetDblClick(const Value: TNotifyEvent); - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - - function GetPopupMenu: TPopupMenu; - procedure SetPopupMenu(const Value: TPopupMenu); - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - - function GetControl: IBizControlBase; - procedure SetControl(const Value: IBizControlBase); - property Control: IBizControlBase read GetControl write SetControl; - - procedure Refresh; - end; - - TfrViewControlesBase = class(TfrViewBase, IViewControlesBase) - ReportImages: TPngImageList; - dsDataTable: TDADataSource; - EasyListview: TEasyListview; -{ procedure EasyListviewItemDblClick(Sender: TCustomEasyListview; - Button: TEasyMouseButton; MousePos: TPoint; - HitInfo: TEasyHitInfoItem);} - - procedure EasyListviewItemDblClick(Sender: TCustomEasyListview; - Button: TCommonMouseButton; MousePos: TPoint; HitInfo: TEasyHitInfoItem); - - procedure EasyListviewItemContextMenu(Sender: TCustomEasyListview; - HitInfo: TEasyHitInfoItem; WindowPoint: TPoint; var Menu: TPopupMenu; - var Handled: Boolean); - - procedure EasyListviewItemSelectionChanged(Sender: TCustomEasyListview; - Item: TEasyItem); - protected - FControl : IBizControlBase; - FOnDblClick: TNotifyEvent; - FPopupMenu: TPopupMenu; - - function GetDblClick: TNotifyEvent; virtual; - procedure SetDblClick(const Value: TNotifyEvent); virtual; - - function GetPopupMenu: TPopupMenu; virtual; - procedure SetPopupMenu(const Value: TPopupMenu); virtual; - - function GetControl: IBizControlBase; virtual; - procedure SetControl(const Value: IBizControlBase); virtual; - public - procedure Refresh; override; - property Control: IBizControlBase read GetControl write SetControl; - property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick; - property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu; - end; - -implementation - -{$R *.dfm} - -{ TfrViewControlesBase } - -function TfrViewControlesBase.GetControl: IBizControlBase; -begin - Result := FControl; -end; - -function TfrViewControlesBase.GetDblClick: TNotifyEvent; -begin - Result := FOnDblClick; -end; - -function TfrViewControlesBase.GetPopupMenu: TPopupMenu; -begin - Result := FPopupMenu; -end; - -procedure TfrViewControlesBase.Refresh; -var - GroupNoModificable: TEasyGroup; - GroupModificable: TEasyGroup; - AItem : TEasyItem; - i: Integer; - IDSelected : string; -begin - inherited; - - if not Assigned(FControl) then - Exit; - - EasyListview.BeginUpdate; - try - IDSelected := ''; - if EasyListview.Groups.Count > 0 then - begin - for i := 0 to EasyListview.Items.Count - 1 do - if EasyListview.Items[i].Selected then - IDSelected := EasyListview.Items[i].Captions[3]; // Columna ID - EasyListview.Groups.Clear; - end; - - GroupNoModificable := EasyListview.Groups.Add; - GroupNoModificable.Caption := 'Controles generales'; - GroupNoModificable.Bold := True; - - GroupModificable := EasyListview.Groups.Add; - GroupModificable.Caption := 'Controles personalizados'; - GroupModificable.Bold := True; - - with FControl do - begin - FControl.First; - for i := 0 to (FControl.RecordCount - 1) do - begin - if EsModificable then - AItem := GroupModificable.Items.Add(NIL) - else - AItem := GroupNoModificable.Items.Add(NIL); - - AItem.ImageIndex := ICONO; - AItem.Captions[0] := NOMBRE; - AItem.Captions[1] := DESCRIPCION; - AItem.Captions[3] := IntToStr(ID); - AItem.Captions[4] := MODIFICABLE; - AItem.DetailCount := 2; - AItem.Details[0] := 0; // Columna NOMBRE; - AItem.Details[1] := 1; // Columna DESCRIPCION; - - AItem.Selected := (IDSelected = AItem.Captions[3]); - FControl.Next; - end; - end; - finally - EasyListview.Sort.SortAll; - EasyListview.EndUpdate; - - if (Length(IDSelected) = 0) and (EasyListview.Items.Count > 0) then - EasyListview.Items[0].Selected := True; - - for i := 0 to EasyListview.Items.Count - 1 do - if EasyListview.Items[i].Selected then - begin - FControl.First; - FControl.Locate('ID', StrToInt(EasyListview.Items[i].Captions[3]), []); - Break; - end; - - EasyListview.ShowGroupMargins := True; - end -end; - -procedure TfrViewControlesBase.SetControl(const Value: IBizControlBase); -begin - FControl := Value; - dsDataTable.DataTable := Value.DataTable; -end; - -procedure TfrViewControlesBase.SetDblClick(const Value: TNotifyEvent); -begin - FOnDblClick := Value; -end; - -procedure TfrViewControlesBase.SetPopupMenu(const Value: TPopupMenu); -begin - FPopupMenu := Value; -end; - -procedure TfrViewControlesBase.EasyListviewItemContextMenu( - Sender: TCustomEasyListview; HitInfo: TEasyHitInfoItem; - WindowPoint: TPoint; var Menu: TPopupMenu; var Handled: Boolean); -begin - inherited; - if Assigned(FPopupMenu) then - Menu := FPopupMenu; -end; - -procedure TfrViewControlesBase.EasyListviewItemDblClick( - Sender: TCustomEasyListview; Button: TCommonMouseButton; MousePos: TPoint; - HitInfo: TEasyHitInfoItem); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Self); -end; - -procedure TfrViewControlesBase.EasyListviewItemSelectionChanged( - Sender: TCustomEasyListview; Item: TEasyItem); -begin - inherited; - if not Item.Destroying then - begin - FControl.First; - FControl.Locate('ID', StrToInt(Item.Captions[3]), []); - end; -end; - -end. - - diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.dfm deleted file mode 100644 index 2599dfe..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.dfm +++ /dev/null @@ -1,115 +0,0 @@ -inherited frViewFiltros: TfrViewFiltros - Width = 209 - Height = 462 - object vgFiltros: TcxVerticalGrid - Left = 0 - Top = 229 - Width = 216 - Height = 233 - Enabled = False - Images = PngImageList1 - LookAndFeel.Kind = lfStandard - LookAndFeel.NativeStyle = True - OptionsView.CellAutoHeight = True - OptionsView.CellEndEllipsis = True - OptionsView.ScrollBars = ssVertical - OptionsView.RowHeaderWidth = 97 - OptionsView.GridLines = vglVertical - OptionsView.ValueMinWidth = 75 - TabOrder = 0 - Visible = False - object vgFiltrosEditorRow1: TcxEditorRow - Properties.EditPropertiesClassName = 'TcxComboBoxProperties' - Properties.EditProperties.OnEditValueChanged = vgFiltrosEditorRow1EditPropertiesEditValueChanged - Properties.DataBinding.ValueType = 'String' - Properties.Value = Null - end - end - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 209 - Height = 29 - Align = alTop - Caption = 'Filtros' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - Margins.Top = 5 - Margins.Bottom = 10 - ParentColor = True - ParentFont = False - Underline = True - end - object cxFilterControl1: TcxFilterControl - Left = 0 - Top = 29 - Width = 209 - Height = 403 - Align = alClient - Color = clWindow - LookAndFeel.Kind = lfStandard - LookAndFeel.NativeStyle = True - TabOrder = 2 - TabStop = True - end - object TBXAlignmentPanel3: TTBXAlignmentPanel - Left = 0 - Top = 432 - Width = 209 - Height = 30 - Align = alBottom - Margins.Left = 3 - Margins.Top = 3 - Margins.Right = 3 - Margins.Bottom = 3 - TabOrder = 3 - object bRefrescar: TButton - Left = 4 - Top = 5 - Width = 100 - Height = 21 - Caption = 'Aplicar filtro' - TabOrder = 0 - OnClick = bRefrescarClick - end - end - object cxStyleRepository1: TcxStyleRepository - Left = 216 - Top = 104 - object cxStyleNombreColumna: TcxStyle - AssignedValues = [svTextColor] - TextColor = clActiveCaption - end - object cxStyleCategoria: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = 15329769 - TextColor = clHighlight - end - end - object PngImageList1: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000011E4944415478DA - 63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F - 3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F - E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E - 96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C - 5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD - A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53 - 06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B - 7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA - CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77 - 0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end> - Left = 88 - Top = 104 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.pas deleted file mode 100644 index 88da478..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewFiltros.pas +++ /dev/null @@ -1,197 +0,0 @@ -unit uViewFiltros; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewParametrosControlGrid, cxStyles, cxGraphics, cxEdit, - TBXDkPanels, cxControls, cxInplaceContainer, cxVGrid, cxDropDownEdit, - ImgList, PngImageList, cxFilterControl, uViewControlGrid, - cxDBFilterControl, StdCtrls; - -type - IViewFiltros = interface(IViewParametrosControlGrid) - ['{92FA8AF8-D0D8-4BC6-9611-CF3094CD4385}'] - end; - - TfrViewFiltros = class(TfrViewParametrosControlGrid, IViewFiltros) - vgFiltros: TcxVerticalGrid; - TBXLabel1: TTBXLabel; - cxStyleRepository1: TcxStyleRepository; - cxStyleNombreColumna: TcxStyle; - cxStyleCategoria: TcxStyle; - PngImageList1: TPngImageList; - vgFiltrosEditorRow1: TcxEditorRow; - cxFilterControl1: TcxFilterControl; - TBXAlignmentPanel3: TTBXAlignmentPanel; - bRefrescar: TButton; - procedure vgFiltrosEditorRow1EditPropertiesEditValueChanged( - Sender: TObject); - procedure bRefrescarClick(Sender: TObject); - protected - procedure RellenarFiltros; - procedure SetViewControlGrid(const Value: IViewControlGrid); override; - procedure SetModificable(const Value: Boolean); override; - public - procedure Execute; override; - procedure Refresh; override; - end; - -implementation - -{$R *.dfm} - -uses - cxCustomData, cxFilter, cxGridDBDataDefinitions, - cxGridDBTableView, cxGridCustomTableView, cxFilterConsts, cxClasses, - cxDBData; - -{ TfrViewFiltros } - -procedure TfrViewFiltros.Execute; -begin - inherited; - cxFilterControl1.ApplyFilter; - FViewControlGrid.FocusedView.DataController.Filter.Active := True; -end; - -procedure TfrViewFiltros.Refresh; -begin - inherited; - cxFilterControl1.UpdateFilter; - SetModificable(Modificable); - //RellenarFiltros; -end; - -procedure TfrViewFiltros.RellenarFiltros; -var - i : Integer; - ACaption : String; - ARow : TcxEditorRow; - AColumn : TcxGridDBColumn; - AValueList : TcxDataFilterValueList; - - procedure GetFilterStrings(AStrings: TStrings; - AValueList: TcxDataFilterValueList); - var - I: Integer; - S: string; - begin - AStrings.BeginUpdate; - try - AStrings.Clear; - for I := 0 to AValueList.Count - 1 do - begin - S := AValueList[I].DisplayText; - AStrings.AddObject(S, TObject(AValueList[I])); - end; - finally - AStrings.EndUpdate; - end; - end; - - procedure AddRow; - begin - ARow := vgFiltros.Add(TcxEditorRow) as TcxEditorRow; - ARow.Parent := NIL; - ARow.Properties.Caption := AColumn.Caption; - ARow.Properties.EditPropertiesClassName := 'TcxComboBoxProperties'; - with (TcxComboBoxProperties(ARow.Properties.EditProperties)) do - begin - ARow.Properties.ImageIndex := 0; - ImmediateDropDown := True; - ImmediatePost := True; - ImmediateUpdateText := True; - PostPopupValueOnTab := True; - OnEditValueChanged := vgFiltrosEditorRow1EditPropertiesEditValueChanged; - GetFilterStrings(Items, AValueList); - end; - end; - -begin -{ vgFiltros.BeginUpdate; - try - vgFiltros.ClearRows; - for i := 0 to ViewControlGrid.FocusedView.VisibleColumnCount - 1 do - begin - AColumn := TcxGridDBColumn(ViewControlGrid.FocusedView.VisibleColumns[i]); - AValueList := ViewControlGrid.FilterValueList[AColumn.Index]; - AddRow; - end; - finally - vgFiltros.EndUpdate; - end;} -end; - -procedure TfrViewFiltros.SetViewControlGrid(const Value: IViewControlGrid); -begin - inherited; - cxFilterControl1.LinkComponent := FViewControlGrid.FocusedView; -end; - -procedure TfrViewFiltros.vgFiltrosEditorRow1EditPropertiesEditValueChanged( - Sender: TObject); -var - ARow : TcxEditorRow; - AColumn : TcxGridDBColumn; - AItemIndex : Integer; -begin -{ ARow := TcxEditorRow(vgFiltros.FocusedRow); - - if not Assigned(ARow) then - Exit; - - with (TcxComboBoxProperties(ARow.Properties.EditProperties)) do - AItemIndex := Items.IndexOf(ARow.Properties.Value); - - AColumn := ViewControlGrid.GetColumnByCaption(ARow.Properties.Caption); - - if Assigned(AColumn) and (AItemIndex <> -1) then - begin - AColumn.DataBinding.Filter.BeginUpdate; - try - with ViewControlGrid.FilterValueList[AColumn.Index][AItemIndex]^ do - begin - if not (Kind in [fviAll, fviCustom]) then - AColumn.DataBinding.Filter.Active := True; - case Kind of - fviAll: - begin - AColumn.Filtered := False; - ARow.Properties.Value := ''; - end; - fviCustom: - ViewControlGrid.FocusedView.Filtering.RunCustomizeDialog(AColumn); - fviBlanks: - AColumn.DataBinding.AddToFilter(nil, foEqual, Value, - cxGetResourceStringNet(cxSFilterBlankCaption)); - fviNonBlanks: - AColumn.DataBinding.AddToFilter(nil, foNotEqual, Value, - cxGetResourceStringNet(cxSFilterBlankCaption)); - fviValue, fviMRU: - begin - AColumn.DataBinding.AddToFilter(nil, foEqual, Value, DisplayText); - AColumn.DataBinding.FilterMRUValueItems.Add(Value, DisplayText); - end; - end; - end; - finally - AColumn.DataBinding.Filter.EndUpdate; - end; - end;} -end; - -procedure TfrViewFiltros.bRefrescarClick(Sender: TObject); -begin - inherited; - Execute; -end; - -procedure TfrViewFiltros.SetModificable(const Value: Boolean); -begin - inherited; - vgFiltros.Enabled := Value; -end; - -end. - diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.dfm deleted file mode 100644 index e4accb4..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.dfm +++ /dev/null @@ -1,3 +0,0 @@ -inherited frViewParametrosControlGrid: TfrViewParametrosControlGrid - ParentFont = True -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.pas deleted file mode 100644 index 94dc1b7..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewParametrosControlGrid.pas +++ /dev/null @@ -1,82 +0,0 @@ -unit uViewParametrosControlGrid; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, uViewControlGrid; - -type - IViewParametrosControlGrid = interface(IViewBase) - ['{A060605B-AFB1-4F6F-8273-7739C4C4905B}'] - function GetModificable: Boolean; - procedure SetModificable(const Value: Boolean); - property Modificable : Boolean read GetModificable write SetModificable; - - procedure SetViewControlGrid (const Value : IViewControlGrid); - function GetViewControlGrid : IViewControlGrid; - property ViewControlGrid : IViewControlGrid read GetViewControlGrid write SetViewControlGrid; - - procedure Execute; - procedure Refresh; - end; - - TfrViewParametrosControlGrid = class(TfrViewBase, IViewParametrosControlGrid) - protected - FViewControlGrid : IViewControlGrid; - FModificable : Boolean; - function GetModificable: Boolean; virtual; - procedure SetModificable(const Value: Boolean); virtual; - procedure SetViewControlGrid (const Value : IViewControlGrid); virtual; - function GetViewControlGrid : IViewControlGrid; virtual; - public - property Modificable : Boolean read GetModificable write SetModificable; - property ViewControlGrid : IViewControlGrid read GetViewControlGrid write SetViewControlGrid; - procedure Execute; virtual; - procedure Refresh; override; - end; - - -implementation - -{$R *.dfm} - -{ TfrViewParametrosControlGrid } - - -procedure TfrViewParametrosControlGrid.Execute; -begin - if not Assigned(ViewControlGrid) then - raise Exception.Create('Vista para el control no asignada (Execute)'); -end; - -function TfrViewParametrosControlGrid.GetModificable: Boolean; -begin - Result := FModificable; -end; - -function TfrViewParametrosControlGrid.GetViewControlGrid: IViewControlGrid; -begin - Result := FViewControlGrid; -end; - -procedure TfrViewParametrosControlGrid.Refresh; -begin - inherited; - if not Assigned(ViewControlGrid) then - raise Exception.Create('Vista para el control no asignada (Refresh)'); -end; - -procedure TfrViewParametrosControlGrid.SetModificable( - const Value: Boolean); -begin - FModificable := Value; -end; - -procedure TfrViewParametrosControlGrid.SetViewControlGrid( - const Value: IViewControlGrid); -begin - FViewControlGrid := Value; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.dfm deleted file mode 100644 index 03232be..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.dfm +++ /dev/null @@ -1,174 +0,0 @@ -inherited frViewPeriodoFechas: TfrViewPeriodoFechas - Width = 253 - Height = 351 - object TBXLabel1: TTBXLabel - Left = 0 - Top = 50 - Width = 253 - Height = 29 - Align = alTop - Caption = 'Rango de fechas' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - Margins.Top = 5 - Margins.Bottom = 10 - ParentColor = True - ParentFont = False - Underline = True - end - object TBXLabel2: TTBXLabel - Left = 0 - Top = 0 - Width = 253 - Height = 29 - Align = alTop - Caption = 'Periodo' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - Margins.Top = 5 - Margins.Bottom = 10 - ParentColor = True - ParentFont = False - Underline = True - end - object TBXAlignmentPanel1: TTBXAlignmentPanel - Left = 0 - Top = 29 - Width = 253 - Height = 21 - Align = alTop - AutoSize = True - Margins.Left = 5 - Margins.Right = 5 - TabOrder = 2 - DesignSize = ( - 253 - 21) - object cbPeriodo: TcxComboBox - Left = 8 - Top = 0 - RepositoryItem = cxRepositoryPeriodos - Anchors = [akLeft, akTop, akRight] - Properties.OnChange = cbPeriodoPropertiesChange - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Text = 'Este mes' - Width = 209 - end - end - object TBXAlignmentPanel2: TTBXAlignmentPanel - Left = 0 - Top = 79 - Width = 253 - Height = 48 - Align = alTop - AutoSize = True - Margins.Left = 5 - Margins.Right = 5 - TabOrder = 3 - object Label1: TLabel - Left = 9 - Top = 4 - Width = 34 - Height = 13 - Caption = 'Desde:' - Transparent = True - end - object Label2: TLabel - Left = 14 - Top = 31 - Width = 29 - Height = 13 - Caption = 'hasta:' - Transparent = True - end - object edtFechaIni: TcxDateEdit - Left = 48 - Top = 0 - Properties.DateButtons = [btnToday] - Properties.PostPopupValueOnTab = True - Properties.SaveTime = False - Properties.ShowTime = False - Properties.OnValidate = edtFechaIni2PropertiesValidate - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsDefault - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Width = 170 - end - object edtFechaFin: TcxDateEdit - Left = 48 - Top = 27 - Properties.DateButtons = [btnToday] - Properties.PostPopupValueOnTab = True - Properties.SaveTime = False - Properties.ShowTime = False - Properties.OnValidate = edtFechaFinPropertiesValidate - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 - Width = 170 - end - end - object cxRepository: TcxEditRepository - Left = 184 - Top = 32 - object cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem - Properties.BeepOnError = True - Properties.DropDownListStyle = lsFixedList - Properties.DropDownRows = 10 - Properties.ImmediatePost = True - Properties.ImmediateUpdateText = True - Properties.Items.Strings = ( - 'Hoy' - 'Ayer' - 'Esta semana' - 'Este mes' - 'Este a'#241'o' - #218'ltimos 7 d'#237'as' - #218'ltimos 30 d'#237'as' - #218'ltimos 3 meses' - 'Mes anterior' - 'A'#241'o anterior' - 'Personalizado') - Properties.PostPopupValueOnTab = True - Properties.ReadOnly = False - end - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.pas deleted file mode 100644 index a3dc473..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewPeriodoFechas.pas +++ /dev/null @@ -1,203 +0,0 @@ -unit uViewPeriodoFechas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxGraphics, cxEdit, cxDropDownEdit, cxCalendar, StdCtrls, - cxControls, cxContainer, cxTextEdit, cxMaskEdit, TBXDkPanels, - cxEditRepositoryItems, dxLayoutControl, dxLayoutLookAndFeels, uViewBase, - Mask, JvExMask, JvToolEdit, uViewParametrosControlGrid; - -type - IViewPeriodoFechas = interface(IViewParametrosControlGrid) - ['{793084E2-873E-4C57-8BD6-9087816CCF3A}'] - end; - - TfrViewPeriodoFechas = class(TfrViewParametrosControlGrid, IViewPeriodoFechas) - cbPeriodo: TcxComboBox; - edtFechaIni: TcxDateEdit; - edtFechaFin: TcxDateEdit; - cxRepository: TcxEditRepository; - cxRepositoryPeriodos: TcxEditRepositoryComboBoxItem; - TBXLabel1: TTBXLabel; - TBXLabel2: TTBXLabel; - TBXAlignmentPanel1: TTBXAlignmentPanel; - TBXAlignmentPanel2: TTBXAlignmentPanel; - Label1: TLabel; - Label2: TLabel; - procedure cbPeriodoPropertiesChange(Sender: TObject); - procedure edtFechaIni2PropertiesValidate(Sender: TObject; - var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); - procedure edtFechaFinPropertiesValidate(Sender: TObject; - var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); - private - function GetFechaFinal: TDateTime; - function GetFechaInicial: TDateTime; - procedure SetFechaFinal(const Value: TDateTime); - procedure SetFechaInicial(const Value: TDateTime); - public - procedure Hoy; - procedure Ayer; - procedure EstaSemana; - procedure EsteMes; - procedure EsteAno; - procedure Ultimos7dias; - procedure Ultimos30dias; - procedure Ultimos3meses; - procedure MesAnterior; - procedure AnoAnterior; - procedure Personalizado; - property FechaInicial : TDateTime read GetFechaInicial write SetFechaInicial; - property FechaFinal : TDateTime read GetFechaFinal write SetFechaFinal; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses DateUtils; - -{$R *.dfm} - -procedure TfrViewPeriodoFechas.AnoAnterior; -begin - edtFechaIni.Date := StartOfTheYear(IncYear(Today, -1)); - edtFechaFin.Date := EndOfTheYear(IncYear(Today, -1)); -end; - -procedure TfrViewPeriodoFechas.Ayer; -begin - edtFechaIni.Date := Yesterday; - edtFechaFin.Date := Yesterday; -end; - -procedure TfrViewPeriodoFechas.EstaSemana; -begin - edtFechaIni.Date := StartOfTheWeek(Today); - edtFechaFin.Date := EndOfTheWeek(Today); -end; - -procedure TfrViewPeriodoFechas.EsteAno; -begin - edtFechaIni.Date := StartOfTheYear(Today); - edtFechaFin.Date := EndOfTheYear(Today); -end; - -procedure TfrViewPeriodoFechas.EsteMes; -begin - edtFechaIni.Date := StartOfTheMonth(Today); - edtFechaFin.Date := EndOfTheMonth(Today); -end; - -function TfrViewPeriodoFechas.GetFechaFinal: TDateTime; -begin - Result := DateOf(edtFechaFin.Date); -end; - -function TfrViewPeriodoFechas.GetFechaInicial: TDateTime; -begin - Result := DateOf(edtFechaIni.Date); -end; - -procedure TfrViewPeriodoFechas.Hoy; -begin - edtFechaIni.Date := Today; - edtFechaFin.Date := Today; -end; - -procedure TfrViewPeriodoFechas.MesAnterior; -begin - edtFechaIni.Date := StartOfTheMonth(IncMonth(Today, -1)); - edtFechaFin.Date := EndOfTheMonth(IncMonth(Today, -1)); -end; - -procedure TfrViewPeriodoFechas.Personalizado; -begin - edtFechaIni.SetFocus; -end; - -procedure TfrViewPeriodoFechas.SetFechaFinal(const Value: TDateTime); -begin - edtFechaFin.Date := Value; -end; - -procedure TfrViewPeriodoFechas.SetFechaInicial(const Value: TDateTime); -begin - edtFechaIni.Date := Value; -end; - -procedure TfrViewPeriodoFechas.Ultimos30dias; -begin - edtFechaIni.Date := IncDay(Today, -30); - edtFechaFin.Date := Today -end; - -procedure TfrViewPeriodoFechas.Ultimos3meses; -begin - edtFechaIni.Date := IncMonth(Today, -3); - edtFechaFin.Date := Today -end; - -procedure TfrViewPeriodoFechas.Ultimos7dias; -begin - edtFechaIni.Date := IncDay(Today, -7); - edtFechaFin.Date := Today -end; - -procedure TfrViewPeriodoFechas.cbPeriodoPropertiesChange(Sender: TObject); -begin - case (Sender as TcxComboBox).ItemIndex of - 0 : Hoy; - 1 : Ayer; - 2 : EstaSemana; - 3 : EsteMes; - 4 : EsteAno; - 5 : Ultimos7dias; - 6 : Ultimos30dias; - 7 : Ultimos3meses; - 8 : MesAnterior; - 9 : AnoAnterior; - else - Personalizado; - end; -end; - -constructor TfrViewPeriodoFechas.Create(AOwner: TComponent); -begin - inherited; - cbPeriodo.ItemIndex := 3; - EsteMes; -end; - -procedure TfrViewPeriodoFechas.edtFechaIni2PropertiesValidate( - Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); -begin - inherited; - if DisplayValue <> edtFechaIni.Date then - cbPeriodo.ItemIndex := 12; - if DisplayValue > edtFechaFin.Date then - begin - edtFechaFin.EditText := DisplayValue; - edtFechaFin.ValidateEdit(True); - end; -end; - -procedure TfrViewPeriodoFechas.edtFechaFinPropertiesValidate( - Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); -begin - inherited; - if DisplayValue <> edtFechaFin.Date then - cbPeriodo.ItemIndex := 12; - if DisplayValue < edtFechaIni.Date then - begin - edtFechaIni.EditText := DisplayValue; - edtFechaIni.ValidateEdit(True); - end; -end; - -end. - diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.ddp b/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.dfm b/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.dfm deleted file mode 100644 index d5abe2c..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.dfm +++ /dev/null @@ -1,115 +0,0 @@ -inherited frViewSumarios: TfrViewSumarios - Width = 344 - Height = 472 - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 344 - Height = 29 - Align = alTop - Caption = 'Res'#250'menes' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - Margins.Top = 5 - Margins.Bottom = 10 - ParentColor = True - ParentFont = False - Underline = True - end - object vgSumarios: TcxVerticalGrid - Left = 0 - Top = 29 - Width = 344 - Height = 443 - Styles.Category = cxStyleCategoria - Align = alClient - Images = PngImageList1 - LookAndFeel.Kind = lfStandard - LookAndFeel.NativeStyle = True - OptionsView.CellAutoHeight = True - OptionsView.CellEndEllipsis = True - OptionsView.ScrollBars = ssVertical - OptionsView.RowHeaderWidth = 133 - OptionsView.GridLines = vglVertical - OptionsView.ValueMinWidth = 75 - TabOrder = 1 - end - object PngImageList1: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000000534944415478DA - 63FCFFFF3F03258071F018C0C8C848944940F58CB80CB0075207A0E20E407C10 - BB7EDC0680288286A07B19DD0082861063005E43883500A72174710145614051 - 2C509C0E284B89E4028A0D0000DBA366E1865C514F0000000049454E44AE4260 - 82} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000794944415478DA - 63FCFFFF3F0325809162030CDD338936E1FCCEE98C580DC8CF4C870BFCF9F397 - E1FBCF5F0CDF7E00F1F79F0C5FBEFF6078F6FA3DC38D8B27F01BB0F3D845BCB6 - E33580222F60530832149B62AC81884B825843F02A20C6108236103204671810 - E37FBC06109B36F01A404CDAA0DC0B039E1B0126BE69852B2E82B70000000049 - 454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000011E4944415478DA - 63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F - 3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F - E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E - 96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C - 5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD - A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53 - 06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B - 7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA - CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77 - 0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end> - Left = 88 - Top = 104 - Bitmap = {} - end - object cxStyleRepository1: TcxStyleRepository - Left = 216 - Top = 104 - object cxStyleNombreColumna: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clWindow - TextColor = clActiveCaption - end - object cxStyleCategoria: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = 15329769 - TextColor = clHighlight - end - object cxStyleNombreColumnaInactivo: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clWindow - TextColor = cl3DDkShadow - end - object cxStyleCategoriaInactivo: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = 15329769 - TextColor = clBtnShadow - end - object cxStyleContentInactivo: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clWindow - TextColor = clBtnShadow - end - end -end diff --git a/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.pas b/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.pas deleted file mode 100644 index 85f31f9..0000000 --- a/Varela/Varela/Source/ControlesBase/Cliente/uViewSumarios.pas +++ /dev/null @@ -1,325 +0,0 @@ -unit uViewSumarios; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxListBox, - TBXDkPanels, ActnList, cxCustomData, cxGridDBTableView, cxGridTableView, - cxGraphics, cxStyles, cxTL, cxTextEdit, cxDropDownEdit, ImgList, - PngImageList, ComCtrls, JvExComCtrls, JvComCtrls, cxInplaceContainer, - ExtCtrls, cxEdit, cxVGrid, TBXToolPals, uViewControlGrid, - uViewParametrosControlGrid; - -type - IViewSumarios = interface(IViewParametrosControlGrid) - ['{4AEE3447-C6A4-491F-87E7-02CD255A7695}'] - end; - - TfrViewSumarios = class(TfrViewParametrosControlGrid, IViewSumarios) - PngImageList1: TPngImageList; - vgSumarios: TcxVerticalGrid; - TBXLabel1: TTBXLabel; - cxStyleRepository1: TcxStyleRepository; - cxStyleNombreColumna: TcxStyle; - cxStyleCategoria: TcxStyle; - cxStyleNombreColumnaInactivo: TcxStyle; - cxStyleCategoriaInactivo: TcxStyle; - cxStyleContentInactivo: TcxStyle; - procedure vgSumariosEditorRowInitPopup(Sender: TObject); - procedure vgSumariosEditorRowEditValueChanged( - Sender: TObject); - protected - procedure RellenarArbolTotales; - - function AnadirSumario(const ACaption : String; - const AKind : TcxSummaryKind) : TcxEditorRow; - - procedure RellenarTotalesPie; - procedure RellenarTotalesGrupo(const AGroupName : String); - procedure RellenarCategorias; - procedure RellenarCategoria(const APosition : TcxSummaryPosition; - const AGroupName : String = ''); - - procedure AplicarSumarioVista(const APosition : TcxSummaryPosition; - const AColumnCaption : String; const AKind : TcxSummaryKind); - procedure SetModificable(const Value: Boolean); override; - public - procedure Execute; override; - procedure Refresh; override; - end; - -implementation - -{$R *.dfm} - -uses - DB, cxGridPopupMenuConsts; - -var - SumaryKindStrArray : array[skNone..skAverage] of String - = ('', 'Sumar', 'Mínimo', 'Máximo', 'Contar', 'Promedio'); - -procedure TfrViewSumarios.Refresh; -begin - RellenarCategorias; -end; - -procedure TfrViewSumarios.RellenarArbolTotales; -var - i : Integer; -begin - // Recuperar las agrupaciones del grid - for i := 0 to ViewControlGrid.GroupedColumnCount - 1 do - begin - if i = 3 then - Break; // Sólo meter las 3 primera agrupaciones - RellenarCategoria(spGroup, ViewControlGrid.GroupedColumns[i].Caption); - end; -end; - -function TfrViewSumarios.AnadirSumario(const ACaption : String; - const AKind : TcxSummaryKind) : TcxEditorRow; -begin - Result := vgSumarios.Add(TcxEditorRow) as TcxEditorRow; - with Result do - begin - Properties.Caption := ACaption; - Properties.Value := SumaryKindStrArray[AKind]; - Properties.ImageIndex := 2; - Properties.EditPropertiesClass := TcxComboBoxProperties; - with TcxComboBoxProperties(Properties.EditProperties) do - begin - ImmediateDropDown := True; - DropDownListStyle := lsFixedList; - ImmediatePost := True; - ImmediateUpdateText := True; - PostPopupValueOnTab := True; - OnInitPopup := vgSumariosEditorRowInitPopup; - OnEditValueChanged := vgSumariosEditorRowEditValueChanged; - end; - end; -end; - -procedure TfrViewSumarios.AplicarSumarioVista ( - const APosition: TcxSummaryPosition; const AColumnCaption: String; - const AKind: TcxSummaryKind); -const - MASK_MONEDA = ',0.## €;-,0.## €'; - MASK_NUMERO = '#,##0'; -var - AColumn : TcxGridDBColumn; -begin - AColumn := ViewControlGrid.GetColumnByCaption(AColumnCaption); - if APosition = spFooter then - begin - AColumn.Summary.FooterKind := AKind; - if (AKind in [skSum, skAverage]) and (AColumn.PropertiesClassName = 'TcxCurrencyEditProperties') then - AColumn.Summary.FooterFormat := MASK_MONEDA - else - AColumn.Summary.FooterFormat := MASK_NUMERO; - end - else begin - AColumn.Summary.GroupFooterKind := AKind; - if (AKind in [skSum, skAverage]) and (AColumn.PropertiesClassName = 'TcxCurrencyEditProperties') then - AColumn.Summary.GroupFooterFormat := MASK_MONEDA - else - AColumn.Summary.GroupFooterFormat := MASK_NUMERO; - end; -end; - -procedure TfrViewSumarios.RellenarTotalesPie; -var - i, j: Integer; - ASummary: TcxDataFooterSummaryItems; - AClase : TcxSummaryKind; - ACaption : String; - ACategory : TcxCategoryRow; - ARow : TcxEditorRow; -begin - vgSumarios.BeginUpdate; - try - ACategory := (vgSumarios.AddChild(nil, TcxCategoryRow) as TcxCategoryRow); - with ACategory.Properties do - begin - ASummary := ViewControlGrid.FocusedView.DataController.Summary.FooterSummaryItems; - ImageIndex := 0; - Caption := 'Resúmenes totales' - end; - - for i := 0 to ViewControlGrid.FocusedView.VisibleColumnCount - 1 do - begin - ACaption := ViewControlGrid.FocusedView.VisibleColumns[i].Caption; - AClase := ViewControlGrid.FocusedView.VisibleColumns[i].Summary.FooterKind; - ARow := AnadirSumario(ACaption, AClase); - ARow.Parent := ACategory; - end; - finally - vgSumarios.EndUpdate; - end; -end; - - -procedure TfrViewSumarios.RellenarCategoria( - const APosition: TcxSummaryPosition; const AGroupName: String); -begin - if APosition = spFooter then - RellenarTotalesPie - else - RellenarTotalesGrupo(AGroupName); -end; - -procedure TfrViewSumarios.RellenarCategorias; -var - i : Integer; -begin - vgSumarios.ClearRows; - RellenarCategoria(spFooter); - - // Recuperar las agrupaciones del grid - for i := 0 to ViewControlGrid.GroupedColumnCount - 1 do - begin - if i = 3 then - Break; // Sólo meter las 3 primera agrupaciones - RellenarCategoria(spGroup, ViewControlGrid.GroupedColumns[i].Caption); - end; -end; - -procedure TfrViewSumarios.vgSumariosEditorRowInitPopup(Sender: TObject); -var - AColumn: TcxGridDBColumn; - ARow : TcxEditorRow; -const - NumberFieldTypes = - [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, - ftDateTime, ftAutoInc]; - TimeFieldTypes = [ftDate, ftTime, ftDateTime]; - -begin - inherited; - - ARow := TcxEditorRow(vgSumarios.FocusedRow); - AColumn := TcxGridDBColumn(ViewControlGrid.FocusedView.VisibleColumns[ARow.Index]); - - if Assigned(AColumn.DataBinding.Field) then - with TcxComboBoxProperties(TcxPopupEdit(Sender).Properties) do - begin - Items.Clear; - BeginUpdate; - try - Items.Add(SumaryKindStrArray[skNone]); - Items.Add(SumaryKindStrArray[skCount]); - - if AColumn.DataBinding.Field.DataType in NumberFieldTypes then - begin - Items.Add(SumaryKindStrArray[skMax]); - Items.Add(SumaryKindStrArray[skMin]); - if not (AColumn.DataBinding.Field.DataType in TimeFieldTypes) then - begin - Items.Add(SumaryKindStrArray[skSum]); - Items.Add(SumaryKindStrArray[skAverage]); - end; - end; - finally - EndUpdate; - end; - end; -end; - -procedure TfrViewSumarios.vgSumariosEditorRowEditValueChanged( - Sender: TObject); -var - AColumn : String; - ARow : TcxEditorRow; - AKind : TcxSummaryKind; - - function DarSummaryKind(AKind : String) : TcxSummaryKind; - var - i : TcxSummaryKind; - begin - if Length(AKind) = 0 then - Result := skNone - else - for i := skSum to skAverage do - if SumaryKindStrArray[i] = AKind then - begin - Result := i; - Break; - end; - end; - -begin - inherited; - - ARow := TcxEditorRow(vgSumarios.FocusedRow); - AColumn := ARow.Properties.Caption; - AKind := DarSummaryKind(VarToStr(ARow.Properties.Value)); - - if Assigned(ARow.Parent) then - begin - if(ARow.Parent.Index = 0) then - AplicarSumarioVista(spFooter, AColumn, AKind) - else - AplicarSumarioVista(spGroup, AColumn, AKind) - end; -end; - -procedure TfrViewSumarios.RellenarTotalesGrupo(const AGroupName: String); -var - i, j: Integer; - ASummary: TcxDataSummaryGroup; - AClase : TcxSummaryKind; - ACaption : String; - ACategory : TcxCategoryRow; - ARow : TcxEditorRow; - -begin - ASummary := ViewControlGrid.FocusedView.DataController.Summary.SummaryGroups.FindByItemLink(ViewControlGrid.GetColumnByCaption(AGroupName)); - - vgSumarios.BeginUpdate; - try - ACategory := (vgSumarios.AddChild(nil, TcxCategoryRow) as TcxCategoryRow); - with ACategory.Properties do - begin - ImageIndex := 1; - Caption := 'Totales de ' + AGroupName; - end; - - for i := 0 to ViewControlGrid.FocusedView.VisibleColumnCount - 1 do - begin - ACaption := ViewControlGrid.FocusedView.VisibleColumns[i].Caption; - AClase := ViewControlGrid.FocusedView.VisibleColumns[i].Summary.GroupFooterKind; - ARow := AnadirSumario(ACaption, AClase); - ARow.Parent := ACategory; - end; - finally - vgSumarios.EndUpdate; - end; -end; - -procedure TfrViewSumarios.Execute; -begin - inherited; - // -end; - -procedure TfrViewSumarios.SetModificable(const Value: Boolean); -begin - inherited; - vgSumarios.Enabled := Value; - if Value then - begin - vgSumarios.Styles.Category := cxStyleCategoria; - vgSumarios.Styles.Header := cxStyleNombreColumna; - vgSumarios.Styles.Content := nil; - end - else begin - vgSumarios.Styles.Category := cxStyleCategoriaInactivo; - vgSumarios.Styles.Header := cxStyleNombreColumnaInactivo; - vgSumarios.Styles.Content := cxStyleContentInactivo; - end; -end; - -end. - - diff --git a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.bdsproj b/Varela/Varela/Source/ControlesBase/ControlesBaseD10.bdsproj deleted file mode 100644 index be74bb3..0000000 --- a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.bdsproj +++ /dev/null @@ -1,658 +0,0 @@ - - - - - - - - - - - - ControlesBaseD10.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\Output\Debug\Cliente - ..\Lib - ..\Lib;..\Base - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.dpk b/Varela/Varela/Source/ControlesBase/ControlesBaseD10.dpk deleted file mode 100644 index be08d8a..0000000 --- a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.dpk +++ /dev/null @@ -1,85 +0,0 @@ -package ControlesBaseD10; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$RUNONLY} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - PngComponentsD10, - PNG_D10, - BaseD10, - dbrtl, - dsnap, - adortl, - JvGlobusD10R, - cxTreeListD10, - vclactnband, - vclx, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - cxExtEditorsD10, - cxGridD10, - cxPageControlD10, - dxLayoutControlD10, - dxComnD10, - cxVerticalGridD10, - dxPSCoreD10, - VclSmp, - bdertl, - EasyListviewD10; - -contains - uEditorControlesBase in 'Cliente\uEditorControlesBase.pas' {fEditorControlesBase: TCustomEditor}, - schControlesClient_Intf in 'Reglas\schControlesClient_Intf.pas', - uBizControlesBase in 'Reglas\uBizControlesBase.pas', - uDataModuleControles in 'Cliente\uDataModuleControles.pas' {dmControles: TDAClientDataModule}, - uEditorControlBase in 'Cliente\uEditorControlBase.pas' {fEditorControlBase: TCustomEditor}, - uViewAgrupaciones in 'Cliente\uViewAgrupaciones.pas' {frViewAgrupaciones: TCustomView}, - uViewColumnas in 'Cliente\uViewColumnas.pas' {frViewColumnas: TCustomView}, - uViewSumarios in 'Cliente\uViewSumarios.pas' {frViewSumarios: TCustomView}, - uViewControlGrid in 'Cliente\uViewControlGrid.pas' {frViewControlGrid: TCustomView}, - uViewControlBase in 'Cliente\uViewControlBase.pas' {frViewControlBase: TCustomView}, - uViewParametrosControlGrid in 'Cliente\uViewParametrosControlGrid.pas' {frViewParametrosControlGrid: TCustomView}, - uFormPropiedadesControl in 'Cliente\uFormPropiedadesControl.pas' {frPropiedadesControl}, - uViewFiltros in 'Cliente\uViewFiltros.pas' {frViewFiltros: TCustomView}, - uViewPeriodoFechas in 'Cliente\uViewPeriodoFechas.pas' {frViewPeriodoFechas: TCustomView}, - uViewControlesBase in 'Cliente\uViewControlesBase.pas' {frViewControlesBase: TCustomView}, - uDateUtils in 'Cliente\uDateUtils.pas'; - -end. diff --git a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.drc b/Varela/Varela/Source/ControlesBase/ControlesBaseD10.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.identcache b/Varela/Varela/Source/ControlesBase/ControlesBaseD10.identcache deleted file mode 100644 index e66917d..0000000 Binary files a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.identcache and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.rc b/Varela/Varela/Source/ControlesBase/ControlesBaseD10.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.res b/Varela/Varela/Source/ControlesBase/ControlesBaseD10.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/ControlesBase/ControlesBaseD10.res and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Reglas/schControlesClient_Intf.pas b/Varela/Varela/Source/ControlesBase/Reglas/schControlesClient_Intf.pas deleted file mode 100644 index 31eb351..0000000 --- a/Varela/Varela/Source/ControlesBase/Reglas/schControlesClient_Intf.pas +++ /dev/null @@ -1,209 +0,0 @@ -unit schControlesClient_Intf; - -interface - -uses - Classes, DB, 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_ListaControlesPorCategoria = '{E00A0F0C-CDD1-4E50-AED7-E0AD758A5DEF}'; - - { Data table names } - nme_ListaControlesPorCategoria = 'ListaControlesPorCategoria'; - - { ListaControlesPorCategoria fields } - fld_ListaControlesPorCategoriaID = 'ID'; - fld_ListaControlesPorCategoriaCATEGORIA = 'CATEGORIA'; - fld_ListaControlesPorCategoriaMODIFICABLE = 'MODIFICABLE'; - fld_ListaControlesPorCategoriaICONO = 'ICONO'; - fld_ListaControlesPorCategoriaNOMBRE = 'NOMBRE'; - fld_ListaControlesPorCategoriaDESCRIPCION = 'DESCRIPCION'; - fld_ListaControlesPorCategoriaORDEN = 'ORDEN'; - fld_ListaControlesPorCategoriaVISTA = 'VISTA'; - - { ListaControlesPorCategoria field indexes } - idx_ListaControlesPorCategoriaID = 0; - idx_ListaControlesPorCategoriaCATEGORIA = 1; - idx_ListaControlesPorCategoriaMODIFICABLE = 2; - idx_ListaControlesPorCategoriaICONO = 3; - idx_ListaControlesPorCategoriaNOMBRE = 4; - idx_ListaControlesPorCategoriaDESCRIPCION = 5; - idx_ListaControlesPorCategoriaORDEN = 6; - idx_ListaControlesPorCategoriaVISTA = 7; - -type - { IListaControlesPorCategoria } - IListaControlesPorCategoria = interface(IDAStronglyTypedDataTable) - ['{A9D98B29-EE5D-49D6-A871-DA34463DD0EC}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetCATEGORIAValue: String; - procedure SetCATEGORIAValue(const aValue: String); - function GetMODIFICABLEValue: String; - procedure SetMODIFICABLEValue(const aValue: String); - function GetICONOValue: Integer; - procedure SetICONOValue(const aValue: Integer); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetDESCRIPCIONValue: String; - procedure SetDESCRIPCIONValue(const aValue: String); - function GetORDENValue: Integer; - procedure SetORDENValue(const aValue: Integer); - function GetVISTAValue: IROStrings; - procedure SetVISTAValue(const aValue: IROStrings); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue; - property MODIFICABLE: String read GetMODIFICABLEValue write SetMODIFICABLEValue; - property ICONO: Integer read GetICONOValue write SetICONOValue; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property ORDEN: Integer read GetORDENValue write SetORDENValue; - property VISTA: IROStrings read GetVISTAValue write SetVISTAValue; - end; - - { TListaControlesPorCategoriaDataTableRules } - TListaControlesPorCategoriaDataTableRules = class(TDADataTableRules, IListaControlesPorCategoria) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetCATEGORIAValue: String; virtual; - procedure SetCATEGORIAValue(const aValue: String); virtual; - function GetMODIFICABLEValue: String; virtual; - procedure SetMODIFICABLEValue(const aValue: String); virtual; - function GetICONOValue: Integer; virtual; - procedure SetICONOValue(const aValue: Integer); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetORDENValue: Integer; virtual; - procedure SetORDENValue(const aValue: Integer); virtual; - function GetVISTAValue: IROStrings; virtual; - procedure SetVISTAValue(const aValue: IROStrings); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue; - property MODIFICABLE: String read GetMODIFICABLEValue write SetMODIFICABLEValue; - property ICONO: Integer read GetICONOValue write SetICONOValue; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property ORDEN: Integer read GetORDENValue write SetORDENValue; - property VISTA: IROStrings read GetVISTAValue write SetVISTAValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TListaControlesPorCategoriaDataTableRules } -constructor TListaControlesPorCategoriaDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TListaControlesPorCategoriaDataTableRules.Destroy; -begin - inherited; -end; - -function TListaControlesPorCategoriaDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaID].AsInteger; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaID].AsInteger := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetCATEGORIAValue: String; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaCATEGORIA].AsString; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetCATEGORIAValue(const aValue: String); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaCATEGORIA].AsString := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetMODIFICABLEValue: String; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaMODIFICABLE].AsString; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetMODIFICABLEValue(const aValue: String); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaMODIFICABLE].AsString := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetICONOValue: Integer; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaICONO].AsInteger; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetICONOValue(const aValue: Integer); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaICONO].AsInteger := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaNOMBRE].AsString; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaNOMBRE].AsString := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetDESCRIPCIONValue: String; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaDESCRIPCION].AsString; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetDESCRIPCIONValue(const aValue: String); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaDESCRIPCION].AsString := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetORDENValue: Integer; -begin - result := DataTable.Fields[idx_ListaControlesPorCategoriaORDEN].AsInteger; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetORDENValue(const aValue: Integer); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaORDEN].AsInteger := aValue; -end; - -function TListaControlesPorCategoriaDataTableRules.GetVISTAValue: IROStrings; -begin - result := NewROStrings(); - result.Text := DataTable.Fields[idx_ListaControlesPorCategoriaVISTA].AsString; -end; - -procedure TListaControlesPorCategoriaDataTableRules.SetVISTAValue(const aValue: IROStrings); -begin - DataTable.Fields[idx_ListaControlesPorCategoriaVISTA].AsString := aValue.Text; -end; - - -initialization - RegisterDataTableRules(RID_ListaControlesPorCategoria, TListaControlesPorCategoriaDataTableRules); - -end. diff --git a/Varela/Varela/Source/ControlesBase/Reglas/schControlesServer_Intf.pas b/Varela/Varela/Source/ControlesBase/Reglas/schControlesServer_Intf.pas deleted file mode 100644 index 469110c..0000000 --- a/Varela/Varela/Source/ControlesBase/Reglas/schControlesServer_Intf.pas +++ /dev/null @@ -1,235 +0,0 @@ -unit schControlesServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schControlesClient_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_ListaControlesPorCategoriaDelta = '{65EAE0A6-0E97-4F81-A0E0-E554B067286C}'; - -type - { IListaControlesPorCategoriaDelta } - IListaControlesPorCategoriaDelta = interface(IListaControlesPorCategoria) - ['{65EAE0A6-0E97-4F81-A0E0-E554B067286C}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldCATEGORIAValue : String; - function GetOldMODIFICABLEValue : String; - function GetOldICONOValue : Integer; - function GetOldNOMBREValue : String; - function GetOldDESCRIPCIONValue : String; - function GetOldORDENValue : Integer; - function GetOldVISTAValue : IROStrings; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldCATEGORIA : String read GetOldCATEGORIAValue; - property OldMODIFICABLE : String read GetOldMODIFICABLEValue; - property OldICONO : Integer read GetOldICONOValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldORDEN : Integer read GetOldORDENValue; - property OldVISTA : IROStrings read GetOldVISTAValue; - end; - - { TListaControlesPorCategoriaBusinessProcessorRules } - TListaControlesPorCategoriaBusinessProcessorRules = class(TDABusinessProcessorRules, IListaControlesPorCategoria, IListaControlesPorCategoriaDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetOldIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetCATEGORIAValue: String; virtual; - function GetOldCATEGORIAValue: String; virtual; - procedure SetCATEGORIAValue(const aValue: String); virtual; - function GetMODIFICABLEValue: String; virtual; - function GetOldMODIFICABLEValue: String; virtual; - procedure SetMODIFICABLEValue(const aValue: String); virtual; - function GetICONOValue: Integer; virtual; - function GetOldICONOValue: Integer; virtual; - procedure SetICONOValue(const aValue: Integer); virtual; - function GetNOMBREValue: String; virtual; - function GetOldNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetDESCRIPCIONValue: String; virtual; - function GetOldDESCRIPCIONValue: String; virtual; - procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetORDENValue: Integer; virtual; - function GetOldORDENValue: Integer; virtual; - procedure SetORDENValue(const aValue: Integer); virtual; - function GetVISTAValue: IROStrings; virtual; - function GetOldVISTAValue: IROStrings; virtual; - procedure SetVISTAValue(const aValue: IROStrings); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property OldID : Integer read GetOldIDValue; - property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue; - property OldCATEGORIA : String read GetOldCATEGORIAValue; - property MODIFICABLE : String read GetMODIFICABLEValue write SetMODIFICABLEValue; - property OldMODIFICABLE : String read GetOldMODIFICABLEValue; - property ICONO : Integer read GetICONOValue write SetICONOValue; - property OldICONO : Integer read GetOldICONOValue; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property ORDEN : Integer read GetORDENValue write SetORDENValue; - property OldORDEN : Integer read GetOldORDENValue; - property VISTA : IROStrings read GetVISTAValue write SetVISTAValue; - property OldVISTA : IROStrings read GetOldVISTAValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TListaControlesPorCategoriaBusinessProcessorRules } -constructor TListaControlesPorCategoriaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TListaControlesPorCategoriaBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaID]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaID]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaID] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetCATEGORIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaCATEGORIA]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldCATEGORIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaCATEGORIA]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetCATEGORIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaCATEGORIA] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetMODIFICABLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaMODIFICABLE]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldMODIFICABLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaMODIFICABLE]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetMODIFICABLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaMODIFICABLE] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetICONOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaICONO]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldICONOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaICONO]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetICONOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaICONO] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaNOMBRE]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaNOMBRE]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaNOMBRE] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaDESCRIPCION]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldDESCRIPCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaDESCRIPCION]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaDESCRIPCION] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetORDENValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaORDEN]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldORDENValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaORDEN]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetORDENValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaORDEN] := aValue; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetVISTAValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaVISTA]; -end; - -function TListaControlesPorCategoriaBusinessProcessorRules.GetOldVISTAValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaControlesPorCategoriaVISTA]; -end; - -procedure TListaControlesPorCategoriaBusinessProcessorRules.SetVISTAValue(const aValue: IROStrings); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaControlesPorCategoriaVISTA] := aValue.Text; -end; - - -initialization - RegisterBusinessProcessorRules(RID_ListaControlesPorCategoriaDelta, TListaControlesPorCategoriaBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/ControlesBase/Reglas/uBizControlesBase.pas b/Varela/Varela/Source/ControlesBase/Reglas/uBizControlesBase.pas deleted file mode 100644 index 59fc9d1..0000000 --- a/Varela/Varela/Source/ControlesBase/Reglas/uBizControlesBase.pas +++ /dev/null @@ -1,80 +0,0 @@ -unit uBizControlesBase; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, schControlesClient_Intf; - -type - IBizControlBase = interface(IListaControlesPorCategoria) - ['{203A654A-16DF-404B-ACD4-CCCA796091C6}'] - procedure Show; - procedure VerPropiedades; - function EsModificable : Boolean; - end; - - TBizControlBaseDataTableRules = class(TListaControlesPorCategoriaDataTableRules, IBizControlBase) - protected - function GetVISTAValue: IROStrings; override; - procedure BeforePost(Sender: TDADataTable); override; - public - procedure Show; virtual; abstract; - procedure VerPropiedades; - function EsModificable : Boolean; - end; - -implementation - -uses - Windows, Dialogs, uDACDSDataTable, uDataModuleBase, - uEditorUtils, Variants, uFormPropiedadesControl, Forms, Controls; - -{ TBizInformesVentasDataTableRules } - -procedure TBizControlBaseDataTableRules.BeforePost( - Sender: TDADataTable); -begin - inherited; - if Length(CATEGORIA) = 0 then - raise Exception.Create('Categoría no asignada'); - - if Length(NOMBRE) = 0 then - VerPropiedades; -end; - -function TBizControlBaseDataTableRules.EsModificable: Boolean; -begin - Result := (MODIFICABLE = 'S'); -end; - -function TBizControlBaseDataTableRules.GetVISTAValue: IROStrings; -begin - Result := NewROStrings(); - Result.Add(DataTable.Fields[idx_ListaControlesPorCategoriaVISTA].AsString); -end; - -procedure TBizControlBaseDataTableRules.VerPropiedades; -begin - with TfrPropiedadesControl.Create(NIL) do - try - Nombre := Self.NOMBRE; - Descripcion := Self.DESCRIPCION; - Modificable := Self.EsModificable; - Icono := Self.ICONO; - if (ShowModal = mrOK) then - begin - DataTable.Edit; - Self.NOMBRE := Nombre; - Self.DESCRIPCION := Descripcion; - Self.ICONO := Icono; - if Modificable then - Self.MODIFICABLE := 'S' - else - Self.MODIFICABLE := 'N'; - end; - finally - Free; - end; -end; - -end. diff --git a/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.ddp b/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.dfm b/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.dfm deleted file mode 100644 index b5cd583..0000000 --- a/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.dfm +++ /dev/null @@ -1,264 +0,0 @@ -object srvControles: TsrvControles - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schControles - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object schControles: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Value = 'vebyas' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'SELECT '#10' ID, CATEGORIA, MODIFICABLE, ICONO, NOMBRE, DESCRIPCI' + - 'ON, ORDEN, VISTA'#10' FROM'#10' RDX_INFORMES'#10' WHERE CATEGORIA = :CA' + - 'TEGORIA' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'CATEGORIA' - TableField = 'CATEGORIA' - end - item - DatasetField = 'ICONO' - TableField = 'ICONO' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'ORDEN' - TableField = 'ORDEN' - end - item - DatasetField = 'VISTA' - TableField = 'VISTA' - end - item - DatasetField = 'MODIFICABLE' - TableField = 'MODIFICABLE' - end> - end> - Name = 'ListaControlesPorCategoria' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - Required = True - ServerAutoRefresh = True - InPrimaryKey = True - end - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - end - item - Name = 'MODIFICABLE' - DataType = datString - Size = 1 - DefaultValue = 'S' - end - item - Name = 'ICONO' - DataType = datSmallInt - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - end - item - Name = 'ORDEN' - DataType = datSmallInt - end - item - Name = 'VISTA' - DataType = datMemo - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - Value = '' - ParamType = daptInput - end - item - Name = 'MODIFICABLE' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end - item - Name = 'ICONO' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - Value = '' - ParamType = daptInput - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'ORDEN' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'VISTA' - DataType = datMemo - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'INSERT'#10' INTO RDX_INFORMES'#10' (CATEGORIA, MODIFICABLE, ICONO, N' + - 'OMBRE, DESCRIPCION, ORDEN, VISTA)'#10' VALUES'#10' (:CATEGORIA, :MOD' + - 'IFICABLE, :ICONO, :NOMBRE, :DESCRIPCION, :ORDEN,'#10' :VISTA)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_ControlesPorCategoria' - end - item - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - Value = '' - ParamType = daptInput - end - item - Name = 'MODIFICABLE' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end - item - Name = 'ICONO' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - Value = '' - ParamType = daptInput - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'ORDEN' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'VISTA' - DataType = datMemo - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_ID' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'UPDATE RDX_INFORMES'#10' SET '#10' CATEGORIA = :CATEGORIA, '#10' MODI' + - 'FICABLE = :MODIFICABLE,'#10' ICONO = :ICONO, '#10' NOMBRE = :NOMBR' + - 'E, '#10' DESCRIPCION = :DESCRIPCION, '#10' ORDEN = :ORDEN, '#10' VI' + - 'STA = :VISTA'#10' WHERE'#10' (ID = :OLD_ID)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_ControlesPorCategoria' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object bpControles: TDABusinessProcessor - Schema = schControles - InsertCommandName = 'Insert_ControlesPorCategoria' - UpdateCommandName = 'Update_ControlesPorCategoria' - ReferencedDataset = 'ListaControlesPorCategoria' - ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 144 - Top = 24 - end - object DABINAdapter: TDABINAdapter - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.pas b/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.pas deleted file mode 100644 index c4dbf0b..0000000 --- a/Varela/Varela/Source/ControlesBase/Servidor/srvControles_Impl.pas +++ /dev/null @@ -1,48 +0,0 @@ -unit srvControles_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAScriptingProvider, uDABusinessProcessor, - uDAClasses, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TsrvControles } - TsrvControles = class(TDARemoteService, IsrvControles) - bpControles: TDABusinessProcessor; - DABINAdapter: TDABINAdapter; - schControles: TDASchema; - private - protected - { IsrvControles methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer; - -procedure Create_srvControles(out anInstance : IUnknown); -begin - anInstance := TsrvControles.Create(NIL); -end; - -{ srvControles } -initialization - TROClassFactory.Create('srvControles', Create_srvControles, TsrvControles_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.bdsproj b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.bdsproj deleted file mode 100644 index 099c4ad..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - Devoluciones.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.cfg b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.cfg deleted file mode 100644 index a34a309..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$Y- --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.dof b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.dof deleted file mode 100644 index e3c2ef2..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=0 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.dpk b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.dpk deleted file mode 100644 index 21fec2e..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.dpk +++ /dev/null @@ -1,77 +0,0 @@ -package Devoluciones; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO OFF} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - dbrtl, - dsnap, - BaseD10, - vcl, - adortl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - GUISDK_D10, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - cxTreeListD10, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - JvGlobusD10R, - ControlesBaseD10, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - dxPSCoreD10, - dxComnD10, - JvCustomD10R, - bdertl, - VclSmp, - dxLayoutControlD10, - Parametros; - -contains - uPluginControllerDevoluciones in 'uPluginControllerDevoluciones.pas' {ModuleDevoluciones: TModuleController}, - uBizDevoluciones in '..\Reglas\uBizDevoluciones.pas', - uDataModuleDevoluciones in 'uDataModuleDevoluciones.pas' {dmDevoluciones: TDAClientDataModule}, - uViewListaDevoluciones in 'uViewListaDevoluciones.pas' {frViewListaDevoluciones: TCustomView}, - uEditorListaDevoluciones in 'uEditorListaDevoluciones.pas' {fEditorListaDevoluciones: TCustomEditor}, - uEditorAjustarDevoluciones in 'uEditorAjustarDevoluciones.pas' {fEditorAjustarRecepciones}; - -end. diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.drc b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.identcache b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.identcache deleted file mode 100644 index 9ba82d1..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.rc b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.rc deleted file mode 100644 index 153736a..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.rc +++ /dev/null @@ -1,22 +0,0 @@ -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 diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.res b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.res deleted file mode 100644 index 1641339..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/Devoluciones.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/MPCommonLibD10.drc b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/MPCommonLibD10.drc deleted file mode 100644 index e520ba1..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/MPCommonLibD10.drc +++ /dev/null @@ -1,23 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x52", "\x00", "\x4f", "\x00", "\x44", "\x00", /* 0020: .R.O.D. */ - "\x58", "\x00", "\x53", "\x00", "\x6f", "\x00", "\x63", "\x00", /* 0028: X.S.o.c. */ - "\x6b", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0030: k. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0038: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0040: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/cxVerticalGridVCLD7.drc b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/cxVerticalGridVCLD7.drc deleted file mode 100644 index e520ba1..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/cxVerticalGridVCLD7.drc +++ /dev/null @@ -1,23 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x52", "\x00", "\x4f", "\x00", "\x44", "\x00", /* 0020: .R.O.D. */ - "\x58", "\x00", "\x53", "\x00", "\x6f", "\x00", "\x63", "\x00", /* 0028: X.S.o.c. */ - "\x6b", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0030: k. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0038: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0040: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.ddp b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.dfm b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.dfm deleted file mode 100644 index 72e2fe3..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.dfm +++ /dev/null @@ -1,1639 +0,0 @@ -object dmDevoluciones: TdmDevoluciones - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 297 - Width = 620 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvDevoluciones' - Left = 40 - Top = 32 - end - object tbl_Devoluciones: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_NUMHOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_ESTADO_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'SOLICITADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_SOLICITADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Devoluciones_ENVIADO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Devoluciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Devoluciones' - IndexDefs = <> - Left = 160 - Top = 96 - end - object ds_Devoluciones: TDADataSource - DataSet = tbl_Devoluciones.Dataset - DataTable = tbl_Devoluciones - Left = 160 - Top = 32 - end - object tbl_DevolucionesAprobadas: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_NUMHOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_ESTADO_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'SOLICITADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_SOLICITADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Devoluciones_ENVIADO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Devoluciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'DevolucionesAprobadas' - IndexDefs = <> - Left = 320 - Top = 96 - end - object ds_DevolucionesAprobadas: TDADataSource - DataSet = tbl_DevolucionesAprobadas.Dataset - DataTable = tbl_DevolucionesAprobadas - Left = 320 - Top = 32 - end - object tbl_DevolucionesPendientes: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_NUMHOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_ESTADO_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_S48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'SOLICITADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_SOLICITADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ER48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Devoluciones_ER48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Devoluciones_ENVIADO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Devoluciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'DevolucionesPendientes' - IndexDefs = <> - Left = 480 - Top = 96 - end - object ds_DevolucionesPendientes: TDADataSource - DataSet = tbl_DevolucionesPendientes.Dataset - DataTable = tbl_DevolucionesPendientes - Left = 480 - Top = 32 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.pas b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.pas deleted file mode 100644 index 7809dc3..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.pas +++ /dev/null @@ -1,87 +0,0 @@ -unit uDataModuleDevoluciones; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uDataModuleBase, uROClient, - uROServiceComponent, uRORemoteService, uBizDevoluciones, uDARemoteDataAdapter, - uDAInterfaces; - -type - TdmDevoluciones = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_Devoluciones: TDACDSDataTable; - ds_Devoluciones: TDADataSource; - tbl_DevolucionesAprobadas: TDACDSDataTable; - ds_DevolucionesAprobadas: TDADataSource; - tbl_DevolucionesPendientes: TDACDSDataTable; - ds_DevolucionesPendientes: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems : IBizDevoluciones; overload; - function GetItems(const AEstado : TInvDevolucionEstado) : IBizDevoluciones; overload; - end; - -var - dmDevoluciones: TdmDevoluciones; - -implementation - -{$R *.DFM} - -uses - Forms, Windows, Controls, VARELA_Intf, uEditorPreview, - uDataTableUtils, uROTypes, cxControls; - -procedure TdmDevoluciones.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmDevoluciones.GetItems: IBizDevoluciones; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_Devoluciones, dtLista); - dtLista.BusinessRulesID := BIZ_DEVOLUCIONES; - Result := (dtLista as IBizDevoluciones); - finally - HideHourglassCursor; - end; -end; - -function TdmDevoluciones.GetItems( - const AEstado: TInvDevolucionEstado): IBizDevoluciones; -var - dtLista: TDACDSDataTable; - AStr : String; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - - case AEstado of - tidPendiente : CloneDataTable(tbl_DevolucionesPendientes, dtLista); - tidAprobado : CloneDataTable(tbl_DevolucionesAprobadas, dtLista); - end; - - dtLista.BusinessRulesID := BIZ_DEVOLUCIONES; - Result := (dtLista as IBizDevoluciones); - finally - HideHourglassCursor; - end; -end; - -initialization - dmDevoluciones := TdmDevoluciones.Create(nil); - -finalization - FreeAndNil(dmDevoluciones); - -end. diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.ddp b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.dfm b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.dfm deleted file mode 100644 index 1ef1479..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.dfm +++ /dev/null @@ -1,944 +0,0 @@ -object fEditorAjustarDevoluciones: TfEditorAjustarDevoluciones - Left = 445 - Top = 219 - BorderStyle = bsDialog - Caption = 'Modificaci'#243'n de devoluciones de productos' - ClientHeight = 536 - ClientWidth = 753 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object JvgWizardHeader1: TJvgWizardHeader - Left = 0 - Top = 0 - Width = 753 - Height = 73 - CaptionFont.Charset = DEFAULT_CHARSET - CaptionFont.Color = clWindowText - CaptionFont.Height = -11 - CaptionFont.Name = 'MS Sans Serif' - CaptionFont.Style = [fsBold] - CommentFont.Charset = DEFAULT_CHARSET - CommentFont.Color = clWindowText - CommentFont.Height = -11 - CommentFont.Name = 'MS Sans Serif' - CommentFont.Style = [] - SymbolFont.Charset = DEFAULT_CHARSET - SymbolFont.Color = clHighlightText - SymbolFont.Height = -35 - SymbolFont.Name = 'Wingdings' - SymbolFont.Style = [fsBold] - Captions.Strings = ( - 'Modificaci'#243'n de devoluciones de productos') - Comments.Strings = ( - '') - Gradient.FromColor = clHighlight - Gradient.ToColor = clWindow - Gradient.Active = True - Gradient.Orientation = fgdVertical - BufferedDraw = False - end - object Bevel1: TBevel - Left = 11 - Top = 483 - Width = 730 - Height = 4 - Shape = bsBottomLine - end - object bAceptar: TButton - Left = 572 - Top = 496 - Width = 75 - Height = 25 - Caption = '&Aceptar' - ModalResult = 1 - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 666 - Top = 496 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 73 - Width = 753 - Height = 403 - ParentBackground = True - TabOrder = 2 - AutoContentSizes = [acsWidth, acsHeight] - object Bevel2: TBevel - Left = 22 - Top = 222 - Width = 50 - Height = 10 - Shape = bsBottomLine - end - object Label1: TLabel - Left = 22 - Top = 258 - Width = 92 - Height = 13 - Caption = 'Cantidad solicitada:' - end - object Label2: TLabel - Left = 22 - Top = 333 - Width = 84 - Height = 13 - Caption = 'Cantidad por EDI:' - end - object Label3: TLabel - Left = 61 - Top = 362 - Width = 45 - Height = 13 - Caption = 'Cantidad:' - end - object edtEnv40: TcxDBMaskEdit - Left = 223 - Top = 256 - DataBinding.DataField = 'S40' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 - Width = 25 - end - object edtEnv38: TcxDBMaskEdit - Left = 120 - Top = 256 - DataBinding.DataField = 'S38' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 - Width = 25 - end - object edtEnv42: TcxDBMaskEdit - Left = 326 - Top = 256 - DataBinding.DataField = 'S42' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 - Width = 25 - end - object edtEnv44: TcxDBMaskEdit - Left = 429 - Top = 256 - DataBinding.DataField = 'S44' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Width = 25 - end - object edtEnv46: TcxDBMaskEdit - Left = 532 - Top = 256 - DataBinding.DataField = 'S46' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 - Width = 25 - end - object edtEnv48: TcxDBMaskEdit - Left = 635 - Top = 256 - DataBinding.DataField = 'S48' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 - Width = 25 - end - object edtRec38: TcxDBMaskEdit - Left = 112 - Top = 331 - DataBinding.DataField = 'E38' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 - Width = 98 - end - object edtRec40: TcxDBMaskEdit - Left = 216 - Top = 331 - DataBinding.DataField = 'E40' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 - Width = 98 - end - object edtRec42: TcxDBMaskEdit - Left = 320 - Top = 331 - DataBinding.DataField = 'E42' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 18 - Width = 98 - end - object edtRec44: TcxDBMaskEdit - Left = 424 - Top = 331 - DataBinding.DataField = 'E44' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 20 - Width = 98 - end - object edtRec46: TcxDBMaskEdit - Left = 528 - Top = 331 - DataBinding.DataField = 'E46' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 22 - Width = 98 - end - object edtRec48: TcxDBMaskEdit - Left = 632 - Top = 331 - DataBinding.DataField = 'E48' - DataBinding.DataSource = dsDataSource - Enabled = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 24 - Width = 98 - end - object edtRecR48: TcxCurrencyEdit - Left = 632 - Top = 358 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 25 - Width = 98 - end - object edtRecR46: TcxCurrencyEdit - Left = 528 - Top = 358 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 23 - Width = 98 - end - object edtRecR44: TcxCurrencyEdit - Left = 424 - Top = 358 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 21 - Width = 98 - end - object edtRecR42: TcxCurrencyEdit - Left = 320 - Top = 358 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 19 - Width = 98 - end - object edtRecR40: TcxCurrencyEdit - Left = 216 - Top = 358 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 - Width = 98 - end - object edtRecR38: TcxCurrencyEdit - Left = 112 - Top = 358 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 - Width = 98 - end - object edtFecha: TcxDBLabel - Left = 144 - Top = 28 - DataBinding.DataField = 'FECHA' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 108 - end - object edtCentro: TcxDBLabel - Left = 344 - Top = 28 - DataBinding.DataField = 'FILIAL' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 481 - end - object edtProducto: TcxDBLabel - Left = 144 - Top = 51 - DataBinding.DataField = 'PRODUCTO' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 420 - end - object edtColor: TcxDBLabel - Left = 613 - Top = 51 - DataBinding.DataField = 'COLOR' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 118 - end - object edtHoja: TcxDBLabel - Left = 144 - Top = 104 - DataBinding.DataField = 'NUMHOJA' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 140 - end - object cbEstadoHoja: TcxComboBox - Left = 144 - Top = 127 - Properties.Items.Strings = ( - 'Ninguna' - 'Env'#237'o perdido' - 'Env'#237'o retrasado' - 'Env'#237'o devuelto' - 'Otras incidencias') - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 - Text = 'cbEstadoHoja' - Width = 166 - end - object memEstadoHoja: TcxMemo - Left = 22 - Top = 172 - Lines.Strings = ( - 'memEstadoHoja') - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 7 - Height = 44 - Width = 709 - end - object cbContabilizarHoja: TcxCheckBox - Left = 231 - Top = 127 - Caption = 'Contabilizar esta hoja de movimiento' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 'S' - Properties.ValueUnchecked = 'N' - State = cbsGrayed - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - 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 = 6 - Width = 708 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group1: TdxLayoutGroup - Caption = 'Datos generales' - object dxLayoutControl1Group2: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item31: TdxLayoutItem - Caption = 'Fecha del movimiento:' - Control = edtFecha - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item17: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Centro de origen:' - Control = edtCentro - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group3: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item32: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Producto:' - Control = edtProducto - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item33: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'Color:' - Control = edtColor - ControlOptions.MinWidth = 50 - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Group4: TdxLayoutGroup - Caption = 'Datos de la hoja de movimientos' - object dxLayoutControl1Group8: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group7: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'N'#250'mero de hoja:' - Control = edtHoja - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group6: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item5: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Estado de la devoluci'#243'n:' - Control = cbEstadoHoja - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item8: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'cxCheckBox1' - ShowCaption = False - Control = cbContabilizarHoja - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Item6: TdxLayoutItem - Caption = 'Observaciones sobre la hoja:' - CaptionOptions.AlignVert = tavTop - CaptionOptions.Layout = clTop - Control = memEstadoHoja - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item9: TdxLayoutItem - Control = Bevel2 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group9: TdxLayoutGroup - Caption = 'New Group' - ShowCaption = False - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item16: TdxLayoutItem - Caption = 'Tallas:' - CaptionOptions.AlignHorz = taRightJustify - CaptionOptions.Layout = clTop - Offsets.Top = 2 - Control = Label1 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item11: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '38' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv38 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item10: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '40' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv40 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '42' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv42 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item13: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '44' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv44 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item14: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '46' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv46 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item15: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '48' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv48 - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Group5: TdxLayoutGroup - Caption = 'Datos de recepci'#243'n del env'#237'o' - LayoutDirection = ldHorizontal - object dxLayoutControl1Group16: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item23: TdxLayoutItem - Caption = 'Tallas:' - CaptionOptions.AlignHorz = taRightJustify - CaptionOptions.Layout = clTop - Offsets.Top = 2 - Control = Label2 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item30: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - CaptionOptions.Layout = clTop - Offsets.Top = 10 - ShowCaption = False - Control = Label3 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group10: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item2: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '38' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec38 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item29: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR38 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group11: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '40' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec40 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item28: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR40 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group12: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item4: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '42' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec42 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item27: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR42 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group13: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item20: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '44' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec44 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item26: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR44 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group14: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item21: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '46' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec46 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item25: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR46 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group15: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item22: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '48' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec48 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item24: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR48 - ControlOptions.ShowBorder = False - end - end - end - end - end - object dsDataSource: TDADataSource - DataTable = dmDevoluciones.tbl_Devoluciones - Left = 200 - Top = 496 - end -end diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.pas b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.pas deleted file mode 100644 index f117ee0..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorAjustarDevoluciones.pas +++ /dev/null @@ -1,351 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorAjustarDevoluciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, JvExControls, JvComponent, - JvgWizardHeader, ExtCtrls, cxStyles, cxCustomData, uBizDevoluciones, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, - cxCurrencyEdit, uDADataTable, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, - cxClasses, cxControls, cxGridCustomView, cxGrid, dxLayoutControl, - cxContainer, cxTextEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, - cxCheckBox, cxCalendar, cxLabel, cxDBLabel; - -type - IEditorAjustarDevoluciones = interface - ['{F75441C6-D0D4-42AF-ABB7-FC531222F0DD}'] - function GetItems : IBizDevoluciones; - procedure SetItems (const AValue : IBizDevoluciones); - property Items : IBizDevoluciones read GetItems write SetItems; - end; - - TfEditorAjustarDevoluciones = class(TForm, IEditorAjustarDevoluciones) - bAceptar: TButton; - bCancelar: TButton; - JvgWizardHeader1: TJvgWizardHeader; - Bevel1: TBevel; - dsDataSource: TDADataSource; - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutControl1Group1: TdxLayoutGroup; - dxLayoutControl1Group2: TdxLayoutGroup; - dxLayoutControl1Group3: TdxLayoutGroup; - dxLayoutControl1Group4: TdxLayoutGroup; - dxLayoutControl1Group5: TdxLayoutGroup; - dxLayoutControl1Item9: TdxLayoutItem; - Bevel2: TBevel; - dxLayoutControl1Group8: TdxLayoutGroup; - dxLayoutControl1Item10: TdxLayoutItem; - edtEnv40: TcxDBMaskEdit; - dxLayoutControl1Group9: TdxLayoutGroup; - dxLayoutControl1Item11: TdxLayoutItem; - edtEnv38: TcxDBMaskEdit; - dxLayoutControl1Item12: TdxLayoutItem; - edtEnv42: TcxDBMaskEdit; - dxLayoutControl1Item13: TdxLayoutItem; - edtEnv44: TcxDBMaskEdit; - dxLayoutControl1Item14: TdxLayoutItem; - edtEnv46: TcxDBMaskEdit; - dxLayoutControl1Item15: TdxLayoutItem; - edtEnv48: TcxDBMaskEdit; - dxLayoutControl1Item16: TdxLayoutItem; - Label1: TLabel; - dxLayoutControl1Item2: TdxLayoutItem; - edtRec38: TcxDBMaskEdit; - dxLayoutControl1Item3: TdxLayoutItem; - edtRec40: TcxDBMaskEdit; - dxLayoutControl1Item4: TdxLayoutItem; - edtRec42: TcxDBMaskEdit; - dxLayoutControl1Item20: TdxLayoutItem; - edtRec44: TcxDBMaskEdit; - dxLayoutControl1Item21: TdxLayoutItem; - edtRec46: TcxDBMaskEdit; - dxLayoutControl1Item22: TdxLayoutItem; - edtRec48: TcxDBMaskEdit; - dxLayoutControl1Item23: TdxLayoutItem; - Label2: TLabel; - dxLayoutControl1Item24: TdxLayoutItem; - edtRecR48: TcxCurrencyEdit; - dxLayoutControl1Item25: TdxLayoutItem; - edtRecR46: TcxCurrencyEdit; - dxLayoutControl1Item26: TdxLayoutItem; - edtRecR44: TcxCurrencyEdit; - dxLayoutControl1Item27: TdxLayoutItem; - edtRecR42: TcxCurrencyEdit; - dxLayoutControl1Item28: TdxLayoutItem; - edtRecR40: TcxCurrencyEdit; - dxLayoutControl1Item29: TdxLayoutItem; - edtRecR38: TcxCurrencyEdit; - dxLayoutControl1Group10: TdxLayoutGroup; - dxLayoutControl1Group11: TdxLayoutGroup; - dxLayoutControl1Group12: TdxLayoutGroup; - dxLayoutControl1Group13: TdxLayoutGroup; - dxLayoutControl1Group14: TdxLayoutGroup; - dxLayoutControl1Group15: TdxLayoutGroup; - dxLayoutControl1Item30: TdxLayoutItem; - Label3: TLabel; - dxLayoutControl1Group16: TdxLayoutGroup; - edtFecha: TcxDBLabel; - dxLayoutControl1Item31: TdxLayoutItem; - edtCentro: TcxDBLabel; - dxLayoutControl1Item17: TdxLayoutItem; - edtProducto: TcxDBLabel; - dxLayoutControl1Item32: TdxLayoutItem; - edtColor: TcxDBLabel; - dxLayoutControl1Item33: TdxLayoutItem; - edtHoja: TcxDBLabel; - dxLayoutControl1Item1: TdxLayoutItem; - cbEstadoHoja: TcxComboBox; - dxLayoutControl1Item5: TdxLayoutItem; - memEstadoHoja: TcxMemo; - dxLayoutControl1Item6: TdxLayoutItem; - cbContabilizarHoja: TcxCheckBox; - dxLayoutControl1Item8: TdxLayoutItem; - dxLayoutControl1Group7: TdxLayoutGroup; - dxLayoutControl1Group6: TdxLayoutGroup; - procedure FormShow(Sender: TObject); - procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure bAceptarClick(Sender: TObject); - private - FItems : IBizDevoluciones; - FHayErrores : Boolean; - FAlbaranModificado : Boolean; - procedure CargarValores; - procedure SalvarValores; - procedure ModificarAlbaran; - protected - function GetItems : IBizDevoluciones; - procedure SetItems (const AValue : IBizDevoluciones); - public - property Items : IBizDevoluciones read GetItems write SetItems; - end; - - -implementation - -uses - uEditorUtils, uDataModuleDevoluciones, - uDAInterfaces; - -{$R *.dfm} - -function ShowEditorAjustarDevoluciones (ABizObject : TDADataTableRules) : TModalResult; -var - AEditor: TfEditorAjustarDevoluciones; -begin - AEditor := TfEditorAjustarDevoluciones.Create(Application); - try - AEditor.Items := (ABizObject as IBizDevoluciones); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - - -{ TfEditorCambioReferenciaGenerica } - -procedure TfEditorAjustarDevoluciones.FormShow(Sender: TObject); -begin - FHayErrores := False; - FItems.DataTable.Open; - - cbEstadoHoja.Enabled := Length(FItems.DataTable.FieldByName('NUMHOJA').AsString) > 0; - cbContabilizarHoja.Enabled := cbEstadoHoja.Enabled; - memEstadoHoja.Enabled := cbEstadoHoja.Enabled; - - CargarValores;; -end; - -function TfEditorAjustarDevoluciones.GetItems: IBizDevoluciones; -begin - Result := FItems; -end; - -procedure TfEditorAjustarDevoluciones.SetItems( - const AValue: IBizDevoluciones); -begin - FItems := AValue; - if Assigned(FItems) then - dsDataSource.DataTable := FItems.DataTable; -end; - -procedure TfEditorAjustarDevoluciones.cxGridViewCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if ((AViewInfo.Item as TcxGridDBBandedColumn).Position.RowIndex = 1) then - begin - ADone := True; - with AViewInfo do begin - ACanvas.FillRect(Bounds); - ACanvas.DrawTexT(Text, TextAreaBounds, 0); - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom]); - end; - end; -end; - -procedure TfEditorAjustarDevoluciones.bAceptarClick(Sender: TObject); -begin - ShowHourglassCursor; - Application.ProcessMessages; - try - SalvarValores; - FItems.DataTable.ApplyUpdates; - ModificarAlbaran; - finally - HideHourglassCursor; - end; - Close; -end; - -procedure TfEditorAjustarDevoluciones.CargarValores; -begin - with FItems.DataTable do - begin - if FieldByName('E38').AsInteger <> FieldByName('ER38').AsInteger then - edtRecR38.Value := FieldByName('ER38').AsInteger - else - edtRecR38.Value := FieldByName('E38').AsInteger; - - if FieldByName('E40').AsInteger <> FieldByName('ER40').AsInteger then - edtRecR40.Value := FieldByName('ER40').AsInteger - else - edtRecR40.Value := FieldByName('E40').AsInteger; - - if FieldByName('E42').AsInteger <> FieldByName('ER42').AsInteger then - edtRecR42.Value := FieldByName('ER42').AsInteger - else - edtRecR42.Value := FieldByName('E42').AsInteger; - - if FieldByName('E44').AsInteger <> FieldByName('ER44').AsInteger then - edtRecR44.Value := FieldByName('ER44').AsInteger - else - edtRecR44.Value := FieldByName('E44').AsInteger; - - if FieldByName('E46').AsInteger <> FieldByName('ER46').AsInteger then - edtRecR46.Value := FieldByName('ER46').AsInteger - else - edtRecR46.Value := FieldByName('E46').AsInteger; - - if FieldByName('E48').AsInteger <> FieldByName('ER48').AsInteger then - edtRecR48.Value := FieldByName('ER48').AsInteger - else - edtRecR48.Value := FieldByName('E48').AsInteger; - - if Length(FieldByName('ESTADO_HOJA').AsString) = 0 then - cbEstadoHoja.Text := cbEstadoHoja.Properties.Items[0]; - - if Length(FieldByName('ESTADO_HOJA').AsString) = 0 then - cbEstadoHoja.Text := cbEstadoHoja.Properties.Items[0] - else - cbEstadoHoja.Text := FieldByName('ESTADO_HOJA').AsString; - - cbContabilizarHoja.Checked := (FieldByName('CONTABILIZAR_HOJA').AsString = 'S'); - memEstadoHoja.Lines.Clear; - if Length(FieldByName('OBSERVACIONES_HOJA').AsString) > 0 then - memEstadoHoja.Lines.Add(FieldByName('OBSERVACIONES_HOJA').AsString) - end; -end; - -procedure TfEditorAjustarDevoluciones.SalvarValores; -var - aux : String; -begin - FAlbaranModificado := False; - with FItems.DataTable do - begin - Edit; - FieldByName('ER38').AsFloat := edtRecR38.Value; - FieldByName('ER40').AsFloat := edtRecR40.Value; - FieldByName('ER42').AsFloat := edtRecR42.Value; - FieldByName('ER44').AsFloat := edtRecR44.Value; - FieldByName('ER46').AsFloat := edtRecR46.Value; - FieldByName('ER48').AsFloat := edtRecR48.Value; - - if cbEstadoHoja.Text = cbEstadoHoja.Properties.Items[0] then - aux := '' - else - aux := cbEstadoHoja.Text; - - if FieldByName('ESTADO_HOJA').AsString <> aux then - FieldByName('ESTADO_HOJA').AsString := aux; - - if cbContabilizarHoja.Checked then - aux := 'S' - else - aux := 'N'; - - if FieldByName('CONTABILIZAR_HOJA').AsString <> aux then - FieldByName('CONTABILIZAR_HOJA').AsString := aux; - - FieldByName('OBSERVACIONES_HOJA').AsString := memEstadoHoja.Lines.Text; - Post; - end; -end; - -procedure TfEditorAjustarDevoluciones.ModificarAlbaran; -var - bm : TBookMark ; - AHoja : String; - AEstado : String; - AContabilizar : String; -begin - { Si se ha cambiado el albarán, hay - que cambiarlo en el resto de filas en las que aparezca } - - AHoja := FItems.DataTable.FieldByName('NUMHOJA').AsString; - AEstado := FItems.DataTable.FieldByName('ESTADO_HOJA').AsString; - AContabilizar := FItems.DataTable.FieldByName('CONTABILIZAR_HOJA').AsString; - - bm := FItems.DataTable.GetBookMark; - FItems.DataTable.DisableControls; - FItems.DataTable.DisableEventHandlers; - FItems.DataTable.LogChanges := False; - try - FItems.DataTable.Filter := 'NUMHOJA = ''' + AHoja + ''''; - FItems.DataTable.Filtered := True; - FItems.DataTable.First; - - repeat - FItems.Edit; - FItems.DataTable.FieldByName('ESTADO_HOJA').AsString := AEstado; - FItems.DataTable.FieldByName('CONTABILIZAR_HOJA').AsString := AContabilizar; - FItems.Post; - FItems.DataTable.Next - until FItems.DataTable.EOF; - - try - FItems.DataTable.GotoBookMark(bm); - except - // No hacer nada - end; - finally - FItems.DataTable.Filter := ''; - FItems.DataTable.Filtered := False; - FItems.DataTable.FreeBookMark(BM); - FItems.DataTable.LogChanges := True; - FItems.DataTable.EnableEventHandlers; - FItems.DataTable.EnableControls; - end; -end; - -initialization - RegisterEditor(IBizDevoluciones, ShowEditorAjustarDevoluciones, etItem); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.ddp b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm deleted file mode 100644 index c37762d..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm +++ /dev/null @@ -1,1708 +0,0 @@ -inherited fEditorListaDevoluciones: TfEditorListaDevoluciones - Left = 403 - Top = 247 - Caption = 'Control de devoluciones' - ClientHeight = 637 - ClientWidth = 901 - ExplicitWidth = 909 - ExplicitHeight = 671 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 901 - Caption = 'Control de devoluciones' - ExplicitWidth = 901 - inherited Image1: TImage - Left = 874 - ExplicitLeft = 874 - end - end - inherited TBXDock: TTBXDock - Width = 901 - ExplicitWidth = 901 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 583 - object TBXSubmenuItem2: TTBXSubmenuItem [5] - Caption = 'Cambiar el estado' - DropdownCombo = True - object TBXItem37: TTBXItem - Action = actPendiente - end - object TBXItem36: TTBXItem - Action = actAprobado - end - end - object TBXSeparatorItem16: TTBXSeparatorItem [8] - end - object tbxiExpandir: TTBXItem [16] - Action = actExpandir - end - object tbxiContraer: TTBXItem [17] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [18] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 901 - end - inherited tbxFiltro: TTBXToolbar - Left = 583 - ExplicitLeft = 583 - end - end - inherited StatusBar: TStatusBar - Top = 618 - Width = 901 - ExplicitTop = 618 - ExplicitWidth = 901 - end - object JvTabBar1: TJvTabBar [3] - Left = 0 - Top = 204 - Width = 901 - Height = 29 - Cursor = crHandPoint - CloseButton = False - Painter = JvModernTabBarPainter1 - Images = SmallImages - Tabs = < - item - Caption = 'Pendientes' - Selected = True - ImageIndex = 26 - end - item - Caption = 'Aprobados' - ImageIndex = 25 - end - item - Caption = 'Todos' - end> - OnTabSelected = JvTabBar1TabSelected - end - inline frViewListaDevoluciones1: TfrViewListaDevoluciones [4] - Left = 0 - Top = 233 - Width = 901 - Height = 385 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 4 - ReadOnly = False - ExplicitTop = 233 - ExplicitWidth = 901 - ExplicitHeight = 385 - inherited cxGrid: TcxGrid - Width = 901 - Height = 385 - ExplicitWidth = 901 - ExplicitHeight = 385 - inherited cxGridView: TcxGridDBTableView - PopupMenu = GridPopupMenu - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0;-,0' - Kind = skSum - Position = spFooter - Column = frViewListaDevoluciones1.cxGridViewDIFERENCIA - end - item - Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades' - Kind = skSum - Column = frViewListaDevoluciones1.cxGridViewDIFERENCIA - end> - inherited cxGridViewAPROBADO: TcxGridDBColumn - IsCaptionAssigned = True - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - BuiltInReportLink = True - end - end - end - object TBXDockablePanel1: TTBXDockablePanel [5] - Left = 0 - Top = 76 - MaxClientHeight = 61 - Align = alTop - Caption = 'TBXDockablePanel1' - FloatingWidth = 128 - FloatingHeight = 128 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 5 - inline frViewParametrosCentro1: TfrViewParametrosCentro - Left = 0 - Top = 19 - Width = 425 - Height = 109 - Align = alLeft - TabOrder = 0 - ReadOnly = False - ExplicitTop = 19 - ExplicitWidth = 425 - ExplicitHeight = 109 - inherited dxLayoutControl1: TdxLayoutControl - Width = 425 - ExplicitWidth = 425 - inherited ccbCentro: TJvCheckedComboBox - Width = 392 - ExplicitWidth = 392 - end - end - end - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 901 - Height = 19 - Margins.Left = 5 - Margins.Top = 5 - Align = alTop - Caption = 'Par'#225'metros de consulta' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentColor = True - ParentFont = False - Underline = True - end - object pnlAgrupaciones: TTBXAlignmentPanel - Left = 425 - Top = 19 - Width = 476 - Height = 109 - Align = alClient - AutoSize = True - TabOrder = 2 - object TBXButton3: TTBXButton - Tag = 3 - Left = 8 - Top = 10 - Width = 90 - Height = 21 - Action = actRefrescar - AutoSize = False - Caption = 'Consultar' - ImageIndex = 0 - TabOrder = 0 - Wrapping = twEndEllipsis - end - end - end - inherited EditorActionList: TActionList [6] - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Caption = 'Modificar devoluci'#243'n' - OnExecute = actModificarExecute - end - inherited actEliminar: TAction - Enabled = False - Visible = False - end - inherited actDuplicar: TAction - Enabled = False - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - OnUpdate = actAnchoAutoUpdate - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - OnUpdate = actAnchoAutoUpdate - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - OnUpdate = actAnchoAutoUpdate - end - object actPendiente: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Pendiente' - GroupIndex = 1 - ImageIndex = 26 - OnExecute = actPendienteExecute - OnUpdate = actPendienteUpdate - end - object actAprobado: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Aprobado' - GroupIndex = 1 - ImageIndex = 25 - OnExecute = actAprobadoExecute - OnUpdate = actAprobadoUpdate - end - end - inherited SmallImages: TPngImageList [7] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001D94944415478DA9D9321781B310C859F59580CCB66B6B21886CDF0A0 - 61A061E19595CD6585375678B0D030D0B0D065851E2B74589827E9B26CFDF205 - 6C427767E9E9D7934FE114F5A3F5522AB0A29723D08E0DC61858A3A1B556B812 - EA77717EADF0C3E67CD0DA01F5BDA23612D21A766BA0579742F2813AF74CDDC3 - EE1BC6F1510EA6E9FB22F471E006A8B50A91DB1A7549505B8FCFB3A01B423637 - 1A4CD41A533978EFE8591AD1382011AB2E04D26B41182CD6AB350EC703E6974C - 9DAB14C518606F37C8E5A734F1EE0F85E2F9D3BE301A9B859412AC7554A02539 - E50C7281881A0A7B42E330A11F0CA6D12935CDB93B67C9209A9BC6F08397E238 - 9D9E69A4F09449A82D2D4F5BC2AA61DC39A8E92577460F63447C88D87C5DE3FE - F1C7B938BF37F8872CB561D098A35736A45EE8BBDB6AA8382521E0644922A110 - 02DCAD11FC4CDEF89D472153E3E889B8F4712A923B060B353ECD9D67276701FD - 05561F04719A9398C8778123EF67159F738FF3F23EEE2C796095E20D945208B5 - 8A89764B2B23A3E6294AA2730E4CC8AB7377A9B399DC998BCF6B5C2ECCB24A46 - AE24686804BE038BC1CB0D34C3DCD9CAB60F9FEFC1DFD18EBDD7F2263424F2E9 - 9C572E4237FABAC0B5E062332459634DFE2CF21F02F45FA4F0EF02D7E217D845 - 051D2C6D56E60000000049454E44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [8] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [9] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] - end - inherited dsDataTable: TDADataSource [11] - Top = 136 - end - inherited GridPopupMenu: TPopupMenu - Left = 112 - Top = 128 - object Cambiarelestado1: TMenuItem [3] - Caption = 'Cambiar el estado a...' - object Pendiente1: TMenuItem - Action = actPendiente - AutoCheck = True - GroupIndex = 1 - end - object Enespera1: TMenuItem - Action = actAprobado - AutoCheck = True - GroupIndex = 1 - end - end - end - object JvModernTabBarPainter1: TJvModernTabBarPainter - BorderColor = clWindow - ControlDivideColor = cl3DDkShadow - DividerColor = clBtnShadow - Font.Charset = DEFAULT_CHARSET - Font.Color = clHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - DisabledFont.Charset = DEFAULT_CHARSET - DisabledFont.Color = clGrayText - DisabledFont.Height = -11 - DisabledFont.Name = 'MS Sans Serif' - DisabledFont.Style = [] - SelectedFont.Charset = DEFAULT_CHARSET - SelectedFont.Color = clHighlight - SelectedFont.Height = -11 - SelectedFont.Name = 'MS Sans Serif' - SelectedFont.Style = [fsBold] - Left = 320 - Top = 128 - end -end diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas deleted file mode 100644 index 2b65b96..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas +++ /dev/null @@ -1,356 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorListaDevoluciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uBizDevoluciones, uViewListaDevoluciones, uEditorGridBase, - JvTabBar, uCustomView, uViewBase, uViewGridBase, uViewGrid, Menus, DB, - uDADataTable, JvAppStorage, JvAppRegistryStorage, JvComponentBase, - JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, - TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, - JvExControls, JvComponent, JvNavigationPane, TBXDkPanels, - uViewParametrosControlGrid, uViewParametrosCentro, uDAInterfaces; - - -type - IEditorListaDevoluciones = interface(IEditorGridBase) - ['{F7023263-A26E-4C09-87AF-02275AD594C4}'] - function GetItems: IBizDevoluciones; - procedure SetItems(const Value: IBizDevoluciones); - property Items: IBizDevoluciones read GetItems - write SetItems; - end; - - TfEditorListaDevoluciones = class(TfEditorGridBase, IEditorListaDevoluciones) - JvTabBar1: TJvTabBar; - JvModernTabBarPainter1: TJvModernTabBarPainter; - actPendiente: TAction; - Cambiarelestado1: TMenuItem; - Pendiente1: TMenuItem; - Enespera1: TMenuItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXSeparatorItem16: TTBXSeparatorItem; - TBXItem36: TTBXItem; - TBXItem37: TTBXItem; - actAprobado: TAction; - frViewListaDevoluciones1: TfrViewListaDevoluciones; - TBXDockablePanel1: TTBXDockablePanel; - frViewParametrosCentro1: TfrViewParametrosCentro; - TBXLabel1: TTBXLabel; - pnlAgrupaciones: TTBXAlignmentPanel; - TBXButton3: TTBXButton; - procedure FormShow(Sender: TObject); - procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); - procedure actModificarExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure actAnchoAutoUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actPendienteExecute(Sender: TObject); - procedure actPendienteUpdate(Sender: TObject); - procedure actAprobadoExecute(Sender: TObject); - procedure actAprobadoUpdate(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - protected - FItems : IBizDevoluciones; - function GetItems: IBizDevoluciones; - procedure SetItems(const Value: IBizDevoluciones); - procedure CambiarEstado(const NuevoEstado: TInvDevolucionestado); - function GetModified: Boolean; override; - public - property Items: IBizDevoluciones read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses uEditorBase, cxGridTableView, cxGridCustomTableView, cxControls, - uDBSelectionList, cxGridDBTableView, - cxGridDBDataDefinitions, uDataModuleDevoluciones, uEditorDBBase; - - -{$R *.dfm} - -constructor TfEditorListaDevoluciones.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewListaDevoluciones1; -end; - -function TfEditorListaDevoluciones.GetItems: IBizDevoluciones; -begin - Result := FItems; -end; - -procedure TfEditorListaDevoluciones.SetItems( - const Value: IBizDevoluciones); -begin - FItems := Value; - if Assigned(FItems) then - begin - dsDataTable.DataTable := FItems.DataTable; - frViewListaDevoluciones1.dsDataSource.DataTable := FItems.DataTable; - end; -end; - -procedure TfEditorListaDevoluciones.FormShow(Sender: TObject); -begin - inherited; - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - frViewParametrosCentro1.Refresh; - - with (ViewGrid as IViewListaDevoluciones) do - VerPendientes; -end; - -procedure TfEditorListaDevoluciones.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); -begin - inherited; - ShowHourglassCursor; - - Items.DataTable.Active := False; - - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmDevoluciones.GetItems(tidPendiente); - (ViewGrid as IViewListaDevoluciones).VerPendientes; - end; - - 1 : begin - Items := dmDevoluciones.GetItems(tidAprobado); - (ViewGrid as IViewListaDevoluciones).VerAprobados; - end; - - 2 : begin - Items := dmDevoluciones.GetItems; - (ViewGrid as IViewListaDevoluciones).VerTodos; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - ViewGrid._FocusedView.EndUpdate; - HideHourglassCursor; - end; -end; - -procedure TfEditorListaDevoluciones.actModificarExecute( - Sender: TObject); -begin - ViewGrid._FocusedView.BeginUpdate; - ViewGrid.SaveGridStatus; - try - FItems.Show; - finally - // Que salga el reloj de espera mientras el grid refresca datos y restaura la posición - ShowHourglassCursor; - Application.ProcessMessages; - try - ViewGrid._FocusedView.EndUpdate; - ViewGrid.RestoreGridStatus; - finally - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaDevoluciones.actExpandirExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorListaDevoluciones.actContraerExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -procedure TfEditorListaDevoluciones.actAnchoAutoExecute( - Sender: TObject); -begin - inherited; - ViewGrid.AjustarAncho; -end; - -procedure TfEditorListaDevoluciones.actAnchoAutoUpdate( - Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and Assigned(ViewGrid) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorListaDevoluciones.actModificarUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (ViewGrid._FocusedView.Controller.SelectedRecordCount < 2) and - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)) -end; - -procedure TfEditorListaDevoluciones.actRefrescarExecute( - Sender: TObject); -var - ACentrosList : TStringList; - AWhere : String; - i : integer; -begin - // BEGIN Adaptación a DA5 - {case (ViewGrid as IViewListaDevoluciones).VistaActiva of - tdvaPendiente, - tdvaAprobado : AWhere := ' and' - else - AWhere := ''; - end;} - AWhere := ''; - // END Adaptación a DA5 - - AWhere := AWhere + ' CENTRO in ('; - - Items.DataTable.Active := False; - ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; - - ShowHourglassCursor; - try - if ACentrosList.Count = 0 then - ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.') - else begin - with Items.DataTable.Where do - begin - Clear; - for i := 0 to ACentrosList.Count - 1 do - begin - if i > 0 then - AWhere := AWhere + ', '; - AWhere := AWhere + '''' + ACentrosList[i] + ''''; - end; - AWhere := AWhere + ')'; - - AddText(AWhere); - end; - Items.DataTable.Active := True; - end; - finally - HideHourglassCursor; - FreeAndNIL(ACentrosList); - end; - - inherited; - - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; -end; - -procedure TfEditorListaDevoluciones.actPendienteExecute( - Sender: TObject); -begin - CambiarEstado(tidPendiente); -end; - -procedure TfEditorListaDevoluciones.actPendienteUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - (ViewGrid._FocusedView.Controller.FocusedRow.Level <> 0)); - - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = tidPendiente); -end; - -procedure TfEditorListaDevoluciones.actAprobadoExecute( - Sender: TObject); -begin - CambiarEstado(tidAprobado); -end; - -procedure TfEditorListaDevoluciones.actAprobadoUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - (ViewGrid._FocusedView.Controller.FocusedRow.Level <> 0)); - - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = tidAprobado); -end; - -procedure TfEditorListaDevoluciones.CambiarEstado( - const NuevoEstado: TInvDevolucionestado); -var - ARecord: TcxCustomGridRecord; - i : Integer; -begin - if Assigned(FItems) and Assigned(ViewGrid) and (ViewGrid.MultiSelect) then - begin - ShowHourglassCursor; - //ViewGrid._FocusedView.BeginUpdate; - FItems.DataTable.DisableControls; - - Application.ProcessMessages; - try - for i := 0 to ViewGrid._FocusedView.Controller.SelectedRecordCount-1 do - begin - ARecord := ViewGrid._FocusedView.Controller.SelectedRecords[i]; - if (ARecord is TcxGridDataRow) then - begin - (ARecord as TcxGridDataRow).Focused := True; - FItems.Edit; - FItems.Estado := NuevoEstado; - FItems.Post; - end; - Application.ProcessMessages; - end; - FItems.DataTable.ApplyUpdates; - finally - //ViewGrid._FocusedView.EndUpdate; - FItems.DataTable.EnableControls; - ViewGrid._FocusedView.Controller.ClearSelection; - HideHourglassCursor; - Application.ProcessMessages; - end; - end; -end; - -procedure TfEditorListaDevoluciones.actEliminarExecute( - Sender: TObject); -begin -// inherited; -end; - - -function TfEditorListaDevoluciones.GetModified: Boolean; -begin - Result := False; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.ddp b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.dfm b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.dfm deleted file mode 100644 index aac76d2..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.dfm +++ /dev/null @@ -1,125 +0,0 @@ -object ModuleDevoluciones: TModuleDevoluciones - OldCreateOrder = True - DefaultAction = actDevolucion - Description = 'Control de devoluci'#243'n de prendas' - ModuleMenu = MainMenu - ModuleName = 'Control de devoluci'#243'n de prendas' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.1' - Left = 779 - Top = 651 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000019B4944415478DA - 63FCFFFF3F032D0123C8826B95B2CE40F61E3CEA5C08C96B773CD98B2E08321B - 66C17FE5861A0676F6740C9D3F7FCE649897D8C290341FBF7CD6F2278C782DD0 - 6A7F0C560C073F7E00F17786D9BB0C1898B7A732642EC32F4F9A0520CD1FDE41 - 0C38E58469011679E22D8069061BF09361F6AD20540B70C81367C1C78908CD1F - 3E405CF82A0561011E79E22C78588FD00C0B825F65080BF0C813B400948A66AF - 92C79A0641068052113E794216381F7C883B9DDBCB33B81092A7381F60732121 - 40523E005970B54286608E47F60949F9006A01493E25291FC02CC0E5530E0F41 - 86699A842C2090CE312C40F2A9757F12C3D9930719182E64E0B180403A47B100 - 68B875B93B6A0438093274B66F805B42523E40B100EA53EBF64886BC581514B5 - 33561D63387EE83AD81292F2012875C02D80FAD47A7A36D8826B4FDF32BCFCFC - 9DE1CD97DF60F56FEF3D075BF2FF7C3A23C41646E292382C15C17CBAE0A802D8 - 82FD379E60188EE203122C40F1E95CBEDD908885024B3B4DB8E1287140AC0578 - 81C10C48E58E2D1551CD0224C3512CA025A0B90500E54149EFB4C64472000000 - 0049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actDevolucion: TAction - Category = 'Inventario' - Caption = 'Control de devoluci'#243'n' - ImageIndex = 0 - OnExecute = actDevolucionExecute - end - end - object MainMenu: TMainMenu - Tag = 500 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 100 - Caption = '&Inventario' - GroupIndex = 1 - ImageIndex = 4 - object Controldeventasenproceso1: TMenuItem - Tag = 210 - Action = actDevolucion - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000F64944415478DA - 63BC5A21F39F8148A0DDF184115D8C11648072430D84F7E30703C3833B0CF33A - 373024CDC714CB5A8ECF00A8C2D997BC1998B7A7420C4013C36D4045095821C3 - 8DAB0CB37F95410C988E2986DB808800B02D300036A01C530CA701071F121788 - F8C3808800C306700622C8005C518C1C9D380311660021D7E10C441403905C97 - DB070CB00B19A806600B44B80168AE5B705481E1ECC9837043F00614CC75D6D3 - B3E16279B12A0CEF3E7E6328AC5E0E3684A00120D7CDE5DB0DD6080220CDF79E - BC05D34B971D61202AAA8CD3AFFF073B1B087233DD18EE3E7EC3B06DCB39C22E - C00A0C6640A2969830C06900522C0000AF7FD7D8678509020000000049454E44 - AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001F14944415478DA - BDD64D4B02511406E03328F8270A83DA549BA09508B55082D6AD5A8414942615 - ADC2A0458BC016D1A68D21951014F8075AF4014A1FB4B05A5442216119481018 - EA980331796F3A36E39DB9F74EE60151F1CC79668EBE83822CCBD0CA121078BF - D8EEAABC3EA2F4BA597A7A5733C77A1F22AB06CA9DCB4B60B379898DE5F2266C - 8FAFC0C40EBDC7BF9F1198C09EE00B3E4855853C7E84E30EB01C4CC2F41EBDC7 - 3C581D84875D0D9141428F39F0D7203CEC61A411D4E9E1073583A05880F0AB47 - 0D1AF4F081EF6B0D83A0588470CE5F07293D7CE063004092548340AC9CBDB450 - 07293DCC208A45386AD7EBC5C3502C683DACA02B96360EF5A01DDC2C3D4D0DBE - D1D9B31477F01178176863BA0D92AE943BF85590BA8D90CF07F31110D8418350 - 2390B68DAF93610E90126A22A8D9063BC810EA0690B08DD9F534C08D8F016408 - B50AD4D946E4AC031297B106943BF82AB0BA0D677094D83F37D6059E992D15CA - 1D7CF45357C0EA369C1B537838A942D173B8882715540105813DCFB558D4B681 - D687C0442A8BDF974A127ECEE74B60B55A20F5F4A6A06641D76136A36C63D796 - 54402D56FA94401425C87D881895AFBD0237A8AD7E6F5246E0E9EDB32166FA0A - 8D4084A1122B575A14CB18FCF3774802710434E518E856614D0389D517FAF977 - AD97C37F018DEE34ADAC6FE2EA02F65CB3A8E60000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 80 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.pas b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.pas deleted file mode 100644 index 29ba2d3..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uPluginControllerDevoluciones.pas +++ /dev/null @@ -1,73 +0,0 @@ -unit uPluginControllerDevoluciones; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCDevoluciones = interface(IInterface) - ['{46008D56-3823-4F95-8D22-89130764307B}'] - end; - - TModuleDevoluciones = class(TModuleController, IMCDevoluciones) - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - actDevolucion: TAction; - Controldeventasenproceso1: TMenuItem; - procedure actDevolucionExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uBizDevoluciones, - uDataModuleDevoluciones, uEditorListaDevoluciones; - - -function GetModule : TModuleController; -begin - Result := TModuleDevoluciones.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleDevoluciones.actDevolucionExecute(Sender: TObject); -var - aControl: IBizDevoluciones; - aObj: IEditorListaDevoluciones; -begin - aControl := dmDevoluciones.GetItems(tidPendiente); - aObj := TfEditorListaDevoluciones.Create(Application); - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleDevoluciones); - -finalization - UnRegisterModuleClass(TModuleDevoluciones); - -end. diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.ddp b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm deleted file mode 100644 index b599fa6..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm +++ /dev/null @@ -1,476 +0,0 @@ -inherited frViewListaDevoluciones: TfrViewListaDevoluciones - Width = 466 - Height = 477 - inherited cxGrid: TcxGrid - Width = 466 - Height = 477 - inherited cxGridView: TcxGridDBTableView - OnMouseDown = cxGridViewMouseDown - FilterBox.Visible = fvNever - OnCellDblClick = cxGridViewCellDblClick - DataController.KeyFieldNames = 'Centro;Codigo;Color;Fecha' - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0;-,0' - Kind = skSum - Position = spFooter - Column = cxGridViewDIFERENCIA - end - item - Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades' - Kind = skSum - Column = cxGridViewDIFERENCIA - end> - OptionsCustomize.ColumnGrouping = True - OptionsSelection.MultiSelect = True - OptionsView.Footer = False - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfVisibleWhenExpanded - OptionsView.GroupRowStyle = grsOffice11 - Preview.Column = cxGridViewOBSERVACIONES_HOJA - Preview.Visible = True - Styles.Footer = cxStyleFooter - OnCustomDrawGroupCell = cxGridViewCustomDrawGroupCell - object cxGridViewAPROBADO: TcxGridDBColumn - DataBinding.FieldName = 'APROBADO' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Alignment.Horz = taLeftJustify - Properties.Images = SmallImages - Properties.Items = < - item - Description = 'Aprobado' - ImageIndex = 0 - Value = 'S' - end - item - Description = 'Pendiente' - ImageIndex = 1 - Value = 'N' - end> - Properties.ReadOnly = True - Properties.ShowDescriptions = False - MinWidth = 15 - Width = 15 - IsCaptionAssigned = True - end - object cxGridViewCENTRO: TcxGridDBColumn - DataBinding.FieldName = 'CENTRO' - Visible = False - end - object cxGridViewFILIAL: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'FILIAL' - Visible = False - GroupIndex = 0 - SortIndex = 0 - SortOrder = soAscending - end - object cxGridViewCODIGO: TcxGridDBColumn - DataBinding.FieldName = 'CODIGO' - Visible = False - OnGetDataText = cxGridViewCODIGOGetDataText - OnGetDisplayText = cxGridViewCODIGOGetDisplayText - GroupIndex = 1 - SortIndex = 1 - SortOrder = soAscending - end - object cxGridViewPRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'PRODUCTO' - Visible = False - end - object cxGridViewCOLOR: TcxGridDBColumn - DataBinding.FieldName = 'COLOR' - Visible = False - end - object cxGridViewFECHA: TcxGridDBColumn - Caption = 'Fecha' - DataBinding.FieldName = 'FECHA' - SortIndex = 2 - SortOrder = soAscending - end - object cxGridViewESTADO_HOJA: TcxGridDBColumn - DataBinding.FieldName = 'ESTADO_HOJA' - Visible = False - end - object cxGridViewNUMHOJA: TcxGridDBColumn - Caption = 'Hoja' - DataBinding.FieldName = 'NUMHOJA' - OnGetDisplayText = cxGridViewNUMHOJAGetDisplayText - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - end - object cxGridViewCONTABILIZAR_HOJA: TcxGridDBColumn - DataBinding.FieldName = 'CONTABILIZAR_HOJA' - Visible = False - end - object cxGridViewOBSERVACIONES_HOJA: TcxGridDBColumn - DataBinding.FieldName = 'OBSERVACIONES_HOJA' - PropertiesClassName = 'TcxMemoProperties' - end - object cxGridViewS38: TcxGridDBColumn - DataBinding.FieldName = 'S38' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - Width = 42 - end - object cxGridViewS40: TcxGridDBColumn - DataBinding.FieldName = 'S40' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - Width = 42 - end - object cxGridViewS42: TcxGridDBColumn - DataBinding.FieldName = 'S42' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - Width = 42 - end - object cxGridViewS44: TcxGridDBColumn - DataBinding.FieldName = 'S44' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - Width = 42 - end - object cxGridViewS46: TcxGridDBColumn - DataBinding.FieldName = 'S46' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - Width = 42 - end - object cxGridViewS48: TcxGridDBColumn - DataBinding.FieldName = 'S48' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridViewNUMHOJAStylesGetContentStyle - Width = 42 - end - object cxGridViewSOLICITADO: TcxGridDBColumn - Caption = 'Solicitado' - DataBinding.FieldName = 'SOLICITADO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSubtotal - Width = 43 - end - object cxGridViewE38: TcxGridDBColumn - DataBinding.FieldName = 'E38' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewE40: TcxGridDBColumn - DataBinding.FieldName = 'E40' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewE42: TcxGridDBColumn - DataBinding.FieldName = 'E42' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewE44: TcxGridDBColumn - DataBinding.FieldName = 'E44' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewE46: TcxGridDBColumn - DataBinding.FieldName = 'E46' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewE48: TcxGridDBColumn - DataBinding.FieldName = 'E48' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewENVIADO: TcxGridDBColumn - DataBinding.FieldName = 'ENVIADO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - end - object cxGridViewER38: TcxGridDBColumn - Caption = 'E38' - DataBinding.FieldName = 'ER38' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR38GetDisplayText - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR38StylesGetContentStyle - Width = 41 - end - object cxGridViewER40: TcxGridDBColumn - Caption = 'E40' - DataBinding.FieldName = 'ER40' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR40GetDisplayText - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR40StylesGetContentStyle - Width = 41 - end - object cxGridViewER42: TcxGridDBColumn - Caption = 'E42' - DataBinding.FieldName = 'ER42' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR42GetDisplayText - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR42StylesGetContentStyle - Width = 41 - end - object cxGridViewER44: TcxGridDBColumn - Caption = 'E44' - DataBinding.FieldName = 'ER44' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR44GetDisplayText - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR44StylesGetContentStyle - Width = 41 - end - object cxGridViewER46: TcxGridDBColumn - Caption = 'E46' - DataBinding.FieldName = 'ER46' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR46GetDisplayText - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR46StylesGetContentStyle - Width = 41 - end - object cxGridViewER48: TcxGridDBColumn - Caption = 'E48' - DataBinding.FieldName = 'ER48' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR48GetDisplayText - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR48StylesGetContentStyle - Width = 41 - end - object cxGridViewENVIADO_RECT: TcxGridDBColumn - Caption = 'Enviado' - DataBinding.FieldName = 'ENVIADO_RECT' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDataText = cxGridViewENVIADO_RECTGetDataText - Styles.Content = cxStyleSubtotal - Width = 42 - end - object cxGridViewDIFERENCIA: TcxGridDBColumn - Caption = 'Diferencia' - DataBinding.FieldName = 'DIFERENCIA' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDataText = cxGridViewDIFERENCIAGetDataText - HeaderAlignmentHorz = taRightJustify - Width = 42 - end - end - end - inherited dsDataSource: TDADataSource - Top = 120 - end - inherited dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageFooter.Font.Color = clBlack - PrinterPage.PageFooter.Font.Height = -12 - PrinterPage.PageFooter.Font.Name = 'Tahoma' - PrinterPage.PageFooter.Font.Style = [] - PrinterPage.PageFooter.LeftTitle.Strings = ( - 'VARELA IMAGEN Y DISE'#209'O S.L.') - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageHeader.Font.Color = clBlack - PrinterPage.PageHeader.Font.Height = -15 - PrinterPage.PageHeader.Font.Name = 'Tahoma' - PrinterPage.PageHeader.Font.Style = [] - PrinterPage.PageHeader.LeftTitle.Strings = ( - 'CONTROL DE DEVOLUCI'#211'N') - PrinterPage.PageHeader.RightTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage.ScaleMode = smFit - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 38877.461868113420000000 - ShrinkToPageWidth = True - OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsFormatting.SuppressBackgroundBitmaps = True - OptionsFormatting.UseNativeStyles = True - OptionsFormatting.ConsumeSelectionStyle = True - OptionsLevels.Unwrap = True - OptionsRefinements.TransparentGraphics = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.ExpandButtons = False - OptionsView.FilterBar = False - StyleRepository = cxStyleRepositoryInforme - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - OnInitializeCell = dxComponentPrinterLink1InitializeCell - BuiltInReportLink = True - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleEnviado: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleRecibido: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleSubtotal: TcxStyle - AssignedValues = [svColor] - Color = 14803425 - end - object cxStyleCantidadRectificada: TcxStyle - AssignedValues = [svTextColor] - TextColor = 2129152 - end - object cxStyle1: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsStrikeOut] - TextColor = clGray - end - object cxStyleFooter: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 395 - Top = 80 - Bitmap = {} - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 112 - Top = 48 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas b/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas deleted file mode 100644 index 09bf22b..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas +++ /dev/null @@ -1,608 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewListaDevoluciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, DBTables, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, uBizDevoluciones, dxPSGlbl, - dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, - dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, - cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, - cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo; - -type - TvDevolucionesVistaActiva = (tdvaPendiente, tdvaAprobado, tdvaTodos); - - IViewListaDevoluciones = interface(IViewGrid) - ['{2179BA33-B039-4CC9-A423-F50FD2C7B880}'] - procedure VerPendientes; - procedure VerAprobados; - procedure VerTodos; - - function GetVistaActiva : TvDevolucionesVistaActiva; - property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva; - end; - - TfrViewListaDevoluciones = class(TfrViewGrid, IViewListaDevoluciones) - cxStyleEnviado: TcxStyle; - cxStyleRecibido: TcxStyle; - cxStyleSubtotal: TcxStyle; - SmallImages: TPngImageList; - cxStyleCantidadRectificada: TcxStyle; - cxStyle1: TcxStyle; - cxGridViewAPROBADO: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewFILIAL: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewFECHA: TcxGridDBColumn; - cxGridViewNUMHOJA: TcxGridDBColumn; - cxGridViewESTADO_HOJA: TcxGridDBColumn; - cxGridViewOBSERVACIONES_HOJA: TcxGridDBColumn; - cxGridViewCONTABILIZAR_HOJA: TcxGridDBColumn; - cxGridViewS38: TcxGridDBColumn; - cxGridViewS40: TcxGridDBColumn; - cxGridViewS42: TcxGridDBColumn; - cxGridViewS44: TcxGridDBColumn; - cxGridViewS46: TcxGridDBColumn; - cxGridViewS48: TcxGridDBColumn; - cxGridViewSOLICITADO: TcxGridDBColumn; - cxGridViewE38: TcxGridDBColumn; - cxGridViewE40: TcxGridDBColumn; - cxGridViewE42: TcxGridDBColumn; - cxGridViewE44: TcxGridDBColumn; - cxGridViewE46: TcxGridDBColumn; - cxGridViewE48: TcxGridDBColumn; - cxGridViewENVIADO: TcxGridDBColumn; - cxGridViewER38: TcxGridDBColumn; - cxGridViewER40: TcxGridDBColumn; - cxGridViewER42: TcxGridDBColumn; - cxGridViewER44: TcxGridDBColumn; - cxGridViewER46: TcxGridDBColumn; - cxGridViewER48: TcxGridDBColumn; - cxGridViewENVIADO_RECT: TcxGridDBColumn; - cxGridViewDIFERENCIA: TcxGridDBColumn; - dxComponentPrinterLink1: TdxGridReportLink; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure cxGridBandedViewRR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR40GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR42GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR44GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR46GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR48GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR38StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR40StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR42StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR44StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR46StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR48StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewCustomDrawGroupCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableCellViewInfo; - var ADone: Boolean); - procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure cxGridBandedViewCODIGOGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure cxGridViewNUMHOJAGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridViewNUMHOJAStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewCODIGOGetDataText(Sender: TcxCustomGridTableItem; - ARecordIndex: Integer; var AText: String); - procedure cxGridViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridViewENVIADO_RECTGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure cxGridViewDIFERENCIAGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure dxComponentPrinterLink1InitializeCell( - Sender: TdxGridReportLink; AView: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; - AnItem: TAbstractdxReportCellData); - protected - FTipo : String; - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - function GetVistaActiva : TvDevolucionesVistaActiva; - public - procedure Preview; override; - procedure Print; override; - procedure PrintSetup; override; - procedure VerPendientes; - procedure VerAprobados; - procedure VerTodos; - property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva; - end; - - -implementation - -uses - uDataModuleDevoluciones, DateUtils, cxGridDBDataDefinitions, - uViewGridBase, cxGridRows; - -{$R *.dfm} - -procedure TfrViewListaDevoluciones.cxGridViewMouseDown( - Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, - Y: Integer); -var - HT: TcxCustomGridHitTest; - ALevelIndex, AGroupIndex, I, AIndex: Integer; - AList: TList; - DC: TcxGridDBDataController; -begin - inherited; - HT := TcxGridSite(Sender).GridView.ViewInfo.GetHitTest(X, Y); - if (HT is TcxGridRecordHitTest) and not (HT is TcxGridRecordCellHitTest) - and not (HT is TcxGridExpandButtonHitTest) then - begin - DC := TcxGridDBTableView(TcxGridSite(Sender).GridView).DataController; - AList := TList.Create; - ALevelIndex := TcxGridRecordHitTest(HT).GridRecord.Level; - if ALevelIndex > 0 then - begin - ShowHourglassCursor; - TcxGridDBTableView(TcxGridSite(Sender).GridView).BeginUpdate; - try - AGroupIndex := DC.Groups.DataGroupIndexByRowIndex[TcxGridRecordHitTest(HT).GridRecord.Index]; - DC.Groups.LoadRecordIndexes(AList, AGroupIndex); - for I := 0 to AList.Count - 1 do - begin - AIndex := DC.GetRowIndexByRecordIndex(Integer(AList[I]), True); - DC.SelectRows(AIndex, AIndex); - end; - finally - FreeAndNil(AList); - TcxGridDBTableView(TcxGridSite(Sender).GridView).EndUpdate; - HideHourglassCursor; - end; - end; - end; -end; - -procedure TfrViewListaDevoluciones.VerAprobados; -begin - FTipo := 'S'; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewListaDevoluciones.VerPendientes; -begin - FTipo := 'N'; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewListaDevoluciones.VerTodos; -begin - FTipo := ''; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); - cxGridViewAPROBADO.Visible := True; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewE38.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR40GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewE40.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR42GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewE42.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR44GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewE44.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR46GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewE46.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR48GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewE48.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR38StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewE38.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR40StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewE40.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR42StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewE42.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR44StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewE44.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR46StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewE46.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewRR48StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewE48.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaDevoluciones.cxGridViewCustomDrawGroupCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableCellViewInfo; var ADone: Boolean); -var - ARecIndex: Integer; - Val1: string; -begin - inherited; - - if TcxGridGroupCellViewInfo(AViewInfo).GridRecord.GroupedColumn = cxGridViewFILIAL then - begin - ARecIndex := AViewInfo.GridRecord.RecordIndex; - Val1 := Sender.DataController.DisplayTexts[ARecIndex, cxGridViewFILIAL.Index]; - AViewInfo.Text := 'Centro: ' + Val1; - end; -end; - - -procedure TfrViewListaDevoluciones.cxGridViewCellDblClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Sender); -end; - -procedure TfrViewListaDevoluciones.cxGridBandedViewCODIGOGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Val1: string; -begin - inherited; - Val1 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewCOLOR.Index]; - AText := AText + '-' + Val1; - -end; - -procedure TfrViewListaDevoluciones.cxGridViewNUMHOJAGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -begin - inherited; - if Length(VarToStr(ARecord.Values[cxGridViewESTADO_HOJA.Index])) > 0 then - AText := AText + ' (' + VarToStr(ARecord.Values[cxGridViewESTADO_HOJA.Index]) + ')'; -end; - -procedure TfrViewListaDevoluciones.cxGridViewNUMHOJAStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - - if VarToStr(ARecord.Values[cxGridViewCONTABILIZAR_HOJA.Index]) = 'N' then - AStyle := cxStyle1; -end; - -procedure TfrViewListaDevoluciones.Preview; -begin - inherited; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewListaDevoluciones.Print; -begin - inherited; - dxComponentPrinterLink1.Print(True, nil); -end; - -procedure TfrViewListaDevoluciones.PrintSetup; -begin - inherited; - dxComponentPrinterLink1.PageSetup -end; - -procedure TfrViewListaDevoluciones.cxGridViewCODIGOGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Val1, Val2: string; -begin - inherited; - - Val1 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewPRODUCTO.Index]; - Val2 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewCOLOR.Index]; - AText := 'Producto: ' + Val1 + ' - Color: ' + Val2; -end; - -procedure TfrViewListaDevoluciones.cxGridViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -begin - inherited; - AText := StringReplace(AText, 'CODIGO : ', '', [rfReplaceAll, rfIgnoreCase]) -end; - -procedure TfrViewListaDevoluciones.cxGridViewENVIADO_RECTGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Total : Double; -begin - inherited; - - Total := 0; - with Sender.GridView.DataController do - begin - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewER38.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewER40.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewER42.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewER44.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewER46.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewER48.Index], 0); - end; - AText := FloatToStr(Total); -end; - -procedure TfrViewListaDevoluciones.cxGridViewDIFERENCIAGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Total : Double; -begin - inherited; - with Sender.GridView.DataController do - begin - Total := StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewENVIADO_RECT.Index], 0); - Total := Total - StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewSOLICITADO.Index], 0); - end; - AText := FloatToStr(Total); -end; - -procedure TfrViewListaDevoluciones.dxComponentPrinterLink1InitializeCell( - Sender: TdxGridReportLink; AView: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; - AnItem: TAbstractdxReportCellData); -var - aux : string; -begin - inherited; - if Assigned(ARecord) then - begin - aux := ARecord.Values[cxGridViewCONTABILIZAR_HOJA.Index]; - if aux = 'N' then - begin - AnItem.Font.Style := cxStyle1.Font.Style; - AnItem.Font.Color := cxStyle1.Font.Color; - end; - end; -end; - -procedure TfrViewListaDevoluciones.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - AItemList := cxGridView.DataController.Filter.Root; - - if (Length(FTIPO) > 0) then - begin - FNivelFiltrado := AItemList.AddItemList(fboAnd); - FNivelFiltrado.AddItem(cxGridViewAPROBADO, foEqual, FTIPO, FTIPO); - end; - - if cxGridView.DataController.Filter.IsEmpty - then cxGridView.DataController.Filter.Active := False - else cxGridView.DataController.Filter.Active := True; - - cxGridView.DataController.Filter.EndUpdate; -end; - -function TfrViewListaDevoluciones.GetVistaActiva: TvDevolucionesVistaActiva; -begin - if FTipo = 'N' then - Result := tdvaPendiente - else if FTipo = 'S' then - Result := tdvaAprobado - else - Result := tdvaTodos; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Reglas/uBizDevoluciones.pas b/Varela/Varela/Source/Modulos/Devoluciones/Reglas/uBizDevoluciones.pas deleted file mode 100644 index ba34a6a..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Reglas/uBizDevoluciones.pas +++ /dev/null @@ -1,77 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uBizDevoluciones; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDBSelectionList; - - -const - BIZ_DEVOLUCIONES = 'Client.Devoluciones'; - -type - TInvDevolucionEstado = (tidPendiente, tidAprobado); - - IBizDevoluciones = interface(IDAStronglyTypedDataTable) //IRecepciones) - ['{E7196FF3-EFC9-45FC-AA50-C0C79F567ECA}'] - procedure Show; - procedure SetEstado(const AValue : TInvDevolucionEstado); - function GetEstado : TInvDevolucionEstado ; - property Estado : TInvDevolucionEstado read GetEstado write SetEstado; - end; - - - TBizDevolucionesDataTableRules = class(TDADataTableRules, IBizDevoluciones) - protected - procedure SetEstado(const AValue : TInvDevolucionEstado); - function GetEstado : TInvDevolucionEstado ; - public - procedure Show; - property Estado : TInvDevolucionEstado read GetEstado write SetEstado; - end; - - -implementation - -uses - uEditorUtils, uDataModuleDevoluciones; - -{ TBizDevolucionesDataTableRules } - -function TBizDevolucionesDataTableRules.GetEstado: TInvDevolucionEstado; -begin - if DataTable.FieldByName('APROBADO').AsString = 'S' then - Result := tidAprobado - else - Result := tidPendiente -end; - -procedure TBizDevolucionesDataTableRules.SetEstado( - const AValue: TInvDevolucionEstado); -begin - case AValue of - tidPendiente : DataTable.FieldByName('APROBADO').AsString := 'N'; - tidAprobado : DataTable.FieldByName('APROBADO').AsString := 'S'; - else - DataTable.FieldByName('APROBADO').AsString := 'N'; - end; -end; - -procedure TBizDevolucionesDataTableRules.Show; -begin - ShowEditor(IBizDevoluciones, Self, etItem); -end; - -initialization - RegisterDataTableRules(BIZ_DEVOLUCIONES, TBizDevolucionesDataTableRules); - -end. - diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.ddp b/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.dfm b/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.dfm deleted file mode 100644 index 647da8b..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.dfm +++ /dev/null @@ -1,1505 +0,0 @@ -object srvDevoluciones: TsrvDevoluciones - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schDevoluciones - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 300 - Width = 300 - object schDevoluciones: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DADataDictionary1 - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' - SQL = 'SELECT '#10' *'#10' FROM'#10' RDX_V_CONTROL_DEVOLUCIONES' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'ENVIADO' - TableField = 'ENVIADO' - end - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end - item - DatasetField = 'NUMHOJA' - TableField = 'NUMHOJA' - end - item - DatasetField = 'ESTADO_HOJA' - TableField = 'ESTADO_HOJA' - end - item - DatasetField = 'OBSERVACIONES_HOJA' - TableField = 'OBSERVACIONES_HOJA' - end - item - DatasetField = 'CONTABILIZAR_HOJA' - TableField = 'CONTABILIZAR_HOJA' - end - item - DatasetField = 'S38' - TableField = 'S38' - end - item - DatasetField = 'S40' - TableField = 'S40' - end - item - DatasetField = 'S42' - TableField = 'S42' - end - item - DatasetField = 'S44' - TableField = 'S44' - end - item - DatasetField = 'S46' - TableField = 'S46' - end - item - DatasetField = 'S48' - TableField = 'S48' - end - item - DatasetField = 'SOLICITADO' - TableField = 'SOLICITADO' - end - item - DatasetField = 'ER38' - TableField = 'ER38' - end - item - DatasetField = 'ER40' - TableField = 'ER40' - end - item - DatasetField = 'ER42' - TableField = 'ER42' - end - item - DatasetField = 'ER44' - TableField = 'ER44' - end - item - DatasetField = 'ER46' - TableField = 'ER46' - end - item - DatasetField = 'ER48' - TableField = 'ER48' - end - item - DatasetField = 'ENVIADO_RECT' - TableField = 'ENVIADO_RECT' - end> - end> - Name = 'Devoluciones' - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - DictionaryEntry = 'Devoluciones_APROBADO' - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - DictionaryEntry = 'Devoluciones_FECHACAMBIO' - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - DictionaryEntry = 'Devoluciones_CENTRO' - InPrimaryKey = True - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - DictionaryEntry = 'Devoluciones_FILIAL' - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DictionaryEntry = 'Devoluciones_CODIGO' - InPrimaryKey = True - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DictionaryEntry = 'Devoluciones_PRODUCTO' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DictionaryEntry = 'Devoluciones_COLOR' - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - DictionaryEntry = 'Devoluciones_FECHA' - InPrimaryKey = True - end - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - DictionaryEntry = 'Devoluciones_NUMHOJA' - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - DictionaryEntry = 'Devoluciones_ESTADO_HOJA' - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' - end - item - Name = 'S38' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S38' - end - item - Name = 'S40' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S40' - end - item - Name = 'S42' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S42' - end - item - Name = 'S44' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S44' - end - item - Name = 'S46' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S46' - end - item - Name = 'S48' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S48' - end - item - Name = 'SOLICITADO' - DataType = datInteger - DictionaryEntry = 'Devoluciones_SOLICITADO' - end - item - Name = 'E38' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E38' - end - item - Name = 'E40' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E40' - end - item - Name = 'E42' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E42' - end - item - Name = 'E44' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E44' - end - item - Name = 'E46' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E46' - end - item - Name = 'E48' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E48' - end - item - Name = 'ENVIADO' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ENVIADO' - end - item - Name = 'ER38' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER38' - end - item - Name = 'ER40' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER40' - end - item - Name = 'ER42' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER42' - end - item - Name = 'ER44' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER44' - end - item - Name = 'ER46' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER46' - end - item - Name = 'ER48' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER48' - end - item - Name = 'ENVIADO_RECT' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ENVIADO_RECT' - end - item - Name = 'DIFERENCIA' - DataType = datFloat - DictionaryEntry = 'Devoluciones_DIFERENCIA' - end> - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' - SQL = - 'SELECT '#10' *'#10'FROM RDX_V_CONTROL_DEVOLUCIONES'#10'WHERE (APROBADO' + - ' = '#39'N'#39')' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'ENVIADO' - TableField = 'ENVIADO' - end - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end - item - DatasetField = 'NUMHOJA' - TableField = 'NUMHOJA' - end - item - DatasetField = 'ESTADO_HOJA' - TableField = 'ESTADO_HOJA' - end - item - DatasetField = 'OBSERVACIONES_HOJA' - TableField = 'OBSERVACIONES_HOJA' - end - item - DatasetField = 'CONTABILIZAR_HOJA' - TableField = 'CONTABILIZAR_HOJA' - end - item - DatasetField = 'S38' - TableField = 'S38' - end - item - DatasetField = 'S40' - TableField = 'S40' - end - item - DatasetField = 'S42' - TableField = 'S42' - end - item - DatasetField = 'S44' - TableField = 'S44' - end - item - DatasetField = 'S46' - TableField = 'S46' - end - item - DatasetField = 'S48' - TableField = 'S48' - end - item - DatasetField = 'SOLICITADO' - TableField = 'SOLICITADO' - end - item - DatasetField = 'ER38' - TableField = 'ER38' - end - item - DatasetField = 'ER40' - TableField = 'ER40' - end - item - DatasetField = 'ER42' - TableField = 'ER42' - end - item - DatasetField = 'ER44' - TableField = 'ER44' - end - item - DatasetField = 'ER46' - TableField = 'ER46' - end - item - DatasetField = 'ER48' - TableField = 'ER48' - end - item - DatasetField = 'ENVIADO_RECT' - TableField = 'ENVIADO_RECT' - end> - end> - Name = 'DevolucionesPendientes' - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - DictionaryEntry = 'Devoluciones_APROBADO' - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - DictionaryEntry = 'Devoluciones_FECHACAMBIO' - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - DictionaryEntry = 'Devoluciones_CENTRO' - InPrimaryKey = True - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - DictionaryEntry = 'Devoluciones_FILIAL' - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DictionaryEntry = 'Devoluciones_CODIGO' - InPrimaryKey = True - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DictionaryEntry = 'Devoluciones_PRODUCTO' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DictionaryEntry = 'Devoluciones_COLOR' - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - DictionaryEntry = 'Devoluciones_FECHA' - InPrimaryKey = True - end - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - DictionaryEntry = 'Devoluciones_NUMHOJA' - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - DictionaryEntry = 'Devoluciones_ESTADO_HOJA' - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' - end - item - Name = 'S38' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S38' - end - item - Name = 'S40' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S40' - end - item - Name = 'S42' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S42' - end - item - Name = 'S44' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S44' - end - item - Name = 'S46' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S46' - end - item - Name = 'S48' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S48' - end - item - Name = 'SOLICITADO' - DataType = datInteger - DictionaryEntry = 'Devoluciones_SOLICITADO' - end - item - Name = 'E38' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E38' - end - item - Name = 'E40' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E40' - end - item - Name = 'E42' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E42' - end - item - Name = 'E44' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E44' - end - item - Name = 'E46' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E46' - end - item - Name = 'E48' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E48' - end - item - Name = 'ENVIADO' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ENVIADO' - end - item - Name = 'ER38' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER38' - end - item - Name = 'ER40' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER40' - end - item - Name = 'ER42' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER42' - end - item - Name = 'ER44' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER44' - end - item - Name = 'ER46' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER46' - end - item - Name = 'ER48' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER48' - end - item - Name = 'ENVIADO_RECT' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ENVIADO_RECT' - end - item - Name = 'DIFERENCIA' - DataType = datFloat - DictionaryEntry = 'Devoluciones_DIFERENCIA' - end> - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' - SQL = - 'SELECT '#10' *'#10' FROM'#10' RDX_V_CONTROL_DEVOLUCIONES'#10'WHERE (APROB' + - 'ADO = '#39'S'#39')' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'ENVIADO' - TableField = 'ENVIADO' - end - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'NUMHOJA' - TableField = 'NUMHOJA' - end - item - DatasetField = 'ESTADO_HOJA' - TableField = 'ESTADO_HOJA' - end - item - DatasetField = 'OBSERVACIONES_HOJA' - TableField = 'OBSERVACIONES_HOJA' - end - item - DatasetField = 'CONTABILIZAR_HOJA' - TableField = 'CONTABILIZAR_HOJA' - end - item - DatasetField = 'S38' - TableField = 'S38' - end - item - DatasetField = 'S40' - TableField = 'S40' - end - item - DatasetField = 'S42' - TableField = 'S42' - end - item - DatasetField = 'S44' - TableField = 'S44' - end - item - DatasetField = 'S46' - TableField = 'S46' - end - item - DatasetField = 'S48' - TableField = 'S48' - end - item - DatasetField = 'SOLICITADO' - TableField = 'SOLICITADO' - end - item - DatasetField = 'ER38' - TableField = 'ER38' - end - item - DatasetField = 'ER40' - TableField = 'ER40' - end - item - DatasetField = 'ER42' - TableField = 'ER42' - end - item - DatasetField = 'ER44' - TableField = 'ER44' - end - item - DatasetField = 'ER46' - TableField = 'ER46' - end - item - DatasetField = 'ER48' - TableField = 'ER48' - end - item - DatasetField = 'ENVIADO_RECT' - TableField = 'ENVIADO_RECT' - end> - end> - Name = 'DevolucionesAprobadas' - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - DictionaryEntry = 'Devoluciones_APROBADO' - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - DictionaryEntry = 'Devoluciones_FECHACAMBIO' - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - DictionaryEntry = 'Devoluciones_CENTRO' - InPrimaryKey = True - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - DictionaryEntry = 'Devoluciones_FILIAL' - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DictionaryEntry = 'Devoluciones_CODIGO' - InPrimaryKey = True - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DictionaryEntry = 'Devoluciones_PRODUCTO' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DictionaryEntry = 'Devoluciones_COLOR' - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - DictionaryEntry = 'Devoluciones_FECHA' - InPrimaryKey = True - end - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - DictionaryEntry = 'Devoluciones_NUMHOJA' - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - DictionaryEntry = 'Devoluciones_ESTADO_HOJA' - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' - end - item - Name = 'S38' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S38' - end - item - Name = 'S40' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S40' - end - item - Name = 'S42' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S42' - end - item - Name = 'S44' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S44' - end - item - Name = 'S46' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S46' - end - item - Name = 'S48' - DataType = datInteger - DictionaryEntry = 'Devoluciones_S48' - end - item - Name = 'SOLICITADO' - DataType = datInteger - DictionaryEntry = 'Devoluciones_SOLICITADO' - end - item - Name = 'E38' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E38' - end - item - Name = 'E40' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E40' - end - item - Name = 'E42' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E42' - end - item - Name = 'E44' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E44' - end - item - Name = 'E46' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E46' - end - item - Name = 'E48' - DataType = datFloat - DictionaryEntry = 'Devoluciones_E48' - end - item - Name = 'ENVIADO' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ENVIADO' - end - item - Name = 'ER38' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER38' - end - item - Name = 'ER40' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER40' - end - item - Name = 'ER42' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER42' - end - item - Name = 'ER44' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER44' - end - item - Name = 'ER46' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER46' - end - item - Name = 'ER48' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ER48' - end - item - Name = 'ENVIADO_RECT' - DataType = datFloat - DictionaryEntry = 'Devoluciones_ENVIADO_RECT' - end - item - Name = 'DIFERENCIA' - DataType = datFloat - DictionaryEntry = 'Devoluciones_DIFERENCIA' - end> - end - item - Params = < - item - Name = 'FECHA' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' - SQL = - 'SELECT '#10' ENVIADO_RECT, DIFERENCIA'#10' FROM'#10' RDX_V_CONTROL' + - '_DEVOLUCIONES'#10' WHERE'#10' FECHA = :FECHA AND'#10' CENTRO = ' + - ':CENTRO AND'#10' CODIGO = :CODIGO AND'#10' COLOR = :COLOR' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'ENVIADO_RECT' - TableField = 'ENVIADO_RECT' - end> - end> - Name = 'RefreshDevoluciones' - Fields = < - item - Name = 'ENVIADO_RECT' - DataType = datFloat - end - item - Name = 'DIFERENCIA' - DataType = datFloat - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'NUMHOJA' - DataType = datString - Size = 8 - Value = '' - ParamType = daptInput - end - item - Name = 'ESTADO_HOJA' - DataType = datString - Size = 20 - Value = '' - ParamType = daptInput - end - item - Name = 'OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end - item - Name = 'ER38' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'ER40' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'ER42' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'ER44' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'ER46' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'ER48' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' - SQL = - 'begin'#10#9'declare @rowcount_var int'#10#10' declare @NUMHOJA char(8)'#10' ' + - ' declare @ESTADO_HOJA varchar(20)'#10' declare @OBSERVACIONES_H' + - 'OJA varchar(255)'#10' declare @CONTABILIZAR_HOJA char(1)'#10#10' dec' + - 'lare @ER38 numeric(15,0)'#10' declare @ER40 numeric(15,0)'#10' dec' + - 'lare @ER42 numeric(15,0)'#10' declare @ER44 numeric(15,0)'#10' dec' + - 'lare @ER46 numeric(15,0)'#10' declare @ER48 numeric(15,0)'#10#10' de' + - 'clare @APROBADO char(1)'#10' declare @FECHA datetime'#10' declare ' + - '@CENTRO varchar(17)'#10' declare @CODIGO varchar(12)'#10' declare ' + - '@COLOR varchar(10)'#10#10' set @NUMHOJA = :NUMHOJA'#10' set @ESTADO_' + - 'HOJA = :ESTADO_HOJA'#10' set @OBSERVACIONES_HOJA = :OBSERVACIONES' + - '_HOJA'#10' set @CONTABILIZAR_HOJA = :CONTABILIZAR_HOJA'#10#10' set @' + - 'ER38 = :ER38'#10' set @ER40 = :ER40'#10' set @ER42 = :ER42'#10' set' + - ' @ER44 = :ER44'#10' set @ER46 = :ER46'#10' set @ER48 = :ER48'#10#10' ' + - 'set @APROBADO = :APROBADO'#10' set @FECHA = :FECHA'#10' set @CENTR' + - 'O = :CENTRO'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10#10' ' + - ' /* *********************************** */'#10' if @NUMHOJA <> ' + - #39#39#10' begin'#10#9' update RDX_AJUSTES_HOJA_DEVOLUCIONES set'#10#9' ' + - ' ESTADO = @ESTADO_HOJA,'#10#9#9' OBSERVACIONES = @OBSERVA' + - 'CIONES_HOJA,'#10#9#9' CONTABILIZAR = @CONTABILIZAR_HOJA'#10#9' wh' + - 'ere RDX_AJUSTES_HOJA_DEVOLUCIONES.NUMHOJA = @NUMHOJA'#10#10#9#9' select ' + - '@ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9' if @ROWCOUNT_VAR = 0'#10#9#9' begin'#10 + - #9' insert into RDX_AJUSTES_HOJA_DEVOLUCIONES'#10#9' ' + - ' (NUMHOJA, ESTADO, OBSERVACIONES, CONTABILIZAR)'#10#9#9' va' + - 'lues (@NUMHOJA, @ESTADO_HOJA,'#10#9' @OBSERVACIONES_' + - 'HOJA, @CONTABILIZAR_HOJA)'#10#9' end'#10' end'#10#10#10' /* ***********' + - '************************ */'#10#9'update RDX_DEVOLUCION_AJUSTES set'#10#9 + - ' CANT38 = @ER38,'#10#9' CANT40 = @ER40,'#10#9' ' + - ' CANT42 = @ER42,'#10#9' CANT44 = @ER44,'#10#9' CANT4' + - '6 = @ER46,'#10#9' CANT48 = @ER48,'#10' APROBADO =' + - ' @APROBADO,'#10' FECHACAMBIO = CURRENT_TIMESTAMP'#10#9'wher' + - 'e'#10' (RDX_DEVOLUCION_AJUSTES.CENTRO = @CENTRO and'#10#9' ' + - ' RDX_DEVOLUCION_AJUSTES.CODIGO = @CODIGO and'#10#9' RDX_DEVOLU' + - 'CION_AJUSTES.COLOR = @COLOR and'#10#9' RDX_DEVOLUCION_AJUSTES.FE' + - 'CHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9'if @ROWCOUNT' + - '_VAR = 0'#10' begin'#10' insert into RDX_DEVOLUCION_AJUSTES'#10' ' + - ' (FECHA, CENTRO, CODIGO, COLOR,'#10' A' + - 'PROBADO, FECHACAMBIO,'#10' CANT38, CANT40, CANT42,'#10' ' + - ' CANT44, CANT46, CANT48)'#10' values ('#10' ' + - ' @FECHA, @CENTRO, @CODIGO,'#10' @COLOR, @A' + - 'PROBADO, CURRENT_TIMESTAMP,'#10' @ER38, @ER40, @ER42' + - ','#10' @ER44, @ER46, @ER48)'#10' end'#10'end' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_Estado_Devoluciones' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 48 - Top = 32 - end - object bpDevoluciones: TDABusinessProcessor - Schema = schDevoluciones - UpdateCommandName = 'Update_Estado_Devoluciones' - RefreshDatasetName = 'RefreshDevoluciones' - ReferencedDataset = 'Devoluciones' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 32 - end - object bpDevolucionesAprobadas: TDABusinessProcessor - Schema = schDevoluciones - UpdateCommandName = 'Update_Estado_Devoluciones' - RefreshDatasetName = 'RefreshDevoluciones' - ReferencedDataset = 'DevolucionesAprobadas' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 88 - end - object bpDevolucionesPendientes: TDABusinessProcessor - Schema = schDevoluciones - UpdateCommandName = 'Update_Estado_Devoluciones' - RefreshDatasetName = 'RefreshDevoluciones' - ReferencedDataset = 'DevolucionesPendientes' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 152 - end - object DADataDictionary1: TDADataDictionary - Fields = < - item - Name = 'Devoluciones_APROBADO' - DataType = datString - Size = 1 - DisplayLabel = 'APROBADO' - end - item - Name = 'Devoluciones_FECHACAMBIO' - DataType = datDateTime - DisplayLabel = 'FECHACAMBIO' - end - item - Name = 'Devoluciones_CENTRO' - DataType = datString - Size = 17 - DisplayLabel = 'CENTRO' - ReadOnly = True - end - item - Name = 'Devoluciones_FILIAL' - DataType = datString - Size = 25 - DisplayLabel = 'FILIAL' - ReadOnly = True - end - item - Name = 'Devoluciones_CODIGO' - DataType = datString - Size = 12 - DisplayLabel = 'CODIGO' - ReadOnly = True - end - item - Name = 'Devoluciones_PRODUCTO' - DataType = datString - Size = 40 - DisplayLabel = 'PRODUCTO' - ReadOnly = True - end - item - Name = 'Devoluciones_COLOR' - DataType = datString - Size = 10 - DisplayLabel = 'COLOR' - ReadOnly = True - end - item - Name = 'Devoluciones_FECHA' - DataType = datDateTime - DisplayLabel = 'FECHA' - ReadOnly = True - end - item - Name = 'Devoluciones_NUMHOJA' - DataType = datString - Size = 8 - DisplayLabel = 'NUMHOJA' - end - item - Name = 'Devoluciones_ESTADO_HOJA' - DataType = datString - Size = 20 - DisplayLabel = 'ESTADO_HOJA' - end - item - Name = 'Devoluciones_OBSERVACIONES_HOJA' - DataType = datString - Size = 255 - DisplayLabel = 'OBSERVACIONES_HOJA' - end - item - Name = 'Devoluciones_CONTABILIZAR_HOJA' - DataType = datString - Size = 1 - DisplayLabel = 'CONTABILIZAR_HOJA' - end - item - Name = 'Devoluciones_S38' - DataType = datInteger - DisplayLabel = 'S38' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_S40' - DataType = datInteger - DisplayLabel = 'S40' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_S42' - DataType = datInteger - DisplayLabel = 'S42' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_S44' - DataType = datInteger - DisplayLabel = 'S44' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_S46' - DataType = datInteger - DisplayLabel = 'S46' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_S48' - DataType = datInteger - DisplayLabel = 'S48' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_SOLICITADO' - DataType = datInteger - DisplayLabel = 'SOLICITADO' - ReadOnly = True - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'Devoluciones_E38' - DataType = datFloat - DisplayLabel = 'E38' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_E40' - DataType = datFloat - DisplayLabel = 'E40' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_E42' - DataType = datFloat - DisplayLabel = 'E42' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_E44' - DataType = datFloat - DisplayLabel = 'E44' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_E46' - DataType = datFloat - DisplayLabel = 'E46' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_E48' - DataType = datFloat - DisplayLabel = 'E48' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ENVIADO' - DataType = datFloat - DisplayLabel = 'ENVIADO' - ReadOnly = True - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'Devoluciones_ER38' - DataType = datFloat - DisplayLabel = 'ER38' - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ER40' - DataType = datFloat - DisplayLabel = 'ER40' - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ER42' - DataType = datFloat - DisplayLabel = 'ER42' - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ER44' - DataType = datFloat - DisplayLabel = 'ER44' - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ER46' - DataType = datFloat - DisplayLabel = 'ER46' - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ER48' - DataType = datFloat - DisplayLabel = 'ER48' - Alignment = taRightJustify - end - item - Name = 'Devoluciones_ENVIADO_RECT' - DataType = datFloat - DisplayLabel = 'ENVIADO_RECT' - Alignment = taRightJustify - ServerAutoRefresh = True - end - item - Name = 'Devoluciones_DIFERENCIA' - DataType = datFloat - DisplayLabel = 'DIFERENCIA' - Alignment = taRightJustify - ServerAutoRefresh = True - end> - Left = 48 - Top = 120 - end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 184 - end -end diff --git a/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.pas b/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.pas deleted file mode 100644 index e52bb6e..0000000 --- a/Varela/Varela/Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.pas +++ /dev/null @@ -1,51 +0,0 @@ -unit srvDevoluciones_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAScriptingProvider, uDABusinessProcessor, - uDAClasses, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TsrvDevoluciones } - TsrvDevoluciones = class(TDARemoteService, IsrvDevoluciones) - bpDevoluciones: TDABusinessProcessor; - bpDevolucionesAprobadas: TDABusinessProcessor; - bpDevolucionesPendientes: TDABusinessProcessor; - DABINAdapter: TDABINAdapter; - schDevoluciones: TDASchema; - DADataDictionary1: TDADataDictionary; - private - protected - { IsrvDevoluciones methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer; - -procedure Create_srvDevoluciones(out anInstance : IUnknown); -begin - anInstance := TsrvDevoluciones.Create(NIL); -end; - -{ srvDevoluciones } -initialization - TROClassFactory.Create('srvDevoluciones', Create_srvDevoluciones, TsrvDevoluciones_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.bdsproj b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.bdsproj deleted file mode 100644 index 3469638..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - FicherosEDI.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.cfg b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.cfg deleted file mode 100644 index 396e927..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dof b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dof deleted file mode 100644 index c912ddd..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dof +++ /dev/null @@ -1,474 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\..\..\Lib -Item1=..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlBPLOutput] -Count=2 -Item0=..\..\..\..\Output\Cliente -Item1=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\..\..\Lib -Item1=..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dpk b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dpk deleted file mode 100644 index 7b45b1e..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.dpk +++ /dev/null @@ -1,74 +0,0 @@ -package FicherosEDI; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - vcl, - rtl, - PluginSDK_D10R, - GUISDK_D10, - PNG_D10, - PngComponentsD10, - BaseD10, - JvWizardD10R, - dbrtl, - vclx, - dsnap, - adortl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - cxExportD10, - dxPSCoreD10, - dxComnD10, - vclactnband, - tb2k_D10, - tbx_D10, - JvCoreD10R, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R; - -contains - uPluginControllerFicherosEDI in 'uPluginControllerFicherosEDI.pas' {ModuleFicherosEDI: TModuleController}, - uAsistenteCargaFicheros in 'uAsistenteCargaFicheros.pas' {fAsistenteCargaFicheros}, - uSubirFicheros in 'uSubirFicheros.pas', - uCargarFicheros in 'uCargarFicheros.pas', - uEditorHistorialCargasEDI in 'uEditorHistorialCargasEDI.pas' {fEditorHistorialCargasEDI: TCustomEditor}, - uViewHistorialCargasEDI in 'uViewHistorialCargasEDI.pas' {frViewHistorialCargasEDI: TCustomView}, - uDataModuleFicherosEDI in 'uDataModuleFicherosEDI.pas' {dmFicherosEDI: TDAClientDataModule}, - schEDILogClient_Intf in '..\Reglas\schEDILogClient_Intf.pas', - uBizEDILog in '..\Reglas\uBizEDILog.pas', - schEDILogServer_Intf in '..\Reglas\schEDILogServer_Intf.pas'; - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.identcache b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.identcache deleted file mode 100644 index 41c8bfd..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.rc b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.res b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/FicherosEDI.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.ddp b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.dfm b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.dfm deleted file mode 100644 index f8be239..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.dfm +++ /dev/null @@ -1,2769 +0,0 @@ -object fAsistenteCargaFicheros: TfAsistenteCargaFicheros - Left = 494 - Top = 309 - ActiveControl = JvWizardWelcomePage1 - BorderStyle = bsDialog - Caption = 'Asistente para la carga de ficheros EDI' - ClientHeight = 399 - ClientWidth = 608 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - PixelsPerInch = 96 - TextHeight = 13 - object JvWizard1: TJvWizard - Left = 0 - Top = 0 - Width = 608 - Height = 399 - ActivePage = JvWizardWelcomePage1 - ButtonBarHeight = 42 - ButtonStart.Caption = 'To &Start Page' - ButtonStart.NumGlyphs = 1 - ButtonStart.Width = 85 - ButtonLast.Caption = 'To &Last Page' - ButtonLast.NumGlyphs = 1 - ButtonLast.Width = 85 - ButtonBack.Caption = '< &Atr'#225's' - ButtonBack.NumGlyphs = 1 - ButtonBack.Width = 75 - ButtonNext.Caption = '&Siguiente >' - ButtonNext.NumGlyphs = 1 - ButtonNext.Width = 75 - ButtonFinish.Caption = '&Finalizar' - ButtonFinish.NumGlyphs = 1 - ButtonFinish.Width = 75 - ButtonCancel.Caption = 'Cancelar' - ButtonCancel.NumGlyphs = 1 - ButtonCancel.ModalResult = 2 - ButtonCancel.Width = 75 - ButtonHelp.Caption = '&Ayuda' - ButtonHelp.NumGlyphs = 1 - ButtonHelp.Width = 75 - ShowRouteMap = False - OnFinishButtonClick = JvWizard1FinishButtonClick - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - DesignSize = ( - 608 - 399) - object JvWizardWelcomePage1: TJvWizardWelcomePage - Header.Height = 80 - Header.Title.Color = clNone - Header.Title.Text = 'Carga de datos de ficheros EDI' - Header.Title.Anchors = [akLeft, akTop, akRight] - Header.Title.Font.Charset = DEFAULT_CHARSET - Header.Title.Font.Color = clWindowText - Header.Title.Font.Height = -19 - Header.Title.Font.Name = 'Tahoma' - Header.Title.Font.Style = [fsBold] - Header.Subtitle.Color = clNone - Header.Subtitle.Text = 'Bienvenido al asistente de carga de ficheros de datos EDI.' - Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] - Header.Subtitle.Font.Charset = DEFAULT_CHARSET - Header.Subtitle.Font.Color = clWindowText - Header.Subtitle.Font.Height = -13 - Header.Subtitle.Font.Name = 'Tahoma' - Header.Subtitle.Font.Style = [] - Header.ShowDivider = False - WaterMark.Image.Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D49484452000000A400 - 0002740803000000ABCA78750000000467414D410000AFC837058AE900000019 - 74455874536F6674776172650041646F626520496D616765526561647971C965 - 3C00000300504C5445D9E6FB7AA9F36DD1FF204AE7F5E696EAF1FEB0CBF782A8 - ED2253E9F2F6FF619AF344B9FEF5F9FF306AEDACEFFF4186F02C68EC4183F128 - 5AEB5A9BF47897CF8888AC9293CAB2CDF883ADF3DDE8FC173BE3377BEE3B81EF - C4D9F9ABC9F78FAED9F0CC55D2E1FA84B1F5E5EEFD2459EA5995F295B9F5CDDE - FAEAB017E6E6E67CA3EB3838433379EE7677AF6B6CC8C9DBF9C1D7F93B79F033 - B3FF61A0F6FBFDFF9CBDF6CACAD8EDF3FE90B6F5A1C0F797E5FF1538E2DADADD - 8DB4F5679DF2BCD2F999BCF692B5E6A8C7F7224FE755C3FFB9D1F9F9FBFFEFF5 - FF1C43E6BDD5F96CA0F283DBFF73A5F3A48E6189B1F5A1A2CB4789F1D6E5FB89 - B0EE3873EEA4C2F73371F04488F11B40E674A8F4E3EDFD1C47E74C8CF1A6C4F7 - 3373EF6FA1F3CBDDFABABAD4E1EBFD306EED4B538D5190F1336FEE92B8F5D4E3 - FB6995E2285EEA5491F29EC0F75B8AD74F8EF11430DE3E7CF0183EE567A5F6A0 - BDF2488CF298BAF62B64EB2C64ED5052B32C5EEBB3B3CC739CE04C90F389B4F5 - 2C6FEB508BE72458E73074ED1C4CE8C3FBFF245EED4E68B02863EA89B0F2A7A7 - D13775F05479C81434E0F1F1F12860ED76A6F32F64EC5494F2CFB2627CAFF570 - A4F35396F51E51E9E7F1FDD4D4E11843E69191A067A1F54F91F48567384B8AF1 - 5598F5CFE1FA5792F068A0F36663968DB2F28DB4F270A5F5E0EBFB2B61EC2864 - EEA4A4B94685F166A5E480A1D474A6F5E7EFFD6BA5F53C4788CCCCE2B8D1F750 - 94F5A7C8DA94A0B9CFDFFA1DA6FEB5D0F94B8EF4FDF9C3AEA6851B3EE35E96F1 - 5094F36BA2F42F6CEF2555E92F71EC96BCF594B7F22E74EBF9F9F992B8F26BA8 - F68CB2F5E2EDFB173DE3B5D0F7AEC9F7FFFFFF1D45E5C1C1D08183C1265BE8AB - B0D68CB8F52D6BEF488CF5478AF56DA4F45391F5BF870D72A2F386B7F0E2E2EB - 9ABAF6877C86265FE8D3E5FB1836E11D45E7356FED153DE44A8AF33475EDFDFD - FFFDFFFFFFFDFFD7E5FDB6CFF9FDFDFD6DA2F55DB4F26FC0F69AD7EF9ED5FDA6 - D7EBD7E9FBE5EDFBBFC3E0A2C4EBC2DFEFEDEDEE2F6FF1C7CFD7089CFF2553E7 - 6E9EF0B6CFF7585D9F570A585C000068FF4944415478DA9C9D0B5C8EF7FFFFDF - B7269548B753C826CDD9DA8C3692685F91219643D3886DAD259A464E992C879C - 8A2CAAA51921DF9C45DF21DF8528135F5B73D85862738859091559FABFDEEFCF - 75DDDDD9BE8FDFEFF7BFEEBAEFEBBAAFEBFE5CCFCFEB7DF87CAEB3E113C71B8E - 44FBD2633AE574226A1A1EA35EC47F739B12FD414DFF200C3F77FA99FAF1C8F0 - 98707AC3A9C889F0671ACCC79F1B8A4E13EDFFB9538E5B29263685FDD162B81F - 8DA01B8E37CC1762045A9DD649D6B4FDB49F94276F6F13AD347C22F349418211 - DFFF01368529C31F4209488D91C2F1F1C6E93704B3C829DDEFBF81F217454E45 - A7B9D6FB73DCE22632646EBF9E9F8ED8378295B9510792E2F69EA59C7E58D1A2 - D32202FFD689218921F78DD857B497CE3224002014C528C0F0983F96CE6DAA69 - F973A7162882611912752D2272D24028DD4F4AFC5B462E8E4C907FB4E8F92951 - CFBA8C2410E3F78DA037BFC34CA2914EFAEFCD955C7D96EE62E1A5A49BFBF7E6 - E10A97344C40925012AA7AAB3557D6F4D2719FA764F6748AA14EC305F2E59B49 - 37E6B6E839D289CDFD1C249BFBEC3E235CEA653B40F29752F6D45FEA9161054F - EE2BA2F994D3A9E91F4DC5966A50720275AEE695CA2701F9B37F6BD8DBAFC8E9 - F9D7F3902C241C63FE7038132B59EF6B81A4B07D90D2DC2D1D95503958DF77F4 - B33FB57E8314E6E94DED693243627ED1DEB44E775948470A8B637FA1B070C730 - 50C685B1AE70CBA6B99D48ECAD0C1EB3DDE9EF193552252F7FE9EA9FC63E79B7 - 2994FC85ECFFC84B81378FE0656A2979859A9250E267624A65219A422B130D2B - 6E9C1DB10F90EC92B41948716102E67823268E4B51C62786FC594AE8F473A7E1 - 74AB3547B86E122E4EBD914E5AEB09A7616EEA440249BF2C993BFCBBE16F3829 - 48938E37D827E3D89A30E47770CA915CB2FCC75E6DCF4A72DC38B97231143E7B - 2B342CB58F9B680F56A84990935494FFA11B9C9351B8C4B7B208918952E959C7 - 59E934E7092EBD148CB42426B7DF224D4913A6A372B9BD6C6E5E45CF347F13A5 - 0609A18B4EDF3AFBE67E40B28E13ED4B3785952E99B709F60853D14E123D0C39 - 34532099F2D648D21C87CCB5D41353D1699501C686EB4A2E222819935B3D63A4 - 9306694EB94FF9249CF2682B7FAA0BD997D8DA34F62763278E9A799B26EA2FFB - 38A2894B80AD32A699923DD388DDE656DAF6E7031A7C62F322D337A7C50E2648 - 49949C60469839651D250139404929432C5D8C37ACD807CA22629F6C0A47749C - B8C471E226C2DF8D79B409A6DF2441246BFA439C52D99BA4B263FF426912571F - C6920E594A2F0B6449CA1BE4A4412A29C52711172F8867499A23AD64A70B8957 - 4718FA8EE0E01E4B3F19DD2024EA242AD22621855F120248F925522527081E8E - B6220DF3BFC0D552EE4D1346BABBD49195A4CFFDFAFDBC5D77CA1B245A2A6B17 - 6D8A8D96A4C749C82465ECE4133FB2929281D8DC80D400D5075A08D614490959 - 53ECBD2C93742979F82F42D61D4ECF18F0B366EEC93368C9DCBCCEDB9F33B74A - E64570396644784BF10AB362E608AA03D9DD5B83D4FF58D6258E5296266509DA - DD7D2334C65A4833FB3E378CDD3E9685DCD767E93C8A4DA4AE6FFA96E890266B - 93A6E42F39685FD3FD4A4608E5765DC9744E411C379DF6B1B985512454EF6C74 - 1583C2080DFBBD193182F675D6A4FC1B25FF823B966EB7EA04484E4174D3EBCD - A75E9DB793290999302557BFE91A89824B688472CABD23F752E1E41384E82681 - CC2137E270AE2DDD278341918AA4C68E612ABE9765EE1B7174C0D156B75B298B - FC2576F63EE7AA889CDB6523867EBD749EF5624AFC65890649BA5B3ACAFF3E4A - EBB337D2D86921450EA70886646BEF1D491514EA27E6E6E0469A0C77A45D19F8 - 9D7565DDD52A3563B424047377EEA442876A5DE7BF5A1B880425877E0D9F9C9C - 48C7BF9E3B3CD57FA452D22F565C4937F7DEC82CBF3B1E0BFDB00EEA8C82D3B6 - EF4DF31F44B48795E48C2B695229C98CF83743E5B47E43734A5A16047B73556F - B7BA1DFBC65EE4CA3A62EE1DA9BF99AC0DC87DC64E4BE7BD4C931301F973BF45 - 646ABD4D6AB24F368D498F5C18B9D0AF8400797B466CCE5E2A1BC34AF6E5D4AB - E2264E09094462466BA24AD2FD9229F778B0B9E770F074E6C5D8E2FF537CB347 - C2DCC490B18993136F7E36F7E7EA1CCDDCFBB41097DE2415F52B33A6AFD9432D - 293C82ECA815F997D98DDC3B8842DFD294C4FC4E4B63D099029FB5BE02A5A644 - 3957360C7DB65C7C5D622C61AFA456B73181EAFE7D46D7BF1D8BA5A064327CF2 - E557DC136FF63A9F5B52C04A7296D083477A6A88EEA904C8A37E80243B78FDED - 9CBDAC2419AEFB83716F2C208F5F17632BCA363749975269C9CE3357BA4230C6 - 887D763CA3951213990AD1C2A148DC5DDDCB891806C7E4C87E396C6E2A23403A - 2E9A7C22B545D24B2D4BEC724C4A6A06F7F30764BFD931E903DED973D40FAB88 - 4EBDCDB1B99D03E7A6A16F5A1F1407C83B271D89952485685213C3AD2C5192F6 - B05743CA1147CBECD4EC569D16D1DEB2898C279465134983952546EE2D4BC1C7 - 807D626E2879E260AF452D4B3AFBD3A750D12FDDE4917E686268F50BAEB426BC - 2F20C5DE287DE8C4B11BC91729A888AB1C6B410CE9D5DA5A23D431C5E42CA5F4 - 2DF7B4944E256CA320D9E2ADFCD38666621D584BED9036140BA4F11CF6893252 - 4ABE42EE9F31A45D2B49E7FB4628CC1B8E1823FFA2B10131E9F5E17E47397264 - 05889C41BEC479129465294A49AFD6F51AB4E1B9379FB4BFDAFEE693064FDAFF - C21194A4D2EEDCA6D3C88FC3FBCD663345AA56B755BE9454C45D2370F108F36A - A31CDB47CB92E7745A6AB3EE15A283492F1DF5B243670D1D3A90A58B5FA295F1 - 472F675353571A7092FA6A4EC922F897B55A45130DD7FB7027E0B645FA80938E - 13AD5BDF02E3CD3635218957DBD7143919E86A0371CDD546868C117B73E7F9CD - 08DDDE805063D0AECC0E72029EF9444A1A4A29627B869CF7B26F6EF38248860C - 9CE88485E095C084B5E143FEC831FD66BB52FDBE27FB1EA5A27B44CBF9878176 - 36EEFBC8D0DAA968935D592C65452E75A46098B9CD7F5EFFCFFA442C707565E2 - 4D4CDEACB4AE5C4D46C9E77BC8E3FD39CBEE35BBB71C26B4537EA720D11946CA - C844D6C08B32795CD06FB3AD29BA9928E940CD7F9C52F1347FF98C91DCEB0CF3 - 6321FDB8B9664BA0AB06C847B680642504720607456F28098F8B252394B4F9D4 - BAB5E15CCDEB6818266381C4AB0DC078D5E9167BA6E44A4809AF66B78E8E008A - E6988199102C13940C3AD42E4D90791C1F7007A1142563EFE436FF717E4A72F8 - F2196513F3C435186E84DABBD087C606B8D2BF8916092456D0F93605A68434ED - 70CAD01AF976680A827F4D384386249EEB01C2C4C941F2413545ED2584A2D9DE - 3108BD48D9C0898886D73064995D200C1A8809700DC5BB002292CAD437291236 - 50F2CEC9790F87B85DF9B1E6ABA345410B91059C3448C8284AF6419F368BEA1F - 24EFA7035A2EBB476A0581C959FBB60012943F45C7745A4ADF65B536D47C9FAC - 472830130CECA13775C883E755122A49A6202EA24CCA01276002C1247FA461F2 - 474A600A5B3F3A2219908BEF2ECAA5E29B9F3D2D0A9A816497C78C6A1F0DBFF7 - E1F0DDC9904ACA65BC06ACE2A4F7D4B580DC943934361ADE403611ADA996116A - 42557CD6186E52B45F16518A37F5250FCEE6C9284169C96EA9EB68F602A99491 - 799B2B42C904489BC04594FB4E3D635151506764E93CC9079210240FF4A14DB1 - 593A244247153F23D92AD004895C7FBD24E22E6C1C542B25586A5E3FD783954C - 2A3142C9459CC496D1BD663C8B48A30C6446DDDEA44FC888B23643BA754F6FC4 - 9009AD17AD8CE83C94CD4D7DF2B4C40521F3E093B777D29313802489EF0829FF - D9416F2B86442E8F6697F59D81E6AB6E0B1C940CEFAC79BDE6567444925212A6 - 58C6889A90CADE089EDBB039C1E8A40CAF0D626DA5E4FC9CD83B44F35F6BBDA8 - 65F8F2406E81F3A86EE06C82B9FFCDA36C6F767C1E9FBD01C93C8B1BE6D86427 - AAFF9DE7DAEF29F9843BD109F713E48E37778C51E27F7A186EB62E4416822CDE - 31D3B87F4FC6F06654ABA51E3D2988468C059A10954B927119390D989FDE6848 - 4288CFE4B7171DCD8F98814E619E7F511EDC519313E97A538A45BA828414F9C2 - 38625F73D22053CA18D271219D33249F103A88AE30AB2D089E5973AB90D28D90 - 5294449F720EEFBF6CC6522B4C81232DD053142F3372D782828CCBE6A40372DB - 1EB7F15930F7512F300292CDAD5B9C373AD8274D9054A444E85D08C8D69C0163 - 8DE9B426D2AFDFF701F8D5EFCDDDABC5124A4F2CCB90E9C61248E94D4F89436F - CEB23925C96C75E59B7682A5B2269900034D1E490C7966F11D1A7FF0CBA93D8E - 7AD10C31771FD241D9250572C07C1D92FB42189492E23950F2DFBE33DA9FA300 - 9EF13B35FF9D5F582435C01D2C3DCEF59882A66137E95292E42111D2AE4C4BEA - A601B20AA4D6B560259D684DF7338BBD88426E4FAD78CA90B235C574C83F4279 - 79A25212D31C9FE88BE7B3C137CC164814099FAC7FD0172E19C084402421645A - 2C974AF41A9DFB8A68372B398043879C202747B99ED29F83D4181524F1EE9735 - DD0F26015294D47C52995AC364259BD2CC432D761FF45E7468B06A1A41B941F9 - 643F761C86FC900C02E993615A1FE38AC96B1EA58B92E8A37057DEA9680EC738 - 27F5E4997F91B276D021E7A4D73F78C63B0A4A9E5B7CB7815F895D2043B2C5C5 - D4791C37BC797087CE0595F9B91320113AAED072408052129D147AFF50E7920F - D7070D61B0A8102E372184749F80943D7E68164DBB036F48128294E81FDC6BA6 - 49191DF1574A4D49099C7BAEE8970DB81E1C752F901E3B3D8C6F904F9C833675 - BCDC51792532395B9B62B306B87BA6DB79FBDE6525D3BDB2F29BDD3B5C180548 - F66EC4CDBF034B3E34D010A5A24FC6E60909A4287DF284F2A133628737E57529 - EF7170A34324ED7872D0DF8B598616911744F2A0C5807CAC940C5F4E428924D4 - 477F210395650D3874E2564EFA6E775692BCA2F176382035402067932B52FD41 - 97EF13296373E2E4099B1F862484B84DE6B109ACA53B47480B8A26A306C95EED - 5AC41249FB04C2B2BFFA264FCC8E90D0C614945CECD5F3C2E33ECFC21A503E20 - 798F982C2784AC2420E9490B0A2A4BBF2BF696AEAB436A40AA826CE6848E1A7A - 1CD5D031A1D1C32DE3891A25E26DCBE4096E53A7211951500BE22C5471D05B20 - FD90F9600B22363904859A7620326394FEA6163545C01C70CE6F8B37260E4E69 - 70029103A7E44EC665DDE8977941F4CC9FB4082297A9747730895752B3349392 - E8B61F6A81E0BE376173E2F8468953692DBCC7EA3135B2583B756D6E7351F2B5 - 5BD112DF02C91BEBF75C594DD28D6EE697226899C89BCCCBA133869EC32D97A8 - 9E74B6CF5D6F3439EC94BCC38E3A5EC61673C7CBB2A33185760E40E050F26E5F - 81C416503E9B9B0C7EEC3831DCE50D7A96BC6773E2D4B59CE6881ED396F15629 - B969FE6EB9087086CCC1AA14E480A37EE9454E685E9BDD6BE694AFC9A99A733B - D535D787E8882CD9450D73CF3F13E5DD930A77042F1ECC4A96CD905DA1A4103B - B292DC83B0DBED1B6452125A364B8B0FE5E88EA568519221B1E591D0E869CA78 - 181C42E21F5A5E11732355E62848096F40527ECC32D9619EDF4CEC4DA47731CB - 48EBC94543620E6DBF3B47A1E4C7803C2BED227C52B5F0DA9E50919221A1E4DA - 023889E694E9F9313143FD5849CE92A494ACCED8FCD48AEE1369886465456BA7 - FAA39D9CFC1A71FBAD20399F73875A8E35E4379B938E9454A449191D11ADFA2F - 3C615C76CF5536AF07A0FF234A9E3D3805E646BB6C27066348A8283B49885BC5 - 432DFCEC5C0A92EF9E90A611E6FE10EB3178236849F964F1C2EA8CB4FB56F046 - A26E853C424DB8BA889C3E1641AFDDC29292CE4999420681CD8777E6CB3685BC - 784CCD6DC62D53BAB2B66FD03AEF9E675775FD124A22BCCB389F6BFB3F1913DD - 1C241936A8E4FFDD1AA4AB0B5661F0432A6399397012C75810DD6FF21874ACE2 - E326F715A5BF0F7DF93D22E75E32EDAE85CC7795C321F9AEB03D6723BAF79734 - D9CC49DB4D3180E6FBAEFD582999DCE3287991F4E8A5E3A940D18350F14B4209 - A794B5F85DE266D10F0D38E2860B11C8C7886AABC73DCFF6A40B8FAD18F57E48 - DA3FB1E0647AADA00C4EE9CD7B5D3976480B7279F985BB4A46AA43889C90A5ED - 4A91F2B34B5CE96C93A6B0E151BF92E8E5A47AC81A61A0C40D0BEE52004AE473 - 05F9247E2819FE43626D2EA478012B091DADBA5DC08B2EB0BDEF37E1E30C3E30 - 77413328694C51520E10BFD6109036E17BCF536212EECAC7F1061CE5F2034BEF - F74CEFF5CFA8C568F4901996079A0885124906FD0B6273C329059257E242775B - 30248C82420EBA8454BF7B9FE08FC48CF27ED68AA7B1A5F44EF5648767ADA722 - 146E1CD4B424A526273357D2FEF363F42368A879BE944C26253FEBF11DD17B0B - BB2C9696397C79999D0993759C114B59BC1892399B0CF12D2B71697F55948C49 - 57852CAC7E172EC95143D051199C84D2872C82C8E1D93D122925BE071CAD239B - 501243B2823C5E24FD0A85A8941CB2F6AA1F157659DC83B70E90FC03636768F6 - 4EE1D1A6AEF9ACE45A224E422C258992C490CDB8D142E8374A06E4FD67362CA1 - 94CD7AC22F05124EF91A4DE5260749E8A46E70AA45454E134C043A6472C59F06 - AE18193274FA2F7EF987A794F9C98616677E6C03CD8086BC50AC9D04F709DFB5 - 052DEE5259BA6E6F0519C3C53DB1B5F1EB17C29056DD988E74CAC73D0B557873 - E0C05740E96ECBF6D682C74C50185EF28DB82A629E285DB7359DEC0BC8C479E9 - 94413BD02E121A4624AA194D75C78C25C98403C4275B3814703A473E47F54AFC - D27F8792482154FF518B20978FE95D6C57D874130114687E3D5652458EDE7A6B - 52A29E26B36BA88C99AEA74F9D906504A54D904BB6733AB58FDBB178376FFD83 - 727919FC90F768CF48411EE476EF09FA5AE8CBDC55E63ED48021C9437C92953C - E14BEC93F7ADA2B76A4652941C3AF79B306464F16B059266B9D15106D792FA80 - DA94A4483546FCE36BC5789010DD2648521BD6CBB9E354C6BE191B4D5A93429F - DD6DE1401CDE881CACC4C5837619FCA5C6B28593F86EE474AB0A5793FD1833BF - 9E64217F9F8C73C4BF25DEFCD6A414C71439C9F4F7FCA0843CF9C8D6863E1BB3 - D50C92B58C88FE23764653367B04E4FC3A9DF75FA4ABCE5432DC4A4112792848 - 2D4D72DCC4A7EA1E99EF2AB9B2A21E5193EA1D14C590B4B3C4E494FA506BF1BF - 8324457990CED4BB0425FDDECB29F0E68EB72402E9940093870863BA72496A71 - 579C5F4989EDDA6B0209466225E9DDFB3D55D9DAFEB80BACEB595AB580761059 - 44829221C9FB20B63A0F0D3669499A733E0F39409B8BB071EFBCB038AFA72879 - D75B5A130E9D3F9A42CCA6DAD26C6DF8245A1C76CADDBC3D004CF1490BA92E42 - 3FA8458FB4FBF4CC5521CAE152D931975FAF89B48C510B8354C308C847834FEA - 628ABD6B21EB709A201F9D706F11D4A28A7448DBA762EEBA03439E80B55D8A49 - 2099D2B66FF7E31EA9B59030F7C5E956DD948E02C86F01A9F9546F15FDE24319 - E78A6B7A1424ABF87E64CB8DA38954E7D4234937BD2E24AC1D387ADDBBFF1A7D - DCEFBD1D77932BFA92C7C2BF87F4E58DA9BBAA23245ED91D9B810C89820E6133 - ACB8C7CB1112367A2261CC7C64A47ACF8C843E46941639626F77B27DA4BBA64A - 32EAE3A816EC9AC23C1CC2A227E04E1F0FBA8AA90C40EE766F405AF364EAD571 - 9684D71D24A5A448C994669098CB4D7709AA93AE676149CE6C159B8AB885881C - C9E7BC65C53F47F4B09A27FB3E2787C9FCA62FC0C8ABE69EDA2FE4D1EABDAE53 - 9277CB7E14E9839A30D15271F872975793520C3E58999B4D72F2A02FADFD982E - 86D9C0DCB78F6B42C2DCEDA5A9332209717C1753BD66D13A24F4197CF211FBF6 - F3A48A50D7D1F611D9224B5260E2A0AB1E74FC97285652B6ABB97F073A644C7C - F28A9EB0B5399F9B206D1FCD504A0E385A1FE638C80D8E2889A5EFB6200D5325 - 23A334DF512A9D0B23029C68D121923421947F1555419E70B7652189CD0DC88C - AE5F4ED53B8B9A5B3222B720E29230360350999FEF6EF713EE8395B99592F6DB - E0936B152384F438AEAD430C0E7B535786147BEF26DFDDD99E889D472710E6B0 - 26374027FBFE3D25AA01BF00657AA3C4418E44ADDEDBE16082549B1DAED229D1 - 730CB5D020D3C52969066193F61F922216C5A3E9CE7839CC55B5B960E4BF56EA - E800E21B3DDF7FA2BBE6E0A0F584D4BE4B084A07B9F939D9F7D0605DCF5A561E - 43F6E1D1C094832D7A7C976EA6A4C418E0F249C9C8948780218C0E5A030CC8E6 - BC73E01FAA1F45DC2A3A4BC8A0240FF9D171E930F8F1EEADF716B2BD91CEA1A4 - 5FFA6EDE1D05460E72CE652709902795A0F27A0464E2E943B67D0F9D60D7F00D - 7A9638EF3631E414F2D6FA8A6AD0BA78AC648B6CD9D3CB90AC64B627B9370F10 - 2551D489ECBBFDBE4FBCB835FF2AF9DD8684B47334F1C771B5C31425BCB7F09F - 193E1CDED802F6F3A5D078F14C21E5E03949E054A104EB1F1A0C66E28CAF84CC - 8EDFCD6DC5770C49131CB0ED6F6BEA91EA9D4E4984E85E102D886248767E3348 - F80DFA409CCBC5DA1E267F3ACE9EA9ECED2A901C392E5383928D25BB7DA59EE2 - 35880C7AC48A3227DE8597691F0D9EEFAE3352D0B3D0ADB729B55DFBC35F62B3 - 9ACCA5D41A8001B590A45A6FDF50F2DC934A0C8924D122F46E3F05497F61E46C - 991F470B23BB6A4EE9C7BBCF2985A3472DE8CD8C9C360FF2986DEDBFED41F713 - BC50763CB1082F73D9E19423FBF60E0DD6959C89D64775E9E0751AA438E56E5F - 638ABBEC33FF07FBB62FF9F52BBE1419769563C6A30EA516E18591A08C5AF065 - B1430EC796D292C564086FE121389F883A98DB6A9156458D2F84A4B5213F6EBD - 9D1A40AD96442DE6ADAC937D39188E52E4F1A34A46511271C38C5AE464EF8EDF - FD8E32F7A113ECD74893DECF5CCD8CAD30E9B8A2CC8F5B88F88EA2E2D772D219 - 8ED74B262DB92F7042995E3F02C48780C4D69EE46B447F6BEDC7177D3C2835E0 - C6E1A8BBE34ADD4F2CE25E94B4F6F933B526EA10746CB1206A0129A71CE7191A - 1F1A3F213509908790C5B291818AC7D0567A0E52A9E9275968D5C27FAAF82EA3 - 74E32E4FEEFD42A250D69259B5833FFA603EE10BE1FD1A25023295026EA01BC4 - 5B30D243A1A391C725190D50791FE1B580B897C06D4E83780AF50C5C22E6E600 - 845F57AF1F5362E692BB469930594A6433234576E50D1DEEAE49BB9E25C75950 - 5B8ADFAD336942D602B23BC2854B90816A954C46D52455F2707480F22AA48445 - 4F685DD4828B5D45CA32699B43BB064349AB47F06D5F3F6A943C2672ABB990A9 - 019ABDA5A391AFE573A5248BC7AB36A24FBA3BF03DE4A35AB03A82926FE8562C - 939D44ACE435A280E3DC0DCA2EE56679B0F9821CBF8B387C89B40E97EC26CEFE - 8995FC1315F7357AF5A38F2FFE8DB585D2E3380C7E76958AEFD72847EB154BCC - 2061FA1AE54883C93FCD87C092D078327A0527D93D13C8A45C98DBA19BE7EEEC - E59CA79492B59050922E126F0690888142F9440B83D56C4F56D27971F5C5AD62 - 6D515053528DAB6C094A7FB5CDD8AC30984F6F114AF66D7E91CA9CD944705212 - 2FC507F90A7A36E99044ED3276204100F2D1E077F6A83589B9916217C5FBD926 - 316457A5245386761525B1B9E2EBE9475B48571264A96830E1963226947EE92F - 13ADE21F7C79AEC7ADE8EC24EEB82BF1C4F4EF793219A6F893B2D5CAB9F6BC8C - 5F7A76523F745FAE5E4BA25C6EBC15A42D6B7968C9BCC1B2B584166A916F5207 - 5A30288E2145493BF8A52879D47DD1D65D4964BBBEDABBA7A62462507F0BD021 - 39BEB9EFCA3D212A280BDE568635073307CBE7194AB4B564B746493A232BCCA9 - 3489EC5CBE1FB2D63115BF6887C6BB2C1D4D893BE74A6E4085114212432EB848 - 61712A7268DCB6719ED93F71E01CCD2686ECB020E3652D6E141B5A23734AEA5E - 514F94644B50B7243B7026FB5130240D0627B742A142154A5BDF237CEECEDE0A - 7F3496407448B9968A17CCBB9D6A5212959ABF683E25050F962E2938D13607EE - DAD602CD1EC569F6161D1038DB0C4703691749F085B9DED6119955A929F6D6B2 - 50BD2670CAEA2840524E3FBCF8F82C6A0BFB1ADF8364A34A388E8CBB46956092 - 33294F78424639EFFBFBD292AB73F0992BD97CD47B9EE81BA1A51A7C28698FC8 - 693B7BFE225F862450EE581075D705111AECE93760DB38866446F481DE7D7C5E - 33B6D9208222671E6748697428CA814F1F2928EB97234BA8E321C1ACE52E1AC5 - 84BB3C435944E44780FAD995D9B9E42075B7BA54E2E82690C8E6E3A4B3381F09 - DD7DF923624C779A7F22DBF7027720AEB637498934727BDCC3038605149F9DE4 - 685D9CF86EC955F2A86584FBE04F4039B10BA5DA6864AF442DEDC65DC891C336 - 8A335D621A72669BBC92A793ECC625A13A1081E6DDDE78914E40499A5246C1DC - D55B3E9BE60FE68D203E0E0F213DD716D398B0AB195A7CE7F4A31CBB97A9D143 - 40FA12626F213615B109528B9814544F83D4A5C45821B6C7A2E0143D72FA1534 - BA213A72415C631153814AF0C807B2463FB9D2E89C21794C090267DB38405A7C - F4084BEE569004D704E6224EFC106B0C11A4A4C3CAF78B1E96F12E1583110562 - E6424E939A9049C1CFEA25050D1E4541C9C1664A2A46920311F8B98B38262455 - 764742E24AE9A9881A3FE092A41E8E4EB7EE185849377756326E075D09D6B639 - 69397A4D8B3886163124C4FAD187DAEBA1C306EB79609840C22543A8FAA20F71 - DBEA164C5EA38292110FBBE850F2AE2C15421C3BED89EA35A21D68BFA9A68776 - C5C8ADD62868561E846593235B046B7E02530024C9EE63755E0D2BE90CC829E3 - 34C8A4E0DDBADF37FF9D2565251BE7A197C3FDC58CAE175F89BCDD838A9C7244 - 493E756E569E06C93A7AC92FAB1892284B0B1F0EF1F6AE6765F71A597CD4A388 - E83E97014A2525FE1931C914728C8869BB3267D4A3A82C19EEE4289014DE1509 - A21B287DDFFC6E375C911423F73AFF4D0B80D15EB337DDA647FD2AC4DC7EB356 - CCCA43BB2E9D1494BC2BCB4B416EB3CCF2AA3AC62B6C582EC992BB198D76A0FD - 4EFEC86087AED41DEA71EB0EB56C0DA323D8A9400B216D9098726E9DE3DCFA5C - 135A19B9C0BBA732371265708F1C32195CEB88ECE6D038D78AA31B4AAA844E95 - 4EA441D2ACB4FBEBABC794214DA249E88FCCB78D28DA6ECABA4FABC6EDAA1A27 - D1A320B1016EE43D190B836AF0CB1A835DD96BE75ADEE9C1FEDDEF56A1CE56FB - 0E81D977CF91811C16BCEBBC3C2963C509DA4E87A36EF7E8B3229846BDE76B02 - 65C8C62BFA7D4C83AEA2298757322487A8053D84B945C8853406C1CD421208D1 - 17E1A18C222C476D3BC68E16A01AF0EE1546C48E051FFEAEA156956034508DA1 - A6E513A71C472738909934B3BE74E9B382B378511996584FD558BB9BFB2C9FE0 - 000EEF1E39B31E8CDA556A2F1B2102C9B1467BD074935CD218C73B2340D92313 - C16898EC3C6A45A364AA7ED7198D22B2AD304E59C7A72B4C5937059D788E8760 - A52420EB35B2F827EF2DFC8895C48B57D0C4E95C13B9ACD474659A5DB3517939 - E478A35F91D3B956C5356448669FF7786508A94409EB3C120B8D7A8F0413428E - 42A3D2E17692EC8B819487DFEDB2906327B37C583694DC352A2FA49AE0D7B0B6 - 06C987FEA744E7BAF1FE62A654A1D32ADD8F77A1FBBF536D01483EE9D8901CE4 - 701BB808F61CC7FB78BF758FC82507747D10F17DF28AEEC32D1C167ED46A81C5 - 9E977D3CAE375CA1433669308A1E88C1D1C9933FBA3B8BF62CA04172E2B926E5 - C28FD6F3215243CC13BA812E107C01C19DB46B94FB9468BB59114D66ADA0FBF0 - 395022CC25C6DB89AFD858F19108AA0E5E1F8912226FAF8F2CAE59FF116683F0 - 1CDE1A3C9193BDFBE5D8F6E013A7CE610DDCC3AE2604E6B524F7592B24722C3E - 6AE2BF62D68A16BEC853BB8573F7A48D77397E2F8609E4716E1A89B5788C0D00 - 435AD10D47891B6E6F92685755F412DE63386FC98A59111B3ED8F0A1DDA7A310 - E6A4BC126DA33172016721B638180DC9605546A71EE79031F8523B5227B83B15 - C16731DE0AB5A9A63151803C51E2D94883247F42EC348667CA8F1BD383A45994 - 9074515D8078836417195633E1B7B6D58625280CED0DCD1397DC46D15F796D9E - D0369A41276C8EA079CE85D092BD72D7286E752E5845CA56230A828C1F899E48 - 490011CC26EADA4A94799F3DD5FA3610F91B76A7ABD756661BE720BCE3BAE66D - 82E8FE0C49242DD32C7A80D1842462B1DC72757B33247E0CC8FB28A8FADD486C - BA53D2B625F39C394D6E9EB0D9C1AB6D523094BC3F0F7E29CD233B349210F732 - F8F7910BA21612430291228B415A695D29748437BC401DF211A11EF451D2BBD5 - 6557AF9D5F36E544A3E076ED11DED4846ECC6230FC3F6021894F4BBF9F24E606 - E571EE65E0BBC99502C9A5ADF7A58E68B961EDD5AB68FA8F39D7266C56AF0814 - 3685C64923CE907E01B31F23BE05B21A4DCF7A14C1EF22692B484BCC66B01348 - 0EADF508B26A0BB8A4F73328E99859E23913902494FE0F0E0C63BA07AAA16F5C - 07925365860F053FE6C0590244AA1E13B5351DDB72BBAA9CA7D38FB4B9DD83C6 - 0F5E79119FFDE8158479C4B8A07A1A647EFC34348D633857566BFF24728A93B2 - CD5BDDA6262B31D264652492317F0FC8313BDE8D1A7AADFFB275259E3FD20DE3 - 3FE1947C9C8DA55C21828A92F709906C6EB75CB41CCA2B47633BC030930BAA7E - 97CE7070BBD32A2F3E3122E7A517335FB9FEA03127E3ACE953D69D6048A1CCA4 - D9561CABBBF90D6528A12C6A696BD3B97823CFC49263C80290E71784AF9BD3BD - 5D7B345BB00C36E487293C7575471AD132D221D929791B9A2655B2922BA14235 - B62CD0DBDBB59A664524BDA2D6F1E32B2FFEFA2367A917EDE884EA0D89BD695A - 238C4F68EE7E824F2AD418F52172A1247AA80955D74BC8F0127B36D34398FB7C - C28475AF36CABD614702C92980F1F874D9BC3E69E49FB0BE5A20D17F17256901 - ED400FF198A10933D29887BF20B8B7D1BA1F51EEAFB2BE17F9E3450EA215449F - 8E0AD6B25066EA5902E5049F3C72AFCE73E7C0355182178B21E6E5C51622417C - E7C42A7AB8064A667A1CAFD76819F5F2F7E17CAEB38990094DE8BEA8E548A2A4 - 64A1053BC6D4B3AC02A4349C51A8005B1B0E99C94A7A1CF738EE60F9ABC377FD - 14E494EC64D580B3535AD567A21D797D680C52E698DD1219E2A07BFEB55E5C93 - 234999FA449F313BF26815D1D36EE8042D9B12D31B4A92B17A377DA49DCE2396 - 16416153569237D728975AB1945DC75855910E494FCF33E4947599D75FE2651C - A8B8FCDE9BF4DD83A139FD187A0A67214E957E5BC65F202B78D974A4813E6171 - A44E22258B3D3E6471C25DC5BA202A8D51891D61F158C1C335CBDDB6B59D42EB - DC738FB3535AE894A49FB94F80F48D8292AFC054B99CEFE216FEF36294757516 - 435663C3823390D76AC44D0E203D2E17927361437A82BCBE991E5876718B9054 - D910F9FC6E28052CB8DF8826A439BCC559CA670C1699FE3B10ABC3E2CD4C2F94 - 7C466CC666B40A1614950A25B70F81B90119971C07E9676A7C3A27AD24867493 - 3E7300CD0EE5ED53584D20E13113F3D27F8FDD3568C8AC76F4124CFDCD90AC3F - E9853FF98458EE146E5E31059E9194CB3E793714A1438D4006C7DCDCE626D211 - 387684C5B1E955FE54B1BE870F57C0DBB1D8B7C5F7A7E6D1EDDB834E85D3BADF - 8EB56B1FB74029B97226032688A22B3F6AB292F67DC101FC90A5E49E8291A87E - 074A10C835D58B53D1E3F55A3D8BE61F77E848F40D0191FF861CA7EB2FBDB899 - 3C0F586625CD286F388A765268406A9FB553373D6C3471CBF86163B48BC9E0A1 - 6376F08BEDABE56F02392A6351DDE6A7A96BADBE1D9D7AFEE1374362BCD0A3B4 - A9BF839D987DB7099F78464CCB2E7900906ECCC8F696FD115DAF6411204FAC9A - B8D6EA3CFD5EDEBF21F53FED5338E4F275A23F5FC07F432A6FC821BE79C28B9F - 57714247E8EC0C4DCF9CFD78EA96FB9D8BC5EDF46147D84DDA416137594F3827 - BBA82FBE8CC3D70F3BFF6445DF86DEBE3ECCFD9B21A2247D322C2C9E66020B70 - F7D7CF5C8971BCC1F11687C2DC0F9553B6A7F850A3EC556B120A299E12C7CDB6 - E0CDFD89CA9D0B9DAF9BD6DD40E5A12C2A44378358C91630F8ECE557D672B6A4 - 878D9E5A49CB2331D2262EE3DB81C3D8C240DE5D2D8472FAE1DA35B3BBC19FEC - DA7DD3F0F4BD6301ADF23FD944D3DDD51A04144AAEE4089EF845FCD039A4A494 - F6AD7A67029518CE539FB0E2281A8AB8A90ACEA109DF0C39F9E0051DF1CF1718 - 92AEF7CB795C68C99B8E01BB6A1424CD864B4F4CA1FA168AAF564EC4FDF455E2 - A3199BDB14570B640A2D4F4DBF9664D76E78ECC179DD038E675ED9D4265EFB8D - 9251184329282C7E3994CCF6793833003939946CDEBA9F506298FFD6B7C5E353 - 2A4E8D4EEDBFEE47847639167E81BEF8E48B4F4C4A12847D5C4896A38203526D - 461FE7D021BAC2D70E9015D5EAA85FECD8C66F958CF314CF7C1A98C257A5A1E9 - EE3621EB8BFD2766924D6F764A189C74432B6B87DE849280CC30BA934A42F1A1 - EE09897E80ACB7E9C5204A5D5BDE9F8233A7B03FDAD0B24F6C96714E6D7EBD01 - 391403F2310924EFF3F6D8A920A903AB39710B211F3D9CBA65FCA689B4653C6D - A9061B42E5267211A668BC5CF002C8D4DBA95EF5E70FFFC46B914FEECED00B56 - D56DE22C42E3390DAD0CB55AA944859216433D3626A36F4CE8D2791C07644148 - C24DC3F9F48194B23C35DE10BBADE1849C370B5FF8B3B1D9365FF3DF9B131523 - C11F5BF16995962AEF86C6E703B2C3950ED50BEF376973819A8CA714ABF102B4 - A55A9DF96A513D7193054F8F97625296CFFEB6C5B5FEC197124286708F327376 - 20217478D75BA8E8395330436F2E26D7D1A92B7FE04342C101BC7D9A892881B9 - 6FD2C40E941A5F41FD1B1A5F71B8FEE70B36DC759AF5B98DA2042087F18BAF4C - A16CAA273ED9422E494C26CFF611CE4157DA7F75419684986BA782149A6A8829 - 8F09A9273A62395F0FE33A7A572F40CEE9BBC867467302E5A636C47C8F212340 - 8597686007D7D11B9333C8F86A23A4F39D2D3253BFA29BD6809C98C2C6D815BB - CDB9EA150FEEED30DE2CB9FB4D05D954BC74FDA58EC7D11DCA2AA4EC7A0DCB6D - 46EF9403FE72214E32BC60F9950EC99EFA855729ED06F2D826B2182F22A60476 - B892E2CC8B0EF5D8157BA27DE365FB1761D37B67E8634F40929089A02447846E - 4EEC80084E3A41044865B5E6CBE8A661FE40EA901C2490C1392F391436AEB0A1 - 59E8890AE4AC1515445E590DE8C54CCBE272E9A037AC614AD9498DADC0C2E557 - 52F88F24DE03539C0BAD687CB6E7169AF8A55CA2812D2472E6B37453E3C9107B - A2E317B4FF8BD73F1F05B79EDD6E206B194AF11A60BC08C96986CD4DBA94FD59 - C96364F1E5F241A5A377B9AD5EF60A95BF60B3AC0484B3F8972B584F50B2C125 - 76B2EBC98EC09D5CA4FDE16452E708AB379E9A4DCEB27FB23070CBF814721E78 - A4301052B2EAAEF6A5481F6D3B7E31A72FF72877E6CFC6224788D4E115256728 - 0D3C72319E7D32DB48AFC21358C9168FA8A41290F0B59D5C04ACED701D915D52 - 1B372B2A6C00F9E7909BE5DF5D9B9045BF6525B1117672CDED0F0F3A9C4CEA0A - 2C75195672D06CBEFE75B673D0B46E4C0A09793E5FB5B3934AEDFF91EAD5F2E0 - 1C7A70E51E52D96C42E8D01159094BC8FF18066607899295D6A09C9994BB73F4 - F147259504C8EC207225862C7BC3E1779898CC07B637B2A5F3B7802C1CB7EB50 - BD860448FB52661C749868500FF6B8D91C1B404C2E44734503BF0CCC862AF27B - F1DCF5F94AC9B757CE9965F4FE6D5CEEF1BBF9C861C46E29160F5590F03C15DD - 7C952F35CADD8506AED49A21B389210DE5FDDBD22B0C598772C5ACCFF9A3EBB7 - 774673D36899052177C92E207BA2D2FC41A3AD0292AD0268D0F8000925482BA8 - CB49F305664CDD52CA260564B3632564F4B67C2317B6F8488EF21DA95D555C18 - 430EFA07B93D3C85C94A4FB4DFA9013B1FA7CFBE640044D0A052860CDE39AEFC - BA8DCED8EE9A8214AFA4978AD9297F23E4737439788F05C4243A3C880E13CCAE - AEDE4BDE393A488E5A2ABB270B252F011DEDEF8F12256959C8B171C136D42233 - 7960B539E4CD3660CC0E824D0169596559E629F18DF6A0B20B43EE0423959FFF - 31E7ADF2EB9F9B10CD286DDA5D7C29AB71BF2C860423B4544BD97356C4AB3474 - 0B6C9F1AC0B8831874A7E286C08320388B2E6B58C04ACEFCD11D3908690C89D6 - 9C72209A802341AE2D3C1892AFB672A719E5013B1D2E7581923B697C3C8DDEF5 - 30B0D3E971176D4C3AF24B595C02BC61E175407E1E91CD9D1FA5A450F28FE171 - A0191F2FA8A0A2D1418394CBBADA031190BCACA1FC7CC27604E53BD60CD9E229 - 36A8A1A5408AFF0EE4080E72358C727BF803F7042C7E1B0745466D499F4D5012 - A1377A67C5B340AB3B3E22A4026C472CE60A3DA9230BF5CB2AB4ACCAA646E512 - DF9AC1954CF6F24FCA039047D90D985623E40A41C90FCA5EFDBC327E994FE119 - 045F3E67054F0BDDE483ABB937022547EF8ACD30CA444939324FC3922E0DCB0D - 9FB347A288871713EE747BE173331D59495193B5EC5A5EFC221A1D3EFAD148A4 - 44F0D893C6A108D5B4D009E161577B99CF8BC81A629FAD2C0164FF7BC7D0A8D9 - D368510FDD283E6C27DA1D8192C8F919C6F65718D22708B9A4B2B20B196E25C3 - 25A9C2ABCAD96AC2378014B876F8096BD92E6496406281AE8580A4DF0ED57B06 - 29B59DBCF64A24CD410557812AFDD8CAB2884096D3B68C9E28CED8FF5E763DB4 - BCF608B9D1A0AC3E22F61E7864603687071C2F403AFC1625E574AC61F9B288E8 - 64C3AD41E2D50F293D63D4B50A31B700AAE19A6EF17604A7A4AC0FB1F9578FE3 - 5B18EF3731212A8B97EAA4A5EA0B8D9E754497BFFF32399B2DA6F74C42E4404A - 6EA6807968A0C5218BEAC14706068F5ECFB5F9A08CCF87BD50E979E018359CFF - 6997204377D41B45947F40566F5DE404D4CEB45E66D5A56C7EBDEBB7E295C4F9 - 9C2949DB634EB5284A38327941ADCCBC8667E9F52F7ECE90F72CB31A528D50F2 - B9A974C8824907D3919D8034905B5B05892D55CB43F5967DBA9A00592A45787D - 509F38B8DB5D33A3E4813141F9C0E55B925479489CD2A0625CCC6E7FBF86CC81 - ED490B680D12F305D2B3FF62127373D82A974E325B11941416814C08B9606D59 - 382EA8D17C24335DC95E961D44C8E70849E54B091D4E4202A951828C6AE9F44F - 4DBF5A116B950C746CCC7679A7F2291A2E69B446C313F928DA11487964679282 - 8CDDD6B67D4248427FB22B642515A428D98BBABD59D8B8AEB5754CCEE80C494C - 890E5823D9D0D52C6EA8D1F434F1D419550752C425BDDAB6B309ED726DC58333 - 4FE132AA65454EDD2947FB82473323EB559EB4ADD9310A49F0AAA27B96879257 - ACDCDFD9D046AAF990023B395FFC7C45825EBEE9545495D1D1D1403E97F8A643 - 8DCA9FC9F6ACCA44BA739A90353A0E2AF942513E240AECFFFBAC76D7D22F155F - 183783347B1F1E2442066B87D705F2E1A96354622496327BF0BB4B3C08905CCD - 8783EBF77766B76E476A979A7632AA891206EF4ADFF6A324E7DF94BDB5414492 - 230835DAD127E5036A4481CB820F93777570B099D5EE52FC837B8F5354B2D533 - 16BBA61C7B923C3378D02939A2E95555E97998DA1C9F97A3201F92A7B3D55BD7 - 4CC6664C0FEDA43FD53CAEA8F8D385BEA56B0E94C2E776603B42625C6A58A3E4 - 348192C9CAFCA5760C84DCAA82AF7C71B3CB25EBCF2ED8FD96CBB9B649A92626 - 9176E8599A78AFFA761DD8A22117466F2ECFFE9A72FA19DA889034B86D27670D - D243CE410DFA89344E891D091D50727C2376EA91A2FCEF83494235943F23CFE0 - D03958F9A5258064A754AE615FBB0C871C20FB3704247A2221572C7E732E0CC0 - 66A1C15118A1E4DB17BF28514ACA29949DF9243165F26B7CA7A815D4AEC0E5DB - 0796C894A0AC47CFA8D1438EA0F2FF8956671C5CD5EDADB1ED6A21954FAB84A5 - B79DD24BF0AADF8B161B41E96551E2D0C5B8649E82647307D72F582C2E19F453 - 6DD9FA699E62F0072F74FDF6010DE5069C2D0EB702DE43317CB9B66BABF64DC8 - 1A965343350253550D43D3CD90F17995E5D85A3251EA2DAA8AC2F267835BB66F - 124EE97E460AB94ABFF1169F61DA2EAD9ACD2489B5336754A08AD258F219B9D0 - B696F4B8D05992A51A58CE679AA27CF45E5E0A4FC649D5E019B1433DF99C21DB - 246DA0A78754E3AA61EA42723A4DE2345952695D696DEC4FD6AF76BB4DA26479 - C35E966DAD9AD162B436D86EFAE9AF8C9A94E4C29044BF698CF59E7104917AE7 - 41D87456997C8665783930767956BEB81DBE7A1072EFDA536E5DCB6D0CE8F499 - F2AA2404047755DBD7A31912C9B1BF75C9106C1603B2BC616C90A77365D51E11 - 32D983BDB19F9C4245EC9AA63CB4427A191CE06809061FE2BE773D30C03DF920 - 4FED1B357CA8A08551BE65C8D5B3ACBB2DEE564E97ACFDAAA42D61838FDA6930 - 355A06D578266F6B66997593BA5CA236E45546532BAD0B0DF65CD4E02A67B497 - 8BDB5DEA82C006249F6E24A7D34049B9ABC025A8CF90BBEC1F943814979344CF - 60DDE8C9C1494108783E55A7AEAB603A496DF3620DC5F3BF591C9D1CF4A9F567 - 57CA3C0FF03ED986A63C50DB2E3DF31CF643FB04D93D9731D9CB27F34D6C7F1A - 1C5167AF51DB1AA29A0862B86467CDDCFD885A6D3751D2B51534EB33DE3DFDE2 - 6607829655E8ED0F1E255B6002318A829888C31ED3A0E68DC7E024C17F96CC07 - 2DBD32BACC5E8DA5AFC59C351696A3EFF050B5095053B6400D9C51CB9376D537 - 56BEEBA32091857EA7696B0C9CA7BC685076FF72786B172DB6FB694A086567DE - BC87962B00890E54CB6B0483F35C4BAA929311C7050916ED3AA4ED20E2DD31CF - 92B51D034C3B98AA9CBB385E4A288926FAF483F4E94357959E7C97FA059BD2D7 - A85D92F3910690054E758392AB3F25EBF41FE9C2876BE008F6A83AB264B1F5AB - 5F94B0B985B29FBAADDBED9CB1DBC76ED7E21BB95220AD8CA5AFD201293ADBD3 - F2109F746A398AB53C249AF2E9445095B3940042E26D2CFBB06C63FBC6A150D2 - 72520B8762327CF1C3675308A85B0376E9AD5279C0C67ACF3C69D8294BDFD97C - 59B775FA6FF9558FA6AD9966B047953DA9A17164F09C502205C9FE08C27E3963 - F98DEF0599DCB0FC1A8DA17F6CB16FD578C8A1023E29F68065D5B01990087A5A - 568DDB0516C2769AE7383EB37A9B25FFD1363E05741CED62C621D8849A475D82 - 3AEC8E77D9ECE52057DD7CFDE3CF236F6DFCC7EBC78C0D9705A4724678562FB4 - 009EF7CA6CACAF92327EA317F9B095C10EA6DC362CDB9AFA2CBBC98CC91EC2A8 - 4E91E40FBE176483CB3D7EF9795AC7C517F36A1C8A1D0AC28BE53CD972B31019 - 07B920189F52C453B46DDCB67180C35796830ED0B0030D3DB3AD8FCDD9F41E35 - 38E3FAEA08AAAC5198448B9AFC3036F4C886E5EF3DD80A974E0EEE4F6D2BFBB6 - BD111F1ADFF00CC5D7938CCC4AEEAA1A76A98CB0E15ED905F6E9705FD28FB8E5 - EF3F551A7B847B5E9CD47A6FA757DE97421D8AB35E5D71C3B298C73C0F0C83E1 - C73D84F1871DD0586BDFF11D030AE4A5E2099995C7D0E0ACFCF58E430C02E6FC - 8D6353E7CE174A3E11ACC9C1E45F6765BE4FDB060FA21F2A8F25FAF42A0F8D87 - C9DB847C274A0E3E0437C8B6EE7B1FD1DD8577E074B8D261FF58B9ADE2A1CEA5 - 4F8F6CE8B3FDD5504D2F87628335350EF74A2A54AD1DFEE44468A6546F78C71B - 1D1068FECEB90B1C9DE3CBDAB203D2E4E19DBFA76F0EA1F37263679A79C47063 - BEC2C4D0A45397969E2E2FFEF07AF44D928E6D0852654FEA9367180BEFA98257 - 571E9B136ADDAD9CC3F3A7CE2EB47D5BCEEDE4B38DBEFCF93E9F7CBB88EB6CD8 - 50D3DF115B1B093FFC76CD5AED1FF4A44BC5E4D0453819D0B970188F007198A2 - CD86D8970A9DA1BBB171695649BB208FEF6EA4DFEE483A258698AD2FFDFABEA2 - A40F9A273FCCB6E65C9EF0841A3CF9144AD6CBA33E50126EDD50EA59099F0C7D - F213DF4AB479CED24B3FDF971FCAC98D8E350379D77B0C5FEC9830C1AF1765F2 - 0D3D8DAF667B6A3A795E2A6405E95217EDCA1296B321BB04CFF6FC812AA91BCD - 5B4DCD9B6C3D1DB9B1D40C524AFDF59D197C079D359F5F286868AC06E4EA06A2 - 6406A5F4C9EB6348E773AA86FD50D92D21D10F2928083A02F3A720E70D5A118E - 2F5E7F2FDC545A77B2FFEE4851A6BA97E6AB3F949067365F23C2FB9E7E7855B2 - 5236A3AB8B36789A9DA44BB611907D9F2103797C77E95F9148444CA9614AA9DC - AF3C3FF793B719A52F4D61733FD94A6732264FCDEB132690C388E73C9B5549AB - 91EA98F2A7E191E3F91EBFB17BDE3E5FA7CA28EED3850B2DB2F8EE99FC5509A9 - 2B2014E90FAC2F3E4A64D2A8BEE60FA24A4BD7E89B1F77F658F3F4F4EEB0520D - 527BE04077E9087DD37679C33B946D7C9DDAFA75A3F71ABCF8EB8633193E3E7D - 28CF3012A10897AC76BDFF0ADA2228493FD1F0FB4DF6EF9CB7B4BB6C3CD7A932 - 2B79A493AB8DBA3DAEB54082B752411A8591ACAD4B8C64AA41A5B52C6349805C - FD53BFC3892EC7C79346A90D4AC86F324EBE7F9CE0921D5E219F0348D457B6D2 - 0523942443FA43F6F01F5E27748FD0F558CD2D5BF326F7C9A272F66F4378ABC3 - BCCA525C9CEF1B7DFE5325932DEF589758578A50EA86AF1A9D4E2835B1563756 - B5CC2AA95CDDBCE254FCAB6D49ED8139AF17A91829E1CD91EECE85D0ABAD4FAF - 0FF8EC8F5F37D099A51CB2291298A7887DB21290F2C30ED4EA850D7D7D869049 - 4B5395C97E4BFF1F16F00D78D0D258546A62127752CD6E9E6BAD70A123B57C00 - 4624F5BED125DDDE6BBEA15DBCCB05BE5396BEF3E0BCB235862DE9CF9AEF3596 - B0927EDD00F9EA0FBF3EF9D43A5283841F50B56B74229BBB617928D781AEFCB3 - FC8310ADB0F3DD6BEBCCC5FD5AB0E2867660B64ADD20D9B24ADD22192C6AC45A - 616B02C3D6840D4056F259A1435E3299536A88DF20A007A6A2835ED917240934 - FC2E3F1260835232F245FAB5D0C86E4DE8C421D13F612169E3B1D9F5FC9AD616 - 2615D6ECD27D6CFDEB1DF8E8018B59A564CAE746DC4227256923E5832B027FBC - 1FBD480EF6ADF9777CEAEB2494A4EF90B117464AAF2E29C6172257AF0FDE246A - B17FFB23CDDC9CD70432917C687572683C303B5CA1EB1F1C4132FDDB2AFFE7D5 - 252E075DEF37E1F312F25D4FF6E52B2B4F0208A44CA4BA1C96A45542AAE09219 - 7A71E729C6EC30D28DFBA743C87CF886DF8C1FA5CDFFA1D21AC14D3E09DB636F - DFEA3923FCD7101D329B8CC84062EE5EF4417C10B78B9DA9DA68E1A71756AAED - 0C55E505E58E6D134D7C63D4E8FE7DE57A58D7939672B1B648AA0F7C212FC051 - 0B8A5E67DA41D461E467C9DFCA98CEF9CD10617CEB87A10746C210581A0DCE8B - 740BDFB5FE75C328CD2719D2B24302435202846CF004F6BE1FDF7B7D093D5F67 - 292E2837AACB7099F47295CB43B52B77F56B8C495D13AD6E29239FB4FBC71BEA - 6EB3541C7B742C294A1AC27C1A226DEFB4FE80352C4A626D0D32E69106094638 - 0289B9BB5C5294D4FCC182BD835EAD5B65ADCE6F052D7675D72EC20F4908B942 - 597C03AB68108BA84C9815411A1D57213AA2ED9A2B8F4930877EC590A463EAC3 - 5BDFBE153465FD7FEE5954E3B7C840B69B7F481E66F5B875CCD83242A7F73D72 - 2E2D31562B97A45E67BA34FCE04903C21F35F9E8E7B17A5943349B709569FB80 - A8CC638993D57DA04212F8A455407A65B1AEEA3656BC60B4F80345DC470B17B1 - FB0A3685F9E4E918FBD8423925AB161380FCF186DBAC01F0644DC9E15B730139 - E4875F174EA33586506EB8D82549A520FA00AD261BFCD78A7AC6E4BFAB322087 - 3470226AFBE32B93D50D03D48DAB64604915BDBAE9164F13DDFC8740660E1548 - 52678E698342A43CEB19D7FF44F051DBC90AB235ED1C56428DCB8821B1C0EBEC - DBA264423CB68C3EA0ED233AFCFAE2905DB9A755293AA82A8EF29C5D3BF69C9C - 38595F4DE26FA8A169CAFC465BFA02933BEB4A0E195DCC672FF6A1BA431E914D - 607DA77CF13A8024BC7996FBF3C3E8704F5A4380447283B59590977A7DB0E103 - DAF039DAE9F0A991532BFB98EACA6F3282F29C87F0A58A66949313F9DE0E8993 - F52F13B509F9166F9A923C277EE401796082DC715201F6912B4D6CAEC96DDA05 - B2D7E7E78DDC6B7EF4EE9F0BA70132106D5B5FD284E414B4813E60735F69B0A1 - 6F4AC55FEACCE575726BD8681373D06445C397ED09A7C24CD4BF9EACF031AC51 - 90994313E36958F840D21F1CA1F8F8111BD7EBFDFB2C0B490269EB7D982F147F - 44836AE8EDC1869066F75CA5028A915D9287E1FB87EF1FD3FB2A99D759AB7227 - 1A66F9D04BDD73070C7EE91A08069F368942ABDE489FE143B54A9E4A7935F54A - CDFB9D4C4FE1901289DCB63FE36E75DBC937337C7A91ADBFD5CE74BFF41D742B - 6EDA1A7F03DF64D235DF77B20EA953B2ABFE63DDB2DA924C051E89C8A5A86BAF - 08910CEAB6194CA4DF0354BFA311C95728D9041933E4F8298FD8D405162903EB - 96EBE67EF4DF11686CF8170BC9B6DE24408E26BA55B3860E194224B7B525656D - F6487A3166EC8BBFA217F2ED94B1B9660F1E0120C68FDCE81030A437BD97E157 - 99C100195CAA7AD7652399AEFD22435712D1ED886DD4E3742A9F8A8F58BFD6C9 - 84B89866FB3B40C60801E9459FAFA24963E4A25A74287E377C2D0B69F3341DB7 - AB4EEE910B6D73F5527E96028F04564701F18053558C2234E36316751B50CAF0 - 317FF17726251DC98AF691EFAC8BDF50EA37D31E0FA4C5DA0A666FFDA645DBDF - 907F18C43616C1CDF7AF19BD93138C82D43239436E1F8B6ED18B7C6F9757B796 - A72DA7CF167FA6737E5F39D08180D8B1DC434848C32432618988A225696F32F4 - B2AB55D28A68DFF1C039DCC4A62E489BB5519D1B7A72CCA0193D95CB80C3D69B - 9EE6A7C785F9D1232F824F7E6D0A7B1246D0B55AFA167D7B6FECB7DD9E0DB925 - 2530E811AB35430268C8B2BD975BA003A0AD5FA8F431345754074DF0CEE0AFD7 - 993A4A02F21735F71B2A2E7AFD541E79659D4A34A469BE81E5A1E41DCAE7EBCA - 5D5FE03CF9353C81F40A3CFA1CCB6D9C44E7BD66787B759CB2BB26E01F52D898 - 492BFC61678C2D0B1CB7F04C2D435D2209BD330CA501EBA009BB9E838CAF6D68 - 6BFCC7341FF5CDAAD8B123358F564AE6AABB9928C80E14212125C6B60D8FD92C - BFDC8A3E6ECCFE56143C3FCB2BAB4FEE8E7F3968DD8C6581FBB44CC8AFB4B763 - BAFACB2899DEE4C30E33CA4C8B2552AA9E2715E40ABD4397BA20EFD36D549CBC - E997F651F7CC209BF532DEC1E69F288966B1836436F148DBB1DBC7BE396333DD - 5DBAFA2E2D5DFDE9B58BF5664C1FB2EBF71D43B4EBD251FD1F527F8AAAD528A1 - 0B5D0AA9A3E4D3FA7F3B63541D25FF35423BC453DC87EC7FF9E3CD7FB534D4DC - 49BE747DB438381A94EDCD7AB5DEE9FAD2181DF288E26747E01BD9A3D74E2D68 - 2BBA344B7BD1C27A2D73EB3939D4F8AFEE13A573BA9E325B77582CCD88AB03A9 - 85D9F333DA9B41EE7377BBBA99E402726CD87C9EB671F8B91B33A206CD0CF578 - 7DB496AC6D63B372D55DAA1E659213E990320B9BAEDE5E597AC1DEBBBA04B524 - 43F1DB9F4D7AB9B4F76A07F56D0DF5979CF51BBF3B140DA3CBBFD15F87E7675C - 378BEE3FDC7AB77E55BE1D74249332E90F3A171FE5465E04CA8BECD1A2243125 - C5E4F7098B83929CE4169E11460A376DBD1E1E547CE478FCCAC3DF8C71ECB17F - 92FFE7D8DC91BAD384F6B97E052A2AACDBCD6607AC24AA8D938D93642D7C76E3 - 5AF9C276EC06B2DD3FD2A464984FEF3EBDD3EEC8BC4F7F2EFD3C14901F905BFB - FA3FE786F6E8D82A55924CBB5E674AC8331CD6CEF662489B0C5D62BEF5A6840F - 237A6F3C729CCE5254EE82D01ED49486D2D0818765D60FB74E45A51448084B18 - 532FD338FFF64CAF3A8A622BEF03EEDC5898205F59B480E8AA827C7B9DFFE034 - FAE31CC5BB452D2040BE6995AA02B859AFC30A1279288E0492FB151B6C69F3A7 - 73B16DD64B76E178CFBC7C2EDE8DDA5FCD0DA51E4D29FE73FB4E6ABF414BFF53 - 792D572F141E333CD3DF73C307DB1FD93EB20D6F37ED1F712ABAE745B851EFB4 - F632F3FDBD9DECD2C4DC7C311356D428D98D4BC87E9F6F4C678B1C347A63265C - DB6023F996EBDB6C35DDCD3A3CE8F0BB7C7595CBADEFCEB1920B724549BA5C34 - E55F3A24E54E13559F97EEAF884A4BF8D16BEB7BD38FD2C168F80500AFCA1360 - 869EF8EDF61B69FC942568C98CFB1F7E55202ED28C4A3CD5AD2CD9DC64F0D0EC - 046BF308D6BE6A3A264F65F9F32FB9820CE95FF649966AE5AFF23A0A1AFE1DCF - 7F1BB867B87F3DC9E6A24F5CBD3BF049D997F9D9E0A6EFDF229692AF6FEC41D4 - 74EAD175BCC7D0D6FB0C9B9BE8A58DF81543AA721E811E2B06E324B4381B57B9 - 65F9EBF56321FD4F4F3FE1CE6B3975154A5E7DA3FEC5FF19ED919291EF253476 - 7B784CB37BE47DA6AAE28DA2D3EDE9EA3CBE99D81B8366DC3E91C2ADA13C1993 - 9A5655CAEE07DBFDEF83D116DB64F98F28332E2C4E41666FA6EDDE1C2F8701E8 - F9D246DB472E6ECBA482A8DFFE49E41FE8DEEA8F43D26139D09EF25A2E3C7451 - 51280CB57357769C6A7B4FB3376F7F943D9CF968BF27FB7B33BE597709D9BA5E - 79EA11D3BEF72A0A1C4BFE8DDED9439348289B429AAACABEA9BA51E9B02DF721 - B3EB2889223E3B78982FC7B71DBD93B798375A5B6EE43D00FB8737E567F26C6C - 157B987B4DDE4BA0C31B4E876DD5CD961EC9AE67E0A8E96C4FFE4EEDE8D5A600 - 69BB7F38DF0E17964233F2D5C4CB74BA7D6F5A455F9FFCEAD0C7444A4B0C5397 - F42FE05A2B4675E794491BBDC248298952F8F64970839736AABDC8F9D47EBFB5 - A5AA20B190F4CE9EB487B43D85A69FBA1ADEF8DF6BC813095011D992068789E1 - A8D47E26DC2FBB3800A8199F9544C422ADB816559247B8DBA26D8D9DD047FD98 - 26F169D469FEBF1D08CFBB28A600E467349D265D977D21E11417064894CCF7FA - EEC511CB88B2CB243DE6CAC9792A1D43C88D445D479F7C3594DC7A9FBA5AB0F7 - 72F87005C118D902F248A79119F8161FFBB1A944FBDFBF47EAC6C2D48BE5098F - A12B8EDD0ED0E962B7AEB7A775BCCC5A0679DFB70E58912926C916BDBCA70337 - 3386B26DB1211267785BCA1587F17C49C1A327E7971E133EB753CCB0B669FE14 - C8777BFA92D694F67E306E7E6E4CE3031DC3DFBFD7EC9ED85098F60F57EFA493 - 9B0D580698DC4C10DB503D0473F82AA7CB7C0CC523868AD1DA16049253F19FEB - 5031A53C5747E905EC4C56F26D5478380AE9C5F0CC17C36FBCDD4D3145F1A995 - 4D0EBE011DBFEC78794DABBEEF3BBC41C32EDC9013A64DCF01A0665FBF7F6FFF - FB7893319E1E2E5FE2359CAFDF6AA6F17EC6D212ECCD023B4F717ADA0DBD69FC - 8D5C52FCE7457114F5D7EC9EB7F774F294BD4A8F487CF26DD191B38FA7EC6D0A - 376DE9F9A577A1B71CE6057A50B8036A1C1E1048C30E742C9A2E5D1D2EDDD464 - DF031203338E102BE9E4EEFBCD78393EBEBB58529FEC7DCFA641DEBCF1F5B527 - 75BDB8E79D76F435E9FE234D3333EAA6088F0B6B0925A57084B6A7B2B306A8BD - 7719F9A06DC981C5D880584C2357144DDFCFFD456F3AA835DC4A226D630AA4F2 - 5FE74B1EEBC5B704A48302290731B2571DF45EAC2DC392D3D71271C4EABF8FA5 - A77B9A6E5CF7022B19A0EA490A3EBF768359869F37F2FBDE1FE797AC9BB23388 - 0F821570938475680B2C565B6A8B159346F6999A1463EA42AA35F0662843D220 - F25E5C5B0F457A4F730CD5DA68473C10DD4B0D9717734DA7AFD2140E3723F42B - 18497B0BF9C146B99F50943D19F9718F25C649FBB357F1B5958C5832C85B6CDF - CB5BF577172B209428C5AA72B41A9941424A679AA25FD247EBE8FD5AE93FD305 - 53A287738B7359FAD2D3FF428861EEDEC2F57BB571F5C82872A69125347DBFBA - DF12F1E5A7D3A956D63A83F9B7DC1B1075642A86866F949DC8DA411F1E5F4785 - 7AAF5EC14875A0E50B4B69AE419E0A317D15D6FB3C639742B9D89434CE9FE48A - 8B429A4125EBB42D836CCFE142B04A2E5ED3795691BA984DAE64E5799EF0B6EC - 49D74D2AC4FCC1FB44D948CEDA1D3E9C47A2D042539538992A488A7961E9DCA5 - 8661ABFED6D460EC3C924F26AA31D4C873FF3287E23DD3992F0E195972FC4305 - 29EF9EBC736BB8884582C5139E24DF406FFE8A31B515C48575195962DC2B1799 - 282C751EB07164C974552DCF3A282DD1C7350C232D6F86EBB774277EEE34331A - C879FA14754219F8D6EFE5C75BFD04316710A907BA6B724A2BCBEFC3F76BF707 - 235347C353FBAE7605884520C228782BD44E531B9AEB96EBF6D3C8496812B29F - 838C1325F55A9A18F97A8EB830CB940D95AB500CDF55640F8B38F805E9103AF3 - 0A3C3A988E36FEAF07B5829677E62A46A83834D758C27C084CB9C8377346813A - 06AD1605865272AE21365B8FF7701DFD4ECBB9619643DFA175EC5D85EDAE41CB - BD2827578E3A39B39D4636555EA33D2A5D7B00FDF3507500634CC636F9E250F8 - B96848DA9E8FDC0F9A9AC9053C6C0AB5C49821D6DC14BA8C2DEF74E9FC0EB5DB - 5C50625C058BC32B3F52D15D0BA9C5A9BE7A1993946102972F5415F0DE256AFC - 16FEC9E41685A407CC82281221D1DE9DF9F305B45F3F7DA89BBAE51D666C7987 - 5ADA54D8180C5C9AC9075ADE112197CE9D35F4169CB8640015ACA24278E54743 - 9590DAA569971463B8A4090D385C4DAAB11833F79130A4A8F0F64BE611852CA8 - 851C9A49F68A51DD90E54CA6F3255DC63B8C89E06849361580ACE38DCAD82D69 - EEAC2333576D3C3A003D67B84F0D070D8A7656CEE47CE9FFE68EFC64D870B9BF - 145D8D198F78366A714DA57CE7859174B91347E70D8294E19ACFF1FB1D70ACA9 - B081B94D4F6A6829DFB28E34979696424A0509B49ABDB954AA183977FC9F19D5 - 6E5981944B359592CE25A5DC9C8DBCE1C8377AE09B537C54A5AB2590CC63C390 - A6B3832DED456110AA05C8ED16B671EC57AEE3F62BD0DEED2795370059C5B630 - 47E029FCF3D1631ED58E229BBEE7590E1A245D2D8695C5673803C1DC23F7221F - D7AC7F1A62A8B91155A5D46209350A1BEA5E0B69B902E1A209A90D6E233FE28C - 8338DF038754994D20A9CB254B7973E6872ED325CB2AF5EA52A8CF92E7D31646 - 4754755133B768D656520EE5D68B3D07797CC1995E70C8F54FEB43C9BD7B442B - 8968E6E38EAB4DF7F3DD19B2E51DCBAA5A74332D4BED8D8D4300DA5935DB6A18 - A9AEAB93ABD47AC057CE698F8E53A7256A97D899CD9085B7924949A26240AAD2 - 3859F63A33926E4439A30DDE9B29361221A120EC5CC197CCB292623B09160D51 - 2AC0BE80CF3B7E7D7E3F36244A317EF815CFE85C6BE65E5F2EDE70B5A7B9E1BF - 7F4D7D54B7B73F6B3E23D3811917466A945A8E6048FB4FCEE496F2E802D85A31 - 2A2B57F04EAF0A56D21F9002AECD138D998EFDB5A274E89EB8BC3E79A7DB0CF9 - C2A8A2466A6FBA36A894DCEC33D5E557A5661FFCC20CD24E1FE7B7066432777B - 50362C74D65A46A97EE18253BF2857279D04EBEF7E9EF0E75FE04206074D5E13 - A3E0316AE017545AA5F577D6A48D2CD50C5E42FFF3506AFFFC17A224E7495692 - 9087B8CE97BA48FBBDFEF369790585F0B8DA9FB195CFE325E77EB8181CEAF061 - AEFEC0B78A4FA28666AE30CD5DD3BD77943291BDE610E68312FFBF42DB542B21 - 9992218B496533E742FB4F2AD2A6E511A55B9A5F60F0498A76BE1006976133EB - 423221D7203045EAD13B6A85F9AAD6047E512AD6795E270DF1932FB480ACC058 - ED1C7E733B2B942225305949E59029D3E4B98B1466696FAE230098AF80FF4B49 - 836415812FF29E0F3C251FDD7BD31736FC54A935D3D64CC31B6356B8654A2AB6 - D71C23104B54BC71FA9314B8D0698946157570955A753FF9E293280761AC8ED4 - 9524263C757AAEA2CAEB1366B920AA4D85AE23181990295D8EF53FA62079753C - A7B7B6D75E7DF63E936B336D0D8FE15DFEA6A1917A4D1AF1055F707539F84EDB - C8432AE1E381A74EBF2153D4FDF427EA998B3C8237372ABDCA2EA98537332EA0 - 948AB966D69855EB459FA0B0C00A3965349A4AFBB3B9D9474FBF71BEE20DDD07 - 0A44668C74DCFBFD737655B08C696FD3BD774A851477EABC3C06523989B2D379 - E52D4C8E77CC3D73565C92E6A926877AE147D3C442444BE7B29996F23D823EE1 - 225511F28CA1610788AF1F32F8705DB1229911C1E7901EA061D14C4A9DF67C4F - FE698706AB675C9B0D1554DA86577EEA7C20A5887F80E8947E1216D55A43B3C8 - A9174841564722657D42A75CD2B42AAB8F0A74BB96B2577CC1063D253F832FF6 - 3FB6920E1C5B1956DFE0A3C5B92EE2306D1D33FB0FBBBCB76B9AE99E4369669C - 30C51BBCEEF3DD3592DEA754B9242A4A79BD53CC995F6017E11DEDABA997E3CE - F3F4DC005C04D79F5C6F292022DA05C69E49045BB392D1A683472E0511C4B71F - 99B992A24BF179A5E646459DC79B6BB4047BBBFD59772DCF9D191211AD7D833A - F3E70B544AEF7FCDE6B61F79996FB2C437AED21FEEAB55DC6DE44EB302E46623 - 72870CA2A7061F52E7C9C8B36AE43B6D5879A5E632FD75604E9B2FDCFE7C0EEB - EF8708ED1C215A51CA425A10EC3DEB80A924D26F0CC5757FADD729D3AF606532 - A13C854FAA27E9C85D3D66AAFBF66873A38B0C3F935F3A5240423AFECC385FA3 - 59D1DAD3B1E5AC6875CA92143E6CE64A31959AC63FCA3C70EC23DE8F22F6BE56 - 437FAD7A5A7798B137BDA53FC04FE91556DF04794AD6421AD8D3FAF222AA8F79 - 21EB491E040ACA90FE7E32D29F08FF36676691660FAA1D81177339F6A572C71A - 2971A5AA3A7AB340AC5C69514D91EF538F104279EAF4792E900AF8315CC8E06F - 09DE4CD27EF394EACB1F7CB29F26DCD3FAEA5BF5B50C2109EB43F8EBF521EAD9 - AADAF355FB0FFB96BE59A96B4F725F15752B9D3A06E15B5269B36706D5384582 - 9168D2574586E4042E352104A4C7E440A59C474FC3BE75ECA879C74C75B49779 - 34485DD35A387D98F29ADC6F4E5B92D54DF8081309E597D57DDDFECB20842B95 - 6D9EC62909823654AE24B9B5D0B575F831285175BDD2702854257AB42159BBB9 - D14C9646568A379702170559CBA7D288695D7586F51A7388DCC28FFD42F711D3 - BB7297BA9FFCF5949C491BE5D1ACC490520EDB473F3C2EC347EB4DCF0EAFAB97 - 8BA1F77F13445A1E177DAAC0448FD54A594F95C6F549F7E2A7F575FBD4F98EBF - A5A075D87E6F377355B505EF61538D9AEE71BCF894D7422888EFC54A53D63D67 - 5251F2A9AE9E8BE6C1F281FF099BCD97D5BE2C509CF4FF31AC9C39A59D4A725A - 31E683C9A7D454F44CCDA8020525574D979AADDC5CF767EA011703A8F656FDDA - E7F32B501D2ABDD082BFCC2393045CED09335DCCB4206E7ECDCCA48655D3C588 - 4A17ACD5904B1B35058F9A2FA73F6A4B7BEAD600B3591366CAA3FB266D944256 - 6D54236AA540905926067D551A0E4A9B409BE9A85187D006F90557DF4589E0A2 - 7E35E14379AA96A13702EBC3E71E4BF877C300E25F4CF8102322FA84CD4AD849 - D34520AC56493D89F72888AB2877317BCA94F6C5571F9A4DA32C86E27796934B - 2E30D553332019824C4FFFAA1D7C6A4FE722B3D3CECC1E99AD8BFDD587FA23CD - B467B47CF5A1F61031ADDE58E0ABCD47CD7FA23D140D95FC6AF38499BCCF77E5 - E6098A5B7D6D32E000FD296A868E75D8F80E4FDAE970E8B2E2B3F64C344C66D0 - F3C380DA2295DC4735E7386A5A131DFDAF361A60F6E8B101B54FECFCCBF280F4 - D1A8483FD9ACF6E433391B8DB40F3391FF2AEB5F17A83B97FECBE2FFABC1D031 - 259015D4CEDB939FD6394D413BAB4FE735D9BFEE4A6001A95FED934765319934 - 3D34555DD6A98950F7C77F532D75CEA32C69D076FBA9B33D1646CA5608512F9F - 487ECBE0835E0B337C221762D933EA5C17CCE9A589A3F4D1AA4819701466C55F - 20978F8AF8F077B22699241FA9BF8F3C27193F820B05FAE828F25B2988CBF151 - 9C5873A0CF1943A19CDDCA7B587BF13B1C9D2FA2FB2746E5EDAB0FBF4A9C4C1F - E2E3439EF715EF6B4954A79D9EF9CA749AEC6475EA71A23EA5EA5D3BBF763843 - FF97B337FE5F7BD7135BE575E5CF25A9E3924A03D8F23FD088A85667516BB01C - 8F27B1149819B9C048F5826816291AA91DA116A2B240A8A29A45562CAA4491E5 - 0551612AA4D9147533A091230DA990AA26929BB11CC4547413B16061FC87E115 - 7731885801F7FCBFF7FBDE7BC62430DC48F7F8F9FBEE3DFFEEEF9CCFF8E1FBEE - B9971FC7FC68F8BBF3FC718760703A2F78A905479C03C6E0CE28E5F6FCCFE745 - 63D4EFCA7FF388ACC2E1C08E90FC08A501053F9F67B1AE10B427E3CF088DDEA4 - ACA0DAE89B404EC3DFBC180B39B9C81D62113995B95B61B95598BF08ACF2AB23 - A055F1E7DF00B02A7EFBC628467FFB223F0CFE989406E49FA2DF4AE1BCD6CFEF - 9B3FFF46B261017DA67AFEC8FFED7B93B5C9F511C94E88477E3E258A49F0702B - 6CADFC4F7969DE28254F1FE4A3E8576F3C5245408EBDF0118CCDE18BBF60EEB5 - 8FC6E085CF009B2CB0DB9C5D5EFB482E643AA717166D44AD15D89F3B6A03F2C7 - 574700D1CC3D3F82A890A80B206D6D48E7858F9E1F21D8F8922890E6E8EF6F62 - 684B87D4C990B9D8142D0A855D70E0E0BA73AF7D268EE752276A8EB7A0ABF147 - AECAFDD5DF8D204C7E5D0569881CA831425C6EBFFA19B05C6D5930F2C2EF463C - 4CE18D68DC575909D4ABDC4C789536891D011D54743F1F63C9082700C2ABF0EC - 8823BE5A635439CC7DA620374BE155DA5F953606BCA5DB02CB96ABB2EFAA7CCB - 97B678C33B9553035859376D5517A278CB9DD98EAEE6D6F4AA14997571F8A74A - 97403C8A4447E02AE8A457BD13D69DD2D24C405DC5C754AD980035DC798B41D2 - F9F6F7E32501641DBA5704CA6DE6D54C3750686DD0F271FFF3FD4EC0B13AB9A7 - 6DBEA902354C4E5E3AF9D669026177AAEC7E6734B8AF41984BC5DC190D3AEF5B - A08A2F6981A48CA120483E8867637AA48687F4085E6B7664DDD7B06A6A29C8C5 - 814518E0DB4004872C622C02303BE265EE805A313B95E35D5EAD6206374DF5DB - A723FC439D33B058EFD638A96C0052B1B7625C200DE2494D27489F4DF5E29E44 - 595B1A097122C81B3048D7416B692712F6E465CA37065395445CB553A9332B52 - 75D76C906A04AEE61E94FA1806A824ED41660CF2107211167344AEB6D6B44135 - 0231A95C457350BC38472C6F98BD04A52309C82A0DDEA8F6AAFD563AAD1815C1 - A0459FA8B57731982AE325FCA51CF4230712F9614FAFF3C93A17ED881DFE02E9 - E9A13B7C6432DB5C8CCAA2E0773DFA465D432A8F4D314F756A7AF80F87FF5FFF - FAF22C6C8EEC8CA50D997C5ED4EB175D42382F265AF13C294DCFC5D40F43BE28 - 0DE1848EBE8BB47C6896CFAD90B32BE85895F13EC63D2E8B9FB8D9B7EC3CD6E9 - 13D7E3C00D35E0BBB86337A0524902DAC88BED542B92F870C7769F0D1DA9962C - C74A1B51320BE3299FBBAE393B6E225D31D5C69BA5002423EA469CCF4A4AF845 - 682D3B94C9560FB5B27B6465E7D3F6B4FD6EBBCD27BF3869ECA1D7BC56F707B5 - 819D675BD96EBF1B453100DF6C340DC9BD256E55116A5970872DB3157AA11DDD - 957D4353CEF6EACA05D5B89B6C80AB0A77FD09D886AEB01DDCD8B6CCF5CD736D - 0B5D91DF8564F33F9255412E35865AC1A50F34E367B0E9A7B14BFDD5BEB2BE0C - B5B00F0FFB917D7D68A91FAF5DD8A643CCE80AD8C3167F72DD4577610E01ABF3 - 47B162619FCB9A07D6C30EF4F380C4663F128C749509F6ADE824193C06C2E8DC - 2EA2EB5DE17F6FBEFCC99D5180A1F7817662FEEEBFFDE87A5703F1D136C48D2E - 68743586C8423ABC816F17F31A881D1A43FF4E33C7071AF33F586A000345AF88 - 75E647D787DE7FB9FF3A747144A8CD310CD1B3BA0E4304BE313F2A4214030F72 - 7D485384E3A373491D3EDBA5F05FA3F3DD776896A9EB83B50E9A42BA79676DE0 - E5C67CF7228CCFAFC1246DC745F339071A300FDD8B938D796CCEAF75607F9676 - D31BE599B279E4F15C154F10E277374633DFBD5B2A69751AAB7B77D72777D0A0 - AB015D9FF0E6CF5DC009829B2FC3078C43A620310DB4F4E90374828ABB6F86FF - D405704CB195106D3BC6DBA721685618D83D2B1C64CD76AC7574DF610DB11E67 - E8480766487F7416263FC0E0D413EF82324060D6F8BF681DD00D8B1DE8197DE0 - EDE66E9E049D1DBF79A77B91C645C9E8EC38823C731CF89BAE726F4567808478 - 3565372256A55DF773262A40C5F2788DD126531DE13BC7B5EA06BCE1ADFADDE9 - 38574E2214854E0AA2C4BC68C3F0AC61E0D92246AD57712A9ED49F70F05FF777 - 64531ADB36871E953C147A80F43C60CDDF94D6E20E366BFA506D431BEFBB2A33 - 75539E8E542CFECCEB1A408B37BDB50A2FEC83C7A1763FB47161679356C7DAD6 - CF15A3B13B9EFF7C2DD1EA10A06B95314C8772F098209F0D857DBC16712B9F49 - 2057599E08F77499E2D67BBEF449D654BA16E84234D337DDADEE0520B185C4CA - 29EAD60D139D4005F0F7B6262CEAD802CB5A44F76CE9E5D6D894F355CC486D24 - 6E374B98A6AF2C59051907BAA72A2CD731EE41189677A5A5BFD8BA64EF63FA4E - C5D77B7F52793FC87B5AFADE2AEF6D9B20F352CB479A091554F3A50B52C33F2E - E93B2DBED097BEAFF28984F22E0E864499F2F6AED1880EEBAB1753A1B8FF04F6 - 2E6D8AFAA69E44B744A7EC6EADE7C0CCFA49DC1F7811AEBCE52E5904B155A154 - 41C2D2A68495F8F1AEE9540C95A37695612B23738A882D20332706D9E8D24B83 - 0A6DB8275DFE5F9035A291B0A2559709532572C6FEC46B4B6AB413D440D22618 - D0A5C5CB425D8D784DFAA41399FC3F36E16B6C20A01AA992A875095E6F01687C - D2933CB472ACB10AC8CC8940EED8CCAAEC670A72CF1F79134BDEFA90B7BBA43D - 23B5211B48CA3E97DA2252B128705D9F6EE3A80ABE17A56A590E521DD81117AC - 2749B2C1AA76618F60938D182BF86BDD966C898250835D4D4BFA6A61BB669A86 - E4412E604DD572535382B0E7893D947A506D63563CA9BC956E0C2CEC19BE06C3 - D7F8C2BC61C0FB705C169D345DA5221DAE2FA17EF214BE0F887058CB3F18DF30 - C41EE3E01814BDC8AE5964161F5BA18287386CDED870D8021F161D0B6CD886F4 - 4093813D0FC30852E9DAFD4ED2F8589701E2FDE3B822D0C310DEB5FBAFC4360C - 7B85CBB05F1576B4E7D860B8CA30637BA57EAE7958C3E1AFE8C8AE8F6DA93EC4 - 35FBC84DFBC00BB5057C5C40FE8AEAD8326E7989445C68ACD2162DEE9BF52B9E - 978F7514104B12800C1678972FAED805AEAA35E266D26F458F103F822CD066C1 - BEB75FD164E8CF2455565945B11C89CB70ED25CC5874CC65D053CAE1A0B40819 - A42D25CA522B2DC5CA27B5C0DA542D25C2B1D69465C9028F499A3A195E3A032B - 70FA8C578F4901D18A54CA81D61AADC4BA2855590129DB8AAC15D74ED4B46A4A - 9AF036A15C79FBA7BD277FDAAB5CB20214E8B0BD527A7D72CA13B78246E1A5B7 - 4E03433C7E66A557FEF2674E2FFF757DFC2DC4DFBB72FAAD5E1293026DEB8D4C - EAA202F2B123AA675650F7B4FC590D1C22FEE98C0CD289B1CA1FEB6FF546F85E - BBA67F71AF9C1600D461EF2BE1A52FF363D5969A6742646240E605EA8ABC19F9 - E954CF85D43DF394403E594290742261FDC2776B6917126113B5153C21902007 - D2D1797F7CDB6F17E3F159800ADABF55C4004145FBE9C840B1601590FEAF5551 - 8E1404D1F9B5BB11FBFD6059F0EC280BF687A370BBA78ABBDE7F4C8A65AE9B21 - CB06B77FF3334DD16F7EE6D9D9FFAF7F8F206FF7DC067CE1B73514E96DE2F438 - 665661AD1E15DA459521B6414462A63DB68D19483DF7F83526284D55380470EE - 28E845286956DA8F491A92775241C2D1A0C1AFB721117027C0A17347CFF51C3A - 07472F51F312457D945874BD74F4DC211252D48780788AFC12F5892E91B90649 - 7714912F56C5FE25B580A8235FA6DF94211CE55074A7994CB29C64F836C20046 - 4C8F993051483DF2F048CAEAB745431F0FA58105D411A47008158E9EE3278E4E - 88C30D16C83828E4F0E507058D743404A93F3847CF85DA4F4613297EE8A9C4D0 - D36C628AB0F1BFBBD63F88743F74AE27FEC482FEC4B324543CB4995FD99836F9 - DBC0467C5C3B4840B6C257E7B59D23BABD07257C81FAECCF239D6E06A44F38F9 - B458323D16E7C85299CC24D9F41AF8FC95735AF4A2D2526D560BACD77471DB00 - D51946FF38EDD36F01F8EC5E6DEA92189FC67A040902C03EA92342B1B34D3B9D - 374C263CFDA3BC746A94EC3D61C13126A33A6068FE3CB2955AF354AA98D612D0 - FCD9E6527FF2F162CC443A368EF769788CCF54E3A61EB677C81730FD2214FA7D - 8B12DDFCC4362DB19D55929B8DE6BC04ACECD0E23B7F34595419B68DC9BB3FA9 - 7A7307D1146FE197572E1F9CF8C9BBE9D63AD8BA7259B67D3978D9B780A1B31B - 4902973D0C60B9E81CBCAC7BDD54BE0E4E3433AD1FEF90769396E10FBFA42376 - E91C603A8693369E9A40307A82F104F899B1C4BBFCAE3401C15E998827085F26 - B4AC8E7C625EE62DCAD8E3849CEFC9E14D6024078599444CF96097B241CE1576 - 6368C57BF8173A28544FDB667C1357ECEC6D104800C76EF0F5ACDC13F4A0F827 - E08AE9AA33159A6798B0A8A2738D3F65A88904066681202BCE0831A33E76565F - DE152226543866660145A1C4343128A7528A9584893C32886A32D0B1B313F180 - E7C453F8EFEA3F2471774CDAC0A7879E6560C2D6F3444D03C4B71E8E29DF67E1 - 98A9709357F4B10733C2960044508328224CFEB0CE0A36D0167B0ADF9B1B3BC1 - BB2DD1965187C74E1CBE40CD69380156254E02EC4BBDF87454D65D9AF0FEED3F - 4807D4D068FA84DF95CF96DFFE2177542A4ED4210B349869F714BE877E75F9FE - 89C3BAB67F0E2E1CA6A5F2CC00AF128031D2BD40AEA6917D010ED3F2FF0BD368 - 7081761E39C1DB8FA0118AC5016A5394E683CC2E10146A9335793BCCE302872E - 150A6324BC30AD57EC866F4A7105F0C1501B944A48C502AB999C58FFF3C38AB2 - 9678CC893AC78BB75FE84C2D1F3DC5750F7363BFD8A35AEC11E692029139AB05 - 6129E20EDF3C29933900E99CD093A18DCA4ADA5494A42D8E892EE13D9B19EA5B - 9E82779661EA1D3A11EE944C51E904D2547D4ACB67AD40E7A26C6E4B0255ED93 - 533E61E57D100B1C496D13BF09798F35C27F2C33C2533E99A5536288F964DF32 - F4D1F61FDCB2B92FDA3073B94F2201D2C0E158935CF49DA2D1DF610932FA4EC9 - 84DB3BA4D6B72C8EF8E83D76B08C0249033581954E71D42CB059B6A9F09E5B68 - 43485AB19FB20563135B028A36D650EFDEB57CA44EAA3A1EF2B23CD7F01EFFC2 - 01FD3D30EDBF1C74A320E2309B24F22DFF8CF99FB2FC364A55ABE0D5B0C6AD2A - 5474CD736A72623A703DBDFC8E13DEB4C09CAEFDBEF3DF8D8C0D9268E26F380B - D60D78388FDC829D8EBF2535416C2F20635CFECB15C2D720334A13A6941FC816 - 8420BDE649EB9EB8B6EB6AD2E0822E80E6EAA8A4AF26D1CA9D45D564A0BA93AA - 5FD7565EF85A6448159AD59369FD1968119A94B425356EA6EC256FF265456A16 - A78568457123B1602D81222E204D892508AFE16F0DBD14BF69D19B35156C9D94 - D52415F057ADCECE83F06B745FF5EA8356D48CAB20B7AD6E5BD5865DF19B3B2A - 50B62BB6A0F6922FA38E3011A4E20258DDA65F11123249B46A70234F182CDAE6 - 0C88B14947CD2D0B6C9E283B1B9D82A6874FA35BAD24241C9061B7A995AA3312 - B657B620DDA67AE6299AAE6E4B78160C40A2E3836A2A20C62B6CF3A449D16849 - 1A0E001D780E7C343B35567FCFA7B5137DF8D76C2567B6A37475DB877B952726 - A241BEB5ABA668B1FA7BD8AB8AE458878E793003494A14C42425C384038AC168 - AF9DD1BE57CE48A68E2A300452370389CD6CF67A347ECC7B127C850731A40F5D - 4955455D2CD47BF83A3C598A21B493579BADB5532DF8F089837C1AF4D503F9DC - 837A27E15484CF0224011050F0407671328CF4453778E06A82D6EF6037B1550F - EEA24D0A12667322EA9AE1EBCFE1959C02DF9F93E603C567181F38E0282025FE - 667AC07E4C8941AB4A6C45A1E826F60F2A8FAE661DBE01EDE9C1738FF554EAEA - 8ABBCE33F603CDBFAA58A25CD152021B83CC85BE1A20F77BC91B57D169BDDDF8 - ACBE121A6F5D3638BEC96AC2CDEAB502F90D290884F1B490CF8BE7A420D0F05A - BDA05CC7B5E2CE6AE73450EE79B460117BF495E0ADC6AE92A67A54E3617F0DF5 - 2C24D57D097BBC5E2638EB005B95019A943D56AA076368522C9994024A13AC18 - 504A10B111469B1620A62B0CDBD3066BF6366DB7399AA54CA62B1865B12780AE - DBDC515D25982E83AC33E43CF4DA5A4C6BD6961AFAFA48D87895A6810954FD14 - 578D0AB23FA657E5C665A61613C8C24C90505CAAC2F4B4F6B8EE744744EFAB28 - 7D29A52C77D586ACF51446789C8D9036A41DE986CD9565C2E91AD8945B5D471B - 59555D5A89FAC4403E45FAEA826C71ACD13307E98744C9713F7CA0C6A4A19D01 - 3E22CA0E64E2038B5871261E2EE5E736252737A970867D4596CADBA6616632BD - 6913410A281E5AD8E8277C57BC1BE2196D8A9AA34409ED90BCCEB1CC88581A1E - 6CE40A6FD260730240CF699AB1B1241A9884880526C3525887B01E80AEB4DA81 - 7BD4229EB1AB3449FBACB20A7F6340A2C3576FBA1D221097FAEC24FEF7D721B1 - 9AD4B4E095E2D644908CC087653A5C469662E0EDD640E0C6E2CE5B03A07C946F - 59973BF6916F10D8FD220C30842DEB0C11D6B73C5CDC49F22D0F0387B2E52190 - 39EBD27E21A8C802E41BCAA0C2B0EEE1A0946581DC869505EEEDBCB50B9D0658 - D805EB8889F7C809DC09EB8B406DE0ED7310C5FAE200693ED4349094C3D28D84 - 7833A181104072878618059A84F55B03049CB7270A0B641414262146D12D76B4 - 850D2830CD1DEA2DAF2FEE5AD0DD89762D085A04A9C8F5119948BE772D501DAC - EF5BB40B47E77CA27B20E3B020361CE83A1BD076427843E902AA2C320B078685 - 9D14352CA2001EF263E3AADB9D9CAE051E08DBE193A7FF1B24A1647725F07D98 - DA90E5059FC6FF2FC82F46056401991B159005646E54401690B951015940E646 - 056401991B159005646E54401690B951015940E646056401991B159005646E54 - 401690B951015940E646056401991B159005646E54401690B951015940E64605 - 6401991B159005646E54401690B951015940E646056401991B159005646E5440 - 1690B951015940E646056401991B159005646E54401690B951015940E6460564 - 01991B159005646E54401690B951015940E646056401991B159005646E544016 - 90B951015940E646056401991B159005646E54401690B951015940E646056401 - 991B159005646E54401690B951015940E646056401991B159005646E54401690 - B951015940E646056401991B159005646E54401690B951015940E64605640199 - 1B159005646E54401690B951015940E646056401991B159005646E54401690B9 - 51015940E646056401991B159005646E54401690B951015940E646056401991B - 159005646E54401690B9D15702E49F01D151EA2F0513EC9F0000000049454E44 - AE426082} - WaterMark.Image.Layout = ilTile - object Label1: TLabel - Left = 168 - Top = 344 - Width = 186 - Height = 13 - Caption = 'Haga click en Siguiente para continuar.' - end - object Label3: TLabel - Left = 168 - Top = 72 - Width = 364 - Height = 32 - Caption = - 'Este asistente le ayudar'#225' a cargar datos de ventas e inventario ' + - #13#10'desde ficheros EDI.' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - end - object pageRutas: TJvWizardInteriorPage - Header.Title.Color = clNone - Header.Title.Text = 'Opciones de carga' - Header.Title.Anchors = [akLeft, akTop, akRight] - Header.Title.Font.Charset = DEFAULT_CHARSET - Header.Title.Font.Color = clWindowText - Header.Title.Font.Height = -16 - Header.Title.Font.Name = 'Tahoma' - Header.Title.Font.Style = [fsBold] - Header.Subtitle.Color = clNone - Header.Subtitle.Text = - 'Indique cu'#225'les son los datos que desea cargar y el nombre y la r' + - 'uta de los ficheros EDI.' - Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] - Header.Subtitle.AnchorPlacement = 8 - Header.Subtitle.Font.Charset = DEFAULT_CHARSET - Header.Subtitle.Font.Color = clWindowText - Header.Subtitle.Font.Height = -11 - Header.Subtitle.Font.Name = 'Tahoma' - Header.Subtitle.Font.Style = [] - EnabledButtons = [bkStart, bkLast, bkBack, bkFinish, bkCancel, bkHelp] - object cxGroupBox1: TcxGroupBox - Left = 15 - Top = 84 - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 - Height = 121 - Width = 585 - object Label5: TLabel - Left = 28 - Top = 84 - Width = 103 - Height = 13 - Caption = 'Fichero ARTVEN.TXT:' - end - object Label4: TLabel - Left = 29 - Top = 57 - Width = 102 - Height = 13 - Caption = 'Fichero LUGVEN.TXT:' - end - object Label2: TLabel - Left = 28 - Top = 31 - Width = 103 - Height = 13 - Caption = 'Fichero CABVEN.TXT:' - end - object edtARTVEN: TJvFilenameEdit - Left = 140 - Top = 80 - Width = 420 - Height = 21 - AddQuotes = False - Filter = 'Ficheros de texto (*.TXT)|*.TXT' - DialogTitle = 'Buscar fichero de datos' - DirectInput = False - TabOrder = 2 - OnChange = edtARTVENChange - end - object edtLUGVEN: TJvFilenameEdit - Left = 140 - Top = 53 - Width = 420 - Height = 21 - AddQuotes = False - Filter = 'Ficheros de texto (*.TXT)|*.TXT' - DialogTitle = 'Buscar fichero de datos' - DirectInput = False - TabOrder = 1 - OnChange = edtLUGVENChange - end - object edtCABVEN: TJvFilenameEdit - Left = 140 - Top = 27 - Width = 420 - Height = 21 - AddQuotes = False - Filter = 'Ficheros de texto (*.TXT)|*.TXT' - DialogTitle = 'Buscar fichero de datos' - DirectInput = False - TabOrder = 0 - OnChange = edtCABVENChange - end - end - object cbVentas: TCheckBox - Left = 28 - Top = 82 - Width = 229 - Height = 17 - Caption = 'Cargar ficheros de datos relativos a ventas' - Checked = True - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - State = cbChecked - TabOrder = 0 - OnClick = cbVentasClick - end - object cxGroupBox2: TcxGroupBox - Left = 15 - Top = 219 - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 - Height = 121 - Width = 585 - object Label8: TLabel - Left = 28 - Top = 84 - Width = 103 - Height = 13 - Caption = 'Fichero ARTVEN.TXT:' - Visible = False - end - object Label9: TLabel - Left = 29 - Top = 57 - Width = 102 - Height = 13 - Caption = 'Fichero LUGVEN.TXT:' - Visible = False - end - object Label10: TLabel - Left = 28 - Top = 31 - Width = 103 - Height = 13 - Caption = 'Fichero CABVEN.TXT:' - Visible = False - end - object JvFilenameEdit1: TJvFilenameEdit - Left = 140 - Top = 80 - Width = 420 - Height = 21 - AddQuotes = False - Filter = 'Ficheros de texto (*.TXT)|*.TXT' - DialogTitle = 'Buscar fichero de datos' - TabOrder = 2 - Visible = False - end - object JvFilenameEdit2: TJvFilenameEdit - Left = 140 - Top = 53 - Width = 420 - Height = 21 - AddQuotes = False - Filter = 'Ficheros de texto (*.TXT)|*.TXT' - DialogTitle = 'Buscar fichero de datos' - TabOrder = 1 - Visible = False - end - object JvFilenameEdit3: TJvFilenameEdit - Left = 140 - Top = 27 - Width = 420 - Height = 21 - AddQuotes = False - Filter = 'Ficheros de texto (*.TXT)|*.TXT' - DialogTitle = 'Buscar fichero de datos' - TabOrder = 0 - Visible = False - end - end - object cbInventario: TCheckBox - Left = 28 - Top = 218 - Width = 243 - Height = 17 - Caption = 'Cargar ficheros de datos relativos a inventario' - Enabled = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 2 - end - end - object pagFinal: TJvWizardWelcomePage - Header.Height = 80 - Header.Title.Color = clNone - Header.Title.Text = 'Fin del asistente de carga de ficheros' - Header.Title.Anchors = [akLeft, akTop, akRight] - Header.Title.Font.Charset = DEFAULT_CHARSET - Header.Title.Font.Color = clWindowText - Header.Title.Font.Height = -19 - Header.Title.Font.Name = 'Tahoma' - Header.Title.Font.Style = [fsBold] - Header.Subtitle.Color = clNone - Header.Subtitle.Text = - 'A continuaci'#243'n, el asistente copiar'#225' los ficheros en el servidor' + - ' y realizar'#225' la carga de los datos.' - Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] - Header.Subtitle.Font.Charset = DEFAULT_CHARSET - Header.Subtitle.Font.Color = clWindowText - Header.Subtitle.Font.Height = -13 - Header.Subtitle.Font.Name = 'Tahoma' - Header.Subtitle.Font.Style = [] - Header.ShowDivider = False - EnabledButtons = [bkStart, bkLast, bkBack, bkNext, bkCancel, bkHelp] - VisibleButtons = [bkBack, bkFinish, bkCancel] - OnEnterPage = pagFinalEnterPage - OnPage = pagFinalPage - WaterMark.Image.Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D49484452000000A400 - 0002740803000000ABCA78750000000467414D410000AFC837058AE900000019 - 74455874536F6674776172650041646F626520496D616765526561647971C965 - 3C00000300504C5445D9E6FB7AA9F36DD1FF204AE7F5E696EAF1FEB0CBF782A8 - ED2253E9F2F6FF619AF344B9FEF5F9FF306AEDACEFFF4186F02C68EC4183F128 - 5AEB5A9BF47897CF8888AC9293CAB2CDF883ADF3DDE8FC173BE3377BEE3B81EF - C4D9F9ABC9F78FAED9F0CC55D2E1FA84B1F5E5EEFD2459EA5995F295B9F5CDDE - FAEAB017E6E6E67CA3EB3838433379EE7677AF6B6CC8C9DBF9C1D7F93B79F033 - B3FF61A0F6FBFDFF9CBDF6CACAD8EDF3FE90B6F5A1C0F797E5FF1538E2DADADD - 8DB4F5679DF2BCD2F999BCF692B5E6A8C7F7224FE755C3FFB9D1F9F9FBFFEFF5 - FF1C43E6BDD5F96CA0F283DBFF73A5F3A48E6189B1F5A1A2CB4789F1D6E5FB89 - B0EE3873EEA4C2F73371F04488F11B40E674A8F4E3EDFD1C47E74C8CF1A6C4F7 - 3373EF6FA1F3CBDDFABABAD4E1EBFD306EED4B538D5190F1336FEE92B8F5D4E3 - FB6995E2285EEA5491F29EC0F75B8AD74F8EF11430DE3E7CF0183EE567A5F6A0 - BDF2488CF298BAF62B64EB2C64ED5052B32C5EEBB3B3CC739CE04C90F389B4F5 - 2C6FEB508BE72458E73074ED1C4CE8C3FBFF245EED4E68B02863EA89B0F2A7A7 - D13775F05479C81434E0F1F1F12860ED76A6F32F64EC5494F2CFB2627CAFF570 - A4F35396F51E51E9E7F1FDD4D4E11843E69191A067A1F54F91F48567384B8AF1 - 5598F5CFE1FA5792F068A0F36663968DB2F28DB4F270A5F5E0EBFB2B61EC2864 - EEA4A4B94685F166A5E480A1D474A6F5E7EFFD6BA5F53C4788CCCCE2B8D1F750 - 94F5A7C8DA94A0B9CFDFFA1DA6FEB5D0F94B8EF4FDF9C3AEA6851B3EE35E96F1 - 5094F36BA2F42F6CEF2555E92F71EC96BCF594B7F22E74EBF9F9F992B8F26BA8 - F68CB2F5E2EDFB173DE3B5D0F7AEC9F7FFFFFF1D45E5C1C1D08183C1265BE8AB - B0D68CB8F52D6BEF488CF5478AF56DA4F45391F5BF870D72A2F386B7F0E2E2EB - 9ABAF6877C86265FE8D3E5FB1836E11D45E7356FED153DE44A8AF33475EDFDFD - FFFDFFFFFFFDFFD7E5FDB6CFF9FDFDFD6DA2F55DB4F26FC0F69AD7EF9ED5FDA6 - D7EBD7E9FBE5EDFBBFC3E0A2C4EBC2DFEFEDEDEE2F6FF1C7CFD7089CFF2553E7 - 6E9EF0B6CFF7585D9F570A585C000068FF4944415478DA9C9D0B5C8EF7FFFFDF - B7269548B753C826CDD9DA8C3692685F91219643D3886DAD259A464E992C879C - 8A2CAAA51921DF9C45DF21DF8528135F5B73D85862738859091559FABFDEEFCF - 75DDDDD9BE8FDFEFF7BFEEBAEFEBBAAFEBFE5CCFCFEB7DF87CAEB3E113C71B8E - 44FBD2633AE574226A1A1EA35EC47F739B12FD414DFF200C3F77FA99FAF1C8F0 - 98707AC3A9C889F0671ACCC79F1B8A4E13EDFFB9538E5B29263685FDD162B81F - 8DA01B8E37CC1762045A9DD649D6B4FDB49F94276F6F13AD347C22F349418211 - DFFF01368529C31F4209488D91C2F1F1C6E93704B3C829DDEFBF81F217454E45 - A7B9D6FB73DCE22632646EBF9E9F8ED8378295B9510792E2F69EA59C7E58D1A2 - D32202FFD689218921F78DD857B497CE3224002014C528C0F0983F96CE6DAA69 - F973A7162882611912752D2272D24028DD4F4AFC5B462E8E4C907FB4E8F92951 - CFBA8C2410E3F78DA037BFC34CA2914EFAEFCD955C7D96EE62E1A5A49BFBF7E6 - E10A97344C40925012AA7AAB3557D6F4D2719FA764F6748AA14EC305F2E59B49 - 37E6B6E839D289CDFD1C249BFBEC3E235CEA653B40F29752F6D45FEA9161054F - EE2BA2F994D3A9E91F4DC5966A50720275AEE695CA2701F9B37F6BD8DBAFC8E9 - F9D7F3902C241C63FE7038132B59EF6B81A4B07D90D2DC2D1D95503958DF77F4 - B33FB57E8314E6E94DED693243627ED1DEB44E775948470A8B637FA1B070C730 - 50C685B1AE70CBA6B99D48ECAD0C1EB3DDE9EF193552252F7FE9EA9FC63E79B7 - 2994FC85ECFFC84B81378FE0656A2979859A9250E267624A65219A422B130D2B - 6E9C1DB10F90EC92B41948716102E67823268E4B51C62786FC594AE8F473A7E1 - 74AB3547B86E122E4EBD914E5AEB09A7616EEA440249BF2C993BFCBBE16F3829 - 48938E37D827E3D89A30E47770CA915CB2FCC75E6DCF4A72DC38B97231143E7B - 2B342CB58F9B680F56A84990935494FFA11B9C9351B8C4B7B208918952E959C7 - 59E934E7092EBD148CB42426B7DF224D4913A6A372B9BD6C6E5E45CF347F13A5 - 0609A18B4EDF3AFBE67E40B28E13ED4B3785952E99B709F60853D14E123D0C39 - 34532099F2D648D21C87CCB5D41353D1699501C686EB4A2E222819935B3D63A4 - 9306694EB94FF9249CF2682B7FAA0BD997D8DA34F62763278E9A799B26EA2FFB - 38A2894B80AD32A699923DD388DDE656DAF6E7031A7C62F322D337A7C50E2648 - 49949C60469839651D250139404929432C5D8C37ACD807CA22629F6C0A47749C - B8C471E226C2DF8D79B409A6DF2441246BFA439C52D99BA4B263FF426912571F - C6920E594A2F0B6449CA1BE4A4412A29C52711172F8867499A23AD64A70B8957 - 4718FA8EE0E01E4B3F19DD2024EA242AD22621855F120248F925522527081E8E - B6220DF3BFC0D552EE4D1346BABBD49195A4CFFDFAFDBC5D77CA1B245A2A6B17 - 6D8A8D96A4C749C82465ECE4133FB2929281D8DC80D400D5075A08D614490959 - 53ECBD2C93742979F82F42D61D4ECF18F0B366EEC93368C9DCBCCEDB9F33B74A - E64570396644784BF10AB362E608AA03D9DD5B83D4FF58D6258E5296266509DA - DD7D2334C65A4833FB3E378CDD3E9685DCD767E93C8A4DA4AE6FFA96E890266B - 93A6E42F39685FD3FD4A4608E5765DC9744E411C379DF6B1B985512454EF6C74 - 1583C2080DFBBD193182F675D6A4FC1B25FF823B966EB7EA04484E4174D3EBCD - A75E9DB793290999302557BFE91A89824B688472CABD23F752E1E41384E82681 - CC2137E270AE2DDD278341918AA4C68E612ABE9765EE1B7174C0D156B75B298B - FC2576F63EE7AA889CDB6523867EBD749EF5624AFC65890649BA5B3ACAFF3E4A - EBB337D2D86921450EA70886646BEF1D491514EA27E6E6E0469A0C77A45D19F8 - 9D7565DDD52A3563B424047377EEA442876A5DE7BF5A1B880425877E0D9F9C9C - 48C7BF9E3B3CD57FA452D22F565C4937F7DEC82CBF3B1E0BFDB00EEA8C82D3B6 - EF4DF31F44B48795E48C2B695229C98CF83743E5B47E43734A5A16047B73556F - B7BA1DFBC65EE4CA3A62EE1DA9BF99AC0DC87DC64E4BE7BD4C931301F973BF45 - 646ABD4D6AB24F368D498F5C18B9D0AF8400797B466CCE5E2A1BC34AF6E5D4AB - E2264E09094462466BA24AD2FD9229F778B0B9E770F074E6C5D8E2FF537CB347 - C2DCC490B18993136F7E36F7E7EA1CCDDCFBB41097DE2415F52B33A6AFD9432D - 293C82ECA815F997D98DDC3B8842DFD294C4FC4E4B63D099029FB5BE02A5A644 - 3957360C7DB65C7C5D622C61AFA456B73181EAFE7D46D7BF1D8BA5A064327CF2 - E557DC136FF63A9F5B52C04A7296D083477A6A88EEA904C8A37E80243B78FDED - 9CBDAC2419AEFB83716F2C208F5F17632BCA363749975269C9CE3357BA4230C6 - 887D763CA3951213990AD1C2A148DC5DDDCB891806C7E4C87E396C6E2A23403A - 2E9A7C22B545D24B2D4BEC724C4A6A06F7F30764BFD931E903DED973D40FAB88 - 4EBDCDB1B99D03E7A6A16F5A1F1407C83B271D89952485685213C3AD2C5192F6 - B05743CA1147CBECD4EC569D16D1DEB2898C279465134983952546EE2D4BC1C7 - 807D626E2879E260AF452D4B3AFBD3A750D12FDDE4917E686268F50BAEB426BC - 2F20C5DE287DE8C4B11BC91729A888AB1C6B410CE9D5DA5A23D431C5E42CA5F4 - 2DF7B4944E256CA320D9E2ADFCD38666621D584BED9036140BA4F11CF6893252 - 4ABE42EE9F31A45D2B49E7FB4628CC1B8E1823FFA2B10131E9F5E17E47397264 - 05889C41BEC479129465294A49AFD6F51AB4E1B9379FB4BFDAFEE693064FDAFF - C21194A4D2EEDCA6D3C88FC3FBCD663345AA56B755BE9454C45D2370F108F36A - A31CDB47CB92E7745A6AB3EE15A283492F1DF5B243670D1D3A90A58B5FA295F1 - 472F675353571A7092FA6A4EC922F897B55A45130DD7FB7027E0B645FA80938E - 13AD5BDF02E3CD3635218957DBD7143919E86A0371CDD546868C117B73E7F9CD - 08DDDE805063D0AECC0E72029EF9444A1A4A29627B869CF7B26F6EF38248860C - 9CE88485E095C084B5E143FEC831FD66BB52FDBE27FB1EA5A27B44CBF9878176 - 36EEFBC8D0DAA968935D592C65452E75A46098B9CD7F5EFFCFFA442C707565E2 - 4D4CDEACB4AE5C4D46C9E77BC8E3FD39CBEE35BBB71C26B4537EA720D11946CA - C844D6C08B32795CD06FB3AD29BA9928E940CD7F9C52F1347FF98C91DCEB0CF3 - 6321FDB8B9664BA0AB06C847B680642504720607456F28098F8B252394B4F9D4 - BAB5E15CCDEB6818266381C4AB0DC078D5E9167BA6E44A4809AF66B78E8E008A - E6988199102C13940C3AD42E4D90791C1F7007A1142563EFE436FF717E4A72F8 - F2196513F3C435186E84DABBD087C606B8D2BF8916092456D0F93605A68434ED - 70CAD01AF976680A827F4D384386249EEB01C2C4C941F2413545ED2584A2D9DE - 3108BD48D9C0898886D73064995D200C1A8809700DC5BB002292CAD437291236 - 50F2CEC9790F87B85DF9B1E6ABA345410B91059C3448C8284AF6419F368BEA1F - 24EFA7035A2EBB476A0581C959FBB60012943F45C7745A4ADF65B536D47C9FAC - 472830130CECA13775C883E755122A49A6202EA24CCA01276002C1247FA461F2 - 474A600A5B3F3A2219908BEF2ECAA5E29B9F3D2D0A9A816497C78C6A1F0DBFF7 - E1F0DDC9904ACA65BC06ACE2A4F7D4B580DC943934361ADE403611ADA996116A - 42557CD6186E52B45F16518A37F5250FCEE6C9284169C96EA9EB68F602A99491 - 799B2B42C904489BC04594FB4E3D635151506764E93CC9079210240FF4A14DB1 - 593A244247153F23D92AD004895C7FBD24E22E6C1C542B25586A5E3FD783954C - 2A3142C9459CC496D1BD663C8B48A30C6446DDDEA44FC888B23643BA754F6FC4 - 9009AD17AD8CE83C94CD4D7DF2B4C40521F3E093B777D29313802489EF0829FF - D9416F2B86442E8F6697F59D81E6AB6E0B1C940CEFAC79BDE6567444925212A6 - 58C6889A90CADE089EDBB039C1E8A40CAF0D626DA5E4FC9CD83B44F35F6BBDA8 - 65F8F2406E81F3A86EE06C82B9FFCDA36C6F767C1E9FBD01C93C8B1BE6D86427 - AAFF9DE7DAEF29F9843BD109F713E48E37778C51E27F7A186EB62E4416822CDE - 31D3B87F4FC6F06654ABA51E3D2988468C059A10954B927119390D989FDE6848 - 4288CFE4B7171DCD8F98814E619E7F511EDC519313E97A538A45BA828414F9C2 - 38625F73D22053CA18D271219D33249F103A88AE30AB2D089E5973AB90D28D90 - 5294449F720EEFBF6CC6522B4C81232DD053142F3372D782828CCBE6A40372DB - 1EB7F15930F7512F300292CDAD5B9C373AD8274D9054A444E85D08C8D69C0163 - 8DE9B426D2AFDFF701F8D5EFCDDDABC5124A4F2CCB90E9C61248E94D4F89436F - CEB23925C96C75E59B7682A5B2269900034D1E490C7966F11D1A7FF0CBA93D8E - 7AD10C31771FD241D9250572C07C1D92FB42189492E23950F2DFBE33DA9FA300 - 9EF13B35FF9D5F582435C01D2C3DCEF59882A66137E95292E42111D2AE4C4BEA - A601B20AA4D6B560259D684DF7338BBD88426E4FAD78CA90B235C574C83F4279 - 79A25212D31C9FE88BE7B3C137CC164814099FAC7FD0172E19C084402421645A - 2C974AF41A9DFB8A68372B398043879C202747B99ED29F83D4181524F1EE9735 - DD0F26015294D47C52995AC364259BD2CC432D761FF45E7468B06A1A41B941F9 - 643F761C86FC900C02E993615A1FE38AC96B1EA58B92E8A37057DEA9680EC738 - 27F5E4997F91B276D021E7A4D73F78C63B0A4A9E5B7CB7815F895D2043B2C5C5 - D4791C37BC797087CE0595F9B91320113AAED072408052129D147AFF50E7920F - D7070D61B0A8102E372184749F80943D7E68164DBB036F48128294E81FDC6BA6 - 49191DF1574A4D49099C7BAEE8970DB81E1C752F901E3B3D8C6F904F9C833675 - BCDC51792532395B9B62B306B87BA6DB79FBDE6525D3BDB2F29BDD3B5C180548 - F66EC4CDBF034B3E34D010A5A24FC6E60909A4287DF284F2A133628737E57529 - EF7170A34324ED7872D0DF8B598616911744F2A0C5807CAC940C5F4E428924D4 - 477F210395650D3874E2564EFA6E775692BCA2F176382035402067932B52FD41 - 97EF13296373E2E4099B1F862484B84DE6B109ACA53B47480B8A26A306C95EED - 5AC41249FB04C2B2BFFA264FCC8E90D0C614945CECD5F3C2E33ECFC21A503E20 - 798F982C2784AC2420E9490B0A2A4BBF2BF696AEAB436A40AA826CE6848E1A7A - 1CD5D031A1D1C32DE3891A25E26DCBE4096E53A7211951500BE22C5471D05B20 - FD90F9600B22363904859A7620326394FEA6163545C01C70CE6F8B37260E4E69 - 70029103A7E44EC665DDE8977941F4CC9FB4082297A9747730895752B3349392 - E8B61F6A81E0BE376173E2F8468953692DBCC7EA3135B2583B756D6E7351F2B5 - 5BD112DF02C91BEBF75C594DD28D6EE697226899C89BCCCBA133869EC32D97A8 - 9E74B6CF5D6F3439EC94BCC38E3A5EC61673C7CBB2A33185760E40E050F26E5F - 81C416503E9B9B0C7EEC3831DCE50D7A96BC6773E2D4B59CE6881ED396F15629 - B969FE6EB9087086CCC1AA14E480A37EE9454E685E9BDD6BE694AFC9A99A733B - D535D787E8882CD9450D73CF3F13E5DD930A77042F1ECC4A96CD905DA1A4103B - B292DC83B0DBED1B6452125A364B8B0FE5E88EA568519221B1E591D0E869CA78 - 181C42E21F5A5E11732355E62848096F40527ECC32D9619EDF4CEC4DA47731CB - 48EBC94543620E6DBF3B47A1E4C7803C2BED227C52B5F0DA9E50919221A1E4DA - 023889E694E9F9313143FD5849CE92A494ACCED8FCD48AEE1369886465456BA7 - FAA39D9CFC1A71FBAD20399F73875A8E35E4379B938E9454A449191D11ADFA2F - 3C615C76CF5536AF07A0FF234A9E3D3805E646BB6C27066348A8283B49885BC5 - 432DFCEC5C0A92EF9E90A611E6FE10EB3178236849F964F1C2EA8CB4FB56F046 - A26E853C424DB8BA889C3E1641AFDDC29292CE4999420681CD8777E6CB3685BC - 784CCD6DC62D53BAB2B66FD03AEF9E675775FD124A22BCCB389F6BFB3F1913DD - 1C241936A8E4FFDD1AA4AB0B5661F0432A6399397012C75810DD6FF21874ACE2 - E326F715A5BF0F7DF93D22E75E32EDAE85CC7795C321F9AEB03D6723BAF79734 - D9CC49DB4D3180E6FBAEFD582999DCE3287991F4E8A5E3A940D18350F14B4209 - A794B5F85DE266D10F0D38E2860B11C8C7886AABC73DCFF6A40B8FAD18F57E48 - DA3FB1E0647AADA00C4EE9CD7B5D3976480B7279F985BB4A46AA43889C90A5ED - 4A91F2B34B5CE96C93A6B0E151BF92E8E5A47AC81A61A0C40D0BEE52004AE473 - 05F9247E2819FE43626D2EA478012B091DADBA5DC08B2EB0BDEF37E1E30C3E30 - 77413328694C51520E10BFD6109036E17BCF536212EECAC7F1061CE5F2034BEF - F74CEFF5CFA8C568F4901996079A0885124906FD0B6273C329059257E242775B - 30248C82420EBA8454BF7B9FE08FC48CF27ED68AA7B1A5F44EF5648767ADA722 - 146E1CD4B424A526273357D2FEF363F42368A879BE944C26253FEBF11DD17B0B - BB2C9696397C79999D0993759C114B59BC1892399B0CF12D2B71697F55948C49 - 57852CAC7E172EC95143D051199C84D2872C82C8E1D93D122925BE071CAD239B - 501243B2823C5E24FD0A85A8941CB2F6AA1F157659DC83B70E90FC03636768F6 - 4EE1D1A6AEF9ACE45A224E422C258992C490CDB8D142E8374A06E4FD67362CA1 - 94CD7AC22F05124EF91A4DE5260749E8A46E70AA45454E134C043A6472C59F06 - AE18193274FA2F7EF987A794F9C98616677E6C03CD8086BC50AC9D04F709DFB5 - 052DEE5259BA6E6F0519C3C53DB1B5F1EB17C29056DD988E74CAC73D0B557873 - E0C05740E96ECBF6D682C74C50185EF28DB82A629E285DB7359DEC0BC8C479E9 - 94413BD02E121A4624AA194D75C78C25C98403C4275B3814703A473E47F54AFC - D27F8792482154FF518B20978FE95D6C57D874130114687E3D5652458EDE7A6B - 52A29E26B36BA88C99AEA74F9D906504A54D904BB6733AB58FDBB178376FFD83 - 727919FC90F768CF48411EE476EF09FA5AE8CBDC55E63ED48021C9437C92953C - E14BEC93F7ADA2B76A4652941C3AF79B306464F16B059266B9D15106D792FA80 - DA94A4483546FCE36BC5789010DD2648521BD6CBB9E354C6BE191B4D5A93429F - DD6DE1401CDE881CACC4C5837619FCA5C6B28593F86EE474AB0A5793FD1833BF - 9E64217F9F8C73C4BF25DEFCD6A414C71439C9F4F7FCA0843CF9C8D6863E1BB3 - D50C92B58C88FE23764653367B04E4FC3A9DF75FA4ABCE5432DC4A4112792848 - 2D4D72DCC4A7EA1E99EF2AB9B2A21E5193EA1D14C590B4B3C4E494FA506BF1BF - 8324457990CED4BB0425FDDECB29F0E68EB72402E9940093870863BA72496A71 - 579C5F4989EDDA6B0209466225E9DDFB3D55D9DAFEB80BACEB595AB580761059 - 44829221C9FB20B63A0F0D3669499A733E0F39409B8BB071EFBCB038AFA72879 - D75B5A130E9D3F9A42CCA6DAD26C6DF8245A1C76CADDBC3D004CF1490BA92E42 - 3FA8458FB4FBF4CC5521CAE152D931975FAF89B48C510B8354C308C847834FEA - 628ABD6B21EB709A201F9D706F11D4A28A7448DBA762EEBA03439E80B55D8A49 - 2099D2B66FF7E31EA9B59030F7C5E956DD948E02C86F01A9F9546F15FDE24319 - E78A6B7A1424ABF87E64CB8DA38954E7D4234937BD2E24AC1D387ADDBBFF1A7D - DCEFBD1D77932BFA92C7C2BF87F4E58DA9BBAA23245ED91D9B810C89820E6133 - ACB8C7CB1112367A2261CC7C64A47ACF8C843E46941639626F77B27DA4BBA64A - 32EAE3A816EC9AC23C1CC2A227E04E1F0FBA8AA90C40EE766F405AF364EAD571 - 9684D71D24A5A448C994669098CB4D7709AA93AE676149CE6C159B8AB885881C - C9E7BC65C53F47F4B09A27FB3E2787C9FCA62FC0C8ABE69EDA2FE4D1EABDAE53 - 9277CB7E14E9839A30D15271F872975793520C3E58999B4D72F2A02FADFD982E - 86D9C0DCB78F6B42C2DCEDA5A9332209717C1753BD66D13A24F4197CF211FBF6 - F3A48A50D7D1F611D9224B5260E2A0AB1E74FC97285652B6ABB97F073A644C7C - F28A9EB0B5399F9B206D1FCD504A0E385A1FE638C80D8E2889A5EFB6200D5325 - 23A334DF512A9D0B23029C68D121923421947F1555419E70B7652189CD0DC88C - AE5F4ED53B8B9A5B3222B720E29230360350999FEF6EF713EE8395B99592F6DB - E0936B152384F438AEAD430C0E7B535786147BEF26DFDDD99E889D472710E6B0 - 26374027FBFE3D25AA01BF00657AA3C4418E44ADDEDBE16082549B1DAED229D1 - 730CB5D020D3C52969066193F61F922216C5A3E9CE7839CC55B5B960E4BF56EA - E800E21B3DDF7FA2BBE6E0A0F584D4BE4B084A07B9F939D9F7D0605DCF5A561E - 43F6E1D1C094832D7A7C976EA6A4C418E0F249C9C8948780218C0E5A030CC8E6 - BC73E01FAA1F45DC2A3A4BC8A0240FF9D171E930F8F1EEADF716B2BD91CEA1A4 - 5FFA6EDE1D05460E72CE652709902795A0F27A0464E2E943B67D0F9D60D7F00D - 7A9638EF3631E414F2D6FA8A6AD0BA78AC648B6CD9D3CB90AC64B627B9370F10 - 2551D489ECBBFDBE4FBCB835FF2AF9DD8684B47334F1C771B5C31425BCB7F09F - 193E1CDED802F6F3A5D078F14C21E5E03949E054A104EB1F1A0C66E28CAF84CC - 8EDFCD6DC5770C49131CB0ED6F6BEA91EA9D4E4984E85E102D886248767E3348 - F80DFA409CCBC5DA1E267F3ACE9EA9ECED2A901C392E5383928D25BB7DA59EE2 - 35880C7AC48A3227DE8597691F0D9EEFAE3352D0B3D0ADB729B55DFBC35F62B3 - 9ACCA5D41A8001B590A45A6FDF50F2DC934A0C8924D122F46E3F05497F61E46C - 991F470B23BB6A4EE9C7BBCF2985A3472DE8CD8C9C360FF2986DEDBFED41F713 - BC50763CB1082F73D9E19423FBF60E0DD6959C89D64775E9E0751AA438E56E5F - 638ABBEC33FF07FBB62FF9F52BBE1419769563C6A30EA516E18591A08C5AF065 - B1430EC796D292C564086FE121389F883A98DB6A9156458D2F84A4B5213F6EBD - 9D1A40AD96442DE6ADAC937D39188E52E4F1A34A46511271C38C5AE464EF8EDF - FD8E32F7A113ECD74893DECF5CCD8CAD30E9B8A2CC8F5B88F88EA2E2D772D219 - 8ED74B262DB92F7042995E3F02C48780C4D69EE46B447F6BEDC7177D3C2835E0 - C6E1A8BBE34ADD4F2CE25E94B4F6F933B526EA10746CB1206A0129A71CE7191A - 1F1A3F213509908790C5B291818AC7D0567A0E52A9E9275968D5C27FAAF82EA3 - 74E32E4FEEFD42A250D69259B5833FFA603EE10BE1FD1A25023295026EA01BC4 - 5B30D243A1A391C725190D50791FE1B580B897C06D4E83780AF50C5C22E6E600 - 845F57AF1F5362E692BB469930594A6433234576E50D1DEEAE49BB9E25C75950 - 5B8ADFAD336942D602B23BC2854B90816A954C46D52455F2707480F22AA48445 - 4F685DD4828B5D45CA32699B43BB064349AB47F06D5F3F6A943C2672ABB990A9 - 019ABDA5A391AFE573A5248BC7AB36A24FBA3BF03DE4A35AB03A82926FE8562C - 939D44ACE435A280E3DC0DCA2EE56679B0F9821CBF8B387C89B40E97EC26CEFE - 8995FC1315F7357AF5A38F2FFE8DB585D2E3380C7E76958AEFD72847EB154BCC - 2061FA1AE54883C93FCD87C092D078327A0527D93D13C8A45C98DBA19BE7EEEC - E59CA79492B59050922E126F0690888142F9440B83D56C4F56D27971F5C5AD62 - 6D515053528DAB6C094A7FB5CDD8AC30984F6F114AF66D7E91CA9CD944705212 - 2FC507F90A7A36E99044ED3276204100F2D1E077F6A83589B9916217C5FBD926 - 316457A5245386761525B1B9E2EBE9475B48571264A96830E1963226947EE92F - 13ADE21F7C79AEC7ADE8EC24EEB82BF1C4F4EF793219A6F893B2D5CAB9F6BC8C - 5F7A76523F745FAE5E4BA25C6EBC15A42D6B7968C9BCC1B2B584166A916F5207 - 5A30288E2145493BF8A52879D47DD1D65D4964BBBEDABBA7A62462507F0BD021 - 39BEB9EFCA3D212A280BDE568635073307CBE7194AB4B564B746493A232BCCA9 - 3489EC5CBE1FB2D63115BF6887C6BB2C1D4D893BE74A6E4085114212432EB848 - 61712A7268DCB6719ED93F71E01CCD2686ECB020E3652D6E141B5A23734AEA5E - 514F94644B50B7243B7026FB5130240D0627B742A142154A5BDF237CEECEDE0A - 7F3496407448B9968A17CCBB9D6A5212959ABF683E25050F962E2938D13607EE - DAD602CD1EC569F6161D1038DB0C4703691749F085B9DED6119955A929F6D6B2 - 50BD2670CAEA2840524E3FBCF8F82C6A0BFB1ADF8364A34A388E8CBB46956092 - 33294F78424639EFFBFBD292AB73F0992BD97CD47B9EE81BA1A51A7C28698FC8 - 693B7BFE225F862450EE581075D705111AECE93760DB38866446F481DE7D7C5E - 33B6D9208222671E6748697428CA814F1F2928EB97234BA8E321C1ACE52E1AC5 - 84BB3C435944E44780FAD995D9B9E42075B7BA54E2E82690C8E6E3A4B3381F09 - DD7DF923624C779A7F22DBF7027720AEB637498934727BDCC3038605149F9DE4 - 685D9CF86EC955F2A86584FBE04F4039B10BA5DA6864AF442DEDC65DC891C336 - 8A335D621A72669BBC92A793ECC625A13A1081E6DDDE78914E40499A5246C1DC - D55B3E9BE60FE68D203E0E0F213DD716D398B0AB195A7CE7F4A31CBB97A9D143 - 40FA12626F213615B109528B9814544F83D4A5C45821B6C7A2E0143D72FA1534 - BA213A72415C631153814AF0C807B2463FB9D2E89C21794C090267DB38405A7C - F4084BEE569004D704E6224EFC106B0C11A4A4C3CAF78B1E96F12E1583110562 - E6424E939A9049C1CFEA25050D1E4541C9C1664A2A46920311F8B98B38262455 - 764742E24AE9A9881A3FE092A41E8E4EB7EE185849377756326E075D09D6B639 - 69397A4D8B3886163124C4FAD187DAEBA1C306EB79609840C22543A8FAA20F71 - DBEA164C5EA38292110FBBE850F2AE2C15421C3BED89EA35A21D68BFA9A68776 - C5C8ADD62868561E846593235B046B7E02530024C9EE63755E0D2BE90CC829E3 - 34C8A4E0DDBADF37FF9D2565251BE7A197C3FDC58CAE175F89BCDD838A9C7244 - 493E756E569E06C93A7AC92FAB1892284B0B1F0EF1F6AE6765F71A597CD4A388 - E83E97014A2525FE1931C914728C8869BB3267D4A3A82C19EEE4289014DE1509 - A21B287DDFFC6E375C911423F73AFF4D0B80D15EB337DDA647FD2AC4DC7EB356 - CCCA43BB2E9D1494BC2BCB4B416EB3CCF2AA3AC62B6C582EC992BB198D76A0FD - 4EFEC86087AED41DEA71EB0EB56C0DA323D8A9400B216D9098726E9DE3DCFA5C - 135A19B9C0BBA732371265708F1C32195CEB88ECE6D038D78AA31B4AAA844E95 - 4EA441D2ACB4FBEBABC794214DA249E88FCCB78D28DA6ECABA4FABC6EDAA1A27 - D1A320B1016EE43D190B836AF0CB1A835DD96BE75ADEE9C1FEDDEF56A1CE56FB - 0E81D977CF91811C16BCEBBC3C2963C509DA4E87A36EF7E8B3229846BDE76B02 - 65C8C62BFA7D4C83AEA2298757322487A8053D84B945C8853406C1CD421208D1 - 17E1A18C222C476D3BC68E16A01AF0EE1546C48E051FFEAEA156956034508DA1 - A6E513A71C472738909934B3BE74E9B382B378511996584FD558BB9BFB2C9FE0 - 000EEF1E39B31E8CDA556A2F1B2102C9B1467BD074935CD218C73B2340D92313 - C16898EC3C6A45A364AA7ED7198D22B2AD304E59C7A72B4C5937059D788E8760 - A52420EB35B2F827EF2DFC8895C48B57D0C4E95C13B9ACD474659A5DB3517939 - E478A35F91D3B956C5356448669FF7786508A94409EB3C120B8D7A8F0413428E - 42A3D2E17692EC8B819487DFEDB2906327B37C583694DC352A2FA49AE0D7B0B6 - 06C987FEA744E7BAF1FE62A654A1D32ADD8F77A1FBBF536D01483EE9D8901CE4 - 701BB808F61CC7FB78BF758FC82507747D10F17DF28AEEC32D1C167ED46A81C5 - 9E977D3CAE375CA1433669308A1E88C1D1C9933FBA3B8BF62CA04172E2B926E5 - C28FD6F3215243CC13BA812E107C01C19DB46B94FB9468BB59114D66ADA0FBF0 - 395022CC25C6DB89AFD858F19108AA0E5E1F8912226FAF8F2CAE59FF116683F0 - 1CDE1A3C9193BDFBE5D8F6E013A7CE610DDCC3AE2604E6B524F7592B24722C3E - 6AE2BF62D68A16BEC853BB8573F7A48D77397E2F8609E4716E1A89B5788C0D00 - 435AD10D47891B6E6F92685755F412DE63386FC98A59111B3ED8F0A1DDA7A310 - E6A4BC126DA33172016721B638180DC9605546A71EE79031F8523B5227B83B15 - C16731DE0AB5A9A63151803C51E2D94883247F42EC348667CA8F1BD383A45994 - 9074515D8078836417195633E1B7B6D58625280CED0DCD1397DC46D15F796D9E - D0369A41276C8EA079CE85D092BD72D7286E752E5845CA56230A828C1F899E48 - 490011CC26EADA4A94799F3DD5FA3610F91B76A7ABD756661BE720BCE3BAE66D - 82E8FE0C49242DD32C7A80D1842462B1DC72757B33247E0CC8FB28A8FADD486C - BA53D2B625F39C394D6E9EB0D9C1AB6D523094BC3F0F7E29CD233B349210F732 - F8F7910BA21612430291228B415A695D29748437BC401DF211A11EF451D2BBD5 - 6557AF9D5F36E544A3E076ED11DED4846ECC6230FC3F6021894F4BBF9F24E606 - E571EE65E0BBC99502C9A5ADF7A58E68B961EDD5AB68FA8F39D7266C56AF0814 - 3685C64923CE907E01B31F23BE05B21A4DCF7A14C1EF22692B484BCC66B01348 - 0EADF508B26A0BB8A4F73328E99859E23913902494FE0F0E0C63BA07AAA16F5C - 07925365860F053FE6C0590244AA1E13B5351DDB72BBAA9CA7D38FB4B9DD83C6 - 0F5E79119FFDE8158479C4B8A07A1A647EFC34348D633857566BFF24728A93B2 - CD5BDDA6262B31D264652492317F0FC8313BDE8D1A7AADFFB275259E3FD20DE3 - 3FE1947C9C8DA55C21828A92F709906C6EB75CB41CCA2B47633BC030930BAA7E - 97CE7070BBD32A2F3E3122E7A517335FB9FEA03127E3ACE953D69D6048A1CCA4 - D9561CABBBF90D6528A12C6A696BD3B97823CFC49263C80290E71784AF9BD3BD - 5D7B345BB00C36E487293C7575471AD132D221D929791B9A2655B2922BA14235 - B62CD0DBDBB59A664524BDA2D6F1E32B2FFEFA2367A917EDE884EA0D89BD695A - 238C4F68EE7E824F2AD418F52172A1247AA80955D74BC8F0127B36D34398FB7C - C28475AF36CABD614702C92980F1F874D9BC3E69E49FB0BE5A20D17F17256901 - ED400FF198A10933D29887BF20B8B7D1BA1F51EEAFB2BE17F9E3450EA215449F - 8E0AD6B25066EA5902E5049F3C72AFCE73E7C0355182178B21E6E5C51622417C - E7C42A7AB8064A667A1CAFD76819F5F2F7E17CAEB38990094DE8BEA8E548A2A4 - 64A1053BC6D4B3AC02A4349C51A8005B1B0E99C94A7A1CF738EE60F9ABC377FD - 14E494EC64D580B3535AD567A21D797D680C52E698DD1219E2A07BFEB55E5C93 - 234999FA449F313BF26815D1D36EE8042D9B12D31B4A92B17A377DA49DCE2396 - 16416153569237D728975AB1945DC75855910E494FCF33E4947599D75FE2651C - A8B8FCDE9BF4DD83A139FD187A0A67214E957E5BC65F202B78D974A4813E6171 - A44E22258B3D3E6471C25DC5BA202A8D51891D61F158C1C335CBDDB6B59D42EB - DC738FB3535AE894A49FB94F80F48D8292AFC054B99CEFE216FEF36294757516 - 435663C3823390D76AC44D0E203D2E17927361437A82BCBE991E5876718B9054 - D910F9FC6E28052CB8DF8826A439BCC559CA670C1699FE3B10ABC3E2CD4C2F94 - 7C466CC666B40A1614950A25B70F81B90119971C07E9676A7C3A27AD24867493 - 3E7300CD0EE5ED53584D20E13113F3D27F8FDD3568C8AC76F4124CFDCD90AC3F - E9853FF98458EE146E5E31059E9194CB3E793714A1438D4006C7DCDCE626D211 - 387684C5B1E955FE54B1BE870F57C0DBB1D8B7C5F7A7E6D1EDDB834E85D3BADF - 8EB56B1FB74029B97226032688A22B3F6AB292F67DC101FC90A5E49E8291A87E - 074A10C835D58B53D1E3F55A3D8BE61F77E848F40D0191FF861CA7EB2FBDB899 - 3C0F586625CD286F388A765268406A9FB553373D6C3471CBF86163B48BC9E0A1 - 6376F08BEDABE56F02392A6351DDE6A7A96BADBE1D9D7AFEE1374362BCD0A3B4 - A9BF839D987DB7099F78464CCB2E7900906ECCC8F696FD115DAF6411204FAC9A - B8D6EA3CFD5EDEBF21F53FED5338E4F275A23F5FC07F432A6FC821BE79C28B9F - 57714247E8EC0C4DCF9CFD78EA96FB9D8BC5EDF46147D84DDA416137594F3827 - BBA82FBE8CC3D70F3BFF6445DF86DEBE3ECCFD9B21A2247D322C2C9E66020B70 - F7D7CF5C8971BCC1F11687C2DC0F9553B6A7F850A3EC556B120A299E12C7CDB6 - E0CDFD89CA9D0B9DAF9BD6DD40E5A12C2A44378358C91630F8ECE557D672B6A4 - 878D9E5A49CB2331D2262EE3DB81C3D8C240DE5D2D8472FAE1DA35B3BBC19FEC - DA7DD3F0F4BD6301ADF23FD944D3DDD51A04144AAEE4089EF845FCD039A4A494 - F6AD7A67029518CE539FB0E2281A8AB8A90ACEA109DF0C39F9E0051DF1CF1718 - 92AEF7CB795C68C99B8E01BB6A1424CD864B4F4CA1FA168AAF564EC4FDF455E2 - A3199BDB14570B640A2D4F4DBF9664D76E78ECC179DD038E675ED9D4265EFB8D - 9251184329282C7E3994CCF6793833003939946CDEBA9F506298FFD6B7C5E353 - 2A4E8D4EEDBFEE47847639167E81BEF8E48B4F4C4A12847D5C4896A38203526D - 461FE7D021BAC2D70E9015D5EAA85FECD8C66F958CF314CF7C1A98C257A5A1E9 - EE3621EB8BFD2766924D6F764A189C74432B6B87DE849280CC30BA934A42F1A1 - EE09897E80ACB7E9C5204A5D5BDE9F8233A7B03FDAD0B24F6C96714E6D7EBD01 - 391403F2310924EFF3F6D8A920A903AB39710B211F3D9CBA65FCA689B4653C6D - A9061B42E5267211A668BC5CF002C8D4DBA95EF5E70FFFC46B914FEECED00B56 - D56DE22C42E3390DAD0CB55AA944859216433D3626A36F4CE8D2791C07644148 - C24DC3F9F48194B23C35DE10BBADE1849C370B5FF8B3B1D9365FF3DF9B131523 - C11F5BF16995962AEF86C6E703B2C3950ED50BEF376973819A8CA714ABF102B4 - A55A9DF96A513D7193054F8F97625296CFFEB6C5B5FEC197124286708F327376 - 20217478D75BA8E8395330436F2E26D7D1A92B7FE04342C101BC7D9A892881B9 - 6FD2C40E941A5F41FD1B1A5F71B8FEE70B36DC759AF5B98DA2042087F18BAF4C - A16CAA273ED9422E494C26CFF611CE4157DA7F75419684986BA782149A6A8829 - 8F09A9273A62395F0FE33A7A572F40CEE9BBC867467302E5A636C47C8F212340 - 8597686007D7D11B9333C8F86A23A4F39D2D3253BFA29BD6809C98C2C6D815BB - CDB9EA150FEEED30DE2CB9FB4D05D954BC74FDA58EC7D11DCA2AA4EC7A0DCB6D - 46EF9403FE72214E32BC60F9950EC99EFA855729ED06F2D826B2182F22A60476 - B892E2CC8B0EF5D8157BA27DE365FB1761D37B67E8634F40929089A02447846E - 4EEC80084E3A41044865B5E6CBE8A661FE40EA901C2490C1392F391436AEB0A1 - 59E8890AE4AC1515445E590DE8C54CCBE272E9A037AC614AD9498DADC0C2E557 - 52F88F24DE03539C0BAD687CB6E7169AF8A55CA2812D2472E6B37453E3C9107B - A2E317B4FF8BD73F1F05B79EDD6E206B194AF11A60BC08C96986CD4DBA94FD59 - C96364F1E5F241A5A377B9AD5EF60A95BF60B3AC0484B3F8972B584F50B2C125 - 76B2EBC98EC09D5CA4FDE16452E708AB379E9A4DCEB27FB23070CBF814721E78 - A4301052B2EAAEF6A5481F6D3B7E31A72FF72877E6CFC6224788D4E115256728 - 0D3C72319E7D32DB48AFC21358C9168FA8A41290F0B59D5C04ACED701D915D52 - 1B372B2A6C00F9E7909BE5DF5D9B9045BF6525B1117672CDED0F0F3A9C4CEA0A - 2C75195672D06CBEFE75B673D0B46E4C0A09793E5FB5B3934AEDFF91EAD5F2E0 - 1C7A70E51E52D96C42E8D01159094BC8FF18066607899295D6A09C9994BB73F4 - F147259504C8EC207225862C7BC3E1779898CC07B637B2A5F3B7802C1CB7EB50 - BD860448FB52661C749868500FF6B8D91C1B404C2E44734503BF0CCC862AF27B - F1DCF5F94AC9B757CE9965F4FE6D5CEEF1BBF9C861C46E29160F5590F03C15DD - 7C952F35CADD8506AED49A21B389210DE5FDDBD22B0C598772C5ACCFF9A3EBB7 - 774673D36899052177C92E207BA2D2FC41A3AD0292AD0268D0F8000925482BA8 - CB49F305664CDD52CA260564B3632564F4B67C2317B6F8488EF21DA95D555C18 - 430EFA07B93D3C85C94A4FB4DFA9013B1FA7CFBE640044D0A052860CDE39AEFC - BA8DCED8EE9A8214AFA4978AD9297F23E4737439788F05C4243A3C880E13CCAE - AEDE4BDE393A488E5A2ABB270B252F011DEDEF8F12256959C8B171C136D42233 - 7960B539E4CD3660CC0E824D0169596559E629F18DF6A0B20B43EE0423959FFF - 31E7ADF2EB9F9B10CD286DDA5D7C29AB71BF2C860423B4544BD97356C4AB3474 - 0B6C9F1AC0B8831874A7E286C08320388B2E6B58C04ACEFCD11D3908690C89D6 - 9C72209A802341AE2D3C1892AFB672A719E5013B1D2E7581923B697C3C8DDEF5 - 30B0D3E971176D4C3AF24B595C02BC61E175407E1E91CD9D1FA5A450F28FE171 - A0191F2FA8A0A2D1418394CBBADA031190BCACA1FC7CC27604E53BD60CD9E229 - 36A8A1A5408AFF0EE4080E72358C727BF803F7042C7E1B0745466D499F4D5012 - A1377A67C5B340AB3B3E22A4026C472CE60A3DA9230BF5CB2AB4ACCAA646E512 - DF9AC1954CF6F24FCA039047D90D985623E40A41C90FCA5EFDBC327E994FE119 - 045F3E67054F0BDDE483ABB937022547EF8ACD30CA444939324FC3922E0DCB0D - 9FB347A288871713EE747BE173331D59495193B5EC5A5EFC221A1D3EFAD148A4 - 44F0D893C6A108D5B4D009E161577B99CF8BC81A629FAD2C0164FF7BC7D0A8D9 - D368510FDD283E6C27DA1D8192C8F919C6F65718D22708B9A4B2B20B196E25C3 - 25A9C2ABCAD96AC2378014B876F8096BD92E6496406281AE8580A4DF0ED57B06 - 29B59DBCF64A24CD410557812AFDD8CAB2884096D3B68C9E28CED8FF5E763DB4 - BCF608B9D1A0AC3E22F61E7864603687071C2F403AFC1625E574AC61F9B288E8 - 64C3AD41E2D50F293D63D4B50A31B700AAE19A6EF17604A7A4AC0FB1F9578FE3 - 5B18EF3731212A8B97EAA4A5EA0B8D9E754497BFFF32399B2DA6F74C42E4404A - 6EA6807968A0C5218BEAC14706068F5ECFB5F9A08CCF87BD50E979E018359CFF - 6997204377D41B45947F40566F5DE404D4CEB45E66D5A56C7EBDEBB7E295C4F9 - 9C2949DB634EB5284A38327941ADCCBC8667E9F52F7ECE90F72CB31A528D50F2 - B9A974C8824907D3919D8034905B5B05892D55CB43F5967DBA9A00592A45787D - 509F38B8DB5D33A3E4813141F9C0E55B925479489CD2A0625CCC6E7FBF86CC81 - ED490B680D12F305D2B3FF62127373D82A974E325B11941416814C08B9606D59 - 382EA8D17C24335DC95E961D44C8E70849E54B091D4E4202A951828C6AE9F44F - 4DBF5A116B950C746CCC7679A7F2291A2E69B446C313F928DA11487964679282 - 8CDDD6B67D4248427FB22B642515A428D98BBABD59D8B8AEB5754CCEE80C494C - 890E5823D9D0D52C6EA8D1F434F1D419550752C425BDDAB6B309ED726DC58333 - 4FE132AA65454EDD2947FB82473323EB559EB4ADD9310A49F0AAA27B96879257 - ACDCDFD9D046AAF990023B395FFC7C45825EBEE9545495D1D1D1403E97F8A643 - 8DCA9FC9F6ACCA44BA739A90353A0E2AF942513E240AECFFFBAC76D7D22F155F - 183783347B1F1E2442066B87D705F2E1A96354622496327BF0BB4B3C08905CCD - 8783EBF77766B76E476A979A7632AA891206EF4ADFF6A324E7DF94BDB5414492 - 230835DAD127E5036A4481CB820F93777570B099D5EE52FC837B8F5354B2D533 - 16BBA61C7B923C3378D02939A2E95555E97998DA1C9F97A3201F92A7B3D55BD7 - 4CC6664C0FEDA43FD53CAEA8F8D385BEA56B0E94C2E776603B42625C6A58A3E4 - 348192C9CAFCA5760C84DCAA82AF7C71B3CB25EBCF2ED8FD96CBB9B649A92626 - 9176E8599A78AFFA761DD8A22117466F2ECFFE9A72FA19DA889034B86D27670D - D243CE410DFA89344E891D091D50727C2376EA91A2FCEF83494235943F23CFE0 - D03958F9A5258064A754AE615FBB0C871C20FB3704247A2221572C7E732E0CC0 - 66A1C15118A1E4DB17BF28514ACA29949DF9243165F26B7CA7A815D4AEC0E5DB - 0796C894A0AC47CFA8D1438EA0F2FF8956671C5CD5EDADB1ED6A21954FAB84A5 - B79DD24BF0AADF8B161B41E96551E2D0C5B8649E82647307D72F582C2E19F453 - 6DD9FA699E62F0072F74FDF6010DE5069C2D0EB702DE43317CB9B66BABF64DC8 - 1A965343350253550D43D3CD90F17995E5D85A3251EA2DAA8AC2F267835BB66F - 124EE97E460AB94ABFF1169F61DA2EAD9ACD2489B5336754A08AD258F219B9D0 - B696F4B8D05992A51A58CE679AA27CF45E5E0A4FC649D5E019B1433DF99C21DB - 246DA0A78754E3AA61EA42723A4DE2345952695D696DEC4FD6AF76BB4DA26479 - C35E966DAD9AD162B436D86EFAE9AF8C9A94E4C29044BF698CF59E7104917AE7 - 41D87456997C8665783930767956BEB81DBE7A1072EFDA536E5DCB6D0CE8F499 - F2AA2404047755DBD7A31912C9B1BF75C9106C1603B2BC616C90A77365D51E11 - 32D983BDB19F9C4245EC9AA63CB4427A191CE06809061FE2BE773D30C03DF920 - 4FED1B357CA8A08551BE65C8D5B3ACBB2DEE564E97ACFDAAA42D61838FDA6930 - 355A06D578266F6B66997593BA5CA236E45546532BAD0B0DF65CD4E02A67B497 - 8BDB5DEA82C006249F6E24A7D34049B9ABC025A8CF90BBEC1F943814979344CF - 60DDE8C9C1494108783E55A7AEAB603A496DF3620DC5F3BF591C9D1CF4A9F567 - 57CA3C0FF03ED986A63C50DB2E3DF31CF643FB04D93D9731D9CB27F34D6C7F1A - 1C5167AF51DB1AA29A0862B86467CDDCFD885A6D3751D2B51534EB33DE3DFDE2 - 6607829655E8ED0F1E255B6002318A829888C31ED3A0E68DC7E024C17F96CC07 - 2DBD32BACC5E8DA5AFC59C351696A3EFF050B5095053B6400D9C51CB9376D537 - 56BEEBA32091857EA7696B0C9CA7BC685076FF72786B172DB6FB694A086567DE - BC87962B00890E54CB6B0483F35C4BAA929311C7050916ED3AA4ED20E2DD31CF - 92B51D034C3B98AA9CBB385E4A288926FAF483F4E94357959E7C97FA059BD2D7 - A85D92F3910690054E758392AB3F25EBF41FE9C2876BE008F6A83AB264B1F5AB - 5F94B0B985B29FBAADDBED9CB1DBC76ED7E21BB95220AD8CA5AFD201293ADBD3 - F2109F746A398AB53C249AF2E9445095B3940042E26D2CFBB06C63FBC6A150D2 - 72520B8762327CF1C3675308A85B0376E9AD5279C0C67ACF3C69D8294BDFD97C - 59B775FA6FF9558FA6AD9966B047953DA9A17164F09C502205C9FE08C27E3963 - F98DEF0599DCB0FC1A8DA17F6CB16FD578C8A1023E29F68065D5B01990087A5A - 568DDB0516C2769AE7383EB37A9B25FFD1363E05741CED62C621D8849A475D82 - 3AEC8E77D9ECE52057DD7CFDE3CF236F6DFCC7EBC78C0D9705A4724678562FB4 - 009EF7CA6CACAF92327EA317F9B095C10EA6DC362CDB9AFA2CBBC98CC91EC2A8 - 4E91E40FBE176483CB3D7EF9795AC7C517F36A1C8A1D0AC28BE53CD972B31019 - 07B920189F52C453B46DDCB67180C35796830ED0B0030D3DB3AD8FCDD9F41E35 - 38E3FAEA08AAAC5198448B9AFC3036F4C886E5EF3DD80A974E0EEE4F6D2BFBB6 - BD111F1ADFF00CC5D7938CCC4AEEAA1A76A98CB0E15ED905F6E9705FD28FB8E5 - EF3F551A7B847B5E9CD47A6FA757DE97421D8AB35E5D71C3B298C73C0F0C83E1 - C73D84F1871DD0586BDFF11D030AE4A5E2099995C7D0E0ACFCF58E430C02E6FC - 8D6353E7CE174A3E11ACC9C1E45F6765BE4FDB060FA21F2A8F25FAF42A0F8D87 - C9DB847C274A0E3E0437C8B6EE7B1FD1DD8577E074B8D261FF58B9ADE2A1CEA5 - 4F8F6CE8B3FDD5504D2F87628335350EF74A2A54AD1DFEE44468A6546F78C71B - 1D1068FECEB90B1C9DE3CBDAB203D2E4E19DBFA76F0EA1F37263679A79C47063 - BEC2C4D0A45397969E2E2FFEF07AF44D928E6D0852654FEA9367180BEFA98257 - 571E9B136ADDAD9CC3F3A7CE2EB47D5BCEEDE4B38DBEFCF93E9F7CBB88EB6CD8 - 50D3DF115B1B093FFC76CD5AED1FF4A44BC5E4D0453819D0B970188F007198A2 - CD86D8970A9DA1BBB171695649BB208FEF6EA4DFEE483A258698AD2FFDFABEA2 - A40F9A273FCCB6E65C9EF0841A3CF9144AD6CBA33E50126EDD50EA59099F0C7D - F213DF4AB479CED24B3FDF971FCAC98D8E350379D77B0C5FEC9830C1AF1765F2 - 0D3D8DAF667B6A3A795E2A6405E95217EDCA1296B321BB04CFF6FC812AA91BCD - 5B4DCD9B6C3D1DB9B1D40C524AFDF59D197C079D359F5F286868AC06E4EA06A2 - 6406A5F4C9EB6348E773AA86FD50D92D21D10F2928083A02F3A720E70D5A118E - 2F5E7F2FDC545A77B2FFEE4851A6BA97E6AB3F949067365F23C2FB9E7E7855B2 - 5236A3AB8B36789A9DA44BB611907D9F2103797C77E95F9148444CA9614AA9DC - AF3C3FF793B719A52F4D61733FD94A6732264FCDEB132690C388E73C9B5549AB - 91EA98F2A7E191E3F91EBFB17BDE3E5FA7CA28EED3850B2DB2F8EE99FC5509A9 - 2B2014E90FAC2F3E4A64D2A8BEE60FA24A4BD7E89B1F77F658F3F4F4EEB0520D - 527BE04077E9087DD37679C33B946D7C9DDAFA75A3F71ABCF8EB8633193E3E7D - 28CF3012A10897AC76BDFF0ADA2228493FD1F0FB4DF6EF9CB7B4BB6C3CD7A932 - 2B79A493AB8DBA3DAEB54082B752411A8591ACAD4B8C64AA41A5B52C6349805C - FD53BFC3892EC7C79346A90D4AC86F324EBE7F9CE0921D5E219F0348D457B6D2 - 0523942443FA43F6F01F5E27748FD0F558CD2D5BF326F7C9A272F66F4378ABC3 - BCCA525C9CEF1B7DFE5325932DEF589758578A50EA86AF1A9D4E2835B1563756 - B5CC2AA95CDDBCE254FCAB6D49ED8139AF17A91829E1CD91EECE85D0ABAD4FAF - 0FF8EC8F5F37D099A51CB2291298A7887DB21290F2C30ED4EA850D7D7D869049 - 4B5395C97E4BFF1F16F00D78D0D258546A62127752CD6E9E6BAD70A123B57C00 - 4624F5BED125DDDE6BBEA15DBCCB05BE5396BEF3E0BCB235862DE9CF9AEF3596 - B0927EDD00F9EA0FBF3EF9D43A5283841F50B56B74229BBB617928D781AEFCB3 - FC8310ADB0F3DD6BEBCCC5FD5AB0E2867660B64ADD20D9B24ADD22192C6AC45A - 616B02C3D6840D4056F259A1435E3299536A88DF20A007A6A2835ED917240934 - FC2E3F1260835232F245FAB5D0C86E4DE8C421D13F612169E3B1D9F5FC9AD616 - 2615D6ECD27D6CFDEB1DF8E8018B59A564CAE746DC4227256923E5832B027FBC - 1FBD480EF6ADF9777CEAEB2494A4EF90B117464AAF2E29C6172257AF0FDE246A - B17FFB23CDDC9CD70432917C687572683C303B5CA1EB1F1C4132FDDB2AFFE7D5 - 252E075DEF37E1F312F25D4FF6E52B2B4F0208A44CA4BA1C96A45542AAE09219 - 7A71E729C6EC30D28DFBA743C87CF886DF8C1FA5CDFFA1D21AC14D3E09DB636F - DFEA3923FCD7101D329B8CC84062EE5EF4417C10B78B9DA9DA68E1A71756AAED - 0C55E505E58E6D134D7C63D4E8FE7DE57A58D7939672B1B648AA0F7C212FC051 - 0B8A5E67DA41D461E467C9DFCA98CEF9CD10617CEB87A10746C210581A0DCE8B - 740BDFB5FE75C328CD2719D2B24302435202846CF004F6BE1FDF7B7D093D5F67 - 292E2837AACB7099F47295CB43B52B77F56B8C495D13AD6E29239FB4FBC71BEA - 6EB3541C7B742C294A1AC27C1A226DEFB4FE80352C4A626D0D32E69106094638 - 0289B9BB5C5294D4FCC182BD835EAD5B65ADCE6F052D7675D72EC20F4908B942 - 597C03AB68108BA84C9815411A1D57213AA2ED9A2B8F4930877EC590A463EAC3 - 5BDFBE153465FD7FEE5954E3B7C840B69B7F481E66F5B875CCD83242A7F73D72 - 2E2D31562B97A45E67BA34FCE04903C21F35F9E8E7B17A5943349B709569FB80 - A8CC638993D57DA04212F8A455407A65B1AEEA3656BC60B4F80345DC470B17B1 - FB0A3685F9E4E918FBD8423925AB161380FCF186DBAC01F0644DC9E15B730139 - E4875F174EA33586506EB8D82549A520FA00AD261BFCD78A7AC6E4BFAB322087 - 3470226AFBE32B93D50D03D48DAB64604915BDBAE9164F13DDFC8740660E1548 - 52678E698342A43CEB19D7FF44F051DBC90AB235ED1C56428DCB8821B1C0EBEC - DBA264423CB68C3EA0ED233AFCFAE2905DB9A755293AA82A8EF29C5D3BF69C9C - 38595F4DE26FA8A169CAFC465BFA02933BEB4A0E195DCC672FF6A1BA431E914D - 607DA77CF13A8024BC7996FBF3C3E8704F5A4380447283B59590977A7DB0E103 - DAF039DAE9F0A991532BFB98EACA6F3282F29C87F0A58A66949313F9DE0E8993 - F52F13B509F9166F9A923C277EE401796082DC715201F6912B4D6CAEC96DDA05 - B2D7E7E78DDC6B7EF4EE9F0BA70132106D5B5FD284E414B4813E60735F69B0A1 - 6F4AC55FEACCE575726BD8681373D06445C397ED09A7C24CD4BF9EACF031AC51 - 90994313E36958F840D21F1CA1F8F8111BD7EBFDFB2C0B490269EB7D982F147F - 44836AE8EDC1869066F75CA5028A915D9287E1FB87EF1FD3FB2A99D759AB7227 - 1A66F9D04BDD73070C7EE91A08069F368942ABDE489FE143B54A9E4A7935F54A - CDFB9D4C4FE1901289DCB63FE36E75DBC937337C7A91ADBFD5CE74BFF41D742B - 6EDA1A7F03DF64D235DF77B20EA953B2ABFE63DDB2DA924C051E89C8A5A86BAF - 08910CEAB6194CA4DF0354BFA311C95728D9041933E4F8298FD8D405162903EB - 96EBE67EF4DF11686CF8170BC9B6DE24408E26BA55B3860E194224B7B525656D - F6487A3166EC8BBFA217F2ED94B1B9660F1E0120C68FDCE81030A437BD97E157 - 99C100195CAA7AD7652399AEFD22435712D1ED886DD4E3742A9F8A8F58BFD6C9 - 84B89866FB3B40C60801E9459FAFA24963E4A25A74287E377C2D0B69F3341DB7 - AB4EEE910B6D73F5527E96028F04564701F18053558C2234E36316751B50CAF0 - 317FF17726251DC98AF691EFAC8BDF50EA37D31E0FA4C5DA0A666FFDA645DBDF - 907F18C43616C1CDF7AF19BD93138C82D43239436E1F8B6ED18B7C6F9757B796 - A72DA7CF167FA6737E5F39D08180D8B1DC434848C32432618988A225696F32F4 - B2AB55D28A68DFF1C039DCC4A62E489BB5519D1B7A72CCA0193D95CB80C3D69B - 9EE6A7C785F9D1232F824F7E6D0A7B1246D0B55AFA167D7B6FECB7DD9E0DB925 - 2530E811AB35430268C8B2BD975BA003A0AD5FA8F431345754074DF0CEE0AFD7 - 993A4A02F21735F71B2A2E7AFD541E79659D4A34A469BE81E5A1E41DCAE7EBCA - 5D5FE03CF9353C81F40A3CFA1CCB6D9C44E7BD66787B759CB2BB26E01F52D898 - 492BFC61678C2D0B1CB7F04C2D435D2209BD330CA501EBA009BB9E838CAF6D68 - 6BFCC7341FF5CDAAD8B123358F564AE6AABB9928C80E14212125C6B60D8FD92C - BFDC8A3E6ECCFE56143C3FCB2BAB4FEE8E7F3968DD8C6581FBB44CC8AFB4B763 - BAFACB2899DEE4C30E33CA4C8B2552AA9E2715E40ABD4397BA20EFD36D549CBC - E997F651F7CC209BF532DEC1E69F288966B1836436F148DBB1DBC7BE396333DD - 5DBAFA2E2D5DFDE9B58BF5664C1FB2EBF71D43B4EBD251FD1F527F8AAAD528A1 - 0B5D0AA9A3E4D3FA7F3B63541D25FF35423BC453DC87EC7FF9E3CD7FB534D4DC - 49BE747DB438381A94EDCD7AB5DEE9FAD2181DF288E26747E01BD9A3D74E2D68 - 2BBA344B7BD1C27A2D73EB3939D4F8AFEE13A573BA9E325B77582CCD88AB03A9 - 85D9F333DA9B41EE7377BBBA99E402726CD87C9EB671F8B91B33A206CD0CF578 - 7DB496AC6D63B372D55DAA1E659213E990320B9BAEDE5E597AC1DEBBBA04B524 - 43F1DB9F4D7AB9B4F76A07F56D0DF5979CF51BBF3B140DA3CBBFD15F87E7675C - 378BEE3FDC7AB77E55BE1D74249332E90F3A171FE5465E04CA8BECD1A2243125 - C5E4F7098B83929CE4169E11460A376DBD1E1E547CE478FCCAC3DF8C71ECB17F - 92FFE7D8DC91BAD384F6B97E052A2AACDBCD6607AC24AA8D938D93642D7C76E3 - 5AF9C276EC06B2DD3FD2A464984FEF3EBDD3EEC8BC4F7F2EFD3C14901F905BFB - FA3FE786F6E8D82A55924CBB5E674AC8331CD6CEF662489B0C5D62BEF5A6840F - 237A6F3C729CCE5254EE82D01ED49486D2D0818765D60FB74E45A51448084B18 - 532FD338FFF64CAF3A8A622BEF03EEDC5898205F59B480E8AA827C7B9DFFE034 - FAE31CC5BB452D2040BE6995AA02B859AFC30A1279288E0492FB151B6C69F3A7 - 73B16DD64B76E178CFBC7C2EDE8DDA5FCD0DA51E4D29FE73FB4E6ABF414BFF53 - 792D572F141E333CD3DF73C307DB1FD93EB20D6F37ED1F712ABAE745B851EFB4 - F632F3FDBD9DECD2C4DC7C311356D428D98D4BC87E9F6F4C678B1C347A63265C - DB6023F996EBDB6C35DDCD3A3CE8F0BB7C7595CBADEFCEB1920B724549BA5C34 - E55F3A24E54E13559F97EEAF884A4BF8D16BEB7BD38FD2C168F80500AFCA1360 - 869EF8EDF61B69FC942568C98CFB1F7E55202ED28C4A3CD5AD2CD9DC64F0D0EC - 046BF308D6BE6A3A264F65F9F32FB9820CE95FF649966AE5AFF23A0A1AFE1DCF - 7F1BB867B87F3DC9E6A24F5CBD3BF049D997F9D9E0A6EFDF229692AF6FEC41D4 - 74EAD175BCC7D0D6FB0C9B9BE8A58DF81543AA721E811E2B06E324B4381B57B9 - 65F9EBF56321FD4F4F3FE1CE6B3975154A5E7DA3FEC5FF19ED919291EF253476 - 7B784CB37BE47DA6AAE28DA2D3EDE9EA3CBE99D81B8366DC3E91C2ADA13C1993 - 9A5655CAEE07DBFDEF83D116DB64F98F28332E2C4E41666FA6EDDE1C2F8701E8 - F9D246DB472E6ECBA482A8DFFE49E41FE8DEEA8F43D26139D09EF25A2E3C7451 - 51280CB57357769C6A7B4FB3376F7F943D9CF968BF27FB7B33BE597709D9BA5E - 79EA11D3BEF72A0A1C4BFE8DDED9439348289B429AAACABEA9BA51E9B02DF721 - B3EB2889223E3B78982FC7B71DBD93B798375A5B6EE43D00FB8737E567F26C6C - 157B987B4DDE4BA0C31B4E876DD5CD961EC9AE67E0A8E96C4FFE4EEDE8D5A600 - 69BB7F38DF0E17964233F2D5C4CB74BA7D6F5A455F9FFCEAD0C7444A4B0C5397 - F42FE05A2B4675E794491BBDC248298952F8F64970839736AABDC8F9D47EBFB5 - A5AA20B190F4CE9EB487B43D85A69FBA1ADEF8DF6BC813095011D992068789E1 - A8D47E26DC2FBB3800A8199F9544C422ADB816559247B8DBA26D8D9DD047FD98 - 26F169D469FEBF1D08CFBB28A600E467349D265D977D21E11417064894CCF7FA - EEC511CB88B2CB243DE6CAC9792A1D43C88D445D479F7C3594DC7A9FBA5AB0F7 - 72F87005C118D902F248A79119F8161FFBB1A944FBDFBF47EAC6C2D48BE5098F - A12B8EDD0ED0E962B7AEB7A775BCCC5A0679DFB70E58912926C916BDBCA70337 - 3386B26DB1211267785BCA1587F17C49C1A327E7971E133EB753CCB0B669FE14 - C8777BFA92D694F67E306E7E6E4CE3031DC3DFBFD7EC9ED85098F60F57EFA493 - 9B0D580698DC4C10DB503D0473F82AA7CB7C0CC523868AD1DA16049253F19FEB - 5031A53C5747E905EC4C56F26D5478380AE9C5F0CC17C36FBCDD4D3145F1A995 - 4D0EBE011DBFEC78794DABBEEF3BBC41C32EDC9013A64DCF01A0665FBF7F6FFF - FB7893319E1E2E5FE2359CAFDF6AA6F17EC6D212ECCD023B4F717ADA0DBD69FC - 8D5C52FCE7457114F5D7EC9EB7F774F294BD4A8F487CF26DD191B38FA7EC6D0A - 376DE9F9A577A1B71CE6057A50B8036A1C1E1048C30E742C9A2E5D1D2EDDD464 - DF031203338E102BE9E4EEFBCD78393EBEBB58529FEC7DCFA641DEBCF1F5B527 - 75BDB8E79D76F435E9FE234D3333EAA6088F0B6B0925A57084B6A7B2B306A8BD - 7719F9A06DC981C5D880584C2357144DDFCFFD456F3AA835DC4A226D630AA4F2 - 5FE74B1EEBC5B704A48302290731B2571DF45EAC2DC392D3D71271C4EABF8FA5 - A77B9A6E5CF7022B19A0EA490A3EBF768359869F37F2FBDE1FE797AC9BB23388 - 0F821570938475680B2C565B6A8B159346F6999A1463EA42AA35F0662843D220 - F25E5C5B0F457A4F730CD5DA68473C10DD4B0D9717734DA7AFD2140E3723F42B - 18497B0BF9C146B99F50943D19F9718F25C649FBB357F1B5958C5832C85B6CDF - CB5BF577172B209428C5AA72B41A9941424A679AA25FD247EBE8FD5AE93FD305 - 53A287738B7359FAD2D3FF428861EEDEC2F57BB571F5C82872A69125347DBFBA - DF12F1E5A7D3A956D63A83F9B7DC1B1075642A86866F949DC8DA411F1E5F4785 - 7AAF5EC14875A0E50B4B69AE419E0A317D15D6FB3C639742B9D89434CE9FE48A - 8B429A4125EBB42D836CCFE142B04A2E5ED3795691BA984DAE64E5799EF0B6EC - 49D74D2AC4FCC1FB44D948CEDA1D3E9C47A2D042539538992A488A7961E9DCA5 - 8661ABFED6D460EC3C924F26AA31D4C873FF3287E23DD3992F0E195972FC4305 - 29EF9EBC736BB8884582C5139E24DF406FFE8A31B515C48575195962DC2B1799 - 282C751EB07164C974552DCF3A282DD1C7350C232D6F86EBB774277EEE34331A - C879FA14754219F8D6EFE5C75BFD04316710A907BA6B724A2BCBEFC3F76BF707 - 235347C353FBAE7605884520C228782BD44E531B9AEB96EBF6D3C8496812B29F - 838C1325F55A9A18F97A8EB830CB940D95AB500CDF55640F8B38F805E9103AF3 - 0A3C3A988E36FEAF07B5829677E62A46A83834D758C27C084CB9C8377346813A - 06AD1605865272AE21365B8FF7701DFD4ECBB9619643DFA175EC5D85EDAE41CB - BD2827578E3A39B39D4636555EA33D2A5D7B00FDF3507500634CC636F9E250F8 - B96848DA9E8FDC0F9A9AC9053C6C0AB5C49821D6DC14BA8C2DEF74E9FC0EB5DB - 5C50625C058BC32B3F52D15D0BA9C5A9BE7A1993946102972F5415F0DE256AFC - 16FEC9E41685A407CC82281221D1DE9DF9F305B45F3F7DA89BBAE51D666C7987 - 5ADA54D8180C5C9AC9075ADE112197CE9D35F4169CB8640015ACA24278E54743 - 9590DAA569971463B8A4090D385C4DAAB11833F79130A4A8F0F64BE611852CA8 - 851C9A49F68A51DD90E54CA6F3255DC63B8C89E06849361580ACE38DCAD82D69 - EEAC2333576D3C3A003D67B84F0D070D8A7656CEE47CE9FFE68EFC64D870B9BF - 145D8D198F78366A714DA57CE7859174B91347E70D8294E19ACFF1FB1D70ACA9 - B081B94D4F6A6829DFB28E34979696424A0509B49ABDB954AA183977FC9F19D5 - 6E5981944B359592CE25A5DC9C8DBCE1C8377AE09B537C54A5AB2590CC63C390 - A6B3832DED456110AA05C8ED16B671EC57AEE3F62BD0DEED2795370059C5B630 - 47E029FCF3D1631ED58E229BBEE7590E1A245D2D8695C5673803C1DC23F7221F - D7AC7F1A62A8B91155A5D46209350A1BEA5E0B69B902E1A209A90D6E233FE28C - 8338DF038754994D20A9CB254B7973E6872ED325CB2AF5EA52A8CF92E7D31646 - 4754755133B768D656520EE5D68B3D07797CC1995E70C8F54FEB43C9BD7B442B - 8968E6E38EAB4DF7F3DD19B2E51DCBAA5A74332D4BED8D8D4300DA5935DB6A18 - A9AEAB93ABD47AC057CE698F8E53A7256A97D899CD9085B7924949A26240AAD2 - 3859F63A33926E4439A30DDE9B29361221A120EC5CC197CCB292623B09160D51 - 2AC0BE80CF3B7E7D7E3F36244A317EF815CFE85C6BE65E5F2EDE70B5A7B9E1BF - 7F4D7D54B7B73F6B3E23D3811917466A945A8E6048FB4FCEE496F2E802D85A31 - 2A2B57F04EAF0A56D21F9002AECD138D998EFDB5A274E89EB8BC3E79A7DB0CF9 - C2A8A2466A6FBA36A894DCEC33D5E557A5661FFCC20CD24E1FE7B7066432777B - 50362C74D65A46A97EE18253BF2857279D04EBEF7E9EF0E75FE04206074D5E13 - A3E0316AE017545AA5F577D6A48D2CD50C5E42FFF3506AFFFC17A224E7495692 - 9087B8CE97BA48FBBDFEF369790585F0B8DA9FB195CFE325E77EB8181CEAF061 - AEFEC0B78A4FA28666AE30CD5DD3BD77943291BDE610E68312FFBF42DB542B21 - 9992218B496533E742FB4F2AD2A6E511A55B9A5F60F0498A76BE1006976133EB - 423221D7203045EAD13B6A85F9AAD6047E512AD6795E270DF1932FB480ACC058 - ED1C7E733B2B942225305949E59029D3E4B98B1466696FAE230098AF80FF4B49 - 836415812FF29E0F3C251FDD7BD31736FC54A935D3D64CC31B6356B8654A2AB6 - D71C23104B54BC71FA9314B8D0698946157570955A753FF9E293280761AC8ED4 - 9524263C757AAEA2CAEB1366B920AA4D85AE23181990295D8EF53FA62079753C - A7B7B6D75E7DF63E936B336D0D8FE15DFEA6A1917A4D1AF1055F707539F84EDB - C8432AE1E381A74EBF2153D4FDF427EA998B3C8237372ABDCA2EA98537332EA0 - 948AB966D69855EB459FA0B0C00A3965349A4AFBB3B9D9474FBF71BEE20DDD07 - 0A44668C74DCFBFD737655B08C696FD3BD774A851477EABC3C06523989B2D379 - E52D4C8E77CC3D73565C92E6A926877AE147D3C442444BE7B29996F23D823EE1 - 225511F28CA1610788AF1F32F8705DB1229911C1E7901EA061D14C4A9DF67C4F - FE698706AB675C9B0D1554DA86577EEA7C20A5887F80E8947E1216D55A43B3C8 - A9174841564722657D42A75CD2B42AAB8F0A74BB96B2577CC1063D253F832FF6 - 3FB6920E1C5B1956DFE0A3C5B92EE2306D1D33FB0FBBBCB76B9AE99E4369669C - 30C51BBCEEF3DD3592DEA754B9242A4A79BD53CC995F6017E11DEDABA997E3CE - F3F4DC005C04D79F5C6F292022DA05C69E49045BB392D1A683472E0511C4B71F - 99B992A24BF179A5E646459DC79B6BB4047BBBFD59772DCF9D191211AD7D833A - F3E70B544AEF7FCDE6B61F79996FB2C437AED21FEEAB55DC6DE44EB302E46623 - 72870CA2A7061F52E7C9C8B36AE43B6D5879A5E632FD75604E9B2FDCFE7C0EEB - EF8708ED1C215A51CA425A10EC3DEB80A924D26F0CC5757FADD729D3AF606532 - A13C854FAA27E9C85D3D66AAFBF66873A38B0C3F935F3A5240423AFECC385FA3 - 59D1DAD3B1E5AC6875CA92143E6CE64A31959AC63FCA3C70EC23DE8F22F6BE56 - 437FAD7A5A7798B137BDA53FC04FE91556DF04794AD6421AD8D3FAF222AA8F79 - 21EB491E040ACA90FE7E32D29F08FF36676691660FAA1D81177339F6A572C71A - 2971A5AA3A7AB340AC5C69514D91EF538F104279EAF4792E900AF8315CC8E06F - 09DE4CD27EF394EACB1F7CB29F26DCD3FAEA5BF5B50C2109EB43F8EBF521EAD9 - AADAF355FB0FFB96BE59A96B4F725F15752B9D3A06E15B5269B36706D5384582 - 9168D2574586E4042E352104A4C7E440A59C474FC3BE75ECA879C74C75B49779 - 34485DD35A387D98F29ADC6F4E5B92D54DF8081309E597D57DDDFECB20842B95 - 6D9EC62909823654AE24B9B5D0B575F831285175BDD2702854257AB42159BBB9 - D14C9646568A379702170559CBA7D288695D7586F51A7388DCC28FFD42F711D3 - BB7297BA9FFCF5949C491BE5D1ACC490520EDB473F3C2EC347EB4DCF0EAFAB97 - 8BA1F77F13445A1E177DAAC0448FD54A594F95C6F549F7E2A7F575FBD4F98EBF - A5A075D87E6F377355B505EF61538D9AEE71BCF894D7422888EFC54A53D63D67 - 5251F2A9AE9E8BE6C1F281FF099BCD97D5BE2C509CF4FF31AC9C39A59D4A725A - 31E683C9A7D454F44CCDA8020525574D979AADDC5CF767EA011703A8F656FDDA - E7F32B501D2ABDD082BFCC2393045CED09335DCCB4206E7ECDCCA48655D3C588 - 4A17ACD5904B1B35058F9A2FA73F6A4B7BEAD600B3591366CAA3FB266D944256 - 6D54236AA540905926067D551A0E4A9B409BE9A85187D006F90557DF4589E0A2 - 7E35E14379AA96A13702EBC3E71E4BF877C300E25F4CF8102322FA84CD4AD849 - D34520AC56493D89F72888AB2877317BCA94F6C5571F9A4DA32C86E27796934B - 2E30D553332019824C4FFFAA1D7C6A4FE722B3D3CECC1E99AD8BFDD587FA23CD - B467B47CF5A1F61031ADDE58E0ABCD47CD7FA23D140D95FC6AF38499BCCF77E5 - E6098A5B7D6D32E000FD296A868E75D8F80E4FDAE970E8B2E2B3F64C344C66D0 - F3C380DA2295DC4735E7386A5A131DFDAF361A60F6E8B101B54FECFCCBF280F4 - D1A8483FD9ACF6E433391B8DB40F3391FF2AEB5F17A83B97FECBE2FFABC1D031 - 259015D4CEDB939FD6394D413BAB4FE735D9BFEE4A6001A95FED934765319934 - 3D34555DD6A98950F7C77F532D75CEA32C69D076FBA9B33D1646CA5608512F9F - 487ECBE0835E0B337C221762D933EA5C17CCE9A589A3F4D1AA4819701466C55F - 20978F8AF8F077B22699241FA9BF8F3C27193F820B05FAE828F25B2988CBF151 - 9C5873A0CF1943A19CDDCA7B587BF13B1C9D2FA2FB2746E5EDAB0FBF4A9C4C1F - E2E3439EF715EF6B4954A79D9EF9CA749AEC6475EA71A23EA5EA5D3BBF763843 - FF97B337FE5F7BD7135BE575E5CF25A9E3924A03D8F23FD088A85667516BB01C - 8F27B1149819B9C048F5826816291AA91DA116A2B240A8A29A45562CAA4491E5 - 0551612AA4D9147533A091230DA990AA26929BB11CC4547413B16061FC87E115 - 7731885801F7FCBFF7FBDE7BC62430DC48F7F8F9FBEE3DFFEEEF9CCFF8E1FBEE - B9971FC7FC68F8BBF3FC718760703A2F78A905479C03C6E0CE28E5F6FCCFE745 - 63D4EFCA7FF388ACC2E1C08E90FC08A501053F9F67B1AE10B427E3CF088DDEA4 - ACA0DAE89B404EC3DFBC180B39B9C81D62113995B95B61B95598BF08ACF2AB23 - A055F1E7DF00B02A7EFBC628467FFB223F0CFE989406E49FA2DF4AE1BCD6CFEF - 9B3FFF46B261017DA67AFEC8FFED7B93B5C9F511C94E88477E3E258A49F0702B - 6CADFC4F7969DE28254F1FE4A3E8576F3C5245408EBDF0118CCDE18BBF60EEB5 - 8FC6E085CF009B2CB0DB9C5D5EFB482E643AA717166D44AD15D89F3B6A03F2C7 - 574700D1CC3D3F82A890A80B206D6D48E7858F9E1F21D8F8922890E6E8EF6F62 - 684B87D4C990B9D8142D0A855D70E0E0BA73AF7D268EE752276A8EB7A0ABF147 - AECAFDD5DF8D204C7E5D0569881CA831425C6EBFFA19B05C6D5930F2C2EF463C - 4CE18D68DC575909D4ABDC4C789536891D011D54743F1F63C9082700C2ABF0EC - 8823BE5A635439CC7DA620374BE155DA5F953606BCA5DB02CB96ABB2EFAA7CCB - 97B678C33B9553035859376D5517A278CB9DD98EAEE6D6F4AA14997571F8A74A - 97403C8A4447E02AE8A457BD13D69DD2D24C405DC5C754AD980035DC798B41D2 - F9F6F7E32501641DBA5704CA6DE6D54C3750686DD0F271FFF3FD4EC0B13AB9A7 - 6DBEA902354C4E5E3AF9D669026177AAEC7E6734B8AF41984BC5DC190D3AEF5B - A08A2F6981A48CA120483E8867637AA48687F4085E6B7664DDD7B06A6A29C8C5 - 814518E0DB4004872C622C02303BE265EE805A313B95E35D5EAD6206374DF5DB - A723FC439D33B058EFD638A96C0052B1B7625C200DE2494D27489F4DF5E29E44 - 595B1A097122C81B3048D7416B692712F6E465CA37065395445CB553A9332B52 - 75D76C906A04AEE61E94FA1806A824ED41660CF2107211167344AEB6D6B44135 - 0231A95C457350BC38472C6F98BD04A52309C82A0DDEA8F6AAFD563AAD1815C1 - A0459FA8B57731982AE325FCA51CF4230712F9614FAFF3C93A17ED881DFE02E9 - E9A13B7C6432DB5C8CCAA2E0773DFA465D432A8F4D314F756A7AF80F87FF5FFF - FAF22C6C8EEC8CA50D997C5ED4EB175D42382F265AF13C294DCFC5D40F43BE28 - 0DE1848EBE8BB47C6896CFAD90B32BE85895F13EC63D2E8B9FB8D9B7EC3CD6E9 - 13D7E3C00D35E0BBB86337A0524902DAC88BED542B92F870C7769F0D1DA9962C - C74A1B51320BE3299FBBAE393B6E225D31D5C69BA5002423EA469CCF4A4AF845 - 682D3B94C9560FB5B27B6465E7D3F6B4FD6EBBCD27BF3869ECA1D7BC56F707B5 - 819D675BD96EBF1B453100DF6C340DC9BD256E55116A5970872DB3157AA11DDD - 957D4353CEF6EACA05D5B89B6C80AB0A77FD09D886AEB01DDCD8B6CCF5CD736D - 0B5D91DF8564F33F9255412E35865AC1A50F34E367B0E9A7B14BFDD5BEB2BE0C - B5B00F0FFB917D7D68A91FAF5DD8A643CCE80AD8C3167F72DD4577610E01ABF3 - 47B162619FCB9A07D6C30EF4F380C4663F128C749509F6ADE824193C06C2E8DC - 2EA2EB5DE17F6FBEFCC99D5180A1F7817662FEEEBFFDE87A5703F1D136C48D2E - 68743586C8423ABC816F17F31A881D1A43FF4E33C7071AF33F586A000345AF88 - 75E647D787DE7FB9FF3A747144A8CD310CD1B3BA0E4304BE313F2A4214030F72 - 7D485384E3A373491D3EDBA5F05FA3F3DD776896A9EB83B50E9A42BA79676DE0 - E5C67CF7228CCFAFC1246DC745F339071A300FDD8B938D796CCEAF75607F9676 - D31BE599B279E4F15C154F10E277374633DFBD5B2A69751AAB7B77D72777D0A0 - AB015D9FF0E6CF5DC009829B2FC3078C43A620310DB4F4E90374828ABB6F86FF - D405704CB195106D3BC6DBA721685618D83D2B1C64CD76AC7574DF610DB11E67 - E8480766487F7416263FC0E0D413EF82324060D6F8BF681DD00D8B1DE8197DE0 - EDE66E9E049D1DBF79A77B91C645C9E8EC38823C731CF89BAE726F4567808478 - 3565372256A55DF773262A40C5F2788DD126531DE13BC7B5EA06BCE1ADFADDE9 - 38574E2214854E0AA2C4BC68C3F0AC61E0D92246AD57712A9ED49F70F05FF777 - 64531ADB36871E953C147A80F43C60CDDF94D6E20E366BFA506D431BEFBB2A33 - 75539E8E542CFECCEB1A408B37BDB50A2FEC83C7A1763FB47161679356C7DAD6 - CF15A3B13B9EFF7C2DD1EA10A06B95314C8772F098209F0D857DBC16712B9F49 - 2057599E08F77499E2D67BBEF449D654BA16E84234D337DDADEE0520B185C4CA - 29EAD60D139D4005F0F7B6262CEAD802CB5A44F76CE9E5D6D894F355CC486D24 - 6E374B98A6AF2C59051907BAA72A2CD731EE41189677A5A5BFD8BA64EF63FA4E - C5D77B7F52793FC87B5AFADE2AEF6D9B20F352CB479A091554F3A50B52C33F2E - E93B2DBED097BEAFF28984F22E0E864499F2F6AED1880EEBAB1753A1B8FF04F6 - 2E6D8AFAA69E44B744A7EC6EADE7C0CCFA49DC1F7811AEBCE52E5904B155A154 - 41C2D2A68495F8F1AEE9540C95A37695612B23738A882D20332706D9E8D24B83 - 0A6DB8275DFE5F9035A291B0A2559709532572C6FEC46B4B6AB413D440D22618 - D0A5C5CB425D8D784DFAA41399FC3F36E16B6C20A01AA992A875095E6F01687C - D2933CB472ACB10AC8CC8940EED8CCAAEC670A72CF1F79134BDEFA90B7BBA43D - 23B5211B48CA3E97DA2252B128705D9F6EE3A80ABE17A56A590E521DD81117AC - 2749B2C1AA76618F60938D182BF86BDD966C898250835D4D4BFA6A61BB669A86 - E4412E604DD572535382B0E7893D947A506D63563CA9BC956E0C2CEC19BE06C3 - D7F8C2BC61C0FB705C169D345DA5221DAE2FA17EF214BE0F887058CB3F18DF30 - C41EE3E01814BDC8AE5964161F5BA18287386CDED870D8021F161D0B6CD886F4 - 4093813D0FC30852E9DAFD4ED2F8589701E2FDE3B822D0C310DEB5FBAFC4360C - 7B85CBB05F1576B4E7D860B8CA30637BA57EAE7958C3E1AFE8C8AE8F6DA93EC4 - 35FBC84DFBC00BB5057C5C40FE8AEAD8326E7989445C68ACD2162DEE9BF52B9E - 978F7514104B12800C1678972FAED805AEAA35E266D26F458F103F822CD066C1 - BEB75FD164E8CF2455565945B11C89CB70ED25CC5874CC65D053CAE1A0B40819 - A42D25CA522B2DC5CA27B5C0DA542D25C2B1D69465C9028F499A3A195E3A032B - 70FA8C578F4901D18A54CA81D61AADC4BA2855590129DB8AAC15D74ED4B46A4A - 9AF036A15C79FBA7BD277FDAAB5CB20214E8B0BD527A7D72CA13B78246E1A5B7 - 4E03433C7E66A557FEF2674E2FFF757DFC2DC4DFBB72FAAD5E1293026DEB8D4C - EAA202F2B123AA675650F7B4FC590D1C22FEE98C0CD289B1CA1FEB6FF546F85E - BBA67F71AF9C1600D461EF2BE1A52FF363D5969A6742646240E605EA8ABC19F9 - E954CF85D43DF394403E594290742261FDC2776B6917126113B5153C21902007 - D2D1797F7CDB6F17E3F159800ADABF55C4004145FBE9C840B1601590FEAF5551 - 8E1404D1F9B5BB11FBFD6059F0EC280BF687A370BBA78ABBDE7F4C8A65AE9B21 - CB06B77FF3334DD16F7EE6D9D9FFAF7F8F206FF7DC067CE1B73514E96DE2F438 - 665661AD1E15DA459521B6414462A63DB68D19483DF7F83526284D55380470EE - 28E845286956DA8F491A92775241C2D1A0C1AFB721117027C0A17347CFF51C3A - 07472F51F312457D945874BD74F4DC211252D48780788AFC12F5892E91B90649 - 7714912F56C5FE25B580A8235FA6DF94211CE55074A7994CB29C64F836C20046 - 4C8F993051483DF2F048CAEAB745431F0FA58105D411A47008158E9EE3278E4E - 88C30D16C83828E4F0E507058D743404A93F3847CF85DA4F4613297EE8A9C4D0 - D36C628AB0F1BFBBD63F88743F74AE27FEC482FEC4B324543CB4995FD99836F9 - DBC0467C5C3B4840B6C257E7B59D23BABD07257C81FAECCF239D6E06A44F38F9 - B458323D16E7C85299CC24D9F41AF8FC95735AF4A2D2526D560BACD77471DB00 - D51946FF38EDD36F01F8EC5E6DEA92189FC67A040902C03EA92342B1B34D3B9D - 374C263CFDA3BC746A94EC3D61C13126A33A6068FE3CB2955AF354AA98D612D0 - FCD9E6527FF2F162CC443A368EF769788CCF54E3A61EB677C81730FD2214FA7D - 8B12DDFCC4362DB19D55929B8DE6BC04ACECD0E23B7F34595419B68DC9BB3FA9 - 7A7307D1146FE197572E1F9CF8C9BBE9D63AD8BA7259B67D3978D9B780A1B31B - 4902973D0C60B9E81CBCAC7BDD54BE0E4E3433AD1FEF90769396E10FBFA42376 - E91C603A8693369E9A40307A82F104F899B1C4BBFCAE3401C15E998827085F26 - B4AC8E7C625EE62DCAD8E3849CEFC9E14D6024078599444CF96097B241CE1576 - 6368C57BF8173A28544FDB667C1357ECEC6D104800C76EF0F5ACDC13F4A0F827 - E08AE9AA33159A6798B0A8A2738D3F65A88904066681202BCE0831A33E76565F - DE152226543866660145A1C4343128A7528A9584893C32886A32D0B1B313F180 - E7C453F8EFEA3F2471774CDAC0A7879E6560C2D6F3444D03C4B71E8E29DF67E1 - 98A9709357F4B10733C2960044508328224CFEB0CE0A36D0167B0ADF9B1B3BC1 - BB2DD1965187C74E1CBE40CD69380156254E02EC4BBDF87454D65D9AF0FEED3F - 4807D4D068FA84DF95CF96DFFE2177542A4ED4210B349869F714BE877E75F9FE - 89C3BAB67F0E2E1CA6A5F2CC00AF128031D2BD40AEA6917D010ED3F2FF0BD368 - 7081761E39C1DB8FA0118AC5016A5394E683CC2E10146A9335793BCCE302872E - 150A6324BC30AD57EC866F4A7105F0C1501B944A48C502AB999C58FFF3C38AB2 - 9678CC893AC78BB75FE84C2D1F3DC5750F7363BFD8A35AEC11E692029139AB05 - 6129E20EDF3C29933900E99CD093A18DCA4ADA5494A42D8E892EE13D9B19EA5B - 9E82779661EA1D3A11EE944C51E904D2547D4ACB67AD40E7A26C6E4B0255ED93 - 533E61E57D100B1C496D13BF09798F35C27F2C33C2533E99A5536288F964DF32 - F4D1F61FDCB2B92FDA3073B94F2201D2C0E158935CF49DA2D1DF610932FA4EC9 - 84DB3BA4D6B72C8EF8E83D76B08C0249033581954E71D42CB059B6A9F09E5B68 - 43485AB19FB20563135B028A36D650EFDEB57CA44EAA3A1EF2B23CD7F01EFFC2 - 01FD3D30EDBF1C74A320E2309B24F22DFF8CF99FB2FC364A55ABE0D5B0C6AD2A - 5474CD736A72623A703DBDFC8E13DEB4C09CAEFDBEF3DF8D8C0D9268E26F380B - D60D78388FDC829D8EBF2535416C2F20635CFECB15C2D720334A13A6941FC816 - 8420BDE649EB9EB8B6EB6AD2E0822E80E6EAA8A4AF26D1CA9D45D564A0BA93AA - 5FD7565EF85A6448159AD59369FD1968119A94B425356EA6EC256FF265456A16 - A78568457123B1602D81222E204D892508AFE16F0DBD14BF69D19B35156C9D94 - D52415F057ADCECE83F06B745FF5EA8356D48CAB20B7AD6E5BD5865DF19B3B2A - 50B62BB6A0F6922FA38E3011A4E20258DDA65F11123249B46A70234F182CDAE6 - 0C88B14947CD2D0B6C9E283B1B9D82A6874FA35BAD24241C9061B7A995AA3312 - B657B620DDA67AE6299AAE6E4B78160C40A2E3836A2A20C62B6CF3A449D16849 - 1A0E001D780E7C343B35567FCFA7B5137DF8D76C2567B6A37475DB877B952726 - A241BEB5ABA668B1FA7BD8AB8AE458878E793003494A14C42425C384038AC168 - AF9DD1BE57CE48A68E2A300452370389CD6CF67A347ECC7B127C850731A40F5D - 4955455D2CD47BF83A3C598A21B493579BADB5532DF8F089837C1AF4D503F9DC - 837A27E15484CF0224011050F0407671328CF4453778E06A82D6EF6037B1550F - EEA24D0A12667322EA9AE1EBCFE1959C02DF9F93E603C567181F38E0282025FE - 667AC07E4C8941AB4A6C45A1E826F60F2A8FAE661DBE01EDE9C1738FF554EAEA - 8ABBCE33F603CDBFAA58A25CD152021B83CC85BE1A20F77BC91B57D169BDDDF8 - ACBE121A6F5D3638BEC96AC2CDEAB502F90D290884F1B490CF8BE7A420D0F05A - BDA05CC7B5E2CE6AE73450EE79B460117BF495E0ADC6AE92A67A54E3617F0DF5 - 2C24D57D097BBC5E2638EB005B95019A943D56AA076368522C9994024A13AC18 - 504A10B111469B1620A62B0CDBD3066BF6366DB7399AA54CA62B1865B12780AE - DBDC515D25982E83AC33E43CF4DA5A4C6BD6961AFAFA48D87895A6810954FD14 - 578D0AB23FA657E5C665A61613C8C24C90505CAAC2F4B4F6B8EE744744EFAB28 - 7D29A52C77D586ACF51446789C8D9036A41DE986CD9565C2E91AD8945B5D471B - 59555D5A89FAC4403E45FAEA826C71ACD13307E98744C9713F7CA0C6A4A19D01 - 3E22CA0E64E2038B5871261E2EE5E736252737A970867D4596CADBA6616632BD - 6913410A281E5AD8E8277C57BC1BE2196D8A9AA34409ED90BCCEB1CC88581A1E - 6CE40A6FD260730240CF699AB1B1241A9884880526C3525887B01E80AEB4DA81 - 7BD4229EB1AB3449FBACB20A7F6340A2C3576FBA1D221097FAEC24FEF7D721B1 - 9AD4B4E095E2D644908CC087653A5C469662E0EDD640E0C6E2CE5B03A07C946F - 59973BF6916F10D8FD220C30842DEB0C11D6B73C5CDC49F22D0F0387B2E52190 - 39EBD27E21A8C802E41BCAA0C2B0EEE1A0946581DC869505EEEDBCB50B9D0658 - D805EB8889F7C809DC09EB8B406DE0ED7310C5FAE200693ED4349094C3D28D84 - 7833A181104072878618059A84F55B03049CB7270A0B641414262146D12D76B4 - 850D2830CD1DEA2DAF2FEE5AD0DD89762D085A04A9C8F5119948BE772D501DAC - EF5BB40B47E77CA27B20E3B020361CE83A1BD076427843E902AA2C320B078685 - 9D14352CA2001EF263E3AADB9D9CAE051E08DBE193A7FF1B24A1647725F07D98 - DA90E5059FC6FF2FC82F46056401991B159005646E54401690B951015940E646 - 056401991B159005646E54401690B951015940E646056401991B159005646E54 - 401690B951015940E646056401991B159005646E54401690B951015940E64605 - 6401991B159005646E54401690B951015940E646056401991B159005646E5440 - 1690B951015940E646056401991B159005646E54401690B951015940E6460564 - 01991B159005646E54401690B951015940E646056401991B159005646E544016 - 90B951015940E646056401991B159005646E54401690B951015940E646056401 - 991B159005646E54401690B951015940E646056401991B159005646E54401690 - B951015940E646056401991B159005646E54401690B951015940E64605640199 - 1B159005646E54401690B951015940E646056401991B159005646E54401690B9 - 51015940E646056401991B159005646E54401690B951015940E646056401991B - 159005646E54401690B9D15702E49F01D151EA2F0513EC9F0000000049454E44 - AE426082} - WaterMark.Image.Layout = ilTile - object lblFinalizar: TLabel - Left = 168 - Top = 344 - Width = 219 - Height = 13 - Caption = 'Haga click en Finalizar para salir del asistente.' - Visible = False - end - object Label7: TLabel - Left = 224 - Top = 86 - Width = 254 - Height = 14 - Caption = 'Copiando fichero CABVEN en el servidor...' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - end - object Label11: TLabel - Left = 224 - Top = 136 - Width = 252 - Height = 14 - Caption = 'Copiando fichero LUGVEN en el servidor...' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - end - object Label12: TLabel - Left = 224 - Top = 185 - Width = 254 - Height = 14 - Caption = 'Copiando fichero ARTVEN en el servidor...' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - end - object Label13: TLabel - Left = 224 - Top = 296 - Width = 223 - Height = 14 - Caption = 'Cargando datos desde los ficheros...' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - Visible = False - end - object imgOK1: TImage - Left = 200 - Top = 87 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A00000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000001DC4944415478DA63FCFFFF3F032580912C5DF3 - 8539E438B9E2DFFE78FF95640338E6F0C95B2B9BCCFAC1CB617EFEE6B170920C - 10582C68EBA86CBBF425DB5FA1B33FEF07FFB4BEB693680394D7AB04D8C89B2F - BAF1FB25F3F9FFAFC27E595CDA4A7418C8AF920DF7D7F59B73E6F32DD60BBF5F - A57EB3BEB898E840945A2E11E4ABEDBDF0DEEFD75C477EDCCBFD6E7D653A50F8 - 3F510608CE13B0F537F4D9F1E2DF67CEA35FEF767EB6BB5289AE066C00C74406 - 3E265E4E7526C6EF97BF2432FC008971CDE190F7D4F13CC8CCC126BFF3FDE5DD - 1F2F3DF065C8FFF613C300D14562FA96CA668B39F9F83577DC3FBCFAE359AE38 - 06A147CCB65A469BD5C5555D767DBAF2E6E5CF77963F9DEFDEC5E64A46D1C5A2 - 21FE7A3ED3595958440E7DBEF9F7DEFD4B61CA5C921A568A562D073E5FFB7FFF - E5DD98DF41AF96E3F226D80B7A1B7402EDD5ED563DFAF694E5F0ABAB777CC4CC - 25EFFD7AC17DFEF5CD2D5FFD9EF821071A560318EA35989CEDA5762A08CBBA3C - FFF2F23F2350F8C2AF675F5E3FBA6BFE2BFECB757C010D8F059E85BC36E106C1 - FB9F7F7ECEF298E1CBFF9B6FEF4EFFE5FF229B503423A2B15E83C5C541FAC46B - F63F46F7DEDCDBFFF9E9933886CCFF4F89370008F817F0E633B2B2C97E78F1AF - 96A1F8FD77429A410000C7D2C22769B7653D0000000049454E44AE426082} - Visible = False - end - object imgOK2: TImage - Left = 200 - Top = 137 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A00000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000001DC4944415478DA63FCFFFF3F032580912C5DF3 - 8539E438B9E2DFFE78FF95640338E6F0C95B2B9BCCFAC1CB617EFEE6B170920C - 10582C68EBA86CBBF425DB5FA1B33FEF07FFB4BEB693680394D7AB04D8C89B2F - BAF1FB25F3F9FFAFC27E595CDA4A7418C8AF920DF7D7F59B73E6F32DD60BBF5F - A57EB3BEB898E840945A2E11E4ABEDBDF0DEEFD75C477EDCCBFD6E7D653A50F8 - 3F510608CE13B0F537F4D9F1E2DF67CEA35FEF767EB6BB5289AE066C00C74406 - 3E265E4E7526C6EF97BF2432FC008971CDE190F7D4F13CC8CCC126BFF3FDE5DD - 1F2F3DF065C8FFF613C300D14562FA96CA668B39F9F83577DC3FBCFAE359AE38 - 06A147CCB65A469BD5C5555D767DBAF2E6E5CF77963F9DEFDEC5E64A46D1C5A2 - 21FE7A3ED3595958440E7DBEF9F7DEFD4B61CA5C921A568A562D073E5FFB7FFF - E5DD98DF41AF96E3F226D80B7A1B7402EDD5ED563DFAF694E5F0ABAB777CC4CC - 25EFFD7AC17DFEF5CD2D5FFD9EF821071A560318EA35989CEDA5762A08CBBA3C - FFF2F23F2350F8C2AF675F5E3FBA6BFE2BFECB757C010D8F059E85BC36E106C1 - FB9F7F7ECEF298E1CBFF9B6FEF4EFFE5FF229B503423A2B15E83C5C541FAC46B - F63F46F7DEDCDBFFF9E9933886CCFF4F89370008F817F0E633B2B2C97E78F1AF - 96A1F8FD77429A410000C7D2C22769B7653D0000000049454E44AE426082} - Visible = False - end - object imgOK3: TImage - Left = 200 - Top = 186 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A00000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000001DC4944415478DA63FCFFFF3F032580912C5DF3 - 8539E438B9E2DFFE78FF95640338E6F0C95B2B9BCCFAC1CB617EFEE6B170920C - 10582C68EBA86CBBF425DB5FA1B33FEF07FFB4BEB693680394D7AB04D8C89B2F - BAF1FB25F3F9FFAFC27E595CDA4A7418C8AF920DF7D7F59B73E6F32DD60BBF5F - A57EB3BEB898E840945A2E11E4ABEDBDF0DEEFD75C477EDCCBFD6E7D653A50F8 - 3F510608CE13B0F537F4D9F1E2DF67CEA35FEF767EB6BB5289AE066C00C74406 - 3E265E4E7526C6EF97BF2432FC008971CDE190F7D4F13CC8CCC126BFF3FDE5DD - 1F2F3DF065C8FFF613C300D14562FA96CA668B39F9F83577DC3FBCFAE359AE38 - 06A147CCB65A469BD5C5555D767DBAF2E6E5CF77963F9DEFDEC5E64A46D1C5A2 - 21FE7A3ED3595958440E7DBEF9F7DEFD4B61CA5C921A568A562D073E5FFB7FFF - E5DD98DF41AF96E3F226D80B7A1B7402EDD5ED563DFAF694E5F0ABAB777CC4CC - 25EFFD7AC17DFEF5CD2D5FFD9EF821071A560318EA35989CEDA5762A08CBBA3C - FFF2F23F2350F8C2AF675F5E3FBA6BFE2BFECB757C010D8F059E85BC36E106C1 - FB9F7F7ECEF298E1CBFF9B6FEF4EFFE5FF229B503423A2B15E83C5C541FAC46B - F63F46F7DEDCDBFFF9E9933886CCFF4F89370008F817F0E633B2B2C97E78F1AF - 96A1F8FD77429A410000C7D2C22769B7653D0000000049454E44AE426082} - Visible = False - end - object Bevel1: TBevel - Left = 200 - Top = 236 - Width = 404 - Height = 10 - Shape = bsBottomLine - end - object imgBAD1: TImage - Left = 198 - Top = 87 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A0000000467414D410000B18E7CFB5193000002854944415478DAA5935D4853 - 6118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304451021A651 - 362821B1ABA49B6EA4460961D88542055D84DD65454159921749949625CC8F9C - 329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F9FF330CE39 - FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546031A3D6E5F - F329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B81AD2066414 - 14DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA9C27A4439F - 5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E9F80C335C0 - 5BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8E3C8655BD6 - 86D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F03AD1843C15 - 125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD85A01A8A1DE - C5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC3760A7351E3D - 061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB7E5F4CB482 - 2509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF298493275A60CCA08 - 8739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04E6035AF142 - 101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148D92E7BE794 - 778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED245A0729AC6 - A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56A08C20ED94 - 76027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301EAEB507B700 - 334968A6631D019C759C5F627780822413BA194312CDFB41958C137FDB405273 - 9000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F00585538F0EAB2 - 5B380000000049454E44AE426082} - Visible = False - end - object imgBAD2: TImage - Left = 198 - Top = 137 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A0000000467414D410000B18E7CFB5193000002854944415478DAA5935D4853 - 6118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304451021A651 - 362821B1ABA49B6EA4460961D88542055D84DD65454159921749949625CC8F9C - 329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F9FF330CE39 - FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546031A3D6E5F - F329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B81AD2066414 - 14DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA9C27A4439F - 5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E9F80C335C0 - 5BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8E3C8655BD6 - 86D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F03AD1843C15 - 125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD85A01A8A1DE - C5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC3760A7351E3D - 061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB7E5F4CB482 - 2509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF298493275A60CCA08 - 8739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04E6035AF142 - 101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148D92E7BE794 - 778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED245A0729AC6 - A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56A08C20ED94 - 76027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301EAEB507B700 - 334968A6631D019C759C5F627780822413BA194312CDFB41958C137FDB405273 - 9000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F00585538F0EAB2 - 5B380000000049454E44AE426082} - Visible = False - end - object imgBAD3: TImage - Left = 198 - Top = 186 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A0000000467414D410000B18E7CFB5193000002854944415478DAA5935D4853 - 6118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304451021A651 - 362821B1ABA49B6EA4460961D88542055D84DD65454159921749949625CC8F9C - 329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F9FF330CE39 - FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546031A3D6E5F - F329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B81AD2066414 - 14DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA9C27A4439F - 5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E9F80C335C0 - 5BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8E3C8655BD6 - 86D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F03AD1843C15 - 125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD85A01A8A1DE - C5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC3760A7351E3D - 061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB7E5F4CB482 - 2509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF298493275A60CCA08 - 8739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04E6035AF142 - 101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148D92E7BE794 - 778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED245A0729AC6 - A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56A08C20ED94 - 76027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301EAEB507B700 - 334968A6631D019C759C5F627780822413BA194312CDFB41958C137FDB405273 - 9000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F00585538F0EAB2 - 5B380000000049454E44AE426082} - Visible = False - end - object imgOK4: TImage - Left = 200 - Top = 296 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A00000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000001DC4944415478DA63FCFFFF3F032580912C5DF3 - 8539E438B9E2DFFE78FF95640338E6F0C95B2B9BCCFAC1CB617EFEE6B170920C - 10582C68EBA86CBBF425DB5FA1B33FEF07FFB4BEB693680394D7AB04D8C89B2F - BAF1FB25F3F9FFAFC27E595CDA4A7418C8AF920DF7D7F59B73E6F32DD60BBF5F - A57EB3BEB898E840945A2E11E4ABEDBDF0DEEFD75C477EDCCBFD6E7D653A50F8 - 3F510608CE13B0F537F4D9F1E2DF67CEA35FEF767EB6BB5289AE066C00C74406 - 3E265E4E7526C6EF97BF2432FC008971CDE190F7D4F13CC8CCC126BFF3FDE5DD - 1F2F3DF065C8FFF613C300D14562FA96CA668B39F9F83577DC3FBCFAE359AE38 - 06A147CCB65A469BD5C5555D767DBAF2E6E5CF77963F9DEFDEC5E64A46D1C5A2 - 21FE7A3ED3595958440E7DBEF9F7DEFD4B61CA5C921A568A562D073E5FFB7FFF - E5DD98DF41AF96E3F226D80B7A1B7402EDD5ED563DFAF694E5F0ABAB777CC4CC - 25EFFD7AC17DFEF5CD2D5FFD9EF821071A560318EA35989CEDA5762A08CBBA3C - FFF2F23F2350F8C2AF675F5E3FBA6BFE2BFECB757C010D8F059E85BC36E106C1 - FB9F7F7ECEF298E1CBFF9B6FEF4EFFE5FF229B503423A2B15E83C5C541FAC46B - F63F46F7DEDCDBFFF9E9933886CCFF4F89370008F817F0E633B2B2C97E78F1AF - 96A1F8FD77429A410000C7D2C22769B7653D0000000049454E44AE426082} - Visible = False - end - object imgBAD4: TImage - Left = 198 - Top = 296 - Width = 16 - Height = 16 - AutoSize = True - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000 - 00001008060000001FF3FF61000000097048597300000AEB00000AEB01828B0D - 5A0000000467414D410000B18E7CFB5193000002854944415478DAA5935D4853 - 6118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304451021A651 - 362821B1ABA49B6EA4460961D88542055D84DD65454159921749949625CC8F9C - 329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F9FF330CE39 - FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546031A3D6E5F - F329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B81AD2066414 - 14DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA9C27A4439F - 5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E9F80C335C0 - 5BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8E3C8655BD6 - 86D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F03AD1843C15 - 125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD85A01A8A1DE - C5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC3760A7351E3D - 061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB7E5F4CB482 - 2509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF298493275A60CCA08 - 8739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04E6035AF142 - 101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148D92E7BE794 - 778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED245A0729AC6 - A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56A08C20ED94 - 76027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301EAEB507B700 - 334968A6631D019C759C5F627780822413BA194312CDFB41958C137FDB405273 - 9000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F00585538F0EAB2 - 5B380000000049454E44AE426082} - Visible = False - end - object lblError: TLabel - Left = 225 - Top = 316 - Width = 127 - Height = 13 - Caption = 'Mensaje de error al cargar' - Font.Charset = DEFAULT_CHARSET - Font.Color = clRed - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - Transparent = True - Visible = False - end - object pbarCABVEN: TProgressBar - Left = 224 - Top = 104 - Width = 344 - Height = 17 - TabOrder = 0 - end - object pbarLUGVEN: TProgressBar - Left = 224 - Top = 154 - Width = 344 - Height = 17 - TabOrder = 1 - end - object pbarARTVEN: TProgressBar - Left = 224 - Top = 203 - Width = 344 - Height = 17 - TabOrder = 2 - end - object JvAnimate1: TJvAnimate - Left = 200 - Top = 296 - Width = 16 - Height = 16 - CommonAVI = aviFindComputer - StopFrame = 8 - Visible = False - end - object bCargar: TButton - Left = 200 - Top = 253 - Width = 97 - Height = 25 - Caption = '&Cargar ficheros' - Enabled = False - TabOrder = 4 - OnClick = bCargarClick - end - end - end - object RORemoteService: TRORemoteService - ServiceName = 'srvTransfereciaFicheros' - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - Left = 80 - Top = 256 - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.pas deleted file mode 100644 index c2d2d34..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteCargaFicheros.pas +++ /dev/null @@ -1,344 +0,0 @@ -unit uAsistenteCargaFicheros; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, JvWizard, JvExControls, JvComponent, StdCtrls, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit, - cxGraphics, cxDropDownEdit, Mask, JvExMask, JvToolEdit, cxGroupBox, - ComCtrls, uROClient, SyncObjs, VARELA_Intf, - uROServiceComponent, uRORemoteService, uDataModuleBase, pngimage, - ExtCtrls, JvExComCtrls, JvAnimate; - -type - TfAsistenteCargaFicheros = class(TForm) - JvWizard1: TJvWizard; - JvWizardWelcomePage1: TJvWizardWelcomePage; - Label1: TLabel; - pageRutas: TJvWizardInteriorPage; - Label3: TLabel; - pagFinal: TJvWizardWelcomePage; - lblFinalizar: TLabel; - cbVentas: TCheckBox; - cbInventario: TCheckBox; - Label2: TLabel; - Label4: TLabel; - Label5: TLabel; - edtCABVEN: TJvFilenameEdit; - edtLUGVEN: TJvFilenameEdit; - edtARTVEN: TJvFilenameEdit; - cxGroupBox1: TcxGroupBox; - cxGroupBox2: TcxGroupBox; - Label8: TLabel; - Label9: TLabel; - Label10: TLabel; - JvFilenameEdit1: TJvFilenameEdit; - JvFilenameEdit2: TJvFilenameEdit; - JvFilenameEdit3: TJvFilenameEdit; - Label7: TLabel; - Label11: TLabel; - Label12: TLabel; - Label13: TLabel; - pbarCABVEN: TProgressBar; - pbarLUGVEN: TProgressBar; - pbarARTVEN: TProgressBar; - RORemoteService: TRORemoteService; - imgOK1: TImage; - imgOK2: TImage; - imgOK3: TImage; - Bevel1: TBevel; - imgBAD1: TImage; - imgBAD2: TImage; - imgBAD3: TImage; - imgOK4: TImage; - imgBAD4: TImage; - lblError: TLabel; - JvAnimate1: TJvAnimate; - bCargar: TButton; - procedure JvWizard1FinishButtonClick(Sender: TObject); - procedure cbVentasClick(Sender: TObject); - procedure edtCABVENChange(Sender: TObject); - procedure edtLUGVENChange(Sender: TObject); - procedure edtARTVENChange(Sender: TObject); - procedure pagFinalEnterPage(Sender: TObject; - const FromPage: TJvWizardCustomPage); - procedure bCargarClick(Sender: TObject); - procedure pagFinalPage(Sender: TObject); - private - { Private declarations } - FCritical: TCriticalSection; - FFileService: IsrvTransfereciaFicheros; - procedure ActualizarBotonesNav; - procedure OnUploadAborted(Sender: TObject); - procedure OnUploadError(Sender: TObject); - procedure OnUploadFinished(Sender: TObject); - procedure OnUploadProgress(Sender: TObject); - procedure OnUploadStarted(Sender: TObject); - procedure OnLoadSuccess(Sender: TObject); - procedure OnLoadError(Sender : TObject); - procedure CargarFicherosEDI; - procedure SubirFicheros; - public - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; - end; - - procedure VerAsistenteEtiquetasMontajes; - -implementation - -uses - uSubirFicheros, uCargarFicheros; - -{$R *.dfm} - -procedure VerAsistenteEtiquetasMontajes; -var - fAsistenteCargaFicheros: TfAsistenteCargaFicheros; -begin - with TfAsistenteCargaFicheros.Create(NIL) do - try - ShowModal; - finally - Free; - end; -end; - - -procedure TfAsistenteCargaFicheros.JvWizard1FinishButtonClick( - Sender: TObject); -begin - Close; -end; - -procedure TfAsistenteCargaFicheros.cbVentasClick(Sender: TObject); -begin - edtCABVEN.Enabled := (Sender as TCheckBox).Checked; - edtLUGVEN.Enabled := (Sender as TCheckBox).Checked; - edtARTVEN.Enabled := (Sender as TCheckBox).Checked; - ActualizarBotonesNav; -end; - -procedure TfAsistenteCargaFicheros.ActualizarBotonesNav; -var - bActivarNext : Boolean; -begin - bActivarNext := True; - if JvWizard1.ActivePageIndex = 1 then // Rutas de ficheros - begin - bActivarNext := bActivarNext and (cbVentas.Checked or cbInventario.Checked); - - bActivarNext := bActivarNext and - ((Length(edtCABVEN.Text) > 0) and - (Length(edtLUGVEN.Text) > 0) and - (Length(edtARTVEN.Text) > 0)); - pageRutas.EnableButton(bkNext, bActivarNext); - end; -end; - -procedure TfAsistenteCargaFicheros.edtCABVENChange(Sender: TObject); -begin - ActualizarBotonesNav; -end; - -procedure TfAsistenteCargaFicheros.edtLUGVENChange(Sender: TObject); -begin - ActualizarBotonesNav; -end; - -procedure TfAsistenteCargaFicheros.edtARTVENChange(Sender: TObject); -begin - ActualizarBotonesNav; -end; - -procedure TfAsistenteCargaFicheros.OnUploadAborted(Sender: TObject); -begin - fCritical.Enter; - with Sender as TSubirFicheroThread do - try - if Pos(FileName, edtCABVEN.Text) > 0 then - imgBAD1.Visible := True; - if Pos(FileName, edtLUGVEN.Text) > 0 then - imgBAD2.Visible := True; - if Pos(FileName, edtARTVEN.Text) > 0 then - imgBAD3.Visible := True; - finally - fCritical.Leave; - end; -end; - -procedure TfAsistenteCargaFicheros.OnUploadError(Sender: TObject); -begin - fCritical.Enter; - with Sender as TSubirFicheroThread do - try - if Pos(FileName, edtCABVEN.Text) > 0 then - imgBAD1.Visible := True; - if Pos(FileName, edtLUGVEN.Text) > 0 then - imgBAD2.Visible := True; - if Pos(FileName, edtARTVEN.Text) > 0 then - imgBAD3.Visible := True; - finally - fCritical.Leave; - end; -end; - -procedure TfAsistenteCargaFicheros.OnUploadFinished(Sender: TObject); -begin - fCritical.Enter; - with Sender as TSubirFicheroThread do - try - if UploadOK then - begin - if Pos(FileName, edtCABVEN.Text) > 0 then - imgOK1.Visible := True; - if Pos(FileName, edtLUGVEN.Text) > 0 then - imgOK2.Visible := True; - if Pos(FileName, edtARTVEN.Text) > 0 then - imgOK3.Visible := True; - end; - finally - fCritical.Leave; - end; - if imgOK1.Visible and imgOK2.Visible and imgOK3.Visible then - bCargar.Enabled := True; -end; - -procedure TfAsistenteCargaFicheros.OnUploadProgress(Sender: TObject); -begin - FCritical.Enter; - try - with Sender as TSubirFicheroThread do - begin - if Pos(FileName, edtCABVEN.Text) > 0 then - pbarCABVEN.Position := CurrentBytePos; - if Pos(FileName, edtLUGVEN.Text) > 0 then - pbarLUGVEN.Position := CurrentBytePos; - if Pos(FileName, edtARTVEN.Text) > 0 then - pbarARTVEN.Position := CurrentBytePos; - end; - finally - fCritical.Leave; - end; -end; - -procedure TfAsistenteCargaFicheros.OnUploadStarted(Sender: TObject); -begin - FCritical.Enter; - with Sender as TSubirFicheroThread do - try - if Pos(FileName, edtCABVEN.Text) > 0 then - pbarCABVEN.Max := FileSize; - if Pos(FileName, edtLUGVEN.Text) > 0 then - pbarLUGVEN.Max := FileSize; - if Pos(FileName, edtARTVEN.Text) > 0 then - pbarARTVEN.Max := FileSize; - finally - FCritical.Leave; - end; -end; - -constructor TfAsistenteCargaFicheros.Create(AOwner: TComponent); -begin - inherited; - FCritical := TCriticalSection.create; - FFileService := RORemoteService as IsrvTransfereciaFicheros; -end; - -destructor TfAsistenteCargaFicheros.Destroy; -begin - FFileService := nil; - FCritical.Free; - inherited; -end; - -procedure TfAsistenteCargaFicheros.pagFinalEnterPage( - Sender: TObject; const FromPage: TJvWizardCustomPage); -begin - SubirFicheros; -end; - -procedure TfAsistenteCargaFicheros.CargarFicherosEDI; -begin - JvAnimate1.Visible := True; - JvAnimate1.Active := True; - Label13.Visible := True; - pagFinal.EnableButton(bkBack, False); - pagFinal.EnableButton(bkCancel, False); - imgBAD4.Visible := False; - imgOK4.Visible := False; - lblError.Visible := False; - - TCargarVentasThread.Create(ExtractFileName(edtCABVEN.Text), ExtractFileName(edtLUGVEN.Text), - ExtractFileName(edtARTVEN.Text), OnLoadSuccess, OnLoadError); - -{ TCargarInventarioThread.Create(ExtractFileName(edtCABVEN.Text), ExtractFileName(edtLUGVEN.Text), - ExtractFileName(edtARTVEN.Text), OnLoadSuccess, OnLoadError);} -end; - -procedure TfAsistenteCargaFicheros.SubirFicheros; -begin - TSubirFicheroThread.Create(edtCABVEN.Text, OnUploadStarted, OnUploadProgress, - OnUploadFinished, OnUploadAborted, OnUploadError); - - TSubirFicheroThread.Create(edtLUGVEN.Text, OnUploadStarted, OnUploadProgress, - OnUploadFinished, OnUploadAborted, OnUploadError); - - TSubirFicheroThread.Create(edtARTVEN.Text, OnUploadStarted, OnUploadProgress, - OnUploadFinished, OnUploadAborted, OnUploadError); -end; - -procedure TfAsistenteCargaFicheros.OnLoadError(Sender: TObject); -begin - JvAnimate1.Visible := False; - JvAnimate1.Active := False; - imgBAD4.Visible := True; - lblError.Caption := (Sender as TCargarFicherosThread).ErrorText; - lblError.Visible := True; - pagFinal.EnableButton(bkBack, True); - pagFinal.EnableButton(bkCancel, True); -end; - -procedure TfAsistenteCargaFicheros.OnLoadSuccess(Sender: TObject); -begin - Beep; - JvAnimate1.Visible := False; - JvAnimate1.Active := False; - imgOK4.Visible := True; - Label13.Caption := 'Ficheros cargados correctamente'; - lblFinalizar.Visible := True; - pagFinal.EnableButton(bkFinish, True); -end; - -procedure TfAsistenteCargaFicheros.bCargarClick(Sender: TObject); -begin - bCargar.Enabled := False; - CargarFicherosEDI; -end; - -procedure TfAsistenteCargaFicheros.pagFinalPage(Sender: TObject); -begin - bCargar.Enabled := False; - imgOK1.Visible := False; - imgOK2.Visible := False; - imgOK3.Visible := False; - imgOK4.Visible := False; - imgBAD1.Visible := False; - imgBAD2.Visible := False; - imgBAD3.Visible := False; - imgBAD4.Visible := False; - pbarCABVEN.Position := 0; - pbarLUGVEN.Position := 0; - pbarARTVEN.Position := 0; - JvAnimate1.Visible := False; - lblFinalizar.Visible := False; - lblError.Visible := False; - Label13.Visible := False; - Label13.Caption := 'Cargando datos desde los ficheros...'; - pagFinal.EnableButton(bkBack, True); - pagFinal.EnableButton(bkCancel, True); - pagFinal.EnableButton(bkFinish, False); -end; - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteEtiquetasMontajes.dfm b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteEtiquetasMontajes.dfm deleted file mode 100644 index cd43bed..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteEtiquetasMontajes.dfm +++ /dev/null @@ -1,6759 +0,0 @@ -object fAsistenteEtiquetasMontajes: TfAsistenteEtiquetasMontajes - Left = 159 - Top = 496 - ActiveControl = bImprimir - BorderStyle = bsDialog - Caption = 'Asistente para la impresi'#243'n de etiquetas' - ClientHeight = 376 - ClientWidth = 520 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object JvWizard1: TJvWizard - Left = 0 - Top = 0 - Width = 520 - Height = 376 - ActivePage = JvWizardWelcomePage2 - ButtonBarHeight = 42 - ButtonStart.Caption = 'To &Start Page' - ButtonStart.NumGlyphs = 1 - ButtonStart.Width = 85 - ButtonLast.Caption = 'To &Last Page' - ButtonLast.NumGlyphs = 1 - ButtonLast.Width = 85 - ButtonBack.Caption = '< &Atr'#225's' - ButtonBack.NumGlyphs = 1 - ButtonBack.Width = 75 - ButtonNext.Caption = '&Siguiente >' - ButtonNext.NumGlyphs = 1 - ButtonNext.Width = 75 - ButtonFinish.Caption = '&Finalizar' - ButtonFinish.NumGlyphs = 1 - ButtonFinish.Width = 75 - ButtonCancel.Caption = 'Cancelar' - ButtonCancel.NumGlyphs = 1 - ButtonCancel.ModalResult = 2 - ButtonCancel.Width = 75 - ButtonHelp.Caption = '&Ayuda' - ButtonHelp.NumGlyphs = 1 - ButtonHelp.Width = 75 - ShowRouteMap = False - OnFinishButtonClick = JvWizard1FinishButtonClick - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - DesignSize = ( - 520 - 376) - object JvWizardWelcomePage1: TJvWizardWelcomePage - Header.Height = 80 - Header.Title.Color = clNone - Header.Title.Text = 'Impresi'#243'n de etiquetas' - Header.Title.Anchors = [akLeft, akTop, akRight] - Header.Title.Font.Charset = DEFAULT_CHARSET - Header.Title.Font.Color = clWindowText - Header.Title.Font.Height = -19 - Header.Title.Font.Name = 'Tahoma' - Header.Title.Font.Style = [fsBold] - Header.Subtitle.Color = clNone - Header.Subtitle.Text = 'Bienvenido al asistente de impresi'#243'n de etiquetas para montajes.' - Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] - Header.Subtitle.Font.Charset = DEFAULT_CHARSET - Header.Subtitle.Font.Color = clWindowText - Header.Subtitle.Font.Height = -13 - Header.Subtitle.Font.Name = 'Tahoma' - Header.Subtitle.Font.Style = [] - Header.ShowDivider = False - WaterMark.Image.Picture.Data = { - 07544269746D617082960100424D82960100000000003204000028000000A400 - 000074020000010008000000000050920100120B0000120B0000FF000000FF00 - 000000000000FFFFFF005320060057230800F6E7E900AD9B9C003F3838006B68 - 6800615E5E0058565600E7DEDD00483D3A0041312B0057230B00552107005321 - 07005B2509005923090057230900552309005D270B005B250B0059250B005222 - 0A0055230B004D210A005F290D005D270D0053250D004F240E0087411D007C3C - 1C009147210087411F0085411F0083411F0089432100813F1F007E3F1F008643 - 2100753B1D0082422100502A17004427180038201400623D2B005B4032004E37 - 2B0057230700552307005925090061290B0056250A005B270B00652C0D005927 - 0C00622B0E00652D0F00632D0F00683011005A290F006C331300763816005528 - 1000723616005D2C12006E3516007E3E1A007A3B190082401B00733918006431 - 150087431D007A3D1A0085411D0085431D00954B210083411D00763A1A00924A - 21008A461F007038190087431F0080411D008F4921008E47210085431F008343 - 1F00924B23008A462100793D1D0080411F0086462100804320007C411F008947 - 2300723B1D0083482600532F1C005A3623006A48360073503D007A564300825F - 4C00926E5A00652D0A006A300B00793B160085421B00924A1F008E491F009A4F - 220083431D00964D2200773D1B009E52250086451F00A255260083451F00723C - 1B00924D23008F4C2300763E1D00A5582900965025008A49220079401E00AB5D - 2C00A85B2B008D4B2400723D1D00924F2600824622006B3A1C0068381B006436 - 1A006E3B1D00965228008E4D2600A25A2C009A552A008A4D26008A4B26008649 - 2500925129007D452400AF6233008C4E2900884C280090512B0095542D00A35E - 320098583000B46839009D5B3200C2734100A05F3600A5623900AB673C007D4F - 3300CEC4BE00672F0B006D340C00AE602D00B3632F009E582A00B8693300B366 - 3200A25E2E00BB6D3600A86030009D592D00AC643300C0713A00B76D3A00BB6F - 3C00C6774200CB7A4600B16D40009276640074390E007B411500864A1C008A4F - 220097592A00B56C3600A5633100B0683500CA7A3F00C4763D00BE733C00C77A - 4000CD7E4300D1814600A76B3E007F400E0083451100884914008B4D18008146 - 18008D501C0090552300A2673800B0764700B57B4D00BC825300D3B8A100FFE0 - C600BAA390009E8B7C00826D5B00FFDBBB00EAD0B900FFE7D200B6A99D00FFED - DD00C1B6AC00FFF7F000FFF3E7004E4D4C00FBFAF900FEFBF5007E7E7D00FCFC - FB0090908F00E8E9E800D0D1D000BFC0BF00BBBCBB00B7B8B700B1B2B100DCDF - DD00CBCECC00D1D6D300D6DAD800E2E4E30072797600C6C9C800C2C5C400F0F1 - F100EDEEEE00ACADAD0097989800F9F9F900F7F7F700F5F5F500F3F3F300B4B4 - B400AFAFAF00AAAAAA00A6A6A600A2A2A2009D9D9D0087878700434343000202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020203110311110303030303030303030303030303030303030303 - 0303030303030303030303030303030303111103111111111111111111321132 - 3232321132111111111111111111111111111111111111111111111111111111 - 1111111111111111321616161616321111111103030303030E0E0E0E0E0E0E0E - 300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E6969A2C302030303110303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303031111111111111111 - 1111111111111111111111111111111111111111111111111111111111111111 - 111111031111111111111111321616161616321111111103030303030E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E6969B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303111111 - 1111111111111111111111111111111111111111111111111111111111111111 - 1111111103031111111111111111111111321616161632111111110303030303 - 0E0E0E0E0E0E0E0E300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0311111111111111111111111111111111111111111111111110111111111111 - 1111111111111111030311111103111111111111113216161616321111110303 - 030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303111111111111111111111111111111111111111111111111111111 - 1111111111111111111111111111110303111111111111111132161616163211 - 111103030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969A2C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303031111111111111111111111111111111111111111111111 - 1111111111111111111111111111111111110311030311111111111111323216 - 1616321111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303031111111111111111111111111111111111111111 - 1111111111111111111111111111111111110311110303031111111111111111 - 111132161632111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 1111111111111111111111111111111111111111111103110303030303031111 - 11111111113232323232111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E6969B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303031111111111111111111111 - 1111111111111111111111111111111111111111111111111111110303030303 - 0311031111111111111132323232111111110303030303030E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E6969A2C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030311111111111111 - 1111111111111111111111111111111111111111111111111111111111111103 - 0303030303030311111111111111113232111111111103030303030E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E6969B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030311 - 1111111111111111111111111111111111111111111111111111111111111111 - 111111030303030303030311111111111111113232111111111103030303030E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030311111111111111111111111111111111111111111111111111111111 - 1111111111031103030303030303111111111111111111323211111111110303 - 0303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303031111111111111111111111111111111111111111111111111111 - 1111111111111111110303030303030303030303111111111111111111111111 - 111103030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303111111111111111111111111111111111111111111 - 1111111111111111111111111103030303030303030303031111111111111111 - 11111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303031103111111111111111111111111111111 - 1111111111111111111111111111031111030303030303030303030311111111 - 111111111111111111030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311111111111111111111111111 - 1111111111111111111111111111111111111103030303030303030303030303 - 111111111111111111111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E6969B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303111111111111111111 - 1111111111111111111111111111111111111111111111031103030303030303 - 03030303031111111111111111111111110303030303030E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E69A1B4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303111111 - 1111111111111111111111111111111111111111111111111103031103030303 - 0303030303030303031111111111111111111111110303030303030E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0311111111111111111111111111111111111111111111111111111111110303 - 030303030303030303030303031111111111111111111111110303030303030E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303111111111111111111111111111111111111111111111111111111 - 1111030303030303030303030303030303031111111111111111111111030303 - 0303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303031111111111111111111111111111111111111111111111 - 1111111103030303030303030303030303030303030311111111111111111111 - 110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303111111111111111111111111111111111111 - 1111111111111111030303030303030303030303030303030303111111111111 - 111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 1111111111111111110311030303030303030303030303030303030303031111 - 1111111111111111030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303031111111111111111111111 - 1111111111111111111111111111030303030303030303030303030303030303 - 0303111111111111111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E6969B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030311111111111111 - 1111111111111111111111111111111111110303030303030303030303030303 - 03030303030303111111111111111111030303030303030E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E69A1B4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030311 - 1111111111111111111111111111111111111111111103030303030303030303 - 03030303030303030303031111111111111111110303030303030E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303111111111111111111111111111111111111111111110303030303030303 - 0303030303030303030303030303031111111111111111110303030303030E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303031111111111111111111111111111111111110311030303 - 0303030303030303030303030303030303030311111111111111110303030303 - 0303030E0E0E0E0E0E0E0E0E300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030311110303111111111111111111111111111111111103 - 0303030303030303030303030303030303030303030303031111111111110303 - 030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 0311110303030303030303030303030303030303030303030303030303111111 - 111103030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030311111111111111111111 - 1111111111111103030303030303030303030303030303030303030303030303 - 03031111111103030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303031103111111111111 - 1111111111111111111111030303030303030303030303030303030303030303 - 030303030303111111110303030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E69A1B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030311031111 - 0311111111111111031103110303030303030303030303030303030303030303 - 0303030303030303030303110303030303030303030E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E69A1B4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303110303030303 - 0303111111111111111111111111111103030303030303030303030303030303 - 03030303030303030303030303030303030303030303030303030E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303110311110311110311111111111103110303030303030303030303 - 03030303030303030303030303030303030303030303030303030303030E0E0E - 0E0E0E0E0E0E0E0E0E0E300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E696AB4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303031111111111111111111111030303030303030303 - 0303030303030303030303030303030303030303030311110303030303030303 - 0303030E0E0E0E030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030311111111110311111103110303030303 - 0303030303030303030303030303030303030303030303030311111111110303 - 030303030303030E0E0E030E0E03030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030311111103111103111103 - 0303030303030303030303030303030303030303030303030303030303031111 - 11110303030303030303030E030E0E030E0E03030E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303110303031111111111 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303031111111103030303030303030E0E030E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16A - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 1111031103030303030303030303030303030303030303030303030303030303 - 03030303030311111111030303030303030303030E0E0E0E0E030E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0EA16AB4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030311030303030303030303030303030303030303030303030303030303 - 03030303030303030303111103030303030303030303030E0E03030E030E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0EA16AB4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303110311030303030303030303030303 - 030E03300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0EA16AB4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030311111111111111110303030303030303 - 0303030303030303030E030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311030311110303030303030303 - 0303030303030303030303030303030303030303031111111111111103030303 - 03030303030303030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E030EA16AB4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303110303031103110303030303 - 0303030303030303030303030303030303030303030303030311111111111103 - 0303030303030303030303030303030303030E0E030E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E030E0E6A6AB4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111031103030303111111111111 - 0303030303030303030303030303030303030303030303030303030303031111 - 11111111030303030303030303030303030303030303030E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6A6AB4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030311111103111111110311 - 1111031103030303030303030303030303030303030303030303030303030311 - 111111111111111103030303030303030303030303030303030303030303030E - 03030E0E0E0E0E0E0E0E0E0E03030E0E030E0E0E0E030E0E03030303030E6A6A - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031103030303030303030311110311 - 1103111111030303030303030303030303030303030303030303030303030303 - 0303031111111111111111110303030303030303030303030303030303030303 - 0303030E0303030E0E0E0E0E0E0E0E0E0E030E0E0303030E0E0E0E0E03030303 - 03036A6AB4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0311110311110311031103031103111111030303030303030303030303030303 - 0311030303111111111111111111111111110303030303030303030303030303 - 0303030303030303030303030303030E030E0E0E0E030E0E030E0E0E0303030E - 0303030303036A6AB4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303110303030303111103110303031111111103030303030303030303030303 - 0303030303030303030311111111111111111111111103030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 030303030303030303036A6AB4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030311110303111111111103030303030303030303 - 0303030303030303030303030303111111111111111111111103030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 03030303030303030303030303036A6AB4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303031111111111111111110303110311111111 - 0303111111030303030303030303030303110311111111111111111111110303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303036AA2B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 1111111111111111030311030303030303030303111111111111111111111111 - 1103030303030303030303030303030303030303030303030303030303030303 - 030303030303030303030303030303030303030303036A6AB4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311111111111111111111111111 - 1111111111111111111111110303031103030303030303031111111111111111 - 1111111111030303030303030303030303030303030303030303030303030303 - 03030303030303030303030303030303030303030303030303036A6AB4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030311031111111111111111111111111111 - 1111111111111111111111111111111111111103031103030311031103111111 - 1111113211111111111111030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303036A6A - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311111111111111111111111111 - 1111111111111111111111111111111111111111111103111103031103031111 - 1111111111111132111111111111110303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 03036AA2B4C40203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030311111111111111 - 1111111111111111111111111111111111111111111111111111111111111111 - 1103111111111111111111113211111111111103030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303036AA2B4C402030303030303030303030303030303030303030303 - 0303030303030303110303030303030303030303030303030303030303111111 - 1111111111111111111110113232111110111132111111111010111111111111 - 1111111111111111111111113232113210321011111111111111030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 030303030303030303036AA2B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303031103111111 - 1111111111111110111111101010103210101111111010111010101032111111 - 1111111111111111111111111111111111323210101010321111111103030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303A2A2B4C40203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303111111 - 1111111111111111111110101010101010321010101010101010101010101010 - 1010101010111111111111111111111111111111113210321010101111111111 - 1103030303030303030303030303030303030303030303030303030303030303 - 030303030303030303030303030303031230A2A2B4C402030303030303030303 - 0303030303030303030303030303030303030303030303030303030303031111 - 1111111111111111101111111010101010101010101010101010101010101010 - 10101010101010111010101011111111111110111110113211110D1111113232 - 1011111111110311111111111103110303030303030303030303030303030303 - 03030303030303030303030303030303030303030303A2A2B4C4020303030303 - 0303030303030303030303030303030303030303030303030303111111111111 - 1111111111111111111111111010111010101010101010101010101010101010 - 1032321111113232101010101010101010101010113210323211111112121313 - 0D340D1111111111111111111111111111111103030303030303030303030303 - 0303030303030303030303030303030303030303030311110311A2A2B4C40203 - 0303030303030303030303030303030303030303030303030303031111111111 - 1111111111111111111111111111111011111010101010101010101010101010 - 10101032101112120D0D11111111321010101010101010321010103211111213 - 0F0F0F171713130D121111111111111111111111111111111111110303030303 - 030303030303030303030303030303030303030303030303030311111111A2A2 - B4C4020303030303030303030303030303030303030303110311111111111111 - 1111111111111111111111111111111110101010101010101010101010101010 - 10101010101010160D121213130E13130D0D1111323210101010101010321111 - 12130F0F17021917191717171313121212111111111111111111111111111111 - 1103030303030303030303030303030303030303030303031103030311111111 - 1111A2B4B4C40203030303030303030303030303030303111111111111111111 - 1111111111111111111111111111111010101010101010101010101010101010 - 1010101010101010101616121317170F1719170F0F1312121111113232101032 - 111112130F0F1919192A2A2A2A191917170F0F13121112111111111111111111 - 1111111111110311111103030303110311110303030303030311030311111111 - 111111111111A2A2B4C402030303030303030303030303030303111111111111 - 1111111111111111111111111011101010101010101010101010101010101010 - 101010101010101010101016160D13171719192A2A1D19190F17171313120D11 - 1111111112130E0F0F19192A2A622A2A2A622A1D1919170F0F31121211113210 - 1011101011111111111111111111110303111111111111031111111111110311 - 11111111111111111132A2A2C3C4020303030303030303031103030303111111 - 1111111111111111111111111111113210101010101010101010101010101010 - 1010101010101010101010101010160D12131719192A62626262622A1D191919 - 170F1330121212130E0F0219191D2A2A622D6565412A62622A1D191917170F13 - 1212111132101010111011111111111111111111111111111111111111111111 - 1111111111111111111111113232A2A2C3C40203030303030303030311111111 - 1111111111111111111111111011101010101010101010101010101010101010 - 10101010101010101010101010101010161612131717191D6262622D66626262 - 62622A1D191919170F0F0F170219191D2A2A2A2D656667B3B367632A2A622A1D - 190219020F0F1312111132101010103232323211111111111111111111111111 - 111111111111111111111111111132323216A2A2C3C402030303030303030311 - 1111111111111111111111111132111010101010101010101010101010101010 - 101010101010101010101010101010101010101012121317191D6262622D67D2 - 6766666463626262622A191919191919191D2A2A2A636566666668B3B3B3B368 - 6441622A2A2A191902020F131312111132101010103211111111111111111111 - 11111111111111111111111111111111323232161616A2A2C3C4020303030303 - 0303031111111111111111321132321032101010101010101010101010101010 - 1010101010101010101010101010101014141414101532121317171962626263 - 666868686767666666652E636262622A2A19191D2A2A2A62646666656566B3B3 - B3B3B3B3B3B366632A2A2A2A1719190F0F0E120D121132321010101032321111 - 1111111111111111111111111111111111113232323216101010A2B4B4C40203 - 0303030303031111111111111111113210101010101010101010101010101010 - 1010101010101010101010101010101010101414141010101634131717192A62 - 626265D2686868686766666666666666652D63626262622A622A6465669F6566 - 666465D2B3B3B3B3B3B3B3B3682D62622A2A1D1919170F131212321111321010 - 101032323232323232323232321132113211323232321010101010101010A2A2 - C3C4020303030303031111111111111132101010101010101010101010101010 - 101010101010101010101010101410101010141414141414101515160D131719 - 1D62636264D268686868D26867666666666666666666666563622A622D656566 - 65666565642D2D2D646768B3B3B368B3B3B36864622A2A2A1D19190F1713130D - 1611113210101010101010101010103232323211321616101010101010101010 - 1010A2A2C3C40203030303031111111111113232321010101010101010101010 - 1010101010101010101010101410101010141414141414141414141515160D13 - 17171D6262632D676868686868686868676766666666666666666666662D2D65 - 9F66669F6665642D632D2D2D2D642D66D268B3B3B368B3B3B367632A2A623F19 - 1919171713120D0D0D1610101010101010101010323216103210101010101010 - 101010101010A2B4C3C402030303031103111111113210321010101010101010 - 1010101010101010101010101014141414141414141414141414141414141516 - 0D0D17171D6262622D6668686868686868686868676666666666666666666666 - 662D2D6665666565642D632D2D2D2D2D2D2D2D642D656768B3B368B3B368B368 - 2D2A62622A1D19171717131234160D1032101010101010101010101010101010 - 10101010101010101010A2B4B5C4020303031111111111321110101010101010 - 1010101010101010101010101414141414141414141414141414141414141414 - 151016341317172A6262636668686868686868686868D2686766666666666666 - 66666666662D2D666665642D63632D632D2D2D2D2D2D642D642D64646668B3B3 - B3B3B3B3B3686462622A2A1D1719171713120D0D161616101010101010101010 - 1010101010101010101010101515A2B4C3C40203030311111111113210101010 - 1010101010101010101010101414141414141414141414141414141414141414 - 1414141516161317172A62626265686868686868686868686868686867676666 - 6666666666666666662D2D65642D636363632D2D2D2D2D2D2D2D642D64646464 - 646465676868B368B368B3686663622A2A1D1919171713120D16111010101010 - 101010101010101010101010151015153515B4A2C3C402030311111111321010 - 1010101010101010101010101414141414141414141414141414141414141414 - 14141414141515163417173F626263646868B368686868686868686868686868 - 676666666666666666666666652D2D2D636363632D632D632D2D2D2D642D2D64 - 2D64646464646465656768B3B3B3B3B368B3662D622A621D1919171713121616 - 10101010101010101010101010101010351414141414B4B4C3C4020311111111 - 1110101010101010101010101014141414141414141414141414141414141414 - 1414141414141414151634180F1C6262622D6768686868686868686868686868 - 68D26868666666666666666666666666652D2D636363636363632D2D2D2D2D2D - 2D2D642D6464646464646564656565666768B368B368B36867642A2A621D1919 - 1717121616101010101010101010101010101014351414141414A2B4B5C50203 - 0311111011101010101010101010101014141414141414141414141414141414 - 1A1A14141A1A1414141435153418171C62626263676868B36868686868686868 - 6868686868686868676666666666666666666666652D6363636363632D632D63 - 2D2D2D2D2D642D642D646464646465646565656565666768B3B368B368686864 - 6262622A1D17171216101010101010101010151510101414141414141414B4B4 - C3C4020311111111101010101010101010101014141414141414141414141414 - 141A1A1A1A1A1A1A1A1414141415163417182A626263666868B3686868686868 - 686868686868686868686868676666666666666666666666652D2D6363636363 - 63632D2D2D2D2D2D2D2D642D642D6464656465656565656565666666666868B3 - B3B3B3B36865622A622A17123410101510101510151415141514141414141414 - 1414B4B4C3C50211111110101010101010101010101414141414141414141414 - 141A1A1A1A1A1A1A1A1A1A1A14141415163434173F6262626568686868686868 - 68686868686868686868686868686868676666666666666666666666652D2D62 - 62626363632D632D632D632D2D2D2D6464646464646464646565656565656666 - 666666676868686868B36866636263130D151415151515101514151414141414 - 141414141414B4B4B5C502111111101010101010101010141414141414141414 - 141A141A1A1A1A1A1A1A1A1A1A1A1A14143516340D173F62626364686868B368 - 68686868686868686868686868686868686867D2666666656666666666666666 - 66652D6262622A6263636363632F2F6363632E2D2D6464646464656565656565 - 66666666666666676667D268B368B368682A62130D1015101514101515141414 - 14141414141414141414B4B4B5C5021111101010101010101010141414141414 - 14141A141A1A1A1A1A1A1A1A1A1A1A1A1A1A1414351634133F6262632D676868 - 686868686868686868686868686868686868686867D267676565646565656566 - 66666666666666666463622A2A2A2B2A6262622F2F63632D2E2D646464646465 - 6565656566656666666666666766676767686868682A2A130D10101414101414 - 141414141414141414141414141AB4B4B5C50211111010101010101010141414 - 1414141414141A1A1A1A1A1A1A1A1A1A1A3838381A1A1437370D3F6262636366 - B368B368B36868686868686868686868686868686868D2D26767666664646464 - 6464656565666666666666666666662E622B2B2C2C2C2C2B2B0C2F62632D2D2E - 64646464656565656566656666666666666766666766676868622A1316151414 - 141414141414141414141414141414141414B4B4B5C502111010101010101010 - 141414141414141A1A141A1A1A1A1A1A1A1A1A38383838381A1A14373F626362 - 636568686868686868686868686868686868686868686868D267676666656464 - 2E2E2F2E2E646464656565656666666666656564642E2F2C2C0C0C060C2C2B0C - 2F2F632D2D646464656565656566666666666667666667676767676665622A34 - 161514141414141414141414141414141414141A1A1AB4B4B5C5023210101010 - 10101014141414141414141A1A1A1A1A1A1A1A1A383838383838381A1A1A353F - 6362626468686868686868686868686868686868686868686868686767676665 - 642E2E0B06060C2F2F2F2E2E64646465656565656464642E2E2F0C0C0606060C - 06060C2C2C2B2F2F2E2D2E646464656565666566666666666667666666652D62 - 622A3F1615141414141414141414141414141414141414141A1AB4B4C4C50210 - 10101010101010141414141414141A1A1A1A1A1A1A1A38383838383838383838 - 1A1A3C3F2D64686868686868686868686868686868686868686868686867D267 - 6665652E2F0BFEFEFEFEFE060C0C2F2F632E2E6464646464642E2E2F0C0C0606 - 060705F20B0C0606062C2C2C2B2F2E2D6464646565656666666666666666652D - 62622A622A3F16151414141414141414141414141414141414141A1A1A1AB4B4 - B5C502101010101010101014141414141A1A1A1A1A1A38383838383838383838 - 383838381A143C632D6868686868686868686868686868686868686868686867 - D2676665642E2F0BFEFEFEECFBFEFEFEFEFE060C0C2F2F632E2E2E2E2E2F0C0C - 06060B070505A00101ED080C06060C0C2C2C2C2F2F2D64646465656666666664 - 2D622A626262621C131615141414141414141414141414141414141414141A1A - 1A1AB46BC4C5021010101010101014141414141A1A1A1A1A1A38383838383838 - 3838383838383838381A3C622D68686868686868686868686868686868686868 - 6867D267666664642E0B0BFEFE08EEEBE3E5FBDE09FEFEFEFE060C0C2F2F2F0C - 0C0C0C060CDBD1050505E101010101F0FD0B0606060C2C2C2C2B2F2E64646565 - 656464622A622D656763621C3416351414141414141414141414141414141A14 - 1A1A1A1A1A1AB4B4C7C50210101010101414141414141A1A1A1A1A1A38383838 - 383838383838383836363838381A3C632D686868686868686868686868686868 - 686868686767676665642E2F0BFEFE09F9E1E1EBE3F7F9F9F9FCECDBFEFEFE06 - 0C0C2B0C0C06060BFD05050505D8DF01010101010101F7DB0606060C2C2C2C2C - 2B63646464632D2D65676767672D621C0D151414141414141414141414141414 - 1414141A1A1A1A1A1A1AB46BC4C502101010101010141414141A1A1A1A1A1A38 - 38383838383838383838363836363638381A3C632D6868686868686868686868 - 686868686768D267676665642E2F0BFEFEDBFCEBE1E1E1EBE3F7F9F9F9F9F9F1 - E007DBFEFE0B0606060BDE050505050505FDF2E901010101010101010A070606 - 06062C2C2C2C2C2B2D636366676767676763621C161514141414141414141414 - 141414141414141A1A1A1A1A1A1A6BB4C4C602101010101414141414141A1A1A - 1A38383838383838383836383939393639393938381A3C638568686868686868 - 68686868686868686867676665642E2E0BFEFEFEFDEAE1E1E1E1E1E1E3E5F9F9 - F9F9F9F1F1F1F9E00806060B0705050505050505DE070707DEE5EF0101010101 - 0101F4E00B06060C0C2C2C2C2C622F65666666676763621C1635141414141414 - 14141414141414141414141A1A1A1A1A1A1AB4B5C4C602101010141014141414 - 1A1A1A383838383838383839363939393939393939393939381A3C632D686868 - 686868686868686868686767676666642E2E0B0BFEFEECE8F0E1E1E1E1E1E1EB - E3E5F9F9F9F9F9F9F1F1F1F8F1080705050505050505DE080807080707ECEC05 - EA0101010101010101E4DB0606060C2C2C2B2E64646566666663621C34151414 - 14141414141414141414141414141A1A1A1A1A1A1A1A6BB4C4C6021010101414 - 1414141A1A1A1A3838383838383839393939393939393939393939393A1A4163 - 2D68686868686868686867686767676765652E2E2F0BFEFE08F7F0E1F0E1E1E1 - E1E1E1E1E3F7F9F9F9F9F9F1F1F1F1F8FA07070505050505FD08080808080707 - 0707ECECDEFDE3F501010101010101EA070B06060C0C2F2E2E64646565632A1C - 3415141414141414141414141414141414141A1A1A1A1A1A1A1AB46BC4C60210 - 101414141414141A1A1A33383838383836393939393939393939393939393939 - 3A1A3C872D686868686868686868686767676565642E2F0BFEFEDBFAF0F0F0F0 - F0E1E1E1E1E1E1EBE3F7F9F9F9F9F9F1F1F1F1F1F90807050505FD0809090808 - 0807070707EC07ECECDEDEFDF1E701010101010101E1FD0B06060C0C2F2F2E2E - 64622A1902123714141414141414141414141414141A1A1A1A1A1A1A1A1A6BB5 - C7C602101010141414141A1A1A1A383838383838363939393939393939393939 - 393939393A383C638568676867686868686767676665642E2F0BFEFEFEE0E1EF - F0F0F0F0F0F0E1E1E1E1E1E1E3E5F9F9F9F9F9F1F1F1F1F8FA070705FD080909 - 09090808080807070707ECECDEDEDEDEFDFDF2E8F4010101010101F5F9DB0606 - 060C2F2F2E2B2C19190F1635141414141414141414141414141A1A1A1A1A1A1A - 1A38B4B5C7C602101414141414141A1A33383838383838393939393939393939 - 39393939393939393A1A41872D6868686868676767676665642E2F0BFEFEFEDE - EAEFEFEFF0F0F0F0F0E1E1E1E1E1E1EBE3E5F9F9F9F9F9F9F1F1F1F1FC080708 - DB090909090808080807070707EC07DEECDEDEFDFDFDE0E0F2E4EB0101010101 - 01DFE5080606060C0C2C2C2C1919020D3714141414141414141414141A1A1A1A - 1A1A1A1A38386BB5C4C602101414141414141A1A383838383838363939393939 - 393939393939393939393B39393841632D676867686767676665642E2E2FFEFE - FE08E8F5F6F6EFEFF0F0F0F0E1E1E1E1E1E1E1EBE3F7F9F9F9F9F9F1F1F1F1F8 - E00708DB090909090809080807080707EC07ECECDEDEDEFDFDFDE0E0E0F2FCF1 - E9F3010101010101E2EC0606060C2C2C2C19191716151414141414141414141A - 1A1A1A1A1A1A1A383838B4B5C7C6021414141414141A1A1A3838383838363939 - 3939393939393939393B393939393939393841872D6868676767666564642E2F - 0BFEFE09E6F5F5F5F6EFEFEFF0F0F0E1F0E1E1E1E1E1E1E1E3F7F9F9F9F9F9F9 - F1F1F8F8F2080809DB090909090808080807070707ECECECDEDEDEFDFDE0E0E0 - F2F2FCFCFBFAEDE10101010101010AFD0B06060C2C2C19171837141414141414 - 141414141A1A1A1A1A1A1A1A381AB5B5C7C60214141414141A1A1A1A38383838 - 383939393939393939393B3B393B3B393B393B3939381A638867676766656564 - 2E2F06FEFEDBFBEFF4F4F5F5F6EFEFEFEFF0F0F0F0E1E1E1E1E1E1EBE3E5F9F9 - F9F9F9F1F1F1F1F8E00708DB0909090909090808080707070707ECECDEDEDEFD - FDFDE0E0F2F2FCFCFBFAF9F1E4E7F30101010101EFFBDB06060C2C1917161414 - 14141414141414141A1A1A1A1A1A1A3838386BB5C7C6021414141414141A3338 - 3838383836393939393939393939393B3B3B3B3B3B3B39393938416363676665 - 65642E2F0CFEFEFEFDEBF3F4F4F5F5F6F6F6EFEFF0F0F0F0E1F0E1E1E1E1E1EB - E3E5F9F9F9F9F9F9F1F1F1F8F207070606FEDB090908080808070707ECECECEC - DEDEDEFDFDFDE0E0F2F2FCFCFBFAF9F1F8E6E5E2F00101010101F3F8090BDB19 - 19161414141414141414141A1A1A1A1A1A1A383838386BB5C7C6021414141414 - 1A1A383838383836363939393939393B3B3B3B3B3B3B3B3B3B3B3B3939384162 - 636564642E2F0C06FEFEECEAF3F3F4F4F4F5F5F6F6EFEFEFF0F0F0F0F0E1E1E1 - E1E1E1E1E3F7F9F9F9F9F9F1F1F1F1F8F8F207FE06060606DB09080807070707 - 0707ECDEDEDEDEFDFDE0E0E0F2F2FCFBFBFAF9F1F8E6E5E5E4EDEBDC01010101 - F0060619193414141414141414141A1A1A1A1A1A1A383838383A6BB5C7C60214 - 1414141A1A1A383838383636393939393939393B3B3B3B3B3B3B3B3B3B3B3B39 - 391A3C6262642E2F2B06FEFE08E3DFDCF3F3F4F4F4F5F5F6F6F6EFEFEFF0F0F0 - E1E1E1E1E1E1E1EBE3F7F9F9F9F9F9F9F1F1F1F8F8F8E6F1FDDB0606060606DB - 09070707ECECECECDEDEFDFDFDFDE0F2F2F2FCFBFBFAF9F1F8F7F7E5E4E4E3EE - EAEF0101F0060C191716141A14141414141A1A1A1A1A1A1A1A3838383838B5B5 - C7C602141414141A1A333838383836363939393939393B3B3B3B3B3B3B3B3B3B - 3B3B3B39383C3F2B2B2F0C06FEFEDBF8F3DFDFDCF3F3F4F4F4F5F5F6F6EFEFEF - F0F0F0F0E1F0E1E1E1E1E1E1E3E5F9F9F9F9F9F1F1F1F1F1F8F8E6E6F7F7E6FD - DB06060606FEDB0807ECECDEDEDEDEFDFDE0E0E0F2FCFCFBFAFAF9F1F8F7E5E5 - E4E3E3E3EEEEE2E1E10606191716141414141414141A1A1A1A1A1A1A38383838 - 3A386BB5C7C602141414141A1A333838383636393939393939393B3B3B3B3B3B - 3B3B3B3B3B3B3B39383C1D2B2B06FEFEFEF2F6DFDFDFDFDCF3F3F3F4F4F5F5F5 - F6EFEFEFEFF0F0F0F0E1E1E1E1E1E1EBE3E5F9F9F9F9F9F1F1F1F1F8F8F8E6E6 - E6F7F7F7E5E5FD0906060606FEDB07ECDEDEFDFDFDE0E0E0F2FCFCFBFAFAF9F8 - E6F7E5E5E4E4E3E3EEEDEDEEF2060C19181514141414141A1A1A1A1A1A1A1A38 - 383838383A3AB5B5C7C8021414141A1A1A33383838363639393939393B3B3B3B - 3B3B3B3B3B3B3B3B3B3B3B39383F192BFEFEFEDEEB01DFDFDFDFDCDCF3F3F3F4 - F4F5F5F6F6F6EFEFF0F0F0F0E1E1E1E1E1E1E1E1E3F7F9F9F9F9F9F9F1F1F1F8 - F8E6E6E6E6F7F7E5E5E5E5E4E4FD0906060606FEDBECDEFDFDE0E0F2F2F2FCFB - FAFAF1F8E6F7E5E4E4E3E3EEE3F2070B060C0C173435141A141A1A1A1A1A1A1A - 1A1A1A383838383A3A3AB5B5C7C802143314331A33333838383636393939393B - 3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B391A1C2B0C09FDEA01DF01DFDFDFDFDCDC - F3F3F3F4F4F5F5F6F6EFEFEFEFF0F0F0F0E1E1E1E1E1E1EBE3F7F9F9F9F9F9F9 - F1F1F1F8F8F8E6E6E6F7F7E5E5E5E5E4E4E4E4E3FD0906060606FE09ECE0E0F2 - F2FCFCFBFAF9F9F1E6F7E5E5E4E5F2080B0606060C2B1734351A141A1A1A1A1A - 1A1A1A1A1A38383838383A3A3939B5B5C5C8021414141A1A3333383838363939 - 3939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B393C1C2BFE070101010101DFDF - DFDFDCDCF3F3F4F4F4F5F5F6F6F6EFEFF0F0F0F0E1F0E1E1E1E1E1E1E3E5F9F9 - F9F9F9F9F1F1F1F8F8F8E6E6E6F7F7F7E5E5E5E5E4E4E4E3E3E3E3E009060606 - 06FE09DEF2FCFCFBFAFAF1F8E6F7F1E00806060606FE062C2C1918351B1A1A1A - 1A1A1A1A1A1A1A1A1A383838383A39393939B5B5B6C802141A1A1A3338383838 - 3636393939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B391A1D2BFE07010101 - 010101DFDFDFDFDCF3F3F3F4F4F5F5F6F6EFEFEFF0F0F0F0F0E1E1E1E1E1EBE1 - FBFCFBFAF9F9F9F9F1F1F1F8F8F8E6E6F7F7F7E5E5E5E5E4E4E4E4E3E3E3EEEE - EEEEE00906060606FE09FDFBFAF1F1F8F1F2FD06060607FCE808FE2C19193714 - 1A1A1A1A1A1A1A1A1A1A1A1A383838383A3A39393939B5B5C5C80214331A1A33 - 3338383836393939393B3B3B3B3B3B3B3B3B3B3B3B3B3D3B3B3B3B39411C2BFE - 070101010101DFDFDFDFDFF3F3F3F4F4F4F5F5F6F6F6EFEFEFF0F0F0E1E1E1E1 - E1E7FB08FEDBFE08DEFBF9F1F1F1F8F8F8E6E6E6E6F7F7E5E5E5E4E4E4E4E3E3 - E3E3EEEEEEEDEDEDEEE00906060606FE09FDF9F1F1070707FBE8E7EAE708FE2C - 1917351A1A1A1A1A1A1A1A1A1A383838383838383A3939393939B5B5B6C80214 - 1A1A1A333338383836393939393B3B3B3B3B3B3B3B3B3D3B3D3B3B3D3B3D3B39 - 3C1C2BFE0801010101DFDFDFDFDFDFDCDCF3F4F4F4F5F5F6F6F6EFEFF0F0F0F0 - F0E1E1E8FDDBFEFEDB07FEFEFEFE08DEFBF1F1F8F8E6E6E6F7F7F7E5E5E5E5E4 - E4E4E4E3E3E3EEEEEEEEEDEDEDE8E8EDF20906060606FE08FD08ECEAEAEAE7EA - E708FE2C1934351A1A1A1A1A1A1A1A1A1A3838383838383A39393939393BB5B5 - B6C8021A1A1A33333838383636393939393B3B3B3B3B3B3B3B3B3B3B3B3D3B3D - 3B3B3B391A1D2BFE07010101010101DFDFDFDCDCF3F3F4F4F4F5F5F6F6EFEFEF - EFF0F0F0F0F7ECFEFEFE07E4E3E5F2DE08FEFEFEFE08FDFAF8F8E6E6F7F7F7F7 - E5E5E5E4E4E4E4E3E3E3EEEEEEEDEDEDE8EDE8E8E8E2EDF209060606060807EA - EAEAEAE7EA08FE2C1934141A1A1A1A1A1A1A1A383838383838383A3939393939 - 3B3BB5B5B6C8021A1A1A333338383836363939393B3B3B3B3B3B3B3B3D3D3D3D - 3D3D3D3D3D3D3D3B411C2BFE070101010101DFDFDFDFDCDCF3F3F3F4F4F5F5F6 - F6EFEFEFF0F0EBFB09FEFEDBFDE8E1E1E3F7FCF2F2E0DE08FEFEFEFE08FDF9F7 - E6F7F7E5E5E5E4E4E4E4E4E3E3E3EEEEEEEEEDEDEDEDE8E8E8E8E2E2E9EDF208 - DBDEEEEAEAEAE7EAE708FE2B191C14381A3838383838383838383838383A3A39 - 39393B3B3B3BB5B5B6C8021A1A333333383838363939393B3B3B3B3B3B3D3B3D - 3D3D3D3D3D3D3D3D3D3D3D3B411C2BFE070101010101DFDFDFDFDCDCF3F3F3F4 - F4F5F5F6F6F6EFEFE9FDDBFEFE09FBE7E1E1E1E1E3F7FCF2F2F2F2F2E0DE08FE - FEFEFE08FDF8F7F7E5E5E5E5E4E4E3E3E3E3EEEEEEEDEDEDEDE8E8E8E8E2E2E2 - E9E9E9E9EAEAEAEAEAEAEAE7E708FE2C19341B38383838383838383838383838 - 3A3A3939393B3B3B3B3BB5B5B6C8021A1A333833383836363939393B3B3B3B3B - 3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B411C2BFE0801010101DF01DFDFDFDCDC - F3F3F4F4F4F5F5F6F6EFE407FEFEFE07E4E1E1E1E1E1E1E1E3F7FCF2F2F2F2F2 - F2F2F2F2EC08FEFEFEFE07E0F7E5E4E4E4E4E4E3E3EEEEEEEEEDEDEDEDE8E8E8 - E8E8E2E2E9E9E9EAE9EAEAEAEAE7EAE7EA08FE2C19341A383838383838383838 - 38383A3A393939393B3B3B3B3B3BB5C7B6C8021A333333383836363939393B3B - 3B3B3B3B3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B3A1C2BFE070101010101DFDF - DFDFDCDCF3F3F3F4F4F5F5E1FC09FEFEDBFDE2E1E1E1E1E1E1E1E1E1E3E5FCF2 - F2F2F2F2F2F2F2F2FCF2F2EC09FEFEFEFE07E0E5E4E4E3E3E3E3EEEEEEEEEDED - EDEDE8E8E8E2E2E2E9E9E9E9E9EAEAEAEAEAEAEAE708FE2B19341A3838383838 - 383838383A3A393A3939393B3B3B3B3B3B3DB5C7C6C902333333333838363639 - 39393B3B3B3B3B3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B3A3F2BFE07010101 - 01DF01DFDFDFDFDCF3F3F4F4F4E9FDDBFEFE08FCE7E1E1E1E1E1E1E1E1E1E1E1 - E3F7FCF2F2F2F2F2F2F2FCF2F2FCFCFCFCF2EC09FEFEFEDB07F2E4E4E3E3EEEE - EEEDEDEDEDE8E8E8E8E8E8E2E9E9E9E9E9E9EAEAEAEAE7E7EA08FE2B19371A38 - 383A3838383A3A3A3939393939393B3B3B3B3B3D3D3DB5C7B6C8021A33333838 - 38363639393B3B3B3B3B3D3D3D3D3D3D3D3D3D423D423D423D3D3D3D3A3F2BFE - 08010101010101DFDFDFDFDCF3F3F4E407FEFEFE07E4E1E1E1E1E1E1E1E1E1E1 - E1E1E1E1E3F7FCF2F2F2F2F2F2F2F2F2FCF2FCFCFCFCFCFCF2EC09FEFEFEDBEC - F2E3E3EEEEEDEDEDEDEDE8E8E8E2E9E2E9E9E9E9EAEAEAEAEAEAE7EAE708FE2C - 19371A3A3A3A383A3A3A39393939393939393B3B3B3B3D3D3D3DC7C7B6C90233 - 3338383836363939393B3B3B3B3D3D3D3D3D3D42423D423D423D423D423D423D - 3A3F2BFE0701010101DFDFDFDFDFDCF3E1FB09FEFEDBFDE2E1E1E1E1E1E1E1E1 - E1E1E1E1E1E1E1E1E2FCFAF2F2F2F2F2F2F2FCF2FCFCFCFCFCFCFCFCFBFBFBF2 - EC09FEFEFEDBECFCEEEDEDEDE8EDE8E8E8E8E2E2E9E9E9EAE9EAEAEAEAEAE7EA - E708FE2B17371A393939393A393A3939393939393B3B3B3B3D3D3D3D4242C7C7 - C6C9023333383636363639393B3B3B3B3D3D3D3D3D3D3D3D4242424242424240 - 4242423D473C2AFE07010101010101DFDFDFEAFDDBFEFE08FBE7E1E1E1E1E1E1 - E1E1E1E1E1E1E1E1E1E1E1E1E2E5F9F2F2F2F2F2F2F2F2F2F2FCFCFCFCFCFCFB - FCFBFBFBFBFBF2EC09FEFEFEDBECFBEDEDEDE8E8E2E8E2E2E9E9E9E9EAE9EAEA - EAEAE7EAEA08FE2B1D371A3939393939393939393939393B3B3B3B3B3D3D3D42 - 4242C7C7C6C90233383836363639393B3B3B3B3B3D3D3D3D3D42424242404240 - 404040404040403D3B3F2BFE080101010101DFF4E407FEFEFEECE4E1E1E1E1E1 - E1E1E1EBE1E1E1EBE1E1E1E1E1EBE1E1E2F7E4E4F7FAF2F2F2F2FCF2FCFCFCFC - FCFCFCFCFBFBFBFBFBFAFAFAFAF2ECDBFEFEFEDBDEFAE8E8E8E8E2E2E9E9E9E9 - E9EAEAEAEAEAEAE7E708FE2B173C38393939393939393939393B3B3B3B3B3B3D - 3D3D42424242C7C7B7C90238383836363939393B3B3B3D3D3D3D3D4242424242 - 4040404040404040404040423B412AFE0701010101F0FA09FEFEDBFDE2E1EBE1 - E1EBE1EBE1EBE1E1E1EBE1E1E1E1EBE1E1E1E1E1DEDED8EBE1E7EDE6FAFCF2F2 - FCF2FCFCFCFCFCFBFCFBFBFBFBFAFBFAFAFAF9F9F2ECDBFEFEFEDBDEF1E2E2E2 - E9E9E9E9EAEAEAEAEAE7EAE7EA08FE2B1C3C3839393939393939393B3B3B3B3B - 3B3D3D3D424242425140C7C7B7C90238383836363939393B3B3D3D3D3D3D4242 - 4242404040404046404040403E4640423B412BFE070101EAFDFEFEFE08FAE7EB - E1EBE1EBEBE1EBE1EBE1EBE1EBE1EBE1EBEBE1EBE1EBEBE1EBE7E1EFEFF0E1EB - E7E8E5F9FCFCFCFCFCFCFCFCFBFBFBFBFBFAFAFAFAFAF9F9F9F9F1F2ECDBFEFE - FEDBFDE6E2E9E9E9E9E9EAEAEAEAEAE7E708FE2B1C3C38393939393939393B3B - 3B3B3B3B3B3D3D3D424242514051C7C7C8C902383836363939393B3B3B3D3D3D - 42424242404040404646464646463E3E463E3E423D412AFE08E407FEFEFEECE5 - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBF0F6EFEFF6 - F6EFF6F6EFE1EBE1E2E4F9FBFCFCFCFCFBFBFBFBFBFBFAFAFAFAFAF9F9F9F1F1 - F1F8F2ECDBFEFEFE09FDE5E9EAEAEAEAEAEAE7EAEA08FE2B1C3C3A3939393939 - 393B3B3B3B3B3B3B3D3D3D4242514051464676B6B7C902383636393936393B3B - 3B3D3D3D3D424040464046464646463E3E3E3E3E3E3E3E403D412AFEFEFEFEDB - FDE2EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE1EB - EFF6F0E4EDE1EFEFEFF6F6F6F0EBEAEAE4F1FBFBFCFBFBFBFBFBFAFAFAFAF9F9 - F9F9F1F1F1F8F8F8E6F2ECDBFEFEFE09FDE4EAEAEAEAEAE7E708FE2B1C3C3A3B - 3B3B393B3B3B3B3B3B3B3B3D3D3D424251515146464676B6C8C9023636363936 - 3B3B3B3B3D3D3D42424040404646464646464E3E4E4E4E4E4E4E4E463D4162FE - FE08FBEAEBEBEBEBEBEBEBEBE7EBEBEBEBEBEBEBEBEBEBEBEBEBEBE7EBEBEBEB - EBEBF0F6EFF00508F2E3E2EAEBF0EFF6EFEFEFF0E1E1E7EDF8FAFBFBFBFAFAFA - FAFAF9FAF9F9F1F1F1F8F8F8F8E6E6F7F2ECDBFEFEFE09E0E3E7EAE7EA08FE2B - 1C41393B3B3B3B3B3B3B3B3B3B3B3D3D3D424242514646464E46B6B6B7B80236 - 3639363B393B3B3B3D3DA2424040404646463E4E3E4E4E444444444444444446 - 42412AFE08E7EBEBEBE7EBE7EBE7E7EBEBE7E7EBE7E7E7E7E7EBE7EBE7E7EBEB - E7EBE7EBE7E1EBEFF6EB07FCFAE5FBFAE4E2EAE7EFF6F6EFF6EFF0E1E1EBE8E6 - FAFAFAFAFAFAF9F9F9F9F1F1F1F8F8F8E6E6E6E6F7F7F7F207DBFEFEFE09E0EE - E708FE2B1C1A393B3B3B3B3B3B3B3B3B3D3D3D3D3D4242514646464E4E4EB6B6 - C9C9023639393B363B3B3B3D3D3D424040403E3E4E4E4E724472494949494949 - 4943494E42472AFE08E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7 - E7E7E7E7E7E7E7E7E7F0F6EFF005FDFCEDDFF6EAE4FBFAF7E8E9EBF0EFF6EFEF - F6EFE1E1E8E2E5FAFAFAF9F9F9F9F1F1F1F8F8F8E6E6E6E6F7F7F7F7E5F7F207 - DBFEFEFE08DBFE2B1C41393B3B3B3B3B3B3B3B3B3B3D3D3D4242404646464E4E - 7272B6B6C9B802363939393B3B3BA23D3D404040403E464E4E4E72724949491F - 4949434949434349514762FE08E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7 - E7E7E7E7E7E7E7E7E7E7E7E7E1F0EFF0E8ECFCF9F4DCDCDFF3F6EAE4FAFAF7ED - EAEBF0EFF6EFEFF6EFE1EBEAE9E4F1F9F9F9F1F1F1F8F8F8E6E6E6E6F7F7F7F7 - E5E5E5E5E5F207DBFEFEFE2B3F41393B3B3B3B3B3B3D3B3D3D3D3D4242425146 - 464E72727272B6B6C9B8023939393B6A3B3B3D3D3D424040463E4E4E49494949 - 49431F494343435353434349464762FE08E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7 - E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7EBE2F6F6E1E0F2FCE7DFDFDFDCDFF3F3F3 - F4E7E4FAFAF8EEEAEBF0EFEFF6F6F6F6F0E1E7E7EEF8F1F1F1F1F8F8E6E6E6E6 - F7F7F7E5E5E5E5E5E5E4E4F7F2DBFE2B3441393B3B3B3B3D3B3D3B3D3D3D4242 - 405146464E72725A5A5AB6B7C9B802393939363B3B3D3D3D4040403E3E4E4444 - 4949491F434326535353535353535349464762FE08EAEAEAEAEAEAEAEAE7EAEA - EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAE7E1F6F6EFA0E0FCE4DFDFDFDCDC - DCDCF3F3F3F3F3F5E7EEF9FAF1E3EAE1EFF6F6F6F6F6F6F0F0F0E7EDF7F8F8F8 - E6E6E6F7F7F7F7F7E5E5E5E5E4E5E4E4E409FE2B3F413B3D3B3D3B3B3D3D3D3D - 3D3D4242404646464E725A5A5A5A7DB7C9B80239393B3B3B6A3DA23D40403E3E - 46444949491F43432653535353535353234D53264E4762FE08EAEAEAEAEAEAEA - EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEBE1F6EF0AE0FCFAF6DF - DFDCDCDFDCF3F3F3F3F3F3F3F4F4F4E7EEF9FBFAE4E2E1F6F6F6F6F6F6EFEFF0 - E1EBE2E5E6E6E6F7F7F7F7F7E5E5E5E5E5E5E4E4E409FE2B3F413B3D3D3B3D3B - 3D3D3D3D3D42424246464E4E727E5A5E7E7EB7B7C9B8023B3B3B6A3B3D3D3D42 - 40403E46444949491F2626535D5353234D4D5757575757264E8662FE08EAEAEA - EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAE7E2F6EFEFF9F2 - FBEADCDFDFDCDCDCDCDCDCF3F3F3F3F3F4F4F4F4F5F5EBEDF9FBFBE5E8E1EFEF - EFF6F6EFF6EFF0F0EBE9E3F7F7F7F7F7E5E5E5E5E5E4E5E4E409FE2B3F3A3B3D - 3D3D3D3D3D3D3D3D4242424046464E725A5A7E7E5E5EB7B7C9B8023B3B3B3D3B - 3D3D3D40403E3E4444491F1F2653535357235757565676745674565D724262FE - 08E9E9EAEAE9E9EAE9E9E9E9EAEAE9E9E9E9EAE9EAE9E9EAEAE9EAE9E7E1F6F0 - F6EEFAFCEDDFDFDFDFDCDFDCDCDCF3F3F3F3F3F3F4F4F4F4F5F5F5F5F5EBEDF8 - FBFBE6E8EBEFEFF6EFEFF6F6EFF0E1EBEAEEE5E5E5E5E5E5E5E4E4E4E409FE2B - 3C3A3B3D3D3D3D3D3D3D3D424242405146464E725A5A5E5E5E5EB78AB8A8023B - 3B3B6A3D3DA242403E3E44444943435353535D29575656767474745C74567657 - 7E5162FE08E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9EA - E1F6EFF6E2F7FCE4F3DFDFDFDFDCDCDCDCDCDCF3F3F3F3F3F4F4F4F4F4F5F5F5 - F6F6F6EFE1E8F7FBFBF8EEE7EFF6EFF6F6EFF6F6EFE1E1EAE8E4E5E5E5E5E4E4 - E409FE2A3C3A3B3D3D3D3D3D3D423D4242424046464E725A7E5E5E5B5B5EC9B7 - B8B8023B3B3B3D3D3D4040403E46444949435353535D57745C565C5C74745C5C - 595C50577E5163FE08EBE9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9 - E9E9E9EBF0F6EFE1E4FBF7F3DFDFDFDFDFDFDCDCDCDCF3F3F3F3F3F3F4F4F4F4 - F5F5F5F5F6F6F6F6F6F6EFE1E8E5FBFAF1EEEAF0F6F6EFF6F6EFF6EFE1E1E7E2 - E3E5E5E4F8DBFE2A41473B3D3D3D3D3D3D42424242424046464E725A5E5E265E - 5B5EB7C9B8A8023B3B3B3D3DA23D403E3E44444953265353575676745C5C5C59 - 595F7D7D597D7D565D2887FEDBEFEBE9E9E9E9E9E2E9E9E9E9E9E9E9E9E9E9E9 - E9E9E2E9E2E9EBEAF6F6F0EEFAF7F3DFDFF3DFF3DFDCDCDCDCF3DCF3F3F3F3F4 - F4F4F4F4F5F5F5F5F6F6F6F6F6EFEFEFEFEFE1E2E5FAFAF1E3E9F0EFF6F6F6F6 - EFEFF0F0EBE9E3E4ECFE0B2A413B3D3D3D3D3D3D3D3D4242424040464E725A5A - 5E5E5E5D5D5DC995B8A8023B3B3D3D3D4040403E3E4444435353575756745C5C - 5F5F7D7D7D7D7D7D7D7D7D50577E85FEFEE2EFEBE9E9E2E9E9E9E2E9E2E2E9E8 - E9E9E9E2E2E9E9E9E7E1EBEFF6E7EEF9E5F4DFF3DFDFDFDFDFF3DFDCDCDCF3F3 - F3F3F3F3F4F4F4F4F4F5F5F5F6F6F6F6F6EFEFEFEFEFEFEFEFE1E9E5FAFAF1E3 - E8F0F6F6F6F6EFF6F6F0E1E3DBFE2A3C3A3B3D3D3D3D3D3D4242424240405146 - 4E725A7E5E265D5D5D5D9595B8BA023D3D6A3D403D40403E6B44494353235774 - 5C5C5C5F5F7D7D7D7D7D817D7D7D7D5F5C5E772FFE09F0F0F0EAE2E2E2E2E2E2 - E2E9E2E9E2E2E2E9E2E9EAE1EAEFEFEFE5E6FBE3F4DFDFDFDFF3DFDFDFF3DFDC - DCDCF3F3F3F3F3F3F4F4F4F4F5F5F5F5F5F5F6F6F6EFF6EFEFEFEFEFF0EFF0F0 - F0EAE4FAFAF1E5E8EBEFF6F6F6EFEFE0FE063F413B3D3D3D3D3D3D423D424242 - 4040464E4E725A7E265D5D5D5D5DC9C9B8BA023B3D3D3D3DB4403E3E44444353 - 5357565C5C5F5F7D7D7D7D818181818181817D7D5C767E2DFEFE64EAF6EFE1EA - E9E2E2E2E2E2E2E2E2E2E2E2EAEBF0F0F6F6EDFCFAFCE2F3DFDFF3DFDFDFDFF3 - DFDFDFDCDCDCF3F3F3F3F3F3F4F4F4F4F4F5F5F5F6F6F6F6EFF6EFEFEFEFEFEF - EFF0F0F0F0F0F0F0EAE3FAFAF1FAEEEFF6EFE709FE623C3A3B3D3D3D3D3D3D3D - 3D42424240404646725A5A5E265D5D5D5D8495B8B8A8023D3D3D403D403E3E3E - 4449435357565C5C5F5F7D81818181818A81818181817979815C5D7A2EFEFE2F - F20AF6E1F0EBE7E9E2E2E2E2E9E9E7E1F0EFF6F0E4FDECDEFD09EBDFF3F3DFF3 - DFF3DFDFDFDCDFDCDCDCF3F3F3F3F3F4F4F4F4F4F5F5F5F6F5F5F6F6F6F6EFEF - EFEFEFEFF0EFF0F0F0F0F0F0F0F0F0E7F2E5E7EFEFF0FAFE0B3F41473D423D42 - 3D3D4242424242425146464E725A7E5E5B5D8484295D95B89ACA023D3D3D3DB4 - 403E3E444443435357745C5F5F5F8181818A8A7979798A797979797979815C5D - 722EFEFE07FAFAE8F0F60AF0E1EBE7E7EBE1EFF6F0EDE0ECECECECEC07ECECEC - F2F8E8E1DFDFDFDFF3DFDCDCDCDCDCF3F3F3F3F3F4F4F4F4F4F5F5F5F5F6F6F6 - EFEFEFEFEFEFEFF0EFF0F0F0F0F0F0F0F0F0F0E9FBE8EFF6EF0506FE2F3C473B - 3D3D3D3D3D3D3D3D424242404046464E725A5E5E5D298484848496B89ACA023D - 3D404040403E3E44444353574B5C597D7D818181798A8A838383787879837978 - 798A7D5C5D722EFEFE09F2FAFBF8E8EFF6EFE1EFEFF0EDE0ECECECECE0E40AFB - ECFDDEECECECECECDEF2E5E2EFF3F3F3DCDCF3F3F3F3F3F4F4F4F4F4F5F5F5F5 - F6F6F6F6F6EFEFEFEFEFEFEFF0EFF0F0F0F0F0F0F0F0F0F8E5EBF6F60A09FEFE - 2A41473D42423D3D423D3D424242425140464672725A265D5D848484848496B8 - 9CCA023D3DA23D403E3E6B6B43434D4B745C5F7D81818A8A8A838A8383838383 - 83838383787981815C5D722DFEFEFE08ECE0FAF1E5E3F7FCDEECECECECF2E50A - 040404FBECFCF7E6FAF2FDDEECECECECECFDFBE3EAF5F3F3F3F3F3F4F4F4F4F4 - F5F5F5F5F5F6F6F6F6F6EFEFEFEFEFEFEFF0F0F0F0F0F0F0F0F0E9FAE8EFF6E1 - DEFEFE6241473D3D423D3D423D424242424242405146464E497E5E5D5D848484 - 8484B8B8A8CA023D3D4040403E3E6B6B4345534B5C597D81818A8A8383838383 - 838383838383838378787879545C577E880B0BFEFEFEFEDB08ECECECECECF2E4 - 0A040404040404FBECFCE6F7F7F7E5E5F7FAF2FDECECECECECECE0FAEEE7F3F3 - F4F4F5F5F5F5F5F5F6F6F6F6F6EFEFEFEFEFEFF0EFEFF0F0F0F0F0F0F0F0F8EE - F0EFF0FBFEFE2F41473D424242423D423D3D42424242404246464672497E5D5D - 84845C848484B8B89CCA023D4040B4403E3E6B44434570745C7D7D818A8A8383 - 838383838990838383838383838378797981505C535A882D2F0BFEFEFE07ECF2 - E40A040404040404040404FBECFCE6F7F7E5E5E5E5E4E4E3E3E5FAF2FDECECEC - ECECECE0F1EDEBF4F5F5F5F5F5F6F6F6F6F6EFEFEFEFEFEFEFF0F0F0F0F0F0F0 - F0EDF7E7F6F6E5FEFE2F41473D3D4242423D3D3D424242424240405146464E72 - 7E5E5D5D848461848484989ACACA02403D40403E3E3E6B4443534B5C5F7D8181 - 8A8383838383908390837C9083837C7C83838378787981505C56534372518762 - 2FECEC0A040404E104040404040404FBECFCF7F7F7F7E5E5E4E4E4E3E3E3EEEE - EEEDE5FAF2FDECECECECECDEF2F7E8E1EFEFF5EFEFEFEFEFEFEFEFF0EFF0F0F0 - F0F0F0F0E7F1EAF6F6E5FEFE2F41473D42424242424242424242424242424051 - 46464E5A7E5E5D84848F8F8F8F8F98B8CACA023D4040B43E3E6B4449454D4B5C - 5F7D8179798383839089908989897C9089907C7C7C838383787979795050744B - 704346473F07EC0A0A04040404040404040404FBECFCE6F7F7F7E5E5E4E4E4E3 - E3E3EEA0EDEDEDE8E8E2E8E4F9F2DEECECECECECFDFCE5E9F0EFEFEFEFEFEFEF - F0F0F0F0F0F0F0EDFAEDF0F0FDFEFE2F413B3D42424242424242424242424242 - 42404046464E725A7E265D848F8F8F8F8F849A98BACA02404040403E3E6B4443 - 454556747D818A8A83838390899089898989898989897C907C83838379585858 - 79547D50504D494241ECEC0A0404E10404040404040404FCECF2E6F7F7E5E5E5 - E5E4E4E3E3E3EEEEEDEDE8E8E8E2E2E2E9E9EAE2E4F9E0DEECECECECECFDFBEE - EBEFEFF0EFEFF0F0F0EBF7FCE5EBE208FEFE2E41473D42424042424242424242 - 4242424240404046464E727E5E5D845C8F8F8F8F8F8F9A9ACACA0240B440403E - 3E6B4443454D4B597D81818A83838989899089898989898989897C7C7C837C83 - 8378787954546E55554843514707EC0AE104040404040404E2F8FDECECECECEC - DEE0F9F7E4E4E4E3E3E3EEEEEEEDEDE8E8E2E2E9E9EAEAEAE7EAE7E7E2E4FAE0 - ECECECECE0F0EFEFF0F0F0F0E3FCFBE4EAF9DBFE096447474242404040424240 - 4242424242424240424040464E4E725A5E5D84618F8E8E8E8E8F9A9ACACA0240 - 40403E3E3E6B4443434D74507D818A8383838989898989898989898989898989 - 8989837C83787879795454505048534647ECEC0A0404040404E8FADEECECECDE - FBE0ECECECECECECECDEF2F9E4EEEEEEEDEDEDE8E8E2E2E2E9E9EAEAEAE7E7E7 - EB0AEBEBEBE2FCECECEBEFEFEFF0EBF9FBE3EAEBDEFEFEDE67473D4240404040 - 404042424242424242425140404046464E725A5E5B5D848F948D94948E8F9A9A - CAC2024040B43E3E3E6B4343454A747D7D818A83839089898989898989898989 - 89898989897C7C83838378795479545555484D4E4707EC0A040AA0F2DEECECEC - DEF9E9D9DDDDDDEBEDF1F2ECECECECECECECDEF2F1E3E8E8E8E2E2E9E9EAEAEA - EAE7E7E7E7E7EBEBEBEBE7DEECEBEFEFE7E3FBFBF8F8DEFEFEDBDE6885424046 - 3E463E40404040404242424240424040404046464E495A5E5D84848F8E8D9394 - 8E949A9CCAC2024040403E3E6B6B4343454B5C7D7D818A838389898989898C89 - 898C898989898989897C897C7C78787879546E6E505045443DECECF7F2ECECEC - B3D1D4D4D7DDDDDDDDDDDDDDDDDDDDDDEBE8E6F2DEECECECECECECDEFCE6EEE2 - E9E9EAEAEAE7E7E7EBE7EBEBEBEBEBDEECEDEAE6FCFCDEDBFEFEFEFEE0D86651 - 51463E463E46463E4040405142424240424040404640464E72495A265D848F8E - 8D9393938E8E9C9CCAC20240403E3E3E6B444443454A747D7D8A838389898989 - 898C898C8C89898C898C898989897C7C8383835858796E6E55504B4342ECECEC - ECEC0708B3D0D3D3D3D3CFCFCFD5D7DADDDDDDDDDDDDDDDDDDE1E8E5FCFDECEC - ECECECECFDF2F7EDEAEAE7E7E7EBE7EBEBEBEBDEEC09ECEC09FEFEFEFE09FAA0 - D19F604E4444443E3E46464040404040514042425140515146464E4E725A5E53 - 848F8F8D93939393938D9C9CCAC2024040403E3E6B6B4443454B507D818A8383 - 898989898C898C89898C8C898989898989897C7C7C8378787979545555504843 - 442D07ECEC07DBD2B3CED3D3D3D3D3D3D3D3D3CFCFD5D5D7DAD9D9DDDDDDDDDD - DDDDF0E9E4FCFDECECECECECECFDFCF7EDEBEBEBEBEBEBF8EC07FEFEFEFE0B2E - 8867D19F7E72491F1F49443E4E46463E46404040405151404040404046464E72 - 497E5E5D848F8E939395959593949CCACAC20240403E3E3E3E4443434D4B507D - 818A83908989898C8C898C8C898C8C898C898C898989897C838378787979546E - 6E50746C433E0707ECECECD2B3D4D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3CFD5D5 - D7DADAD9DDDDDDDDDDDDDDF6EAE4FAE0ECECECECECECFDFCF7EDE7E4EC080B2F - 2D827E5D5D5D5D5B53532653434949443E4E4E46464646514051514051464646 - 464E4E72492653845C8F9493959595959593CA9CC2C20240403E3E3E6B44B543 - 4D4B507D818A838389898989898C8C898C8C8C8C8C898989897C898983838378 - 58796E556E50504845434642872EDBB3B3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3CFCFD5D7DADAD9D9DDDDDDDDDDDDF6E7E3F9E0ECECECECECECEC - EC0842725B5C5F817D8159507457234D43434949444E4E464646464651404040 - 464646464E4E4E495A5E5D848F8E8A959595969595959C9CC2C202403E3E3E3E - 6B4443434D74507D798A83898989898C8C8C8C8C8C8C8C8C8C89898989897C7C - 7C7C785858796E54505050486C4543463D4163B3D1D3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3CFD5D7DAD9D9D9D9DDDDDDDDDDDDE72F - 08ECECEC076449748158837C8383797D50504B4D45434949444E4E3E4E464646 - 46464046464646464E4E72497E5B5D618E8D9395969696969595CACACAC20240 - 3E3E3E3E6B4443434D48507D8183838989898C8C8C8C8C8C8C8C8C8C8C8C8C89 - 8989897C838383785854546E505050481E6C4544424764B3D0D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3CFD5D7DAD9D9D9 - DDE1E407ECECEC07825E565458898989898378797D50744D53531F4944444E4E - 3E464E4646464646463E464E4E72721F5E5D848F8E9395969696969696959CCA - C2C20240403E3E3E6B6B43454D74507D81838389898996968C8C8C8C8C8C8C8C - 8C8C898C8989897C7C8383785879546E6E505050486C4549516265B3CED3D3D3 - D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3 - D3D3CFD5D4F2ECECEC086472265255587C738C8C8C898379815974564D534349 - 4949724E4E4E4E4646464646464E4E4E72725A7E5357848E9395969698989896 - 96909CCAC2B202403E3E3E6B6B6B43454D74507D798383898989898C8C8C8C8C - 8C8C8C8C8C8C8C8C8989897C7C7C83787979546E556E5048484B45494241D2B3 - CECFD3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3D3D4D1D264474244535055587C898C8CA58C898358817D744B - 7053431F1F4949444E4E4E464E4E46464E4E4E72725A7E535D295C8E93959698 - 989898989696CACAC2C202403E3E3E3E6B4443454548507D7983839089898C8C - 8C8C8C8C8C8C8C8C8C8C8C898989897C7C837878587954545550504848484549 - 3D41D2B3D4D3D3D3CFD3D3D3D3D3D3D3CFD3D3D3CFD3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3CFD3D3D3D3D4B3D28786444A50544F71898CA5ABAB8C8C8983 - 817D5074224D53431F1F4949444E4E4E4E4646464E4E725A725A5A265D848F8E - 95969698989A989898969DCAC2CB0240403E3E3E6B4443454D74507D79838389 - 8989898C8C8C8C8C8C8C8C8C8C8C8C898989897C7C7C8378584F6E6E55505050 - 504B454E3D63B3D1CFCFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CF - D3CFD3CFD3CFD3CFD3CFD3D3D3CFD3CFD4D2D23A465350554F58718C738B8B8B - A58C898958547D50564D4343435A1F494E4E724E4E4E4E4E4E72725A495A5E53 - 5D5C8E939596989A9A9A9A989896C2CAC2B20240403E3E3E6B6B43454D74507D - 7983838989898C8C8C8C8C8C8C8C8C8C8C8C8C8C8C898989837C8378794F4F6E - 6E505050504B2646472EB3D1CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF - CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFD3D4D2D247724D5554584C6F8C - 8B8B8B8B8B8C897C78817D50744B5343431F4949724E4E4E4E4E4E4E7272725A - 5A5A265D848F8E939596989A9A9A9A9A9898CACAC2B202403E3E3E3E6B6B4343 - 4D4850548183838989898C8C8C8C8C8C8C8C8C8C8C8C8C898989897C7C7C7C78 - 7858546E6E505050484B53464765B3D6CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF - CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFD3CED26686491E2058 - 587C8C758B8B97978BA58C8983587D595C4B70532643261F5A5A72724E5A7272 - 72285A5A7E26535D848F8E9096989A9A9C9C9A9A9A989DC2C2CB0240403E3E3E - 6B4443434D74507D7983838989898C8C8C8C8C8C8C8C8C8C8C8C8C8C8989897C - 7C7C7C787858586E556E5050507443514167B3CED5CFCFCFCFCFCFCFCFCFCFCF - CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFD0D26540 - 4350544C716F73A57BAAAAAA808B8C897C588150744B4D534326431F49497272 - 5A72727272725A1F265E5B5D5C8E8A9596989A9C9C9C9C9A9A98C2CAB2CB0240 - 403E3E3E6B4443434D4B507D7983838989898C8C8C8C8C8C8C8C8C8C8C8C8C8C - 8C89897C7C837883785854546E505550554B5A4241D2B3D4CFCFCFCFD5CFCFCF - D5CFD5CFCFCFD5CFD5CFCFCFCFCFCFCFD5CFCFCFCFCFCFCFCFD5CFCFCFCFCFCF - D1D22D4E4D504F717173737B977FAAAA978BA5897C78817D5074705353264349 - 1F5A72725A727272725A7E7E43265D848F8E9395989A9C9C9C9D9C9C9A98C2C2 - C2CB0240403E3E3E6B6B4343454B507D81838389898C8C8C8C8C8C8C8C8C8C8C - 8C8C8C8C8C898989897C7C8378584F5854546E55594B4E8662B3B3D5D5CFD5D5 - CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFCFCFD5 - CFCFD5D4B3D286494A554F717173A57BAA92AC92AA8BA58C7C838A7D50744B23 - 53264326495A5A5A727A725A5A5A495E5E535D848F8D9596989A9C9C9D9D9C9C - 9C98C2C2B2CB0240403E3E3E6B4443434D4B507D8183838989898C8C8C8C8C8C - 8C8C8C8C8C8C8C8C8C8989897C7C7C7878585854546E6E6E4853464764B3D1D5 - D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5 - D5D5D5D5D5D5D5D4D2D23D49484F4C716F737B8BAA929292AA978B8C8983797D - 7D505723535326261F1F495A5A727272725A5A5A535B84848F8D9596989A9C9D - 9D9D9D9C9A9AC2C2CBCB02403E3E3E3E6B6B43434D74507D79837C8989898C8C - 8C8C8CA58C8C8C8C8C8C8C8C897389897C7C7C837878584F5455545548435147 - D2B3A0D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5 - D5D5D5D5D5D5D5D5D5D5D5CED266514350584C6F6F737B8092929292AC808B8C - 897C7954595C56702353261F5E1F5A7E5A725A725A5A7E535B5D845C8F8A9596 - 9A9C9D9D9D9D9D97979AC2C2CBCB0240403E3E3E6B4449434D4B507D79839089 - 89898C8C8CA58C8C8C8C8C8C8C8C8C8C8C898989897C7C7C787858584F6E6E50 - 48494241B3D2D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5 - D5D5D5D5D5D5D5D5D7D5D5D5D5D50AD0D265464D554C716F73737B7F92999292 - ACAA8BA5897C79797D5C4B57235326267E5A5A7E5A5A5A7E5A7E5E5E5E5D845C - 8E8A96989A9C9D9D9D9D9D9D9C9AC2C2CBCB0240403E3E3E6B6B44434D48507D - 8A839089898C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C7C897C897C7C7878584C - 4F546D6E48494263D2D1D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5 - D7D5D7D5D5D7D5D5D5D7D5D5D5D5D5D5D5D5CFD1D288491E204C6F6F73A57B7F - 9299999992AA8BA5898358797D5C4B56575B2626261F5A5A7E5A7E5A1F7E7E26 - 295D5C8F8D9596989A9C9D9E9D9D9D9D979ACBC2CBCC0240403E3E3E6B6B4343 - 4548507D79839089898C8C8C8C8C8C8CA58CA58C8C8C8C8C8C8C8C8989897C7C - 7C7878584F4F4F504A493D64B3D0D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7 - D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D4D2D24243246D716F7C - 737580A39299999992AAA8AB8C7C83797D74744B295B26267E7E5A495A7E7A7E - 7E7E7E5E5B5D848F8D9396989C9C9D9E9E9E9D9D979AC2CBCBCC0240403E3E3E - 3E4444434D4B507D8A838389898C8C8C8C8C8C8CA5A58CA5A58C8C8C8C8C8C89 - 7389897C7C7C7178584F4F6E706B8765B3D8D7D7D7D7D7D7D7D7D7D7D7D7D7D7 - D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D5D6D266515354 - 4C716F73737580929299999992928BA5898983817D50745657535326261F5A7E - 7E7E7A7E7E7E5E265D27847D8A9596989C9D9D9E9E9E9D9D9C97CBC2CCCC0240 - 403E3E3E3E6B4443454B507D8A8390898C8C8C8C8C8C8CAB8C8C8CA58CA5A58C - 8C8C8C8C897C897C7C7C71714C4C54554D7741D2B3D4D7D7D7D7D7D7D7D7DAD7 - D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7DAD7D7D7D70AD1D2 - 82494B6E4C716F73738B7F929999A999BB92808B8C7C838A7D597429235B2626 - 5A495E7E7E7E7E7E7E7E5E5E29295C8E8A95989A9C9D9E9E9E9E9E9D979ACBCB - CBCC0240403E3E3E3E6B43434548507D79838989898C8C8C8CAB8CABABABA5AB - A5A5A5A58CA58C8C8C8C8C89897C7C7C714C4F50534263B3D2D7DAD7DADAD7DA - D7DAD7DAD7DAD7DAD7DADAD7DAD7D7DAD7DAD7D7DAD7D7DAD7D7DAD7D7D7D7DA - D7D4D2D2421F484F4C6F7373737B7F9299AEAE999292808B8C8983797D505C56 - 575326265E5E7E5E7E7E7A7E5E7E5E5D5D848F8E9395989A9C9E9E9E9E9E9E9D - 9C9ACBCBCBCC0240403E3E3E6B6B4343457450548A839089898C8C8CAB8CABAB - A5ABABABABA5A5A5A5A58CA58C8C8C89737C7C7C7C714F74438664B3D1D9DADA - DADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADA - DADADADAD7D6D266464D554F6F6F6F73757B7F929999AFAE9992AA8B8C898379 - 7D7D745656535B53535E7E7E7E7E7E7E7E5E5E5D5D845C8E8A96989A9D9E9E9E - 9E9E9D9D9C9ACBCBCCCC0240403E3E3E3E6B4443454B7D81798389898C8C8C8C - ABABABA5A5ABA5ABA5A5A5A5ABA5A5A58C8C8C738C8C89736F6F4F50728767B3 - D8DADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADA - DADADADADADADADA0AD1D2827A744F4C716F737373807F9299AFAF999992AA8B - 8C89838A817D5C56575D5B2626267E7E7E7E7E7E7E5E5E5D575C8F8D9096989C - 9D9E9EB2B29E9E9D9C97CBCBCCCC0240403E3E3E3E444943454B7D7D79838989 - 8C8C8CABABA5ABABABAB8BABABABAB8BABABA58BA5A5A58C737373737C717957 - 4687D2B304D9DADAD9DADADADADADADADADAD9DADADADADADADADADADADADADA - DADADADADADADADADADADADAA0D2D25143504F71716F6F73757B7F92A9AFAFAE - 9992978B8C8983797D5F5C56575B5B26265E7E7E7E7E7E7E7E5E5E5B845C8F8A - 9596989C9D9E9EB29E9E9E9D979ACCCBCCCD024040403E3E3E6B6B434D74507D - 8A8389898C8C8CABABAB8BAB8BABAB8B8B8B8B8B8B8BA5AB8BA5A5A5A5A57389 - 7378555E8664B3D1D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9 - D9D9D9D9DAD9D9D9D9DAD9D9DAD9D9D705D2654E4A504F4C6F6F7373757B7FA7 - 99AFAFAE9992AAA58C89838A7D7D7474575B265E267E7E7E7E7E7E7E7E5E5E5B - 298F8F8D95969A9C9D9EB2B29E9E9E9D979ACCCBCCCC024040B43E3E3E6B4443 - 454B50818383898C8C8CA5ABABABAB8B8B8B8B8BA88B8BA88B8B8B8B8B8B8B8B - A5A573757C78745A8767D2D8D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9 - D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D90AD2D2881F486E4F71716F7373 - 757B7FA799ADAFAF9992AA8B8C7C83797D597656575B2626267E7E7E7E7E7E7E - 7E7E5E5D5D848F8D95969A9C9D9E9EB2B29E9D9D979ACCCCCCCD0240403E3E3E - 3E6B444345745081838389898C8CA5ABAB8B8B8BA8A8A8A8A88BA8A8A88B8B8B - 8B8B8B8B8B7B75737C5453852DB3D2D9DDD9DDD9D9D9D9D9D9D9D9D9D9D9D9D9 - D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9DDDAD6D267465350204C4C - 71716F73758092A7AFAFAF999992AA8B8C8983797D505C74295B5B267E5E7E7E - 7E7E7E7E7E7E265D765C8F8A95969A9C9E9EB2B29E9E9E9D979ACCCCCDCD0240 - 40403E3E6B6B444345747D818383898C8CABABAB8BA8A8A8A897A8A89797AAAA - A8AAA8A8808B8B808B8BA58978747A47D2B3D8DDDDDDDDDDDDDDDDDDDDDDDDDD - DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD9DDDDD9DD04D1D264494B - 55204C4C4C6F7373757BA39999AFAFAF9992978B8C8983797D595C76575B265E - 5E7E7E7E7E7E7E7E7E7E5E5D295C8F8A90989A9C9E9E9EB29E9E9E9D979ACCCC - CDCD0240403E3E3E3E6BB54370747D798389898C8CABAB8BA8A88B9797AA97AA - AAAAAAAAAAAAAAAAAAAA7F8B8BA58C7C7D7E8564D2D2D9DDDDDDDDDDDDDDDDDD - DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDE2D2 - D251265255204C4C716F7373757BA392AFAFAFAE9992AA8B8C8983817D5C7457 - 575D265E265E7E7A7E5A7E7E7E5E5E5D848F8F9395989A9D9E9EB2B2B29E9D9D - 979ACCCCCDCD0240403E3E3E6B44434370507D798389898CABAB8B8B97979797 - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA80A57C795D8863D2B3E8DDDFDFDDDFDF - DDDFDDDDDFDDDDDDDFDDDFDDDFDDDFDDDFDFDDDFDDDDDFDDDDDFDDDDDDDDDDDD - DFDAD1D2654E4D50554F4C4C716F73737580A399A9AFAFAE9992808B8C89838A - 505074575B5B26267E7E7E7E5A5A7E7E7E5E5E5D845C7D8A90989A9D9EB2B2B2 - B29E9E97979ACDCCCDCD0240403E3E6B6B6B43436C50548A7C898CABAB8BA8A8 - 97AAAAAAAAAAAAACACACACACAC92ACACACAAAAAA80A5898F7A2DD2B3F8DDDFDF - DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF - DFDFDFDDDCE9D2D2421F5255204F4F4C716F6F7375809299AFADAFAF9992AAA5 - 8C8958797D5C27575B26265E7E7E7E5A7E7E7E7E7E5E5E5D848F8E8A90989A9D - 9E9EB2B29E9E9D9D979ACCCCCDCD0240403E3E6B446B43454B50547889898CAB - 8B8B9797AAAAAAAAACACACACACACAC9292ACACACACA3A3AA8BA5838482D2B366 - DD01DF01DFDFDF01DF01DFDFDFDFDFDFDFDF01DFDFDFDFDFDFDFDF01DFDFDFDF - DFDFDFDFDFDFDF01DA05D2654E45505520204C4C6F6F7373757B92A6999BAFAF - 9992AA8B8C8978797D5C5C575353265E5E7E7E7E7E5A7E7E7E5E265B848F8E93 - 96989C9D9E9EB2B29E9E9D9D979ACDCCCDCD02403E3E3E6B446B434548507983 - 898CABAB8B97AAAABAACACACACACBBBB92BBBBBBBBBBA7929292A39280A590D2 - B3D2D1E7F0E1DFDFDFDF01010101010101010101010101010101DF010101DF01 - 01DF01DFDFDF01DFDF010101E7D2D2881F746E544F4F4F4C716F7373757BA399 - A99BADAE999280A58C8978817D505C57575B265E7E7E7E5A7E5A7E7E7E7E5E5D - 298F8E9396989C9D9EB2B2B29E9E9D979AABCCCCCDCD02403E3E3E446B6B4345 - 48557983898CAB8BA897AAAAACACACBBBBBBBBBBBB99BB99A7BBA7BB92A7AC92 - 7F8B89B3B3B3B3B3B3DED1D1D105D6D6E6A0A0A0E7EBEBEFF4F4DF0101010101 - DF0101010101010101010101010101F0D1B3655A23506E4F4F4F4C4C716F7373 - 75809299AFAD9BAE999297A58C7C78815F2456575B265E5E7E7E7E7A7E7E7E7E - 7E5E5E5D848F8E9396989C9D9EB2B2B2B29E9D979A9ACDCDCDCD02403E3E6B6B - 44434345747D797C8CA58BA8A8AAAAACACACBBBBBBBB9999B9B999B99999A6A7 - A7A7A7A7AC80A5676767D2D2D2D1B3B3D2B3B3B3B3D1B3D1D1D1D1D1050505D8 - D6D8A0E8E2EA0AEBEBEFF6EFF3DFDF0101DFD9D6D2D251534850542020204C4C - 716F6F73758092A6AFAD9BAF999297A58C7C83817D7456235B265E7E7E7E7E7E - 7A5A7E7E7E5E5B29848F8E9596989C9E9EB2B2B29E9E9D979A9ACDCCCDCD023E - 3E3E446B4343456C505478898CAB8B97AAAAACACBBBB999999B9B9AEAEB9AEB9 - B9A69999B999A7A792AA80A589898A8A8E946161619F9F9F6666666767D267D2 - D2D2B3D2D2D2B3B3B3DED1D1D10505D6D8E3A0E8EAE7E3D2D2911F4B50542020 - 204C4F4C716F6F73758092A6AD9BAFAF999280AB899083817D7474235B261F7E - 7E7E7E5A7E5A7E7E7E7E5E5D848F8E95969A9C9D9EB2B2B29E9E9D979AABCDCC - CDCD023E3E3E444443436C6C50798389A58B97AAAAACACBBBBB9B999B9AEAEAE - AEAEA9A9AEAEA9B9A6A699A6A792A37F8075A5736F71784F546E5050745C7676 - 619161919F9F66669F66666666676767D267D267D2D2D2D2D2D2D2D29F494A50 - 55544F54206D4C4C716F6F7375809299AF9B9BAF999297A58C8378815F5C5629 - 53435E7E7E5A7E7E7A7A7E7E7E7E5E5D848F9495969A9C9EB2B2B2B29E9E9D97 - 9A98CDCDCDCD023E3E4444434345454B5079838CA58B97AAACACBBBBB9AEAEAE - AEAEAEAEAFAFAFA9A9A9A9AEA699A6A6A6A4A4A3A37F807B757573736F6F4C6D - 6D6D6E50504848486C4D5345434326265A919191919F9F9F666666B367D2689F - 436C5050204F4F4F204F4C4C716F6F73758092A9AF9B9BAF99AC97AB897C8A7D - 7D5C56295B265E7E7A7E7E7E7A7A7E7E7E7E5E5D848F9495969A9C9EB2B2B2B2 - 9E9E9D979AABCDCDCDCD023E3E6B444343456C4850797C8CABA8AAACACBB9999 - AEAEAEAEAEAFAFAFBEBEAFAFAFAFA9A9A9A9A6A6A6A6A7A4A3A37F7F7B7B7575 - 73736F6F6F4C4C4C6D6D6D6E505550505050481E4B4B2370232653262649495A - 491F43534824506E204F54206D4C4C4C716F737375809299AD9BADAF999280AB - 8C83797D7D74565B5B267E7E7E7A7E7E7A7A7A7E7E5E5E5D848F8D95969A9D9E - B2B2B2B29E9E97979A98CDCDCDCD026B44441F43434548487D78898C8BAAAA92 - BB99B9AEAEAEAFAFBEBEBEAFBEBEBEBEAFADA9AFA9A9A9A6A6A6A7A4A4A3A37F - 807B75757573736F6F6F4C4C4C6D4C6D6D4C6D2020556E6E5050505050525252 - 2452484B564B48745055556E55204F204F20204C6F6F6F73758092AFAD9B9BAF - 99AC97AB89838A7D5C5C56295B5E265E7E7A7A7E7E7A7A7A7E7E5E5D848F8D95 - 969A9D9EB2B2B2B29E9E9D979A98CDCDCDCD024E44441F4345454850547C89A5 - A8AAAC929999AEAEAFAFAFBEBEBEBEBDBEBEBEADADADADA9AFA9A9A9A6A6A7A4 - A4A3A37F7F807B7575736F6F6F6F6F6F4C4C4C6D204C204C4F6D20206E205455 - 5555555555505550555059556E55556E206E4F6D4F4F4C4C716F6F737580A799 - AD9B9BAF999297A58C838A7D505C295B535E7E7E7E7A7E7A7E7A7A7E7E7E5E5D - 848F9395989A9D9EB2B2B2B29E9E9D9AABABCDCDCDCD0244441F4343456C4850 - 547C8CA5A8AAACBBB9AEAEAEBEBEBEBEBEBEBDBDBE9BBEBDADADADADADA9A9A9 - A6A6A6A7A4A4A37F7F7B75757373736F6F6F6F6F4C4C4C4C6D4F4F4C4F6D2055 - 6D6E555554542055556E5455555554555555206E206E4F20204F6D4C716F7373 - 757F9299AD9B9BAF99928BA5897C797D5C5C295B5B7E7E7E5A5A7E7A727A7A7E - 7E7E5E5D848F9390989C9D9EB2B2B2B29E9D9C9A9A98CDCDCDCD024444434343 - 454A4850797C8C8BAAACBBBBAEAEAFBEBEBEBEBDBEBD9BB0BD9BB0BD9BADBDAD - ADADA9A9A9A6A6A7A4A4A3A38080757575736F6F6F6F6F6F4C4C4C6D6D4C4F6D - 6D2020555420556E6E5520555454546E6E555555542055545420544F204F4F4C - 716F6F737B8092A99B9B9BAF999297A58983797D595C575B265E7E7E5A7A7A7A - 7A7A7A7E7E5E5E5D848F9390989C9D9EB2B2B2B29E9D9D9AAB98CDCDCDCD0249 - 441F43456C1E506E787CA58BAA92BB99B9AFBEBEBEBEBE9BBDBDB0BDB0B0BDBD - BDBDADADADADADA9A9A9A6A6A7A4A47F807B7B7573736F6F6F6F4C4C4C4C4C4C - 4F20204F204F2054556E55555520556E54545455555555555554552054546D6E - 6D4F4F4C4C6F7373757FA4AEAD9B9BAF99928BAB8983797D5074565D267E7E7E - 5A7E7A7A7A7A7A7E7E7E5E5D848F8D95989C9E9EB2B2B29E9E9D979A988CCDCD - CDCD021F1F43534D4A48506E787CA58BAABB99AEAEBEBEBEBD9B9BB0B0BFBFBF - B0B0BDBFBDBDBDBDBDADADADA9A9A6A6A6A4A3A37F80757575736F6F6F6F6F6F - 4C4C4C4C4F204C4F6D202055555454556E54555420542054545555546E205454 - 20544F4F4F6D4C4C4C6F6F73757F92A99B9B9BAF9992978C8983795F5027295B - 267E7E5A7A7A7A7A7A7A7A7E7E5E5E5D5C8F9396989C9DB2B2B2B29E9E9D9C9A - 9898CDCDCDCD021F4343454D4B48506E788CA58092BBA7AEBEBEBE9BBD9BBFBF - BFBFB1BFBFBFBFB0BDBDBDBDBDADADADADA9A9A6A4A4A47F7F7B7B7573736F6F - 6F6F6F4C4C4C6D4C4C4C20204F202020546E6E6E545455555555556E55555555 - 205454545554546D4F4F4C4C716F6F737B7FA7AEAD9B9BAF99928BAB8983797D - 5C57575B5E5E7E7E7E7A727A727A7A7E7E7E5E84848E9396989C9EB2B2B2B2B2 - 9E9D9CAB988CCDCDCDCD021F4343456C48486E6E788C8BAAAC99AEAEAFBEBD9B - B0B0B0BFBFBFBFBCBCBFB0BCBFB0BDBDBDBDADADADA9A6A6A6A4A3A380807575 - 75736F6F6F6F6F4C4C4C4C4C4C4C204F4F2054204F5455555555555554555555 - 5555555455552020556E5420206D4C4C716F6F73757F92A99B9B9BAF9992A88C - 8983817D5C57575B7E7E7E7E7E7A7A7A7E7A7A7A7E5E5E5D848E9396989C9EB2 - B2B2B2B29E97979A9896CDCDCDCD021F4345454A48506E797C738BAAACA7AEAF - BE9B9BB0BFBFBFB1BCBCBCC0B1BCBCBCBCBCB0BDBDBDADADADADA6A6A4A4A47F - 7F7B7B7573736F6F6F6F4C4C4C4C4C4C4C6D20202055546E2055555455555420 - 55555554556E5555556E555520555420204F4F4C4C6F73737B7FA7AF9B9B9BAF - 99928BA58983817D5C56295B267E5E7E7A7A7A7A7A7A7A5A7E7E5D84848E9596 - 989C9EB2B2B2B29E9E9D97AB988CCDCDCDCD021F4345457448506E58718C8BAA - BB99AEBEBEBDB0BFBFBFC0BCC0C0B1C0C0C0C0B1C0BCBCBCBCBDBDADADA9A9A6 - A6A4A3A38080757575736F6F6F6F6F4C4C4C4C4F4F6D4F204F20202055556E55 - 555555555555555555555555556E6E556E54204F6D4F4F4C4C6F6F73757FA7AF - 9BB09BAF99AC8B8C8983817D5C565B53267E7E7E7A7A7A7A7A7A7A5A7E5E5E5D - 848E93969A9D9EB2B2B2B29E9E9D9A9A9896CDCDCDCD02435345534B50506E4C - 7CA580AABB99AFAFBEBDB0BFB1B1B1C0C0C0C0C0C0C0C0C0BCC0BCBCBCBDADBD - ADA9A9A6A4A4A3A3807B757573736F6F6F6F4C4C4C4C6D4F6D4C204F6E202055 - 556E5555546E55555555555555556E55556E55555420204F206D4C4C716F7373 - 7B7FA7AF9B9B9BAF99928B8C898381595C235B535E7E7E7E7A725A7A7A7A7A7A - 7E5E5E5D8F9493969A9D9EB2B2B2B29E9D9D9AAB8C96CDCDCDCD021F43454D4B - 505054587CA580AA99AEAFBEBDB0BFBFBFC0C0C0C0C0C0C0C0C0C0C0C0BCC0BC - B0BDBDADADA9A9A6A7A4A4A37F7B7B75736F736F6F6F4C4C4C4C6D4C4F204F4F - 202054205455546E556E55555555555555556E55556E5520546E2020204F4C4C - 4C7173737B7F99AF9BB09BAF99928B8C8978815027565B267E7E7E7A7A7A7A7A - 7A7A7A7A7E5E5E848F8E95969A9D9EB2B2B2B29E9E979AAB9696CDCDCDCD0226 - 53456C48505054587CA58092A7AEAFBEBDB0BFBFC0C0C0C0C0C1C1C1C1C0C0C0 - C0C0BCBCBDBDBDADADA9A6A6A6A4A37F807B757573736F6F6F6F4C4C4C4C4C4C - 6D6D4F206D2020545455545555555555556E5555555555555555555555542020 - 54204C4C716F6F75757F99AF9BB09BAF99AC8B8C89838159742953267E7E7E7A - 727A7A7A7A7A727A7E5E5E848F8D93989A9D9EB2B2B2B29E9E9C9AAB8C96CDCD - CDCD024325534B74506E4F4C7CA5809299AEBEBEB0B0BFC0B1C0C0C1C0C1C1C1 - C1C1C0C0C0C0BCBCBCBDBDADADADA6A6A6A4A3A37F7B757573736F6F6F6F6F4C - 4C4C4C6D4F4F4F20542054542055555454555550556E6E555555555555505555 - 552020204F4F4C4C717173737B7FA7AD9BB09BAF99AC8B8C8979815F74295326 - 7E7E7E7A7A7A7A7A7A7A7A7A7E5E5E5D8F9495969A9D9EB2B2B2B29E9D979A98 - 9889CDCDCDCD0226454D4A74506E5471738B7F92A6A9ADBEBDB0BFB1C0C0C1C1 - C1C1C1C1C1C1C1C0C0C0BCBCBCBDBDADADA9A9A6A6A4A47F8080757573736F6F - 6F6F4C4C6D4C4C4C4C20204F2020205420555455555555555555555555505555 - 55505555542020544F6D4F4C716F73737BA399AF9BB09BAF99928B8C908A7D5F - 565729265E7E727A7A7A287A7A287A7A7E5E5E848F8D90969C9DB2B2B2B2B29E - 9D979AB89696CDCDCDCD0226454D4B74506E547889A5AA9299A9ADBDB0BCBCC0 - C0C1C1C1C1C1C1C1C1C1C0C0C0B1BCBCBCBDBDADADA9A9A6A4A4A3A3807B7575 - 736F6F6F6F4C6F4C4C4C4C4F6D20204F20555455555454556E55555555505555 - 505055555555555554206E204F4F6D4C716F6F737B7F99AD9BB09BAF92AA8B8C - 898A815F565726267E7E7E7A7A7A727A7A7A7A7A7E7E5D848F9395989C9E9EB2 - B2B2B29E9D979A989690CDCCCDCD0225534A4A74506E4F71898B7F9299AFAD9B - BFBFC0C0C0C1C1C1C1C1C1C1C1C1C1C0C0C0BCBCBCBDBDBDADA9A9A6A6A4A37F - 807B7B7573736F6F6F6F714C4C4C4C4F4F4F4F20206E6E556E20545455555555 - 55555555555055505555505454542020204F6D4C4C6F6F737BA3A6AF9BB09BAF - 99AC8B8C7C8A7D5F5629535E7E7E7A727A7A282872287A7A7E7E91848F8D9598 - 9C9DB2B2B2B29E9E9D9A9A988C90CDCDCDCD02532545707450554F7873A5AA92 - B9AFBEBDBFB0C0C0C1C1C1C1C1C1C1C1C1C1C0C1C0BCC0BCBDBCBDADADA9A6A6 - A6A4A47F7F7B7575736F6F6F6F6F6F4C4C4C4F4F204F4F20206E555554545554 - 5455555055555055555050505555555555555520206D4C4C716F6F757BA3A6AD - B0B09BAF99AA8B8C838A7D50272953537E7E5A727A7A282828287A7A7E5E5E84 - 8F9395989C9EB2B2B2B29E9E9D9C9A8C9689CDCDCDCD025353221E50506E7971 - 6F8BAA92B9AFADBDBFC0C0C1C1C0C1C1C1C1C1C1C1C1C1C0C0C0BCBCBCBDBDAD - ADA9A9A6A4A4A3A3807B7B7573736F6F6F4C4C4C6D6D4C4C4F4F4F20206E5454 - 545554545555505055595555505550505559555554205420206D4C4C716F7375 - 7BA399ADB0B0B0AF99AA8B8983817D5C57235B5E5A7E7A7A7A7A7A28287A7A7A - 7E5E5D848F8A95989C9EB2B2B2B29E9D9DABAB969690CDCDCDCD0226234D225C - 59554F71738BAA92AEADADBDBFBCC0C0C1C1C1C1C1C1C1C1C1C1C0C1C0C0BCBC - BCBDADBDADADA9A6A6A4A3A3807B7575736F6F6F6F4C6F4C4C4C4C4C20202020 - 202054545454556E6E555055505550505055555055505555555554204F4F4F4C - 716F6F737BA3A6AD9BB09BAF99AA8B8C83815F5C5623537E7E7E7A7A7A827A28 - 2882287A5A5E5D848F93959A9C9EB2B2B2B29E9E9C9AAB969690CDCCCDCD0253 - 23234B7450545878738BAA92B9AFBEB0BCB1C0C0C0C1C1C1C1C1C1C1C1C1C1C0 - C0BCBCBCBCBCBDADADA9A9A6A6A4A37F7F7B757373736F6F6F6F4C4C4C6D4C20 - 6D4F6D20205454555454545555555550505550505055505055506E5555545420 - 204F4F4C716F73737BA399ADB0B19BAF99AA8B8983797D5C575D265E7E7E7A28 - 7A7A282828287A727E7E5D848F8D96989D9EB2B2B2B29E9D9C9A98B89090CDCC - CDCD022523234B5055545871737BAABBB9ADBEB0BFBFC0C0C1C1C1C1C1C1C1C1 - C1C1C1C0C0C0BCBCBCBDBDBDADA9A9A6A7A4A3A37F80757573736F6F716F4C4C - 4C6D6D4C204F6D6E20206E2020556E5550555550505550505955555055555555 - 55545420204F6D4C4C6F6F757B92A6ADB0B09BAF99AAA58C83817D74575D267E - 7E7A7A827A7A282828287A7A7E5E5D848E9396989D9EB2B2B2B29E9D979A9896 - 8983CDCDCDCD02264D224B50506E78718CA5AAA7AEAFBEBDBFC0C0C0C1C1C1C1 - C1C1C1C1C1C1C0C0C0C0BCBCBCBDBDADADA9A9A6A6A4A37F7F7B7575736F6F6F - 6F6F4C4C6D4C6D4C20202054546E546E6E555555555550505050505055505955 - 55505555552055544F4F4C4C716F73737B92999BB0B09BAF92AAAB8983817D74 - 575B265E7E7E7A282828287A2828827A5A5E5D848E93969A9D9EB2B2B29E9E9D - 9CAB98968990CDCCCDCD025325224B7450554F7C738BAAA7B9ADBDBDBFBFC0C0 - C0C1C1C1C1C1C1C1C1C1C0C1C0C0BCBCBCBCBDADADA9A9A6A6A4A3A3807B7575 - 736F6F6F714C4C4C4C6D4F204F4F20556E545455556E55555555505959505950 - 505050555050556E556E2055206D4F4C716F73757BA3A69BB1B19BAF9997AB89 - 83795F5C575B5E7E7E7E7A28772828282828287A7E7E5D848F93969A9D9EB2B2 - B2B29E9D97AB98969090CDCCCDCD025353231E48507D587C898BAAA7B9AFBDBD - BCC0C0C0C0C1C1C1C1C1C1C1C1C1C0C0C0C0BCBCBDBCBDBDADA9A6A6A7A4A3A3 - 807B7575736F6F6F6F4C4C6D4C4C4F4F6D2020202054555454546E5059555050 - 505050505050595950505555556E6E206D6D6D4C6F6F6F737B92A9ADB0B1B0AE - 99978B898A817D5C575B5E5A5A7A7A82727A282828287A7A7E5E5D848F93969A - 9D9EB2B2B29E9E9D9A9A8C969083CDCDCDCD025B5B23487450544F7C738BAA92 - B9AFBEBDBFB1C0C0C1C1C1C1C1C1C1C1C1C1C0C0C0C0BCBCBCBDBDADADA9A9A6 - A6A4A37F807B7573736F6F6F6F6F4C4C4C4C4F4F4F4F6E204F20555454555555 - 555550505050505050505050555555505555546E206D4F71716F6F758092AE9B - B0B19BAF92AAAB8983817D76535B265A5A727282282828287A777A7A7E5E5D84 - 9495969A9D9EB2B2B29E9E9D97ABB8968983CDCCCDCD022623234B4850555871 - 7C7BAABBAEAFBEBDBFC0C0C0C1C1C1C1C1C1C1C1C1C1C0C0C0BCBCBCBCBCBDAD - ADA9A6A6A6A4A37F807B7575736F6F6F714C4C4C4C4C6D204F205454206E2055 - 6E5555555050505050505050505050505055555555555420204F4F4C716F7375 - 7BA4A99BB0B19BAEBB97A58983815976575B5E7E7E7A7272282828282877287A - 7E7E5D848D93969A9D9EB2B2B29E9D9D9AAB96909090CDCCCDCD022625234B48 - 50554F7C898BAAA7B9AFBDBDBFBCC0C0C0C1C1C1C1C1C1C1C1C0C0C0C0C0BCBC - BCBDBDADADADA9A6A4A4A4A380757573736F6F6F6F4C4C6D4C4C6D4F4F4F5454 - 4F5520555555555550505050505059505050505950555055555554546E6D4F4C - 716F737580A4999BB1B19BAF9997A589587D5F275B5B5E7E7A5A287728282828 - 4E28287A7E7E5D618E95969C9DB2B2B2B29E9D979A9896898383CDCCCDCD0253 - 254D4A52506E5471898BAAA7AEAFBEB0BCC0C0C0C0C1C1C1C1C1C1C1C1C0C0C0 - BCC0BCBCBCBDBDBDADA9A9A6A7A4A37F807B7575736F6F6F4C4C4C6D4C6D6D6D - 4F2020546E5555555455505555505950505050505050505050505550556E5554 - 20204C4C4C6F6F758092AD9BB1B19BAF9297A589837D5C74295B5E7A7A727A7A - 28284E287A28287A7E7E5D848E95989C9DB2B2B2B29E9D9CAB989690908ACDCC - CDCD0226534B4B48505479718CA5A8A7B9AFBEBDBFC0BFC0C0C1C1C1C1C1C1C1 - C0C1C0C0C0BCBCBCBCBDBDADADA9A6A6A7A4A37F7F7B7575736F6F6F71714C6D - 4C4C6D4C6D202020542055556E55505955505050505050505050595050505955 - 555555546E4F4C4C4C6F73758092A9BDB1B19BAFACAAAB898A7D5C765D5E5E7E - 7A727A7A287777827A287A7A7A5E5D848E95989C9DB2B2B2B29E9D9C9A989690 - 908ACDCCCDCD0226252356485055547889A5AAACB9AFBEBDBCB1C0C0C0C1C1C1 - C1C1C1C1C0C0C0C0C0C0BCBCBCBDBDADADA9A9A6A7A4A37F807B7575736F6F6F - 71714C4C6D4F4F4F4F206E202055555455555555505055505050505050505059 - 505955555555556E6D4F4F4C716F737580A4A99BB1B19BAF92978C89587D5957 - 5D267E5A7A7A2828282828288228827A7E5E5D8F8D95989C9E9EB2B29E9E9D97 - AB8C96909083CDCCCDCD022653234A74506E4F787C7B7FA7B9AFBEBDBFBCC0C0 - C0C1C0C1C1C1C1C1C1C0C0C0C0BCBCBCBDBCBDBDADA9A9A6A4A4A3A380757573 - 6F6F6F6F4C4C4C4C4C4C206D2020552054556E6E555555555050505050505074 - 5250505059595550555454204F4F4C4C716F737580A4A9B0B1B1B0AE92978C89 - 837D59575D267E7A7A28287777827A607728827A7E5E5D619495989C9E9EB2B2 - B29E9D9A98988990838ACCCDCDCD022653232348505054786FA5AAACB9BEBEBD - BFBFC0C0C1C0C1C1C1C1C1C1C1C0C0C0C0BCBCBCBCBDBDADADA9A6A6A7A4A37F - 807B7575736F6F6F714C4C4C4F4F206D2054546E6E5454545555595050595050 - 50505050505024505050505555556E546E4F4C4C6F6F6F7580A4AD9BB1B19BAE - 9297AB898A7D5C765D5E7E7A7A282882822882828260287A7E5E5D8F8D95989C - 9EB2B2B29E9E9D9AAB968990838ACCCCCDCD025E265322525055547889A5AAAC - B9AFADBDBFBFC0C0C0C0C1C1C1C1C1C0C0C1C0BCC0C0BCBCBDBCBDADADA9A9A6 - A4A4A37F807B7575736F6F6F714C4C4F6D4F6D20202020206E5454546E555055 - 505050595050242450595059505059555055546E204F4C716F6F73757FA4A9B0 - B1B19BAEAC978C7C7959275D5B5E7E5A7A7A2882772860828228827A7E5E848F - 9395989C9EB2B2B29E9E9D9AAB969683838ACCCCCDCD02262653224848505478 - 7C75AA92B9AFADBDBFBFC0C0C0C1C0C1C0C1C1C0C1C0C0C0C0BCBCBCBCBDBDBD - ADA9A6A6A4A4A37F807B75736F6F6F71714C4C6D4C4F4F6D545420556E545555 - 556E55505050505924502450595074505050505055555555204F4C4C6F6F7375 - 7FA7ADB0B1B19BAEAC978C838A7D7457535E7E7A7A2828607760826060287A7A - 7E5E84619395989DC2B2B29E9E9D979A98968990838ACDCCCDCD022653532348 - 24506E7889A5AAACB9AFBEBDBFC0C0C0C0C0C1C1C1C1C1C1C0C1C0C0BCBCBCBC - BCBDADADA9A9A6A6A7A4A37F807B7575736F6F6F4C4C4C4C4F4F204F20542054 - 54205455555555595059595050502450525050505050505555556E54204F6D4C - 716F737580A7ADB0B1B19BAEAC978C9081505C5B265E5A5A7A7A778282606077 - 6060827A7E5E5D8F93959A9C9EB2B2B29E9D979A968990838A8ACCCCCDCD0226 - 53534A48525054787CA58092B9AFBEBDBFBFC0C0C0C0C0C1C1C1C1C0C1C0C0C0 - C0BCBCBCBCBDBDADADA9A6A6A4A3A37F807B7573736F6F6F4C4C4C6D6D4F4F20 - 2054545455555554555050595950505052507452742448505959505055556E54 - 204F4C4C6F6F6F757FA4ADB0B1B19BAE928B8C83815F5C57267E7E7A7A282882 - 828282608282287A7E5E848F93969A9D9EB2B2B29E9D979A989690838A8ACDCC - CDCD022626534D4B485054587CA5AAACB9AFBEBDBFBFBFC0C0C0C1C1C1C1C1C0 - C0C0C0C0BCBCBCBDBCBDBDADADA9A6A6A4A4A37F807B7573736F6F714C6D4C4C - 4C2020205555545454546E555555555059505050247450272424245024595050 - 595555204F6D4C71716F737580A7ADB0B1B19B99ACA88C83817D745B5E7E5A7A - 7A282828606060606060827A7E7E848F93969A9D9EB2B29E9E9D97AB96968983 - 8A81CCCCCDCD02265B53234B745054587CA5A8ACB9AFBEBDBFBFC0C0C0C0C0C1 - C0C1C0C1C0C0C0C0C0BCBCBCBCBDBDADADA9A9A6A4A4A37F807B7573736F6F6F - 4C4C4C4C204F204F202055545454555550555050502424245974745274522450 - 5924505050556E55206D4C716F6F737B7FA7ADB0B1B19BAEAC978C83815F565B - 5E7E7E727A8277776060606060607A7A7E5E848F93969A9D9EB2B29E9E9D9AAB - 969690838A81CCCCCCCD021F265B534B485054587CA580ACB9AFBEBDBFBFC0C0 - C0C0C0C0C1C1C0C0C1C0C0BCC0BCBCBCBDBDADADADA9A6A6A4A4A37F7B7B7573 - 736F6F6F4C4C6D4F4C6D4F20546E545555555555555550555059745250747424 - 527424745950505055555454204F4C4C716F73757FA7ADB0B1B19BAE928B8C83 - 815029535E7E7A72777782778260606060287A7A7E5E848F93969A9D9EB2B29E - 9E9C97AB9689908A8A8ACCCCCDCD021F2653234B485054787CA580ACA6AFBEBD - B0BFBCC0C0C0C0C0C1C1C0C0C0C0C0C0BCBCBCBCBDBDBDADA9A9A6A6A4A3A37F - 807B75736F6F6F714C4C4C4C20204F2055205455555555555555505050595052 - 50242424242452745050505055555520204F6D4C716F73757FA6ADB0B1B19B99 - AC8B8C837D5F7653267E7E7A82287777608260606028827A7E5E848F93969A9D - 9EB2B29E9D9D9A989689908A8A81CCCCCDCD022626255B4B745055787C73A8AC - B9AFBEBDBFBFBCC0C0C0C0C1C0C1C0C1C0C0C0C0C0BCBCBCBDBDBDADADA9A6A6 - A4A4A37F80757573736F6F4C4C6D4C4C4F206E20545520556E557D5555505050 - 505050507424245252242424505050505055556E6E6D6D4C716F737B7FA6ADB1 - B1B19BAEAA8B8C837D5C565B5E7E7E7228777760607760608260827A7E5E848F - 93989A9D9EB2B29E9D9CAB98968990838A81CCCCCDCD02262653232274505478 - 71A580ACB9A9ADBDB0BFC0C0BFC0C0C0C1C0C0C0C0C0C0C0BCBCBCBCBDBDADAD - ADA9A6A6A4A4A37F7B7B7573736F6F714C4C4C6D4C2020205420205555556E55 - 505050505959502474242424247452242424505059555454204F4C4C716F7375 - A3A6ADB0B1B19B99ACAB8C8A815C7653267E5A7277777760606060828260287A - 7E5E848F95969C9D9EB2B29E9D9C9A8C9690838A8A81CCCCCCCD0226265B2322 - 52507D587CA580ACB9AFBEBDBDBFBCC0C0C0C0C0C0C1C1C0C0C0C0C0BCBCBCBC - BDBDADADADA9A6A6A7A3A37F807575736F6F6F714C6D6D6D4F4F202020205554 - 55505555505050505050245924525224242424745250505050555554204F4C4C - 6F6F737B7FA6ADB1B1B19B9992AB89837D5C5753265A5A287728607760776060 - 82827A7A7E5E619493969C9D9EB29E9E9D97AB988990838A8181CCCCCCCD0249 - 265B534B2774555871A5A8AC99A9BEBDBDBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0 - BCBCBCBCBDBDADADA9A9A6A4A4A4A37F7B7B75736F6F6F4C4C4C4F4C204F4F20 - 20205554556E5555595959502450505924245224502452522448245050505555 - 546D4F4C6F6F737BA3A6ADBCB1B1AF99AA9A89837D5C575B5E7E7A7A7A826060 - 827760606082827A7E5E849495969C9D9EB29E9E9D97988C9690838A818ECCCC - CDCD02262626234B745055797C73A8ACB9AFBEBDBDBFBCC0BFC0C0C0C1C0C0C0 - C0C0C0C0BCBCBCBCBDADADADA9A9A6A6A4A4A3807B7575736F6F71714C4C4C4F - 6D6D205420205420555455555050505024747424242424525252522424505050 - 505555554F4F4F4C716F737BA3A6BDB1B1B19B99ACAB898A7D5C57537E5A727A - 28776060827760826082825A7E5E848F95989C9E9EB29E9D9D9A98969090838A - 8181CCCCCCCD027E5E2625224B507D587C8CA8ACA7A9BEBEBDB0BCBFC0C0C0C0 - C0C0C0C0C0C0C0C0BCBCBCBCBDBDADADA9A9A6A4A4A3A37F7B757573736F6F71 - 4C4C4C4F4F4F5420206E55545555556E50555924592459272424241E52215224 - 522450507D555555206D6D4C6F6F757BA3A6ADB1B1B1AF99AAAB898A7D5C5753 - 7E5A7A7A28776060828260826082827A7E5E849495989C9D9EB29E9E9D9A9896 - 90908A81818ECCCCCDCC027E26535B234B507D587173A8A3B9AFADBDBDBFBCC0 - C0B1C0C0C0C0C0C0C0BCC0C0BCBCBCBDBDBDADADA9A9A6A6A4A47F7F7B7B7573 - 6F6F6F4C4C4C4F4F4F4F20202020556E6E555555505950505059242724245252 - 2121485224245050505055544F4F4C4C716F737BA3A6ADB1B1B19B9997AB8979 - 7D745B267E5A727A776060776060886077607A7A7E5E849495989C9EB29E9E9D - 9C9A988990838A8A8181CCCCCCCD025A262625234B505079718C8BACBBA9BEBE - BDBFBCBCC0BFC0C0C0C0C0C0C0C0C0BCBCBCBCBDBDADADADA9A6A6A6A4A47F80 - 7B7575736F6F71714C4C4F206D206E55556E206E54505055505950505C592424 - 2452524827211E522452505050505554544F4C4C6F6F737BA3A6BDB1B1B0AF99 - AAAB89795F5C5D5E7E7A7A77286060777760608860607A7A7E5E849495989C9E - C29E9E9D979A9896908A8A817D81CCCCCDCD025A1F535B4B48507D79718C8BAC - B9AEBEBDBDBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0BCBCBCBDBDBDADA9A9A9A6A4 - A4A37F7F7B7B75736F6F71714C4C4F6D202020546E5555555055555050505074 - 7452242452525252521E52482474505050555554546D6D4C716F737BA3A69BB1 - B1B1AF99AAAB898A7D5C5D5E7E7A282877606060607760778260827A7E5E8494 - 95989C9E9E9E9E9D97AB969690838A81817DCCCCCCCD027E2653254D4B527D4F - 7C738BAAA7A9ADBEBDBFBFBFC0BFC0C0C0C0C0C0C0C0C0BCBCBCBCBDBDBDADAD - A9A6A6A6A4A4A3807B7575736F6F4C4C4C4C6D2054546E20556E545555555550 - 505059505052522448521E214821522724242450505555544F204C4C6F6F737B - 92A9ADB1B1B0AF99AA8C898A7D5C5D267E72828277776060608860608260777A - 7E5E849395989CC2C29E9E979CAB9690908381818E7DCCCCCCCD025A5E5B5323 - 4A5C50547C8C8BAAA7AEADBEBDBFBFBCBCC0C0C0C0C0C0BCC0C0C0BCBCBCBFBD - BDADADA9A9A9A6A7A4A3A3807B7575736F6F71714C4F4F4F4F206E5520545555 - 55555055505050245024244848521E52481E48524852505050505555204F6D4C - 716F737BA3A69BB1B1B09BBB97AB89815F765B267E7A28607760828288608860 - 7782287A7E5D618D95989DCA9E9E9E9D97AB9690908A81818E7DCCCBCCCD025A - 5E26535B4B745954788C8BAABBA9ADBDBDB0BFBFBCC0C0BFC0BCC0C0BCBCC0BC - BCBCBDBDBDADADADA9A9A6A4A4A37F807B75756F6F6F714C4C4F6D4F6D20206E - 6E556E555050505050505059272424522748212752481E521E74245050555555 - 6E4F4F4C716F757BA3A6BDB1B1B0AF99978C83815C765D5E5A7A286060828288 - 6088607760607A7A7E5E618D95989DC29E9E9D9D9A989690838A8A81817DCCCC - CCCD025A5A26262356485079718C8BA3BBB9AFBDBDBDBFBFBFBCC0C0C0C0C0C0 - C0C0BCBCBCBCBDBDBDADADA9A9A6A6A7A4A3A3807B7573736F6F714C4C6D4F4F - 202054546E555555555555505050507424242427522152525221525248525C59 - 50595555204F4F4C6F6F737BA3A6BDB1B1B0AF92978C83815C295D5E7E722877 - 60606060888288608260827A7E5D6194969A9C9D9E9E9D9C9A989690838A8181 - 7D8FCCCCCCCD025A5A2653234B747D54838C8BAABBB9ADBEBDBDBFBFBFBFBFC0 - BFC0BCBCC0BCC0BCBCBCBDBDBDADADA9A9A9A6A7A4A37F807B7573736F6F4C4C - 6D4C4F4F206E545454206E555050505050507474502448482421525248485252 - 52272474505555546E4F4F4C716F737BA3A99BB1B1B1AF998B8C90815C295B26 - 5A7A827777606088828288607760827A7E91618D96989D9E9E9E9D9C9A8C9690 - 8381817D7D7DCCCCCCCC025A7E4353532274505478898BAABBB9AFBEBDBDBFBF - BFBFBFBFC0C0C0C0C0BCBCBCBCBDBDBDADADADA9A9A6A6A4A4A37F807B75736F - 6F6F4C4C6D4C4F4F205454556E545555555050505024597452524852241E5227 - 7452521E52522424505055556E4F4F4C716F757BA3A99BB1B1B0AFBB978C8381 - 5C765B5E5A82772882886088888860778860287A7E5D6193969ACAC29E9E9D9C - 9A9689908A81817D7D7DCCCCCCCD027E7E2653235674506E7C898BAABBB9BEBE - BDBDBDBFBFBFB1BCBCBCC0C0BCBCBCBFBFBCBDBDADADADA9A9A6A6A7A4A37F80 - 7B7573736F716F4C4C6D204F205554556E6E556E555050595024507424521E74 - 48525621747421485248242450595055204F4F4C6F6F737BA4A9B0B1B1B0AF92 - 978C837D5C575B7E7E7A288277608288888860778282287A7E5D8F8D969A9D9D - CA9E9D9798989090838A8E7D7D5FCCCCCCCD025A5A265323565250817873ABAA - BBB9A9BEBDBDBDBFBFBFBCBFC0BCBCBCC0BCBCBCBFBDBDBDBDADADA9A9A6A6A4 - A4A37F807B75736F6F714C4C4F4F204F55545455556E55555559595050507424 - 24521E1E242756567448214821212424505055556E4F6D4C716F757BA3A9B0B1 - B19BAFBBA88C837D5C29537E7A28827782777777888888608282827A7E918F93 - 969A9DC29E9D9D9A989690838A818E7D5F59CCCCCCCC025A5A26265323485081 - 78898BAABBB9AFBEBDBDBFBFBFBFBCB1BFBCC0BCBCBCBCBCBCBDBDBDADADA9A9 - A9A6A7A4A4A37F807B7573736F714C4C4F20206D202055545454555555595050 - 505024745252212174481E5622527452525274242450555555544F4C716F737B - 92A99BB1B1B0AE928B96837D745D267E7A28778277608888888877607782827A - 7E5D8F93969A9D9D9E9D9C9AAB9690838A817D7D7D5FCCCCCCCD025A7E262653 - 234B50818389A5AABBB9AFBEBDBDB0BFBFBFBFBCBFBFC0BCBCBCBCBCBDBDBDBD - ADADA9A9A9A6A6A4A3A37F7B7B75736F6F71714C6D4F204F2054545454555555 - 555050505274242424522121564B524852522224212124245950555554204F4C - 716F7380A4A6B0B1B19BAFAC9A8C837D765D5B7E7A2882606060888588888888 - 8877827A5E918F93969A9D9EC29D9C9A9889908A817D7D5F7D5FCCCBCCCD0272 - 5A2626535774597D7889A5AABBB9AFBEBDBDBDBDBFBFBFBFBFBCBFBFBCBFBCBD - BFBDBDBDADADADA9A9A6A7A4A4A37F80757573736F714C4C4F6D202054205520 - 205555555950502424242452245252272752487474272152521E522424505555 - 55544F4C4C6F737BA4A9BDB1B1B0AFAC8B898A5F5C5D5E7E5A82826088888888 - 888888886060777A7E848F93989A9D9D9D9D9C9A9896908A8A817D7D7D5FCCCC - CCCD02727249265B4D56596E787CA5AABBB9A9BEBEBDBFBDBDBFBFBFBFBFBFBC - BCBFBFBFBDBDBDBDADADA9A9A9A6A6A4A3A37F807B75736F6F714C4C4F6D204F - 545555545555555050505024502424521E5274564848562752212152521E5224 - 5050555555544F4C6F6F737BA4A9B0B1B1B0AEAC8B898A7D765D5E7E7A7A8277 - 77607788858888886060827A7E918F93969C9D9D9D9D9C9A9690908A81817D5F - 5F74CCCCCCCC025A7E5A26535722507D7889A5AA92B9AFBEBDBEBDBDBFBFBFBF - BFBFBFBFBFBFBFBFBDBDBDADADADA9A9A6A6A4A4A4A3807B7B75736F6F714C4C - 6D4F20206E545455555550505024245050747452747448564B744856524B5622 - 212452242450505554206D4C716F738092A9B0B1B19BAEAC9A89795F5C5B265A - 8277777777888888858888606060287A7E848F93989C9D9D9D9C9C989690838A - 817D7D5F5F5CCCCCCCCC025A497E26535D56747D7889A5AABBB9AFBEBEBDBDBF - BDBFBDBFBFBFBFBFBFBFBFBFBDBDBDBDADADA9A9A9A6A6A4A3A380807575736F - 6F4C4C4F4F204F2020545555556E505050245074742474522152522756524874 - 2227485252525224505055552054544C716F737BA4A99BB1B19BAEACAB89795C - 565B5E7E7228608288518888888888888882827A7E918F93989ACA9D9D9C9A98 - 9690838A817D8F5F5F5FCCCBCCCC027A5A7E265B235750545889A5AAACB9AEBE - BEBEBDBDBFBDBFBFBFB0BFBFBFBDBFBDBDBDADADADADA9A9A6A6A7A7A37F7F7B - 7575736F714C4C4C6D6D54545455555455555550505024592424525227527448 - 2748524852274856277452525250506E55204F4F716F738092A9B0B1B19B99AC - AB89815957535E492877777760888888515188886060827A5E919495989C9D9D - 9D9C9A989690838A8E7D5F5C595CCCCCCCCC027A5A5A2653234B527D7989A5AA - 92B9A9BEBEBDBDBDBDBDBFBFBFBFBDBFBFBDBDBDBDBDBDADADADA9A9A6A6A7A4 - A3A3807B7B756F6F714C4F4F6D4F6E2055555555555555555959485024524848 - 5221564B2227522221524822275252522459505554544F4F6F6F7580A4A9B0B1 - B19BAEAAAB89815C575E5E5A7282607788888888888888886082827A5E848F95 - 989C9D9D9D9C9A9896908A8A8E7D7D5F5C5CCBCCCCCC027A727E26532356747D - 787CA5A8ACB9AEBEBEBDBDBDBDBFBDBDBFBFBFBFBFBFBFBDBDBDBDADADA9A9A9 - A6A6A7A4A3A3807B7B73736F6F4C4C4C20205420545455555550505050507424 - 27484821484856527452222174484B524852487424505055556D4F4C716F757B - A4A9B0B1B19B99AAAB90795C575D5E7A7A826077888888518588518888827A7A - 7E849495989C9DCA9D9C9A9890908A817D5F5F5C5C5CCCCCCCCC027A725A1F26 - 5356747D5889A5A8ACB9A9AFBEBEBDBDBDBDBDBFBDBFB0BFBDBDBDBDBDBDADAD - ADADA9A9A6A6A4A4A37F807B75736F6F714C4C4F20206E6E5555555555555050 - 50502424245227525652525248484B22224B5674522148742424505555544F4C - 716F7580A4A9B0B1B19B99AAAB90795C575B5E72827777888888888885888888 - 88607A7A5E849495989C9C9D9D9A9A98908A8A8E7D7D5F5C5C5CCCCCCCCC0228 - 5A5A1F265357747D587CA5A8ACB9AEBEBEBDBEBDBDBDBDBDBDBDBFBDBDBFBDBD - BDBDBDADADA9A9A6A6A7A4A3A37F807B75756F6F714C4C4F204F546E55556E55 - 5559505024747424525221485221214B22214A22224822275648525252505555 - 55544F4C716F7380A4A9B0B1B09B99AAAB90815C295E7E7A8277777788888888 - 888888888882827A5E848E95989C9D9D9C9A9896908A8A817D5F5F595C5CCCCC - CCCC025A725A1F2653297450797CA5A8ACB9A9AFBEBEBDBDBDBDBDBDBDBDBDBD - BFBDBDBEBDBDADADADA9A9A9A6A6A7A4A37F7B7B75736F6F714C4F4F20542055 - 55556E555555555059745024274848272148214B221E4A224B2222274B4B5224 - 2450505555204F4C716F7380A4A9B0B1B19B99AAAB907D5C76265A7228777788 - 778888858888888860827A7A7E849495989C9D9D9C9A9896908A8D8E7D5F5C59 - 5C5CCCCCCCCC0272725A7E2653577450797C8CA8ACA7A9AFBEBEBDBEBEBDBDBD - BDBDBDBDBDBDBDBDBDADBEADA9A9A9A9A6A6A7A3A37F807B75736F6F714C4C4F - 4F6E54546E6E5555555050505050242452527456274821224B1E22224A221E22 - 2752525224595050554F6D6D716F7580A7ADB0B1B1AF99AA8C837D5C5D5E7E7A - 2860888888888885858888886060827A5E849495989C9C9C9C9A9896908A8A7D - 7D5F5F595C5CCCCCCCCC027A7A5A7E2653237459797C8CA8ACBBAEAFBEBEBDBE - BDBDBDBDBDBDBDBEBDBDBDBDBEBDADADA9ADA9B9A6A4A4A3A37F807B75736F6F - 714C4F6D4F205554545555555050505052242452525274565648481E4A224B22 - 4A4A2248275252522450505555544F4C6F6F7380A4A9B0B1B09BBB978C837D5C - 5D5E7E728277778888858885858888858877827A5E619495989C9D9C9C9A9696 - 907981817D5F5F5C5C5CCCCCCCCC0228725A7E265B23567D79838C8BACBBB9AF - BEBEBEBDBDBDBEBEBDBDBDBDBDBDBEBDBDADADADA9A9A9A6A6A4A7A37F7F7B75 - 75736F714C4C6D4F205455555555555555505050242474521E521E4B561E211E - 1E4B4A2222562221214821212459505055204F4C716F7580A4A9B0B1B09B9997 - 8C835F765D5E5A7A8277888888858585858588886082607A5E619396989C9C9C - 9A9A9690838A817D5F5F5C5F5C5CCCCCCCCC02287A727E265323747D797C8CA8 - AABBB9AEAFBEBEBEBEBDBDBDBDBDBDBDBDBDBDBEADADADADADA9A6A6A6A7A4A3 - A380807575736F6F4C4C4F4F4F5454546E55555550505950502448742156481E - 4B1E2222561E1E4A22222222224848485250505555204F4F4C6F7580A4A9B0B1 - B0AF99978C8A7D745D7E7E7A7777778888858585858588888882827A5E849495 - 989C9C9C9A9896908A8A8E7D5F5F5C5F5C5CCCCCCCCC0228285A5A26264D565C - 81788C8BBABBB9AFAFBEBEBDBEBDBEBDBDBEBDBDBDBDBEADBDBEADA9A9A9A9A6 - A6A4A4A37F807B7575736F714C4F6D6D545455556E5550555050745024525252 - 52225248214A1E1E4A22524B2222224A2252275252595055556E204F716F7580 - A4ADB0B1B0AFBB978C837D765B265A7277607788858888858585858588827A7A - 5E849396989C9C9A9A9896908A8A815F5F5F5F5F5C5CCCCCCCCC022828724926 - 535B575079838C8BAABBB9AEAFBEBEBEBDBEBEBDBDBEBDBEADBEBDADBEADBEAF - ADA9B9A6A7A4A4A37F807B75756F6F714C4C4F4F545454545455505050594874 - 522452482727221E224A1E4B4822234D22224A4A225256564859505055546D4F - 4C6F7580A4ADB0BCB0AF9E97968A5F5C5B7E7A60826088888885858585858588 - 88827A7A5E619395989C9C9A989896908A817D5F7D5F5C5C5C74CCCBCCCC0228 - 827A5A26265B56597D788C8BAABBB9AFAFBEBEBEBEBEBDBEBEBDBEBDBEBEADAD - AFADA9A9A9A9B9A6A7A7A4A37F807B7573736F714F4C4F4F2054205555555055 - 5024507424525252522127524B222223224B4B22234D222222484B4852505050 - 55544F4F716F757FA4ADB0B1B0AF92978C8A5C295B7E72827760778888888586 - 858588888882827A5E619396989C9C9A989696908A817D5F5C5C5C747474CCCC - CCCC022828725A1F535B57506E838C8BAABBB9AEAFBEBEBEBEBDBEBDBEBEBDBE - BDBEAFADADAFADA9A9A9A6A6A7A4ACA37F807B75736F71714C6D6D4F4F206E55 - 5555505559505050244852485622272122221E4A575722222257222256224B1E - 482459555555544F4C6F757FA4A9BDB1B0AFBB8B89795C575E7E7A7760608885 - 858585858585858888827A7A5E8F9396989A9C9A989690938A8E7D7D5C5C5C5C - 5C5CCCCCCCCC022872285A7E265B5750817889A5AABBB9AEAFBEBEBEBEBEBEBE - BEBEBEBEBEADBEBEADADA9A9A9A9B9B9A7A7A3A37F807B7573736F714C6D4F6E - 545454555555555050502424745252524822221E22224A22224A234A4B232222 - 2256561E2450505055204F4F4C6F7580A7ADB0B19BAFACA8968A5F295E7E7A77 - 7777888885858585858585856082827A5E619396989A9C989896908A8A817D5C - 5F5C5C745C5CCCCCCCCC0228287A5A5A2625575C7D838C8BAABBB9AEAFAFBEBE - BEBEBEBEBEBEBEBEBEBEADA9AFADA9A9A9B9A6A7A7A7A3A380807B75736F6F71 - 4C4F6D206E545555505550505024505974245252521E52574A4A574B4A4A2322 - 4A23224B4A221E527450505055544F4F716F757FA7A9BCB1B0AFAC8B89795F57 - 267E7A2860888585858585858585858588827A7A91619396989C9A9A9896958A - 81817D5F5F5C5C5C5C74CCCCCCCC027728285A5A265B575C7D78B8A5AAACB9AE - AEAFAFBEBEBEBEBEBEBEBEADBEADAFA9ADA9AFA9A9B9A6A6A7A4A37F7F7B7B75 - 736F71714F4F4F545454556E50555050505274245248484B561E211E4B22224A - 4B2222224A22234D221E48271E4850505555204F4C6F757FA7ADB0B09BAFAC8B - 89815C575E7E7A6060888885858585868585858888607A7E5E8F9396989A9A98 - 9696838A8E7D5F5F5C5C5C5C7674CCCCCCCC0228287A727E265B575C7D7889A5 - AAACBBB9AEAFAFAFBEBEBEBEBEBEBEAFADAFBEBEA9A9AEA9A9A6A6A7A4ACA3A3 - 807B75A5736F714C4C4F4F545454545555505050505052525252527456222222 - 23224A4A2223234B5722574A4B4A4A5648485059552020204C6F757FA7ADB0B1 - 9BAFACAB89815C5D5E7A7A286077888586858585868585886060827A918F9396 - 989A9A9896908A8A8E8E5F5C5C5C5C5C7476CCCCCCCC027772285A7E1F5B5774 - 7D8389A5A8ACBBB9AFAEAFAFBEBEAFBEBEBEBEA9BEADA9A9A9A9A9A9A6A6B9A7 - A7A4A37F807B7B73736F6F4F4F4F4F6E55546E50555550502474505248485274 - 224A4A22225622222323226C7023232223564A48482450505555204F716F757F - A4ADB0B19BAEACAB90815C5D5E5A7A7777888585858586858686858888607A7E - 5E8F9396989A989896908A81817D5C5C5F5C5C275627CBCCCCCC024E77285A5A - 265323567D7989A5A8ACBBAEAEAFAFBEAFBEBEA9BEBEAFBEBEA9AFA9AFA9A9B9 - B9A6A7A7A7A3A3AA807B7573736F71714C4F4F4F55556E6E5055505924242452 - 484B2756221E22564A4B2270704B4B562223224A4B224B5674245050506E6E4F - 4C6F757FA7ADB0B09BAEACAB90815C575E7A8260778885858585858685858585 - 88607A7E91619398989A9A9895908A8D817D5F5C5C5C5C575657CCCBCCCC0277 - 77287A5A262623747D8A89A597ACBBB9AEAEBEAEAFAFBEAEBEAFBEA9A9AFA9A9 - A9AEB9A9A6B9A7A7A3A7AA7F808B75736F6F714F4F6D4F54556E6E5555505050 - 50525248485652486C4A4B221E4B4A2323224B5622222222234A225648522450 - 5055204F4C6F757FA7ADB0B09BAEAAAB897D5C535E7A77608288888585868686 - 858585858860827E916195969A9A989896908A8E7D5F5F5C745C5C567684CCCC - CCCC026028285A5A1F2653767D797CABA8ACBBB9B9AFAEBEAFBEAFAFBEA9AFBE - AFAFAEA9B9A9A9B9B9A7A7ACA7A3A3AA807B758C736F714C4F4F54546E555550 - 55505059505252525221524B4A23234A4A22224A222223295656574B224A4A27 - 522450505555206D4C6F757FA7ADB0B09BAEAAAB907D5C5B495A827760888585 - 858586868585858888827A7E919493989898989690838A8D8E5F5F5C5C275629 - 5657CBCCCCCC02607728285A5A265B76507989A5A8AABBB9AEAEAFA9AFB9AEBE - AEBEAEA9A9A9A9A9B9A9B9B9A6A6A7A7A3A3AA80807BA5736F6F784C4F546E6E - 545555555550505024244821221E52564A2256232222232323235723564B5723 - 23232248525224245555204F4C6F757FA7ADB0B09B99AAAB837D5C5B7E5A7A82 - 88858585858686868686858588607A7E919495969898989690958A8E8F5F5C5C - 5C7476575629CCCBCCCC0260282828725A265B565979838CA8ACBBBBB9AEAEAE - AFAFBEAEBEAEA9AEAEAEA9B9A9B9A6B9A7B9BBA7ACA37F808B7575736F71714F - 4F6D546E555555555050505250527474745222224B222222224A4D2322572223 - 232322232223221E272724505055206D4C6F757FA7ADB0B09B99AA98907D7626 - 7E7A827788888585868686868685868888607A7E918F959698989896908A8A8E - 7D5F5C5C5C5656575729CCCBCCCC026060287A5A5A265356507989A5A8ACBBBB - B9B9B9AEAFAEAFA9AFA9AFAFA9A9AEA9B9B9A6B9B9A7A7A792A3AA807B8B7373 - 6F6F4C4C4F4F5454555559505050502424485274524822564B222256234A4D23 - 22225623232323234A224B1E215224505555544F4C6F757FA7ADB0B09B99978C - 835F27267E7A777788888585858686868685868588827A7E9194959898989896 - 908A817D5F5F5C5C842757575729CCCCCCCC02606060285A1F2653575C7983A5 - A8BAACBBB9B9AEAEAEAEA9AEAEAEAEAEAEA9A9B9B9B9B9B9BBA7A7ACA3A38080 - 8B75A5736F71714C4F545455555555505050747474482756524A222222224B4D - 4A56232323222323232229574A22224A52527450555554204C6F757FA7ADB0B0 - BE99978C837D295E7E7A77608885858586868686868685858882827E848F9596 - 98989695908A8E7D5C5C5C5C5C2757222323CBCBCCCC02607777285A5A265B57 - 5C81838C8BAABBBBB9B9B9AEAEAEAEAEAEAEAEAEA9AEAEB9B9B9B9B9B9BBA4A7 - A3AA7F807B75736F7C71714F4F206E5555555550505074747448274B524B2223 - 4B2322234D23232322232323222223232222561E522774505055544F4C6F757F - A6ADBDB09B99978C838F575E7E72606051858586868686868686858560607A7E - 9194959698989696908A8E8F5F5C5C5C5C5757232329CBCCCCCC026028827A72 - 5A5E53575C797C8CA8BAACBBBBB9AEB9B9AEAEAEAEB9B9B9B9B9B9B9B9B9A7BB - A4A4ACA3AC7FAA8BA5A573736F714C4F6D4F546E555550505074247452485248 - 564A56232356564D232329232323575D572257222223221E74524850556E544F - 4C6F757FA7ADB0B0AF99978C8A5C575E5A7A6088888586868686868686868685 - 60827A7E9194959696989695908A8E5F5F5C5C5C565729232929CBCBCCCC0277 - 60777A7A5A2653575C81838CA5BAACBBBBB9B9B9B9B9B9AEAEAEB9AEB9B9B9B9 - B9B9BBA7BBA7A7ACA37F807B7B75A57C6F71714F6E54556E5550505050502452 - 52565648224A22232322222323572323232323572323292223224A224B482450 - 5555556D4C6F757FA6ADBDB0AF99978C8A5C5B5E5A7A82888885858586868686 - 8686868888827A7E84949596989696958A8A8E8F5C5C8456562729292329CBCB - CCCC0260602828725A1F26575C7D838CABBAACBBBBB9B9B9B9B9B9B9B9B9B9B9 - B9B9B9B9A7B9A7B9A7BBA3ACA3AAA880A575736F71714C4F5454545550555050 - 505252522722272221224D57574A2323235723292323235B5B29232357572222 - 4B4824505555554F4C6F757FA6ADBD9BAF999A968A5C5D5E7228775188868686 - 868686868686868588607A7E61949596969696958A8E7D5F5C5C277657562729 - 2929CBCBCCCC02606060285A7A5A26235C7D83B8ABBABAACB9BBB9B9B9B9B9B9 - B9B9B9B9B9B9B9B9B9BBBBA7ACA7ACA3AA7F808B75A56F6F6F71584F546E6E55 - 5050595950247474222152224B4A225622232223232325235323252323232329 - 23574A221E52245050556E6D4C6F757FA6ADBD9BAFBB97968A5C5D7E7E287760 - 88858686868687868686868588827A7E61949596989695958A8D8F5C5C747627 - 275657292929CBCBCCCC0260606082725A5A265B5C7D8389ABBAACBBBBBBBBB9 - B9B9B9B9B9B9B9BBB9B9BBBBA7BBA4BBA7A3ACAAAA80A87BA573897371784F4F - 6E545555505050597452485652524B2221224B22222223572323234D5B5B2325 - 2323235723232323482724595055204F4C6F75A3A6ADBD9BAFBB9789815C5B7E - 7A82828885858686868786878786868588827A5E84949596969690938A8E5F5C - 5C842956572923235B57CBCBCCCC0260606077287A5A7E535C7D838CA5A8BAAC - BBBBB9B9BBB9B9BBB9B9BBB9B9B9BBBBBBA7ACA7ACACACA37FA8807BA573736F - 7178784F5454555555505050245274275248481E4B4B222323235757235B2323 - 5B29232553235B232323224A48224850505555204C6F757FA6ADBD9BAFAC9A89 - 815C535E7A82608885858686868787868686868888827A918494959696959090 - 8A7D5F5C5C272756572929295B5BCBCBCCCC0260606077285A5A2653767D8389 - ABA8BAACBBBBBBBBB9BBB9B9BBB9B9BBBBBBBBBBA7BBA7ACA3ACAA7FBA808B7B - 758C736F7171584F545550555050597452527474524B2222704D22222357235B - 5B2323235B5B232323232329232323221E4852245055554F4C6F75A3A6ADBD9B - AFAC8B90815C5D7E7A60778885868686868687878686858888827A7E61949596 - 969695958D8E5F5C5C565656292929295B5BCBCBCBCC027760777728725A5E53 - 765F7989A5A8AAACACBBBBBBBBBBB9BBBBBBBBBBBBBBA7BBBBACA7ACACA3AAAA - 7F808BA5A573897C71784F545455555550592474745252522222222222222323 - 2323235B23235B53235B5B5B295B235B23234B224A5252245055544F4C6F75A3 - A6AD9B9BAE929A89815C5B7E8282778585868686878787868686868588827A5E - 619395969595958A8D7D5C5C5C845C57572329235B5BCBCBCCCC028877606028 - 7A5A7E535C5C8A89ABA8BABAACACBBBBBBBBBBBBBBBBBBBBBBBBBBA7ACA7ACAC - A3ACAAAA80A87BA573737C7C71784F4F6E545550507474745227524B1E212222 - 4D23234D2323232325535B53535B5B5B5B26235B29224D22222152505055544F - 4C6F75A3A6AD9B9BAEACAB898D5C5E7E28778851858686868787878787868685 - 88827A91619495959695938A8D5F5F5C27275757292929535B29CBCBCCCC0288 - 776077287A721F5B567D8189B8A8BAACBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB - A7ACACA3ACAAAA80A87B8BA5A5737C7171784F5454555550505048747456564B - 4B48224B6C4B222323292323535B5B29535B25255B5B5B5B23234D6C21524850 - 505555204C6F75A3A6ADBDBEAE9DAB907D765B7E7A7760858586868687878787 - 8786868588827A91619395959695958A8E5F5C5C8427575723295B255B5BCBCB - CCCC02886060772828724926575F8A89ABABBABABAACBBBBBBBBBBBBBBACBBBB - ACBBACACACACACACA3AAAAAA808BA5A5738C7C7C785879546E6E505050507474 - 52215222564A234B4A4D2323235B23535B5B25252525255B255B532323232323 - 225624595055546D4C6F75A3A6ADBD9BAEACAB908E765E5A8260608886868686 - 878787878786868588827A5E6194959595958A8D7D5F5C5C2756225729295B25 - 5B5BCBCBCCCC028888606028287A5A5E765C8A898CA8A8BAACACACBBACBBACBB - ACBBBBACBBACACACACACA3AAAABAAAA88B8BA5B873897C714C4F795455555550 - 7450522452521E22224A4A5757235323292525255B255B2625255B5B255B5B23 - 23232323224B525250556E4F4F6F75A3A6AD9B9B99AC98907D295E7E7A778885 - 85868687878787878687868588827A91619495959595938A8E5F5C5C27575757 - 29295B5B235BCBCBCCCB0288606077777A7A7E5E5D5C81908CA8A8BABAACACAC - BBACACACBBACACACACACACACACACAABAAA7FAAA88B8BA5A5737C7C7C78786E6E - 6E5550505074525652274A4D224A1E23232329235B2353255B535B53265B5B5B - 2626255B5B23234D4B2252745059544F4C6F75A3A6AD9BBE99AAAB837D765E72 - 7777888585868787878787878786868588827A91619395959593938D8F5F5C27 - 5757235B292925292329CBCBCBCC02886077777772725A26575C8190B8A8A8BA - BABAACACACACBBACACACACACACACBAACACAABAAAAAA8A88B8B8BA5738C7C7C78 - 714F796E6E505059747452212756224A22222223232229252353235B5B53535B - 2625255B53265B53535B2357702221245059556D4C6F75A3A6AD9BBE99AA988A - 5F575E7A286088858686878787878787878686858860825E6193939595938A8D - 5F5C5C27575D29295B23295D5B29CBCBCBCC02888860776028725A7E5D5C7D83 - B8ABA8BABAACBAACBAACACACBAACACACBAACACAAACAAAABAAAA88BA88BA5A5A5 - 6F7C6F717879546E5550505074525656225622225623235723232323535B535B - 255B5B26532626265326255B5B2323234A1E21745050546D4C6F75A3A6AD9BBE - 99978C8A5F297E7A8277888586868787878787878786868588827A9161949595 - 95938D8E5F5C5C7657292929295B25235B5BCBCBCBCC02888877608282285A5E - 5B5C8183B8ABA8BABABAACBAACACACACACACACBAACBAAABAAAAAAAAA80A88BA8 - 7BA5A5A5897C7C78584F54545059507452524B524B224B222222564D575B2325 - 53255B252626262625532626265B265B232323234A1E48745055556D4C6F75A3 - A6AD9BBE99978C8A5C5D5E7A7777888586868787878787878786868588827E91 - 6193959595938D8E5F5C5C76232929235B5B255B5B29CBCBCBCC028888606077 - 287A7A7E5B5C8190B8ABABA8BABABABABABABABAACBAACBAAAAAAAAAAABABAA8 - A8A8A88BA5A5A58C6F7C7C78784F81557D50745C52525252222222564B4D2323 - 5729235B5B5B5B53262626262626262626265326252323234B48484850555420 - 4C6F75A3A6AD9BAF99978C8A5C5D5A7A77888586868787878787878787878685 - 88827A918F939395938A8D5F5F745C272729295B5B235B295B5BCBCBCBCC0285 - 88886060287A5A7E5D847D8389ABA8A897BABABABABABABABABABABABABABABA - AABAA8A8A88B8B8BA5B873898C7C7178784F6E55505950527456525652222323 - 56234B2323235B5B5B5B5326265B2626262626265B2653255B2329234D4A7448 - 5050554F4C6F75A3A6ADBEAF99978C815C5D7E7A776085858687878787878787 - 8787868588827E918F949395938A8D5F5C5C5629292329255B295B265B5BCBCB - CCCB028588886060287A727E5D5C7D8A96B8A8A8BABABABABABABABABABABABA - BAAABAA8AAA8A8A88BA8A8A5A5A5A5B87C7C837879547D555074507456744B22 - 23224B2223235723235B5B5B5B5B5B2626262626262626262626265B25532923 - 4D4B52525055554F4C6F75A3A6ADADAF929789815C5E7E7A7751888586878787 - 874787878786868588827A9161949395938D8F8F5C2729292329295D5B255B5B - 2526CBCBCBCC0285885188606077727E5E847D8AB8ABA8A8A8BABABABABABABA - BAA8BABABABABAAAAAA8A8A8A8A88BABA5A5B8737C7C787878546E7D59244874 - 5674222223224B572357235B5B295B53535B2626262626252626262626262626 - 25232323222221527455556E4C6F75A3A6ADBEAFBB9796795C5D7E7A77888586 - 86878787878787878786868588827E9161949393938D8E5C5C27272723295B29 - 295B26252525CBCBCBCB0285858860606028725A26767D8A90B8ABA8BAA8BABA - BABABAA8BABABAA8BABAA8BAA8A8A8A88BA8A5A5A58C73897C7C785879547D7D - 50747452525222224A4B232323232323535B5B5B262626262626262626262626 - 2626262625252322704A22245050556E4C6F7BA3A6ADADAFBB9789815C5D7E82 - 7760858686878787878787878787868588827E9161939393938E7D8F5C5C2729 - 292925295B53535B265BCBCBCBCC02858885606060827A5A26765F8A90B8ABA8 - A8A89CBABABABA97BAA897BAA8A8BAA8A8A8A8A8A8A5ABA5A58C8C897C837879 - 5454505050747456564B4A226C57234D2323295B5B25255B2626262626262626 - 26262626262626265B5B232223225252485055204C6F75A3A6A9ADAE92A8898E - 765E7A827788858687878787878787878787868588827E918F949393938F8F5C - 5C7657292923235B25535B535B25CBCBCBCB0285888860606082285A5E767D8A - 90B8AB9AA8A8A8A8A8BAA8BABAA8A8A8A8A8A8A8A8A8A8AB8BABA5A58C8C8C7C - 7C837879797D55595C745656564B704A2223234D5B255B5B25255B2626262626 - 262626262626262626262626262529294D4B2152505055544F6F75A3A6ADADAE - AC8B897D765E7E827788858687878787878787878787868560827E916194938D - 8D8E8F5C84275723295B5B5B255B26535B26CBCBCBCB0285518888887782285A - 5E5D5C8D90B8B8ABA8A8A8A8A89AA8A8A8A8A8A8A89AA8A8ABA8ABA8ABABA5A5 - B88C7C897C787879545450507448485648222323235753535B5B23255B262626 - 262626262626265E262626262626262526255B5B574D1E245250554F4C6F75A3 - A6AFAFAE929A908D845E7A777785868686878787876287878787868588827E91 - 8F9494938D8F8F5C5C292929295B265B255B265B5B26CBCBCBCC028585856060 - 7728827A5E5D8F8D90B8ABA8ABA8A8A8A8A8A8A8A89CA8A8A8A8ABA8A8ABA8AB - A5ABA5B88C8C897C837878797D7D5074745648562222222223232323535B2325 - 5B5B2626262626267E26265E5E5A26262626262626532329234D565224505554 - 6D6F75A3A6A9AFAEACAB907D845E7A6060858686878787878747878787878685 - 88827E918F9494938D8F8F5C7457295B29255B5B25255B265B26CBCBCBCB0285 - 8588886060777A5A7E5D5C819096ABABA89AA89AA8A8A8A8A8A8A8A8ABA8A8AB - A8ABABABABB8A5A58C8C89897C7879796E7D5C507456565656222223235B2323 - 5B5B255B5B26262626262626265E7E2626261F261F2626262625232323221E52 - 74505554786F7BA3A6A9AF99ACAB905F5D5E7A82608586868787878787878787 - 8787868588827E91619494948E8F8F5C5629295B295B5326262526535326CBCB - CBCB0285858588606077725A7E5D848D8396B898A8A89AA8A8A89A9AA89AA8A8 - A8A8A89AABA8ABABABA5B8B88C898989837878796E505050742756271E224B23 - 2323295B5B5B255B26262626262626267E26265A267E7E2626262626265B2523 - 2322215274505554586F7BA3A6AFAF99ACAB908E295E7A776085868687878762 - 878762878787868588827E916194948D8F8F845C57295725235B5B5B5B262626 - 265ECBCBCBCB0285858888887760287A5E5D5CB79590B8ABA8AB9AABA8A8A8A8 - 9AA8ABA8ABA8ABA8ABABABABB8A5A58C8C897C83837879547D505074744B5622 - 4A5623232329235B5B535B262526262626267E26262649267E5A267E265E2626 - 2626532522572252505055544C6F7BA3A7A9AF99AAAB905F5D5E7A8288858687 - 87878787876287878787868588827E91619494948E5C5C5C2757295B5B5B265B - 26265B5B2626CBCBCBCC0285858588887760287A7E5D848D9096B8ABABA89AA8 - 9A9A9A9AA8A8A8A8A8ABA8ABABABABABABAB8C8C8C898983837879547D7D5C74 - 744B224A222223234D2323535B25262626262626262626267E5E1F5E5E7E5A26 - 26262626265B5B2323222248505055544C6F7BA3A7A9AF99AAAB908F5D5E7A60 - 8885868687878787478787878786868588827E91618F94948E8F5C5C5757295B - 5B5B5B5B2626265B2626C2CBCBCB} - WaterMark.Image.Layout = ilTile - object Label1: TLabel - Left = 176 - Top = 312 - Width = 186 - Height = 13 - Caption = 'Haga click en Siguiente para continuar.' - end - object Label3: TLabel - Left = 168 - Top = 72 - Width = 346 - Height = 32 - Caption = - 'Este asistente le ayudar'#225' a imprimir el n'#250'mero de etiquetas '#13#10'qu' + - 'e desee para el montaje de:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object lblNombreCliente: TLabel - Left = 169 - Top = 112 - Width = 353 - Height = 49 - Alignment = taCenter - AutoSize = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - ParentFont = False - Transparent = True - Layout = tlCenter - end - end - object JvWizardInteriorPage1: TJvWizardInteriorPage - Header.Title.Color = clNone - Header.Title.Text = 'Opciones de impresi'#243'n' - Header.Title.Anchors = [akLeft, akTop, akRight] - Header.Title.Font.Charset = DEFAULT_CHARSET - Header.Title.Font.Color = clWindowText - Header.Title.Font.Height = -16 - Header.Title.Font.Name = 'Tahoma' - Header.Title.Font.Style = [fsBold] - Header.Subtitle.Color = clNone - Header.Subtitle.Text = - 'Indique el n'#250'mero de etiquetas a imprimir y la impresora a utili' + - 'zar.' - Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] - Header.Subtitle.AnchorPlacement = 8 - Header.Subtitle.Font.Charset = DEFAULT_CHARSET - Header.Subtitle.Font.Color = clWindowText - Header.Subtitle.Font.Height = -11 - Header.Subtitle.Font.Name = 'Tahoma' - Header.Subtitle.Font.Style = [] - object Label2: TLabel - Left = 24 - Top = 96 - Width = 152 - Height = 13 - Caption = 'N'#250'mero de etiquetas a imprimir:' - end - object Label4: TLabel - Left = 24 - Top = 144 - Width = 146 - Height = 13 - Caption = #191'Qu'#233' impresora desea utilizar?' - end - object Label5: TLabel - Left = 248 - Top = 96 - Width = 259 - Height = 13 - Caption = '(En cada hoja se imprimir'#225'n como m'#225'ximo 4 etiquetas)' - end - object edtLabelCount: TcxSpinEdit - Left = 182 - Top = 92 - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Value = 4 - Width = 57 - end - object cbImpresoras: TcxComboBox - Left = 24 - Top = 161 - 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 - Text = 'cbImpresoras' - Width = 273 - end - end - object JvWizardWelcomePage2: TJvWizardWelcomePage - Header.Height = 80 - Header.Title.Color = clNone - Header.Title.Text = 'Fin del asistente de impresi'#243'n' - Header.Title.Anchors = [akLeft, akTop, akRight] - Header.Title.Font.Charset = DEFAULT_CHARSET - Header.Title.Font.Color = clWindowText - Header.Title.Font.Height = -19 - Header.Title.Font.Name = 'Tahoma' - Header.Title.Font.Style = [fsBold] - Header.Subtitle.Color = clNone - Header.Subtitle.Text = ' ' - Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom] - Header.Subtitle.Font.Charset = DEFAULT_CHARSET - Header.Subtitle.Font.Color = clWindowText - Header.Subtitle.Font.Height = -13 - Header.Subtitle.Font.Name = 'Tahoma' - Header.Subtitle.Font.Style = [] - Header.ShowDivider = False - VisibleButtons = [bkBack, bkFinish] - WaterMark.Image.Picture.Data = { - 07544269746D617082960100424D82960100000000003204000028000000A400 - 000074020000010008000000000050920100120B0000120B0000FF000000FF00 - 000000000000FFFFFF005320060057230800F6E7E900AD9B9C003F3838006B68 - 6800615E5E0058565600E7DEDD00483D3A0041312B0057230B00552107005321 - 07005B2509005923090057230900552309005D270B005B250B0059250B005222 - 0A0055230B004D210A005F290D005D270D0053250D004F240E0087411D007C3C - 1C009147210087411F0085411F0083411F0089432100813F1F007E3F1F008643 - 2100753B1D0082422100502A17004427180038201400623D2B005B4032004E37 - 2B0057230700552307005925090061290B0056250A005B270B00652C0D005927 - 0C00622B0E00652D0F00632D0F00683011005A290F006C331300763816005528 - 1000723616005D2C12006E3516007E3E1A007A3B190082401B00733918006431 - 150087431D007A3D1A0085411D0085431D00954B210083411D00763A1A00924A - 21008A461F007038190087431F0080411D008F4921008E47210085431F008343 - 1F00924B23008A462100793D1D0080411F0086462100804320007C411F008947 - 2300723B1D0083482600532F1C005A3623006A48360073503D007A564300825F - 4C00926E5A00652D0A006A300B00793B160085421B00924A1F008E491F009A4F - 220083431D00964D2200773D1B009E52250086451F00A255260083451F00723C - 1B00924D23008F4C2300763E1D00A5582900965025008A49220079401E00AB5D - 2C00A85B2B008D4B2400723D1D00924F2600824622006B3A1C0068381B006436 - 1A006E3B1D00965228008E4D2600A25A2C009A552A008A4D26008A4B26008649 - 2500925129007D452400AF6233008C4E2900884C280090512B0095542D00A35E - 320098583000B46839009D5B3200C2734100A05F3600A5623900AB673C007D4F - 3300CEC4BE00672F0B006D340C00AE602D00B3632F009E582A00B8693300B366 - 3200A25E2E00BB6D3600A86030009D592D00AC643300C0713A00B76D3A00BB6F - 3C00C6774200CB7A4600B16D40009276640074390E007B411500864A1C008A4F - 220097592A00B56C3600A5633100B0683500CA7A3F00C4763D00BE733C00C77A - 4000CD7E4300D1814600A76B3E007F400E0083451100884914008B4D18008146 - 18008D501C0090552300A2673800B0764700B57B4D00BC825300D3B8A100FFE0 - C600BAA390009E8B7C00826D5B00FFDBBB00EAD0B900FFE7D200B6A99D00FFED - DD00C1B6AC00FFF7F000FFF3E7004E4D4C00FBFAF900FEFBF5007E7E7D00FCFC - FB0090908F00E8E9E800D0D1D000BFC0BF00BBBCBB00B7B8B700B1B2B100DCDF - DD00CBCECC00D1D6D300D6DAD800E2E4E30072797600C6C9C800C2C5C400F0F1 - F100EDEEEE00ACADAD0097989800F9F9F900F7F7F700F5F5F500F3F3F300B4B4 - B400AFAFAF00AAAAAA00A6A6A600A2A2A2009D9D9D0087878700434343000202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020202020202020202020202020202020202020202020202020202 - 0202020202020203110311110303030303030303030303030303030303030303 - 0303030303030303030303030303030303111103111111111111111111321132 - 3232321132111111111111111111111111111111111111111111111111111111 - 1111111111111111321616161616321111111103030303030E0E0E0E0E0E0E0E - 300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E6969A2C302030303110303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303031111111111111111 - 1111111111111111111111111111111111111111111111111111111111111111 - 111111031111111111111111321616161616321111111103030303030E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E6969B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303111111 - 1111111111111111111111111111111111111111111111111111111111111111 - 1111111103031111111111111111111111321616161632111111110303030303 - 0E0E0E0E0E0E0E0E300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0311111111111111111111111111111111111111111111111110111111111111 - 1111111111111111030311111103111111111111113216161616321111110303 - 030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303111111111111111111111111111111111111111111111111111111 - 1111111111111111111111111111110303111111111111111132161616163211 - 111103030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969A2C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303031111111111111111111111111111111111111111111111 - 1111111111111111111111111111111111110311030311111111111111323216 - 1616321111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303031111111111111111111111111111111111111111 - 1111111111111111111111111111111111110311110303031111111111111111 - 111132161632111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 1111111111111111111111111111111111111111111103110303030303031111 - 11111111113232323232111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E6969B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303031111111111111111111111 - 1111111111111111111111111111111111111111111111111111110303030303 - 0311031111111111111132323232111111110303030303030E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E6969A2C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030311111111111111 - 1111111111111111111111111111111111111111111111111111111111111103 - 0303030303030311111111111111113232111111111103030303030E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E6969B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030311 - 1111111111111111111111111111111111111111111111111111111111111111 - 111111030303030303030311111111111111113232111111111103030303030E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030311111111111111111111111111111111111111111111111111111111 - 1111111111031103030303030303111111111111111111323211111111110303 - 0303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303031111111111111111111111111111111111111111111111111111 - 1111111111111111110303030303030303030303111111111111111111111111 - 111103030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303111111111111111111111111111111111111111111 - 1111111111111111111111111103030303030303030303031111111111111111 - 11111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303031103111111111111111111111111111111 - 1111111111111111111111111111031111030303030303030303030311111111 - 111111111111111111030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311111111111111111111111111 - 1111111111111111111111111111111111111103030303030303030303030303 - 111111111111111111111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E6969B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303111111111111111111 - 1111111111111111111111111111111111111111111111031103030303030303 - 03030303031111111111111111111111110303030303030E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E69A1B4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303111111 - 1111111111111111111111111111111111111111111111111103031103030303 - 0303030303030303031111111111111111111111110303030303030E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0311111111111111111111111111111111111111111111111111111111110303 - 030303030303030303030303031111111111111111111111110303030303030E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303111111111111111111111111111111111111111111111111111111 - 1111030303030303030303030303030303031111111111111111111111030303 - 0303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6969B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303031111111111111111111111111111111111111111111111 - 1111111103030303030303030303030303030303030311111111111111111111 - 110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303111111111111111111111111111111111111 - 1111111111111111030303030303030303030303030303030303111111111111 - 111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 1111111111111111110311030303030303030303030303030303030303031111 - 1111111111111111030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303031111111111111111111111 - 1111111111111111111111111111030303030303030303030303030303030303 - 0303111111111111111111110303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E6969B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030311111111111111 - 1111111111111111111111111111111111110303030303030303030303030303 - 03030303030303111111111111111111030303030303030E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E69A1B4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030311 - 1111111111111111111111111111111111111111111103030303030303030303 - 03030303030303030303031111111111111111110303030303030E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303111111111111111111111111111111111111111111110303030303030303 - 0303030303030303030303030303031111111111111111110303030303030E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303031111111111111111111111111111111111110311030303 - 0303030303030303030303030303030303030311111111111111110303030303 - 0303030E0E0E0E0E0E0E0E0E300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030311110303111111111111111111111111111111111103 - 0303030303030303030303030303030303030303030303031111111111110303 - 030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 0311110303030303030303030303030303030303030303030303030303111111 - 111103030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1B4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030311111111111111111111 - 1111111111111103030303030303030303030303030303030303030303030303 - 03031111111103030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E69A1 - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303031103111111111111 - 1111111111111111111111030303030303030303030303030303030303030303 - 030303030303111111110303030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E69A1B4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030311031111 - 0311111111111111031103110303030303030303030303030303030303030303 - 0303030303030303030303110303030303030303030E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E69A1B4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303110303030303 - 0303111111111111111111111111111103030303030303030303030303030303 - 03030303030303030303030303030303030303030303030303030E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E69A1B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303110311110311110311111111111103110303030303030303030303 - 03030303030303030303030303030303030303030303030303030303030E0E0E - 0E0E0E0E0E0E0E0E0E0E300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E696AB4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303031111111111111111111111030303030303030303 - 0303030303030303030303030303030303030303030311110303030303030303 - 0303030E0E0E0E030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030311111111110311111103110303030303 - 0303030303030303030303030303030303030303030303030311111111110303 - 030303030303030E0E0E030E0E03030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030311111103111103111103 - 0303030303030303030303030303030303030303030303030303030303031111 - 11110303030303030303030E030E0E030E0E03030E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303110303031111111111 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303031111111103030303030303030E0E030E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16A - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 1111031103030303030303030303030303030303030303030303030303030303 - 03030303030311111111030303030303030303030E0E0E0E0E030E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0EA16AB4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030311030303030303030303030303030303030303030303030303030303 - 03030303030303030303111103030303030303030303030E0E03030E030E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0EA16AB4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303110311030303030303030303030303 - 030E03300E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0EA16AB4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030311111111111111110303030303030303 - 0303030303030303030E030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0EA16AB4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311030311110303030303030303 - 0303030303030303030303030303030303030303031111111111111103030303 - 03030303030303030303030303030E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E030EA16AB4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303110303031103110303030303 - 0303030303030303030303030303030303030303030303030311111111111103 - 0303030303030303030303030303030303030E0E030E0E0E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E030E0E6A6AB4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111031103030303111111111111 - 0303030303030303030303030303030303030303030303030303030303031111 - 11111111030303030303030303030303030303030303030E0E0E0E0E0E0E0E0E - 0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E6A6AB4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030311111103111111110311 - 1111031103030303030303030303030303030303030303030303030303030311 - 111111111111111103030303030303030303030303030303030303030303030E - 03030E0E0E0E0E0E0E0E0E0E03030E0E030E0E0E0E030E0E03030303030E6A6A - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031103030303030303030311110311 - 1103111111030303030303030303030303030303030303030303030303030303 - 0303031111111111111111110303030303030303030303030303030303030303 - 0303030E0303030E0E0E0E0E0E0E0E0E0E030E0E0303030E0E0E0E0E03030303 - 03036A6AB4C30203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0311110311110311031103031103111111030303030303030303030303030303 - 0311030303111111111111111111111111110303030303030303030303030303 - 0303030303030303030303030303030E030E0E0E0E030E0E030E0E0E0303030E - 0303030303036A6AB4C302030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303110303030303111103110303031111111103030303030303030303030303 - 0303030303030303030311111111111111111111111103030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 030303030303030303036A6AB4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030311110303111111111103030303030303030303 - 0303030303030303030303030303111111111111111111111103030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 03030303030303030303030303036A6AB4C30203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303031111111111111111110303110311111111 - 0303111111030303030303030303030303110311111111111111111111110303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303036AA2B4C302030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303031111111111111111111111111111 - 1111111111111111030311030303030303030303111111111111111111111111 - 1103030303030303030303030303030303030303030303030303030303030303 - 030303030303030303030303030303030303030303036A6AB4C3020303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311111111111111111111111111 - 1111111111111111111111110303031103030303030303031111111111111111 - 1111111111030303030303030303030303030303030303030303030303030303 - 03030303030303030303030303030303030303030303030303036A6AB4C30203 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030311031111111111111111111111111111 - 1111111111111111111111111111111111111103031103030311031103111111 - 1111113211111111111111030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303036A6A - B4C3020303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030311111111111111111111111111 - 1111111111111111111111111111111111111111111103111103031103031111 - 1111111111111132111111111111110303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 03036AA2B4C40203030303030303030303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030311111111111111 - 1111111111111111111111111111111111111111111111111111111111111111 - 1103111111111111111111113211111111111103030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303036AA2B4C402030303030303030303030303030303030303030303 - 0303030303030303110303030303030303030303030303030303030303111111 - 1111111111111111111110113232111110111132111111111010111111111111 - 1111111111111111111111113232113210321011111111111111030303030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 030303030303030303036AA2B4C3020303030303030303030303030303030303 - 0303030303030303030303030303030303030303030303030303031103111111 - 1111111111111110111111101010103210101111111010111010101032111111 - 1111111111111111111111111111111111323210101010321111111103030303 - 0303030303030303030303030303030303030303030303030303030303030303 - 0303030303030303030303030303A2A2B4C40203030303030303030303030303 - 0303030303030303030303030303030303030303030303030303030303111111 - 1111111111111111111110101010101010321010101010101010101010101010 - 1010101010111111111111111111111111111111113210321010101111111111 - 1103030303030303030303030303030303030303030303030303030303030303 - 030303030303030303030303030303031230A2A2B4C402030303030303030303 - 0303030303030303030303030303030303030303030303030303030303031111 - 1111111111111111101111111010101010101010101010101010101010101010 - 10101010101010111010101011111111111110111110113211110D1111113232 - 1011111111110311111111111103110303030303030303030303030303030303 - 03030303030303030303030303030303030303030303A2A2B4C4020303030303 - 0303030303030303030303030303030303030303030303030303111111111111 - 1111111111111111111111111010111010101010101010101010101010101010 - 1032321111113232101010101010101010101010113210323211111112121313 - 0D340D1111111111111111111111111111111103030303030303030303030303 - 0303030303030303030303030303030303030303030311110311A2A2B4C40203 - 0303030303030303030303030303030303030303030303030303031111111111 - 1111111111111111111111111111111011111010101010101010101010101010 - 10101032101112120D0D11111111321010101010101010321010103211111213 - 0F0F0F171713130D121111111111111111111111111111111111110303030303 - 030303030303030303030303030303030303030303030303030311111111A2A2 - B4C4020303030303030303030303030303030303030303110311111111111111 - 1111111111111111111111111111111110101010101010101010101010101010 - 10101010101010160D121213130E13130D0D1111323210101010101010321111 - 12130F0F17021917191717171313121212111111111111111111111111111111 - 1103030303030303030303030303030303030303030303031103030311111111 - 1111A2B4B4C40203030303030303030303030303030303111111111111111111 - 1111111111111111111111111111111010101010101010101010101010101010 - 1010101010101010101616121317170F1719170F0F1312121111113232101032 - 111112130F0F1919192A2A2A2A191917170F0F13121112111111111111111111 - 1111111111110311111103030303110311110303030303030311030311111111 - 111111111111A2A2B4C402030303030303030303030303030303111111111111 - 1111111111111111111111111011101010101010101010101010101010101010 - 101010101010101010101016160D13171719192A2A1D19190F17171313120D11 - 1111111112130E0F0F19192A2A622A2A2A622A1D1919170F0F31121211113210 - 1011101011111111111111111111110303111111111111031111111111110311 - 11111111111111111132A2A2C3C4020303030303030303031103030303111111 - 1111111111111111111111111111113210101010101010101010101010101010 - 1010101010101010101010101010160D12131719192A62626262622A1D191919 - 170F1330121212130E0F0219191D2A2A622D6565412A62622A1D191917170F13 - 1212111132101010111011111111111111111111111111111111111111111111 - 1111111111111111111111113232A2A2C3C40203030303030303030311111111 - 1111111111111111111111111011101010101010101010101010101010101010 - 10101010101010101010101010101010161612131717191D6262622D66626262 - 62622A1D191919170F0F0F170219191D2A2A2A2D656667B3B367632A2A622A1D - 190219020F0F1312111132101010103232323211111111111111111111111111 - 111111111111111111111111111132323216A2A2C3C402030303030303030311 - 1111111111111111111111111132111010101010101010101010101010101010 - 101010101010101010101010101010101010101012121317191D6262622D67D2 - 6766666463626262622A191919191919191D2A2A2A636566666668B3B3B3B368 - 6441622A2A2A191902020F131312111132101010103211111111111111111111 - 11111111111111111111111111111111323232161616A2A2C3C4020303030303 - 0303031111111111111111321132321032101010101010101010101010101010 - 1010101010101010101010101010101014141414101532121317171962626263 - 666868686767666666652E636262622A2A19191D2A2A2A62646666656566B3B3 - B3B3B3B3B3B366632A2A2A2A1719190F0F0E120D121132321010101032321111 - 1111111111111111111111111111111111113232323216101010A2B4B4C40203 - 0303030303031111111111111111113210101010101010101010101010101010 - 1010101010101010101010101010101010101414141010101634131717192A62 - 626265D2686868686766666666666666652D63626262622A622A6465669F6566 - 666465D2B3B3B3B3B3B3B3B3682D62622A2A1D1919170F131212321111321010 - 101032323232323232323232321132113211323232321010101010101010A2A2 - C3C4020303030303031111111111111132101010101010101010101010101010 - 101010101010101010101010101410101010141414141414101515160D131719 - 1D62636264D268686868D26867666666666666666666666563622A622D656566 - 65666565642D2D2D646768B3B3B368B3B3B36864622A2A2A1D19190F1713130D - 1611113210101010101010101010103232323211321616101010101010101010 - 1010A2A2C3C40203030303031111111111113232321010101010101010101010 - 1010101010101010101010101410101010141414141414141414141515160D13 - 17171D6262632D676868686868686868676766666666666666666666662D2D65 - 9F66669F6665642D632D2D2D2D642D66D268B3B3B368B3B3B367632A2A623F19 - 1919171713120D0D0D1610101010101010101010323216103210101010101010 - 101010101010A2B4C3C402030303031103111111113210321010101010101010 - 1010101010101010101010101014141414141414141414141414141414141516 - 0D0D17171D6262622D6668686868686868686868676666666666666666666666 - 662D2D6665666565642D632D2D2D2D2D2D2D2D642D656768B3B368B3B368B368 - 2D2A62622A1D19171717131234160D1032101010101010101010101010101010 - 10101010101010101010A2B4B5C4020303031111111111321110101010101010 - 1010101010101010101010101414141414141414141414141414141414141414 - 151016341317172A6262636668686868686868686868D2686766666666666666 - 66666666662D2D666665642D63632D632D2D2D2D2D2D642D642D64646668B3B3 - B3B3B3B3B3686462622A2A1D1719171713120D0D161616101010101010101010 - 1010101010101010101010101515A2B4C3C40203030311111111113210101010 - 1010101010101010101010101414141414141414141414141414141414141414 - 1414141516161317172A62626265686868686868686868686868686867676666 - 6666666666666666662D2D65642D636363632D2D2D2D2D2D2D2D642D64646464 - 646465676868B368B368B3686663622A2A1D1919171713120D16111010101010 - 101010101010101010101010151015153515B4A2C3C402030311111111321010 - 1010101010101010101010101414141414141414141414141414141414141414 - 14141414141515163417173F626263646868B368686868686868686868686868 - 676666666666666666666666652D2D2D636363632D632D632D2D2D2D642D2D64 - 2D64646464646465656768B3B3B3B3B368B3662D622A621D1919171713121616 - 10101010101010101010101010101010351414141414B4B4C3C4020311111111 - 1110101010101010101010101014141414141414141414141414141414141414 - 1414141414141414151634180F1C6262622D6768686868686868686868686868 - 68D26868666666666666666666666666652D2D636363636363632D2D2D2D2D2D - 2D2D642D6464646464646564656565666768B368B368B36867642A2A621D1919 - 1717121616101010101010101010101010101014351414141414A2B4B5C50203 - 0311111011101010101010101010101014141414141414141414141414141414 - 1A1A14141A1A1414141435153418171C62626263676868B36868686868686868 - 6868686868686868676666666666666666666666652D6363636363632D632D63 - 2D2D2D2D2D642D642D646464646465646565656565666768B3B368B368686864 - 6262622A1D17171216101010101010101010151510101414141414141414B4B4 - C3C4020311111111101010101010101010101014141414141414141414141414 - 141A1A1A1A1A1A1A1A1414141415163417182A626263666868B3686868686868 - 686868686868686868686868676666666666666666666666652D2D6363636363 - 63632D2D2D2D2D2D2D2D642D642D6464656465656565656565666666666868B3 - B3B3B3B36865622A622A17123410101510101510151415141514141414141414 - 1414B4B4C3C50211111110101010101010101010101414141414141414141414 - 141A1A1A1A1A1A1A1A1A1A1A14141415163434173F6262626568686868686868 - 68686868686868686868686868686868676666666666666666666666652D2D62 - 62626363632D632D632D632D2D2D2D6464646464646464646565656565656666 - 666666676868686868B36866636263130D151415151515101514151414141414 - 141414141414B4B4B5C502111111101010101010101010141414141414141414 - 141A141A1A1A1A1A1A1A1A1A1A1A1A14143516340D173F62626364686868B368 - 68686868686868686868686868686868686867D2666666656666666666666666 - 66652D6262622A6263636363632F2F6363632E2D2D6464646464656565656565 - 66666666666666676667D268B368B368682A62130D1015101514101515141414 - 14141414141414141414B4B4B5C5021111101010101010101010141414141414 - 14141A141A1A1A1A1A1A1A1A1A1A1A1A1A1A1414351634133F6262632D676868 - 686868686868686868686868686868686868686867D267676565646565656566 - 66666666666666666463622A2A2A2B2A6262622F2F63632D2E2D646464646465 - 6565656566656666666666666766676767686868682A2A130D10101414101414 - 141414141414141414141414141AB4B4B5C50211111010101010101010141414 - 1414141414141A1A1A1A1A1A1A1A1A1A1A3838381A1A1437370D3F6262636366 - B368B368B36868686868686868686868686868686868D2D26767666664646464 - 6464656565666666666666666666662E622B2B2C2C2C2C2B2B0C2F62632D2D2E - 64646464656565656566656666666666666766666766676868622A1316151414 - 141414141414141414141414141414141414B4B4B5C502111010101010101010 - 141414141414141A1A141A1A1A1A1A1A1A1A1A38383838381A1A14373F626362 - 636568686868686868686868686868686868686868686868D267676666656464 - 2E2E2F2E2E646464656565656666666666656564642E2F2C2C0C0C060C2C2B0C - 2F2F632D2D646464656565656566666666666667666667676767676665622A34 - 161514141414141414141414141414141414141A1A1AB4B4B5C5023210101010 - 10101014141414141414141A1A1A1A1A1A1A1A1A383838383838381A1A1A353F - 6362626468686868686868686868686868686868686868686868686767676665 - 642E2E0B06060C2F2F2F2E2E64646465656565656464642E2E2F0C0C0606060C - 06060C2C2C2B2F2F2E2D2E646464656565666566666666666667666666652D62 - 622A3F1615141414141414141414141414141414141414141A1AB4B4C4C50210 - 10101010101010141414141414141A1A1A1A1A1A1A1A38383838383838383838 - 1A1A3C3F2D64686868686868686868686868686868686868686868686867D267 - 6665652E2F0BFEFEFEFEFE060C0C2F2F632E2E6464646464642E2E2F0C0C0606 - 060705F20B0C0606062C2C2C2B2F2E2D6464646565656666666666666666652D - 62622A622A3F16151414141414141414141414141414141414141A1A1A1AB4B4 - B5C502101010101010101014141414141A1A1A1A1A1A38383838383838383838 - 383838381A143C632D6868686868686868686868686868686868686868686867 - D2676665642E2F0BFEFEFEECFBFEFEFEFEFE060C0C2F2F632E2E2E2E2E2F0C0C - 06060B070505A00101ED080C06060C0C2C2C2C2F2F2D64646465656666666664 - 2D622A626262621C131615141414141414141414141414141414141414141A1A - 1A1AB46BC4C5021010101010101014141414141A1A1A1A1A1A38383838383838 - 3838383838383838381A3C622D68686868686868686868686868686868686868 - 6867D267666664642E0B0BFEFE08EEEBE3E5FBDE09FEFEFEFE060C0C2F2F2F0C - 0C0C0C060CDBD1050505E101010101F0FD0B0606060C2C2C2C2B2F2E64646565 - 656464622A622D656763621C3416351414141414141414141414141414141A14 - 1A1A1A1A1A1AB4B4C7C50210101010101414141414141A1A1A1A1A1A38383838 - 383838383838383836363838381A3C632D686868686868686868686868686868 - 686868686767676665642E2F0BFEFE09F9E1E1EBE3F7F9F9F9FCECDBFEFEFE06 - 0C0C2B0C0C06060BFD05050505D8DF01010101010101F7DB0606060C2C2C2C2C - 2B63646464632D2D65676767672D621C0D151414141414141414141414141414 - 1414141A1A1A1A1A1A1AB46BC4C502101010101010141414141A1A1A1A1A1A38 - 38383838383838383838363836363638381A3C632D6868686868686868686868 - 686868686768D267676665642E2F0BFEFEDBFCEBE1E1E1EBE3F7F9F9F9F9F9F1 - E007DBFEFE0B0606060BDE050505050505FDF2E901010101010101010A070606 - 06062C2C2C2C2C2B2D636366676767676763621C161514141414141414141414 - 141414141414141A1A1A1A1A1A1A6BB4C4C602101010101414141414141A1A1A - 1A38383838383838383836383939393639393938381A3C638568686868686868 - 68686868686868686867676665642E2E0BFEFEFEFDEAE1E1E1E1E1E1E3E5F9F9 - F9F9F9F1F1F1F9E00806060B0705050505050505DE070707DEE5EF0101010101 - 0101F4E00B06060C0C2C2C2C2C622F65666666676763621C1635141414141414 - 14141414141414141414141A1A1A1A1A1A1AB4B5C4C602101010141014141414 - 1A1A1A383838383838383839363939393939393939393939381A3C632D686868 - 686868686868686868686767676666642E2E0B0BFEFEECE8F0E1E1E1E1E1E1EB - E3E5F9F9F9F9F9F9F1F1F1F8F1080705050505050505DE080807080707ECEC05 - EA0101010101010101E4DB0606060C2C2C2B2E64646566666663621C34151414 - 14141414141414141414141414141A1A1A1A1A1A1A1A6BB4C4C6021010101414 - 1414141A1A1A1A3838383838383839393939393939393939393939393A1A4163 - 2D68686868686868686867686767676765652E2E2F0BFEFE08F7F0E1F0E1E1E1 - E1E1E1E1E3F7F9F9F9F9F9F1F1F1F1F8FA07070505050505FD08080808080707 - 0707ECECDEFDE3F501010101010101EA070B06060C0C2F2E2E64646565632A1C - 3415141414141414141414141414141414141A1A1A1A1A1A1A1AB46BC4C60210 - 101414141414141A1A1A33383838383836393939393939393939393939393939 - 3A1A3C872D686868686868686868686767676565642E2F0BFEFEDBFAF0F0F0F0 - F0E1E1E1E1E1E1EBE3F7F9F9F9F9F9F1F1F1F1F1F90807050505FD0809090808 - 0807070707EC07ECECDEDEFDF1E701010101010101E1FD0B06060C0C2F2F2E2E - 64622A1902123714141414141414141414141414141A1A1A1A1A1A1A1A1A6BB5 - C7C602101010141414141A1A1A1A383838383838363939393939393939393939 - 393939393A383C638568676867686868686767676665642E2F0BFEFEFEE0E1EF - F0F0F0F0F0F0E1E1E1E1E1E1E3E5F9F9F9F9F9F1F1F1F1F8FA070705FD080909 - 09090808080807070707ECECDEDEDEDEFDFDF2E8F4010101010101F5F9DB0606 - 060C2F2F2E2B2C19190F1635141414141414141414141414141A1A1A1A1A1A1A - 1A38B4B5C7C602101414141414141A1A33383838383838393939393939393939 - 39393939393939393A1A41872D6868686868676767676665642E2F0BFEFEFEDE - EAEFEFEFF0F0F0F0F0E1E1E1E1E1E1EBE3E5F9F9F9F9F9F9F1F1F1F1FC080708 - DB090909090808080807070707EC07DEECDEDEFDFDFDE0E0F2E4EB0101010101 - 01DFE5080606060C0C2C2C2C1919020D3714141414141414141414141A1A1A1A - 1A1A1A1A38386BB5C4C602101414141414141A1A383838383838363939393939 - 393939393939393939393B39393841632D676867686767676665642E2E2FFEFE - FE08E8F5F6F6EFEFF0F0F0F0E1E1E1E1E1E1E1EBE3F7F9F9F9F9F9F1F1F1F1F8 - E00708DB090909090809080807080707EC07ECECDEDEDEFDFDFDE0E0E0F2FCF1 - E9F3010101010101E2EC0606060C2C2C2C19191716151414141414141414141A - 1A1A1A1A1A1A1A383838B4B5C7C6021414141414141A1A1A3838383838363939 - 3939393939393939393B393939393939393841872D6868676767666564642E2F - 0BFEFE09E6F5F5F5F6EFEFEFF0F0F0E1F0E1E1E1E1E1E1E1E3F7F9F9F9F9F9F9 - F1F1F8F8F2080809DB090909090808080807070707ECECECDEDEDEFDFDE0E0E0 - F2F2FCFCFBFAEDE10101010101010AFD0B06060C2C2C19171837141414141414 - 141414141A1A1A1A1A1A1A1A381AB5B5C7C60214141414141A1A1A1A38383838 - 383939393939393939393B3B393B3B393B393B3939381A638867676766656564 - 2E2F06FEFEDBFBEFF4F4F5F5F6EFEFEFEFF0F0F0F0E1E1E1E1E1E1EBE3E5F9F9 - F9F9F9F1F1F1F1F8E00708DB0909090909090808080707070707ECECDEDEDEFD - FDFDE0E0F2F2FCFCFBFAF9F1E4E7F30101010101EFFBDB06060C2C1917161414 - 14141414141414141A1A1A1A1A1A1A3838386BB5C7C6021414141414141A3338 - 3838383836393939393939393939393B3B3B3B3B3B3B39393938416363676665 - 65642E2F0CFEFEFEFDEBF3F4F4F5F5F6F6F6EFEFF0F0F0F0E1F0E1E1E1E1E1EB - E3E5F9F9F9F9F9F9F1F1F1F8F207070606FEDB090908080808070707ECECECEC - DEDEDEFDFDFDE0E0F2F2FCFCFBFAF9F1F8E6E5E2F00101010101F3F8090BDB19 - 19161414141414141414141A1A1A1A1A1A1A383838386BB5C7C6021414141414 - 1A1A383838383836363939393939393B3B3B3B3B3B3B3B3B3B3B3B3939384162 - 636564642E2F0C06FEFEECEAF3F3F4F4F4F5F5F6F6EFEFEFF0F0F0F0F0E1E1E1 - E1E1E1E1E3F7F9F9F9F9F9F1F1F1F1F8F8F207FE06060606DB09080807070707 - 0707ECDEDEDEDEFDFDE0E0E0F2F2FCFBFBFAF9F1F8E6E5E5E4EDEBDC01010101 - F0060619193414141414141414141A1A1A1A1A1A1A383838383A6BB5C7C60214 - 1414141A1A1A383838383636393939393939393B3B3B3B3B3B3B3B3B3B3B3B39 - 391A3C6262642E2F2B06FEFE08E3DFDCF3F3F4F4F4F5F5F6F6F6EFEFEFF0F0F0 - E1E1E1E1E1E1E1EBE3F7F9F9F9F9F9F9F1F1F1F8F8F8E6F1FDDB0606060606DB - 09070707ECECECECDEDEFDFDFDFDE0F2F2F2FCFBFBFAF9F1F8F7F7E5E4E4E3EE - EAEF0101F0060C191716141A14141414141A1A1A1A1A1A1A1A3838383838B5B5 - C7C602141414141A1A333838383836363939393939393B3B3B3B3B3B3B3B3B3B - 3B3B3B39383C3F2B2B2F0C06FEFEDBF8F3DFDFDCF3F3F4F4F4F5F5F6F6EFEFEF - F0F0F0F0E1F0E1E1E1E1E1E1E3E5F9F9F9F9F9F1F1F1F1F1F8F8E6E6F7F7E6FD - DB06060606FEDB0807ECECDEDEDEDEFDFDE0E0E0F2FCFCFBFAFAF9F1F8F7E5E5 - E4E3E3E3EEEEE2E1E10606191716141414141414141A1A1A1A1A1A1A38383838 - 3A386BB5C7C602141414141A1A333838383636393939393939393B3B3B3B3B3B - 3B3B3B3B3B3B3B39383C1D2B2B06FEFEFEF2F6DFDFDFDFDCF3F3F3F4F4F5F5F5 - F6EFEFEFEFF0F0F0F0E1E1E1E1E1E1EBE3E5F9F9F9F9F9F1F1F1F1F8F8F8E6E6 - E6F7F7F7E5E5FD0906060606FEDB07ECDEDEFDFDFDE0E0E0F2FCFCFBFAFAF9F8 - E6F7E5E5E4E4E3E3EEEDEDEEF2060C19181514141414141A1A1A1A1A1A1A1A38 - 383838383A3AB5B5C7C8021414141A1A1A33383838363639393939393B3B3B3B - 3B3B3B3B3B3B3B3B3B3B3B39383F192BFEFEFEDEEB01DFDFDFDFDCDCF3F3F3F4 - F4F5F5F6F6F6EFEFF0F0F0F0E1E1E1E1E1E1E1E1E3F7F9F9F9F9F9F9F1F1F1F8 - F8E6E6E6E6F7F7E5E5E5E5E4E4FD0906060606FEDBECDEFDFDE0E0F2F2F2FCFB - FAFAF1F8E6F7E5E4E4E3E3EEE3F2070B060C0C173435141A141A1A1A1A1A1A1A - 1A1A1A383838383A3A3AB5B5C7C802143314331A33333838383636393939393B - 3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B391A1C2B0C09FDEA01DF01DFDFDFDFDCDC - F3F3F3F4F4F5F5F6F6EFEFEFEFF0F0F0F0E1E1E1E1E1E1EBE3F7F9F9F9F9F9F9 - F1F1F1F8F8F8E6E6E6F7F7E5E5E5E5E4E4E4E4E3FD0906060606FE09ECE0E0F2 - F2FCFCFBFAF9F9F1E6F7E5E5E4E5F2080B0606060C2B1734351A141A1A1A1A1A - 1A1A1A1A1A38383838383A3A3939B5B5C5C8021414141A1A3333383838363939 - 3939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B393C1C2BFE070101010101DFDF - DFDFDCDCF3F3F4F4F4F5F5F6F6F6EFEFF0F0F0F0E1F0E1E1E1E1E1E1E3E5F9F9 - F9F9F9F9F1F1F1F8F8F8E6E6E6F7F7F7E5E5E5E5E4E4E4E3E3E3E3E009060606 - 06FE09DEF2FCFCFBFAFAF1F8E6F7F1E00806060606FE062C2C1918351B1A1A1A - 1A1A1A1A1A1A1A1A1A383838383A39393939B5B5B6C802141A1A1A3338383838 - 3636393939393B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B391A1D2BFE07010101 - 010101DFDFDFDFDCF3F3F3F4F4F5F5F6F6EFEFEFF0F0F0F0F0E1E1E1E1E1EBE1 - FBFCFBFAF9F9F9F9F1F1F1F8F8F8E6E6F7F7F7E5E5E5E5E4E4E4E4E3E3E3EEEE - EEEEE00906060606FE09FDFBFAF1F1F8F1F2FD06060607FCE808FE2C19193714 - 1A1A1A1A1A1A1A1A1A1A1A1A383838383A3A39393939B5B5C5C80214331A1A33 - 3338383836393939393B3B3B3B3B3B3B3B3B3B3B3B3B3D3B3B3B3B39411C2BFE - 070101010101DFDFDFDFDFF3F3F3F4F4F4F5F5F6F6F6EFEFEFF0F0F0E1E1E1E1 - E1E7FB08FEDBFE08DEFBF9F1F1F1F8F8F8E6E6E6E6F7F7E5E5E5E4E4E4E4E3E3 - E3E3EEEEEEEDEDEDEEE00906060606FE09FDF9F1F1070707FBE8E7EAE708FE2C - 1917351A1A1A1A1A1A1A1A1A1A383838383838383A3939393939B5B5B6C80214 - 1A1A1A333338383836393939393B3B3B3B3B3B3B3B3B3D3B3D3B3B3D3B3D3B39 - 3C1C2BFE0801010101DFDFDFDFDFDFDCDCF3F4F4F4F5F5F6F6F6EFEFF0F0F0F0 - F0E1E1E8FDDBFEFEDB07FEFEFEFE08DEFBF1F1F8F8E6E6E6F7F7F7E5E5E5E5E4 - E4E4E4E3E3E3EEEEEEEEEDEDEDE8E8EDF20906060606FE08FD08ECEAEAEAE7EA - E708FE2C1934351A1A1A1A1A1A1A1A1A1A3838383838383A39393939393BB5B5 - B6C8021A1A1A33333838383636393939393B3B3B3B3B3B3B3B3B3B3B3B3D3B3D - 3B3B3B391A1D2BFE07010101010101DFDFDFDCDCF3F3F4F4F4F5F5F6F6EFEFEF - EFF0F0F0F0F7ECFEFEFE07E4E3E5F2DE08FEFEFEFE08FDFAF8F8E6E6F7F7F7F7 - E5E5E5E4E4E4E4E3E3E3EEEEEEEDEDEDE8EDE8E8E8E2EDF209060606060807EA - EAEAEAE7EA08FE2C1934141A1A1A1A1A1A1A1A383838383838383A3939393939 - 3B3BB5B5B6C8021A1A1A333338383836363939393B3B3B3B3B3B3B3B3D3D3D3D - 3D3D3D3D3D3D3D3B411C2BFE070101010101DFDFDFDFDCDCF3F3F3F4F4F5F5F6 - F6EFEFEFF0F0EBFB09FEFEDBFDE8E1E1E3F7FCF2F2E0DE08FEFEFEFE08FDF9F7 - E6F7F7E5E5E5E4E4E4E4E4E3E3E3EEEEEEEEEDEDEDEDE8E8E8E8E2E2E9EDF208 - DBDEEEEAEAEAE7EAE708FE2B191C14381A3838383838383838383838383A3A39 - 39393B3B3B3BB5B5B6C8021A1A333333383838363939393B3B3B3B3B3B3D3B3D - 3D3D3D3D3D3D3D3D3D3D3D3B411C2BFE070101010101DFDFDFDFDCDCF3F3F3F4 - F4F5F5F6F6F6EFEFE9FDDBFEFE09FBE7E1E1E1E1E3F7FCF2F2F2F2F2E0DE08FE - FEFEFE08FDF8F7F7E5E5E5E5E4E4E3E3E3E3EEEEEEEDEDEDEDE8E8E8E8E2E2E2 - E9E9E9E9EAEAEAEAEAEAEAE7E708FE2C19341B38383838383838383838383838 - 3A3A3939393B3B3B3B3BB5B5B6C8021A1A333833383836363939393B3B3B3B3B - 3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B411C2BFE0801010101DF01DFDFDFDCDC - F3F3F4F4F4F5F5F6F6EFE407FEFEFE07E4E1E1E1E1E1E1E1E3F7FCF2F2F2F2F2 - F2F2F2F2EC08FEFEFEFE07E0F7E5E4E4E4E4E4E3E3EEEEEEEEEDEDEDEDE8E8E8 - E8E8E2E2E9E9E9EAE9EAEAEAEAE7EAE7EA08FE2C19341A383838383838383838 - 38383A3A393939393B3B3B3B3B3BB5C7B6C8021A333333383836363939393B3B - 3B3B3B3B3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B3A1C2BFE070101010101DFDF - DFDFDCDCF3F3F3F4F4F5F5E1FC09FEFEDBFDE2E1E1E1E1E1E1E1E1E1E3E5FCF2 - F2F2F2F2F2F2F2F2FCF2F2EC09FEFEFEFE07E0E5E4E4E3E3E3E3EEEEEEEEEDED - EDEDE8E8E8E2E2E2E9E9E9E9E9EAEAEAEAEAEAEAE708FE2B19341A3838383838 - 383838383A3A393A3939393B3B3B3B3B3B3DB5C7C6C902333333333838363639 - 39393B3B3B3B3B3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3B3A3F2BFE07010101 - 01DF01DFDFDFDFDCF3F3F4F4F4E9FDDBFEFE08FCE7E1E1E1E1E1E1E1E1E1E1E1 - E3F7FCF2F2F2F2F2F2F2FCF2F2FCFCFCFCF2EC09FEFEFEDB07F2E4E4E3E3EEEE - EEEDEDEDEDE8E8E8E8E8E8E2E9E9E9E9E9E9EAEAEAEAE7E7EA08FE2B19371A38 - 383A3838383A3A3A3939393939393B3B3B3B3B3D3D3DB5C7B6C8021A33333838 - 38363639393B3B3B3B3B3D3D3D3D3D3D3D3D3D423D423D423D3D3D3D3A3F2BFE - 08010101010101DFDFDFDFDCF3F3F4E407FEFEFE07E4E1E1E1E1E1E1E1E1E1E1 - E1E1E1E1E3F7FCF2F2F2F2F2F2F2F2F2FCF2FCFCFCFCFCFCF2EC09FEFEFEDBEC - F2E3E3EEEEEDEDEDEDEDE8E8E8E2E9E2E9E9E9E9EAEAEAEAEAEAE7EAE708FE2C - 19371A3A3A3A383A3A3A39393939393939393B3B3B3B3D3D3D3DC7C7B6C90233 - 3338383836363939393B3B3B3B3D3D3D3D3D3D42423D423D423D423D423D423D - 3A3F2BFE0701010101DFDFDFDFDFDCF3E1FB09FEFEDBFDE2E1E1E1E1E1E1E1E1 - E1E1E1E1E1E1E1E1E2FCFAF2F2F2F2F2F2F2FCF2FCFCFCFCFCFCFCFCFBFBFBF2 - EC09FEFEFEDBECFCEEEDEDEDE8EDE8E8E8E8E2E2E9E9E9EAE9EAEAEAEAEAE7EA - E708FE2B17371A393939393A393A3939393939393B3B3B3B3D3D3D3D4242C7C7 - C6C9023333383636363639393B3B3B3B3D3D3D3D3D3D3D3D4242424242424240 - 4242423D473C2AFE07010101010101DFDFDFEAFDDBFEFE08FBE7E1E1E1E1E1E1 - E1E1E1E1E1E1E1E1E1E1E1E1E2E5F9F2F2F2F2F2F2F2F2F2F2FCFCFCFCFCFCFB - FCFBFBFBFBFBF2EC09FEFEFEDBECFBEDEDEDE8E8E2E8E2E2E9E9E9E9EAE9EAEA - EAEAE7EAEA08FE2B1D371A3939393939393939393939393B3B3B3B3B3D3D3D42 - 4242C7C7C6C90233383836363639393B3B3B3B3B3D3D3D3D3D42424242404240 - 404040404040403D3B3F2BFE080101010101DFF4E407FEFEFEECE4E1E1E1E1E1 - E1E1E1EBE1E1E1EBE1E1E1E1E1EBE1E1E2F7E4E4F7FAF2F2F2F2FCF2FCFCFCFC - FCFCFCFCFBFBFBFBFBFAFAFAFAF2ECDBFEFEFEDBDEFAE8E8E8E8E2E2E9E9E9E9 - E9EAEAEAEAEAEAE7E708FE2B173C38393939393939393939393B3B3B3B3B3B3D - 3D3D42424242C7C7B7C90238383836363939393B3B3B3D3D3D3D3D4242424242 - 4040404040404040404040423B412AFE0701010101F0FA09FEFEDBFDE2E1EBE1 - E1EBE1EBE1EBE1E1E1EBE1E1E1E1EBE1E1E1E1E1DEDED8EBE1E7EDE6FAFCF2F2 - FCF2FCFCFCFCFCFBFCFBFBFBFBFAFBFAFAFAF9F9F2ECDBFEFEFEDBDEF1E2E2E2 - E9E9E9E9EAEAEAEAEAE7EAE7EA08FE2B1C3C3839393939393939393B3B3B3B3B - 3B3D3D3D424242425140C7C7B7C90238383836363939393B3B3D3D3D3D3D4242 - 4242404040404046404040403E4640423B412BFE070101EAFDFEFEFE08FAE7EB - E1EBE1EBEBE1EBE1EBE1EBE1EBE1EBE1EBEBE1EBE1EBEBE1EBE7E1EFEFF0E1EB - E7E8E5F9FCFCFCFCFCFCFCFCFBFBFBFBFBFAFAFAFAFAF9F9F9F9F1F2ECDBFEFE - FEDBFDE6E2E9E9E9E9E9EAEAEAEAEAE7E708FE2B1C3C38393939393939393B3B - 3B3B3B3B3B3D3D3D424242514051C7C7C8C902383836363939393B3B3B3D3D3D - 42424242404040404646464646463E3E463E3E423D412AFE08E407FEFEFEECE5 - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBF0F6EFEFF6 - F6EFF6F6EFE1EBE1E2E4F9FBFCFCFCFCFBFBFBFBFBFBFAFAFAFAFAF9F9F9F1F1 - F1F8F2ECDBFEFEFE09FDE5E9EAEAEAEAEAEAE7EAEA08FE2B1C3C3A3939393939 - 393B3B3B3B3B3B3B3D3D3D4242514051464676B6B7C902383636393936393B3B - 3B3D3D3D3D424040464046464646463E3E3E3E3E3E3E3E403D412AFEFEFEFEDB - FDE2EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE1EB - EFF6F0E4EDE1EFEFEFF6F6F6F0EBEAEAE4F1FBFBFCFBFBFBFBFBFAFAFAFAF9F9 - F9F9F1F1F1F8F8F8E6F2ECDBFEFEFE09FDE4EAEAEAEAEAE7E708FE2B1C3C3A3B - 3B3B393B3B3B3B3B3B3B3B3D3D3D424251515146464676B6C8C9023636363936 - 3B3B3B3B3D3D3D42424040404646464646464E3E4E4E4E4E4E4E4E463D4162FE - FE08FBEAEBEBEBEBEBEBEBEBE7EBEBEBEBEBEBEBEBEBEBEBEBEBEBE7EBEBEBEB - EBEBF0F6EFF00508F2E3E2EAEBF0EFF6EFEFEFF0E1E1E7EDF8FAFBFBFBFAFAFA - FAFAF9FAF9F9F1F1F1F8F8F8F8E6E6F7F2ECDBFEFEFE09E0E3E7EAE7EA08FE2B - 1C41393B3B3B3B3B3B3B3B3B3B3B3D3D3D424242514646464E46B6B6B7B80236 - 3639363B393B3B3B3D3DA2424040404646463E4E3E4E4E444444444444444446 - 42412AFE08E7EBEBEBE7EBE7EBE7E7EBEBE7E7EBE7E7E7E7E7EBE7EBE7E7EBEB - E7EBE7EBE7E1EBEFF6EB07FCFAE5FBFAE4E2EAE7EFF6F6EFF6EFF0E1E1EBE8E6 - FAFAFAFAFAFAF9F9F9F9F1F1F1F8F8F8E6E6E6E6F7F7F7F207DBFEFEFE09E0EE - E708FE2B1C1A393B3B3B3B3B3B3B3B3B3D3D3D3D3D4242514646464E4E4EB6B6 - C9C9023639393B363B3B3B3D3D3D424040403E3E4E4E4E724472494949494949 - 4943494E42472AFE08E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7 - E7E7E7E7E7E7E7E7E7F0F6EFF005FDFCEDDFF6EAE4FBFAF7E8E9EBF0EFF6EFEF - F6EFE1E1E8E2E5FAFAFAF9F9F9F9F1F1F1F8F8F8E6E6E6E6F7F7F7F7E5F7F207 - DBFEFEFE08DBFE2B1C41393B3B3B3B3B3B3B3B3B3B3D3D3D4242404646464E4E - 7272B6B6C9B802363939393B3B3BA23D3D404040403E464E4E4E72724949491F - 4949434949434349514762FE08E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7 - E7E7E7E7E7E7E7E7E7E7E7E7E1F0EFF0E8ECFCF9F4DCDCDFF3F6EAE4FAFAF7ED - EAEBF0EFF6EFEFF6EFE1EBEAE9E4F1F9F9F9F1F1F1F8F8F8E6E6E6E6F7F7F7F7 - E5E5E5E5E5F207DBFEFEFE2B3F41393B3B3B3B3B3B3D3B3D3D3D3D4242425146 - 464E72727272B6B6C9B8023939393B6A3B3B3D3D3D424040463E4E4E49494949 - 49431F494343435353434349464762FE08E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7 - E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7EBE2F6F6E1E0F2FCE7DFDFDFDCDFF3F3F3 - F4E7E4FAFAF8EEEAEBF0EFEFF6F6F6F6F0E1E7E7EEF8F1F1F1F1F8F8E6E6E6E6 - F7F7F7E5E5E5E5E5E5E4E4F7F2DBFE2B3441393B3B3B3B3D3B3D3B3D3D3D4242 - 405146464E72725A5A5AB6B7C9B802393939363B3B3D3D3D4040403E3E4E4444 - 4949491F434326535353535353535349464762FE08EAEAEAEAEAEAEAEAE7EAEA - EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAE7E1F6F6EFA0E0FCE4DFDFDFDCDC - DCDCF3F3F3F3F3F5E7EEF9FAF1E3EAE1EFF6F6F6F6F6F6F0F0F0E7EDF7F8F8F8 - E6E6E6F7F7F7F7F7E5E5E5E5E4E5E4E4E409FE2B3F413B3D3B3D3B3B3D3D3D3D - 3D3D4242404646464E725A5A5A5A7DB7C9B80239393B3B3B6A3DA23D40403E3E - 46444949491F43432653535353535353234D53264E4762FE08EAEAEAEAEAEAEA - EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEBE1F6EF0AE0FCFAF6DF - DFDCDCDFDCF3F3F3F3F3F3F3F4F4F4E7EEF9FBFAE4E2E1F6F6F6F6F6F6EFEFF0 - E1EBE2E5E6E6E6F7F7F7F7F7E5E5E5E5E5E5E4E4E409FE2B3F413B3D3D3B3D3B - 3D3D3D3D3D42424246464E4E727E5A5E7E7EB7B7C9B8023B3B3B6A3B3D3D3D42 - 40403E46444949491F2626535D5353234D4D5757575757264E8662FE08EAEAEA - EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAE7E2F6EFEFF9F2 - FBEADCDFDFDCDCDCDCDCDCF3F3F3F3F3F4F4F4F4F5F5EBEDF9FBFBE5E8E1EFEF - EFF6F6EFF6EFF0F0EBE9E3F7F7F7F7F7E5E5E5E5E5E4E5E4E409FE2B3F3A3B3D - 3D3D3D3D3D3D3D3D4242424046464E725A5A7E7E5E5EB7B7C9B8023B3B3B3D3B - 3D3D3D40403E3E4444491F1F2653535357235757565676745674565D724262FE - 08E9E9EAEAE9E9EAE9E9E9E9EAEAE9E9E9E9EAE9EAE9E9EAEAE9EAE9E7E1F6F0 - F6EEFAFCEDDFDFDFDFDCDFDCDCDCF3F3F3F3F3F3F4F4F4F4F5F5F5F5F5EBEDF8 - FBFBE6E8EBEFEFF6EFEFF6F6EFF0E1EBEAEEE5E5E5E5E5E5E5E4E4E4E409FE2B - 3C3A3B3D3D3D3D3D3D3D3D424242405146464E725A5A5E5E5E5EB78AB8A8023B - 3B3B6A3D3DA242403E3E44444943435353535D29575656767474745C74567657 - 7E5162FE08E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9EA - E1F6EFF6E2F7FCE4F3DFDFDFDFDCDCDCDCDCDCF3F3F3F3F3F4F4F4F4F4F5F5F5 - F6F6F6EFE1E8F7FBFBF8EEE7EFF6EFF6F6EFF6F6EFE1E1EAE8E4E5E5E5E5E4E4 - E409FE2A3C3A3B3D3D3D3D3D3D423D4242424046464E725A7E5E5E5B5B5EC9B7 - B8B8023B3B3B3D3D3D4040403E46444949435353535D57745C565C5C74745C5C - 595C50577E5163FE08EBE9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9 - E9E9E9EBF0F6EFE1E4FBF7F3DFDFDFDFDFDFDCDCDCDCF3F3F3F3F3F3F4F4F4F4 - F5F5F5F5F6F6F6F6F6F6EFE1E8E5FBFAF1EEEAF0F6F6EFF6F6EFF6EFE1E1E7E2 - E3E5E5E4F8DBFE2A41473B3D3D3D3D3D3D42424242424046464E725A5E5E265E - 5B5EB7C9B8A8023B3B3B3D3DA23D403E3E44444953265353575676745C5C5C59 - 595F7D7D597D7D565D2887FEDBEFEBE9E9E9E9E9E2E9E9E9E9E9E9E9E9E9E9E9 - E9E9E2E9E2E9EBEAF6F6F0EEFAF7F3DFDFF3DFF3DFDCDCDCDCF3DCF3F3F3F3F4 - F4F4F4F4F5F5F5F5F6F6F6F6F6EFEFEFEFEFE1E2E5FAFAF1E3E9F0EFF6F6F6F6 - EFEFF0F0EBE9E3E4ECFE0B2A413B3D3D3D3D3D3D3D3D4242424040464E725A5A - 5E5E5E5D5D5DC995B8A8023B3B3D3D3D4040403E3E4444435353575756745C5C - 5F5F7D7D7D7D7D7D7D7D7D50577E85FEFEE2EFEBE9E9E2E9E9E9E2E9E2E2E9E8 - E9E9E9E2E2E9E9E9E7E1EBEFF6E7EEF9E5F4DFF3DFDFDFDFDFF3DFDCDCDCF3F3 - F3F3F3F3F4F4F4F4F4F5F5F5F6F6F6F6F6EFEFEFEFEFEFEFEFE1E9E5FAFAF1E3 - E8F0F6F6F6F6EFF6F6F0E1E3DBFE2A3C3A3B3D3D3D3D3D3D4242424240405146 - 4E725A7E5E265D5D5D5D9595B8BA023D3D6A3D403D40403E6B44494353235774 - 5C5C5C5F5F7D7D7D7D7D817D7D7D7D5F5C5E772FFE09F0F0F0EAE2E2E2E2E2E2 - E2E9E2E9E2E2E2E9E2E9EAE1EAEFEFEFE5E6FBE3F4DFDFDFDFF3DFDFDFF3DFDC - DCDCF3F3F3F3F3F3F4F4F4F4F5F5F5F5F5F5F6F6F6EFF6EFEFEFEFEFF0EFF0F0 - F0EAE4FAFAF1E5E8EBEFF6F6F6EFEFE0FE063F413B3D3D3D3D3D3D423D424242 - 4040464E4E725A7E265D5D5D5D5DC9C9B8BA023B3D3D3D3DB4403E3E44444353 - 5357565C5C5F5F7D7D7D7D818181818181817D7D5C767E2DFEFE64EAF6EFE1EA - E9E2E2E2E2E2E2E2E2E2E2E2EAEBF0F0F6F6EDFCFAFCE2F3DFDFF3DFDFDFDFF3 - DFDFDFDCDCDCF3F3F3F3F3F3F4F4F4F4F4F5F5F5F6F6F6F6EFF6EFEFEFEFEFEF - EFF0F0F0F0F0F0F0EAE3FAFAF1FAEEEFF6EFE709FE623C3A3B3D3D3D3D3D3D3D - 3D42424240404646725A5A5E265D5D5D5D8495B8B8A8023D3D3D403D403E3E3E - 4449435357565C5C5F5F7D81818181818A81818181817979815C5D7A2EFEFE2F - F20AF6E1F0EBE7E9E2E2E2E2E9E9E7E1F0EFF6F0E4FDECDEFD09EBDFF3F3DFF3 - DFF3DFDFDFDCDFDCDCDCF3F3F3F3F3F4F4F4F4F4F5F5F5F6F5F5F6F6F6F6EFEF - EFEFEFEFF0EFF0F0F0F0F0F0F0F0F0E7F2E5E7EFEFF0FAFE0B3F41473D423D42 - 3D3D4242424242425146464E725A7E5E5B5D8484295D95B89ACA023D3D3D3DB4 - 403E3E444443435357745C5F5F5F8181818A8A7979798A797979797979815C5D - 722EFEFE07FAFAE8F0F60AF0E1EBE7E7EBE1EFF6F0EDE0ECECECECEC07ECECEC - F2F8E8E1DFDFDFDFF3DFDCDCDCDCDCF3F3F3F3F3F4F4F4F4F4F5F5F5F5F6F6F6 - EFEFEFEFEFEFEFF0EFF0F0F0F0F0F0F0F0F0F0E9FBE8EFF6EF0506FE2F3C473B - 3D3D3D3D3D3D3D3D424242404046464E725A5E5E5D298484848496B89ACA023D - 3D404040403E3E44444353574B5C597D7D818181798A8A838383787879837978 - 798A7D5C5D722EFEFE09F2FAFBF8E8EFF6EFE1EFEFF0EDE0ECECECECE0E40AFB - ECFDDEECECECECECDEF2E5E2EFF3F3F3DCDCF3F3F3F3F3F4F4F4F4F4F5F5F5F5 - F6F6F6F6F6EFEFEFEFEFEFEFF0EFF0F0F0F0F0F0F0F0F0F8E5EBF6F60A09FEFE - 2A41473D42423D3D423D3D424242425140464672725A265D5D848484848496B8 - 9CCA023D3DA23D403E3E6B6B43434D4B745C5F7D81818A8A8A838A8383838383 - 83838383787981815C5D722DFEFEFE08ECE0FAF1E5E3F7FCDEECECECECF2E50A - 040404FBECFCF7E6FAF2FDDEECECECECECFDFBE3EAF5F3F3F3F3F3F4F4F4F4F4 - F5F5F5F5F5F6F6F6F6F6EFEFEFEFEFEFEFF0F0F0F0F0F0F0F0F0E9FAE8EFF6E1 - DEFEFE6241473D3D423D3D423D424242424242405146464E497E5E5D5D848484 - 8484B8B8A8CA023D3D4040403E3E6B6B4345534B5C597D81818A8A8383838383 - 838383838383838378787879545C577E880B0BFEFEFEFEDB08ECECECECECF2E4 - 0A040404040404FBECFCE6F7F7F7E5E5F7FAF2FDECECECECECECE0FAEEE7F3F3 - F4F4F5F5F5F5F5F5F6F6F6F6F6EFEFEFEFEFEFF0EFEFF0F0F0F0F0F0F0F0F8EE - F0EFF0FBFEFE2F41473D424242423D423D3D42424242404246464672497E5D5D - 84845C848484B8B89CCA023D4040B4403E3E6B44434570745C7D7D818A8A8383 - 838383838990838383838383838378797981505C535A882D2F0BFEFEFE07ECF2 - E40A040404040404040404FBECFCE6F7F7E5E5E5E5E4E4E3E3E5FAF2FDECECEC - ECECECE0F1EDEBF4F5F5F5F5F5F6F6F6F6F6EFEFEFEFEFEFEFF0F0F0F0F0F0F0 - F0EDF7E7F6F6E5FEFE2F41473D3D4242423D3D3D424242424240405146464E72 - 7E5E5D5D848461848484989ACACA02403D40403E3E3E6B4443534B5C5F7D8181 - 8A8383838383908390837C9083837C7C83838378787981505C56534372518762 - 2FECEC0A040404E104040404040404FBECFCF7F7F7F7E5E5E4E4E4E3E3E3EEEE - EEEDE5FAF2FDECECECECECDEF2F7E8E1EFEFF5EFEFEFEFEFEFEFEFF0EFF0F0F0 - F0F0F0F0E7F1EAF6F6E5FEFE2F41473D42424242424242424242424242424051 - 46464E5A7E5E5D84848F8F8F8F8F98B8CACA023D4040B43E3E6B4449454D4B5C - 5F7D8179798383839089908989897C9089907C7C7C838383787979795050744B - 704346473F07EC0A0A04040404040404040404FBECFCE6F7F7F7E5E5E4E4E4E3 - E3E3EEA0EDEDEDE8E8E2E8E4F9F2DEECECECECECFDFCE5E9F0EFEFEFEFEFEFEF - F0F0F0F0F0F0F0EDFAEDF0F0FDFEFE2F413B3D42424242424242424242424242 - 42404046464E725A7E265D848F8F8F8F8F849A98BACA02404040403E3E6B4443 - 454556747D818A8A83838390899089898989898989897C907C83838379585858 - 79547D50504D494241ECEC0A0404E10404040404040404FCECF2E6F7F7E5E5E5 - E5E4E4E3E3E3EEEEEDEDE8E8E8E2E2E2E9E9EAE2E4F9E0DEECECECECECFDFBEE - EBEFEFF0EFEFF0F0F0EBF7FCE5EBE208FEFE2E41473D42424042424242424242 - 4242424240404046464E727E5E5D845C8F8F8F8F8F8F9A9ACACA0240B440403E - 3E6B4443454D4B597D81818A83838989899089898989898989897C7C7C837C83 - 8378787954546E55554843514707EC0AE104040404040404E2F8FDECECECECEC - DEE0F9F7E4E4E4E3E3E3EEEEEEEDEDE8E8E2E2E9E9EAEAEAE7EAE7E7E2E4FAE0 - ECECECECE0F0EFEFF0F0F0F0E3FCFBE4EAF9DBFE096447474242404040424240 - 4242424242424240424040464E4E725A5E5D84618F8E8E8E8E8F9A9ACACA0240 - 40403E3E3E6B4443434D74507D818A8383838989898989898989898989898989 - 8989837C83787879795454505048534647ECEC0A0404040404E8FADEECECECDE - FBE0ECECECECECECECDEF2F9E4EEEEEEEDEDEDE8E8E2E2E2E9E9EAEAEAE7E7E7 - EB0AEBEBEBE2FCECECEBEFEFEFF0EBF9FBE3EAEBDEFEFEDE67473D4240404040 - 404042424242424242425140404046464E725A5E5B5D848F948D94948E8F9A9A - CAC2024040B43E3E3E6B4343454A747D7D818A83839089898989898989898989 - 89898989897C7C83838378795479545555484D4E4707EC0A040AA0F2DEECECEC - DEF9E9D9DDDDDDEBEDF1F2ECECECECECECECDEF2F1E3E8E8E8E2E2E9E9EAEAEA - EAE7E7E7E7E7EBEBEBEBE7DEECEBEFEFE7E3FBFBF8F8DEFEFEDBDE6885424046 - 3E463E40404040404242424240424040404046464E495A5E5D84848F8E8D9394 - 8E949A9CCAC2024040403E3E6B6B4343454B5C7D7D818A838389898989898C89 - 898C898989898989897C897C7C78787879546E6E505045443DECECF7F2ECECEC - B3D1D4D4D7DDDDDDDDDDDDDDDDDDDDDDEBE8E6F2DEECECECECECECDEFCE6EEE2 - E9E9EAEAEAE7E7E7EBE7EBEBEBEBEBDEECEDEAE6FCFCDEDBFEFEFEFEE0D86651 - 51463E463E46463E4040405142424240424040404640464E72495A265D848F8E - 8D9393938E8E9C9CCAC20240403E3E3E6B444443454A747D7D8A838389898989 - 898C898C8C89898C898C898989897C7C8383835858796E6E55504B4342ECECEC - ECEC0708B3D0D3D3D3D3CFCFCFD5D7DADDDDDDDDDDDDDDDDDDE1E8E5FCFDECEC - ECECECECFDF2F7EDEAEAE7E7E7EBE7EBEBEBEBDEEC09ECEC09FEFEFEFE09FAA0 - D19F604E4444443E3E46464040404040514042425140515146464E4E725A5E53 - 848F8F8D93939393938D9C9CCAC2024040403E3E6B6B4443454B507D818A8383 - 898989898C898C89898C8C898989898989897C7C7C8378787979545555504843 - 442D07ECEC07DBD2B3CED3D3D3D3D3D3D3D3D3CFCFD5D5D7DAD9D9DDDDDDDDDD - DDDDF0E9E4FCFDECECECECECECFDFCF7EDEBEBEBEBEBEBF8EC07FEFEFEFE0B2E - 8867D19F7E72491F1F49443E4E46463E46404040405151404040404046464E72 - 497E5E5D848F8E939395959593949CCACAC20240403E3E3E3E4443434D4B507D - 818A83908989898C8C898C8C898C8C898C898C898989897C838378787979546E - 6E50746C433E0707ECECECD2B3D4D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3CFD5D5 - D7DADAD9DDDDDDDDDDDDDDF6EAE4FAE0ECECECECECECFDFCF7EDE7E4EC080B2F - 2D827E5D5D5D5D5B53532653434949443E4E4E46464646514051514051464646 - 464E4E72492653845C8F9493959595959593CA9CC2C20240403E3E3E6B44B543 - 4D4B507D818A838389898989898C8C898C8C8C8C8C898989897C898983838378 - 58796E556E50504845434642872EDBB3B3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3CFCFD5D7DADAD9D9DDDDDDDDDDDDF6E7E3F9E0ECECECECECECEC - EC0842725B5C5F817D8159507457234D43434949444E4E464646464651404040 - 464646464E4E4E495A5E5D848F8E8A959595969595959C9CC2C202403E3E3E3E - 6B4443434D74507D798A83898989898C8C8C8C8C8C8C8C8C8C89898989897C7C - 7C7C785858796E54505050486C4543463D4163B3D1D3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3CFD5D7DAD9D9D9D9DDDDDDDDDDDDE72F - 08ECECEC076449748158837C8383797D50504B4D45434949444E4E3E4E464646 - 46464046464646464E4E72497E5B5D618E8D9395969696969595CACACAC20240 - 3E3E3E3E6B4443434D48507D8183838989898C8C8C8C8C8C8C8C8C8C8C8C8C89 - 8989897C838383785854546E505050481E6C4544424764B3D0D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3CFD5D7DAD9D9D9 - DDE1E407ECECEC07825E565458898989898378797D50744D53531F4944444E4E - 3E464E4646464646463E464E4E72721F5E5D848F8E9395969696969696959CCA - C2C20240403E3E3E6B6B43454D74507D81838389898996968C8C8C8C8C8C8C8C - 8C8C898C8989897C7C8383785879546E6E505050486C4549516265B3CED3D3D3 - D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3 - D3D3CFD5D4F2ECECEC086472265255587C738C8C8C898379815974564D534349 - 4949724E4E4E4E4646464646464E4E4E72725A7E5357848E9395969698989896 - 96909CCAC2B202403E3E3E6B6B6B43454D74507D798383898989898C8C8C8C8C - 8C8C8C8C8C8C8C8C8989897C7C7C83787979546E556E5048484B45494241D2B3 - CECFD3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3D3D4D1D264474244535055587C898C8CA58C898358817D744B - 7053431F1F4949444E4E4E464E4E46464E4E4E72725A7E535D295C8E93959698 - 989898989696CACAC2C202403E3E3E3E6B4443454548507D7983839089898C8C - 8C8C8C8C8C8C8C8C8C8C8C898989897C7C837878587954545550504848484549 - 3D41D2B3D4D3D3D3CFD3D3D3D3D3D3D3CFD3D3D3CFD3D3D3D3D3D3D3D3D3D3D3 - D3D3D3D3D3D3D3CFD3D3D3D3D4B3D28786444A50544F71898CA5ABAB8C8C8983 - 817D5074224D53431F1F4949444E4E4E4E4646464E4E725A725A5A265D848F8E - 95969698989A989898969DCAC2CB0240403E3E3E6B4443454D74507D79838389 - 8989898C8C8C8C8C8C8C8C8C8C8C8C898989897C7C7C8378584F6E6E55505050 - 504B454E3D63B3D1CFCFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CFD3CF - D3CFD3CFD3CFD3CFD3CFD3D3D3CFD3CFD4D2D23A465350554F58718C738B8B8B - A58C898958547D50564D4343435A1F494E4E724E4E4E4E4E4E72725A495A5E53 - 5D5C8E939596989A9A9A9A989896C2CAC2B20240403E3E3E6B6B43454D74507D - 7983838989898C8C8C8C8C8C8C8C8C8C8C8C8C8C8C898989837C8378794F4F6E - 6E505050504B2646472EB3D1CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF - CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFD3D4D2D247724D5554584C6F8C - 8B8B8B8B8B8C897C78817D50744B5343431F4949724E4E4E4E4E4E4E7272725A - 5A5A265D848F8E939596989A9A9A9A9A9898CACAC2B202403E3E3E3E6B6B4343 - 4D4850548183838989898C8C8C8C8C8C8C8C8C8C8C8C8C898989897C7C7C7C78 - 7858546E6E505050484B53464765B3D6CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCF - CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFD3CED26686491E2058 - 587C8C758B8B97978BA58C8983587D595C4B70532643261F5A5A72724E5A7272 - 72285A5A7E26535D848F8E9096989A9A9C9C9A9A9A989DC2C2CB0240403E3E3E - 6B4443434D74507D7983838989898C8C8C8C8C8C8C8C8C8C8C8C8C8C8989897C - 7C7C7C787858586E556E5050507443514167B3CED5CFCFCFCFCFCFCFCFCFCFCF - CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFD0D26540 - 4350544C716F73A57BAAAAAA808B8C897C588150744B4D534326431F49497272 - 5A72727272725A1F265E5B5D5C8E8A9596989A9C9C9C9C9A9A98C2CAB2CB0240 - 403E3E3E6B4443434D4B507D7983838989898C8C8C8C8C8C8C8C8C8C8C8C8C8C - 8C89897C7C837883785854546E505550554B5A4241D2B3D4CFCFCFCFD5CFCFCF - D5CFD5CFCFCFD5CFD5CFCFCFCFCFCFCFD5CFCFCFCFCFCFCFCFD5CFCFCFCFCFCF - D1D22D4E4D504F717173737B977FAAAA978BA5897C78817D5074705353264349 - 1F5A72725A727272725A7E7E43265D848F8E9395989A9C9C9C9D9C9C9A98C2C2 - C2CB0240403E3E3E6B6B4343454B507D81838389898C8C8C8C8C8C8C8C8C8C8C - 8C8C8C8C8C898989897C7C8378584F5854546E55594B4E8662B3B3D5D5CFD5D5 - CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFD5CFCFCFD5 - CFCFD5D4B3D286494A554F717173A57BAA92AC92AA8BA58C7C838A7D50744B23 - 53264326495A5A5A727A725A5A5A495E5E535D848F8D9596989A9C9C9D9D9C9C - 9C98C2C2B2CB0240403E3E3E6B4443434D4B507D8183838989898C8C8C8C8C8C - 8C8C8C8C8C8C8C8C8C8989897C7C7C7878585854546E6E6E4853464764B3D1D5 - D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5 - D5D5D5D5D5D5D5D4D2D23D49484F4C716F737B8BAA929292AA978B8C8983797D - 7D505723535326261F1F495A5A727272725A5A5A535B84848F8D9596989A9C9D - 9D9D9D9C9A9AC2C2CBCB02403E3E3E3E6B6B43434D74507D79837C8989898C8C - 8C8C8CA58C8C8C8C8C8C8C8C897389897C7C7C837878584F5455545548435147 - D2B3A0D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5 - D5D5D5D5D5D5D5D5D5D5D5CED266514350584C6F6F737B8092929292AC808B8C - 897C7954595C56702353261F5E1F5A7E5A725A725A5A7E535B5D845C8F8A9596 - 9A9C9D9D9D9D9D97979AC2C2CBCB0240403E3E3E6B4449434D4B507D79839089 - 89898C8C8CA58C8C8C8C8C8C8C8C8C8C8C898989897C7C7C787858584F6E6E50 - 48494241B3D2D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5 - D5D5D5D5D5D5D5D5D7D5D5D5D5D50AD0D265464D554C716F73737B7F92999292 - ACAA8BA5897C79797D5C4B57235326267E5A5A7E5A5A5A7E5A7E5E5E5E5D845C - 8E8A96989A9C9D9D9D9D9D9D9C9AC2C2CBCB0240403E3E3E6B6B44434D48507D - 8A839089898C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C7C897C897C7C7878584C - 4F546D6E48494263D2D1D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5D7D5 - D7D5D7D5D5D7D5D5D5D7D5D5D5D5D5D5D5D5CFD1D288491E204C6F6F73A57B7F - 9299999992AA8BA5898358797D5C4B56575B2626261F5A5A7E5A7E5A1F7E7E26 - 295D5C8F8D9596989A9C9D9E9D9D9D9D979ACBC2CBCC0240403E3E3E6B6B4343 - 4548507D79839089898C8C8C8C8C8C8CA58CA58C8C8C8C8C8C8C8C8989897C7C - 7C7878584F4F4F504A493D64B3D0D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7 - D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D4D2D24243246D716F7C - 737580A39299999992AAA8AB8C7C83797D74744B295B26267E7E5A495A7E7A7E - 7E7E7E5E5B5D848F8D9396989C9C9D9E9E9E9D9D979AC2CBCBCC0240403E3E3E - 3E4444434D4B507D8A838389898C8C8C8C8C8C8CA5A58CA5A58C8C8C8C8C8C89 - 7389897C7C7C7178584F4F6E706B8765B3D8D7D7D7D7D7D7D7D7D7D7D7D7D7D7 - D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D5D6D266515354 - 4C716F73737580929299999992928BA5898983817D50745657535326261F5A7E - 7E7E7A7E7E7E5E265D27847D8A9596989C9D9D9E9E9E9D9D9C97CBC2CCCC0240 - 403E3E3E3E6B4443454B507D8A8390898C8C8C8C8C8C8CAB8C8C8CA58CA5A58C - 8C8C8C8C897C897C7C7C71714C4C54554D7741D2B3D4D7D7D7D7D7D7D7D7DAD7 - D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7D7DAD7D7D7D70AD1D2 - 82494B6E4C716F73738B7F929999A999BB92808B8C7C838A7D597429235B2626 - 5A495E7E7E7E7E7E7E7E5E5E29295C8E8A95989A9C9D9E9E9E9E9E9D979ACBCB - CBCC0240403E3E3E3E6B43434548507D79838989898C8C8C8CAB8CABABABA5AB - A5A5A5A58CA58C8C8C8C8C89897C7C7C714C4F50534263B3D2D7DAD7DADAD7DA - D7DAD7DAD7DAD7DAD7DADAD7DAD7D7DAD7DAD7D7DAD7D7DAD7D7DAD7D7D7D7DA - D7D4D2D2421F484F4C6F7373737B7F9299AEAE999292808B8C8983797D505C56 - 575326265E5E7E5E7E7E7A7E5E7E5E5D5D848F8E9395989A9C9E9E9E9E9E9E9D - 9C9ACBCBCBCC0240403E3E3E6B6B4343457450548A839089898C8C8CAB8CABAB - A5ABABABABA5A5A5A5A58CA58C8C8C89737C7C7C7C714F74438664B3D1D9DADA - DADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADA - DADADADAD7D6D266464D554F6F6F6F73757B7F929999AFAE9992AA8B8C898379 - 7D7D745656535B53535E7E7E7E7E7E7E7E5E5E5D5D845C8E8A96989A9D9E9E9E - 9E9E9D9D9C9ACBCBCCCC0240403E3E3E3E6B4443454B7D81798389898C8C8C8C - ABABABA5A5ABA5ABA5A5A5A5ABA5A5A58C8C8C738C8C89736F6F4F50728767B3 - D8DADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADA - DADADADADADADADA0AD1D2827A744F4C716F737373807F9299AFAF999992AA8B - 8C89838A817D5C56575D5B2626267E7E7E7E7E7E7E5E5E5D575C8F8D9096989C - 9D9E9EB2B29E9E9D9C97CBCBCCCC0240403E3E3E3E444943454B7D7D79838989 - 8C8C8CABABA5ABABABAB8BABABABAB8BABABA58BA5A5A58C737373737C717957 - 4687D2B304D9DADAD9DADADADADADADADADAD9DADADADADADADADADADADADADA - DADADADADADADADADADADADAA0D2D25143504F71716F6F73757B7F92A9AFAFAE - 9992978B8C8983797D5F5C56575B5B26265E7E7E7E7E7E7E7E5E5E5B845C8F8A - 9596989C9D9E9EB29E9E9E9D979ACCCBCCCD024040403E3E3E6B6B434D74507D - 8A8389898C8C8CABABAB8BAB8BABAB8B8B8B8B8B8B8BA5AB8BA5A5A5A5A57389 - 7378555E8664B3D1D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9 - D9D9D9D9DAD9D9D9D9DAD9D9DAD9D9D705D2654E4A504F4C6F6F7373757B7FA7 - 99AFAFAE9992AAA58C89838A7D7D7474575B265E267E7E7E7E7E7E7E7E5E5E5B - 298F8F8D95969A9C9D9EB2B29E9E9E9D979ACCCBCCCC024040B43E3E3E6B4443 - 454B50818383898C8C8CA5ABABABAB8B8B8B8B8BA88B8BA88B8B8B8B8B8B8B8B - A5A573757C78745A8767D2D8D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9 - D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D90AD2D2881F486E4F71716F7373 - 757B7FA799ADAFAF9992AA8B8C7C83797D597656575B2626267E7E7E7E7E7E7E - 7E7E5E5D5D848F8D95969A9C9D9E9EB2B29E9D9D979ACCCCCCCD0240403E3E3E - 3E6B444345745081838389898C8CA5ABAB8B8B8BA8A8A8A8A88BA8A8A88B8B8B - 8B8B8B8B8B7B75737C5453852DB3D2D9DDD9DDD9D9D9D9D9D9D9D9D9D9D9D9D9 - D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9D9DDDAD6D267465350204C4C - 71716F73758092A7AFAFAF999992AA8B8C8983797D505C74295B5B267E5E7E7E - 7E7E7E7E7E7E265D765C8F8A95969A9C9E9EB2B29E9E9E9D979ACCCCCDCD0240 - 40403E3E6B6B444345747D818383898C8CABABAB8BA8A8A8A897A8A89797AAAA - A8AAA8A8808B8B808B8BA58978747A47D2B3D8DDDDDDDDDDDDDDDDDDDDDDDDDD - DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD9DDDDD9DD04D1D264494B - 55204C4C4C6F7373757BA39999AFAFAF9992978B8C8983797D595C76575B265E - 5E7E7E7E7E7E7E7E7E7E5E5D295C8F8A90989A9C9E9E9EB29E9E9E9D979ACCCC - CDCD0240403E3E3E3E6BB54370747D798389898C8CABAB8BA8A88B9797AA97AA - AAAAAAAAAAAAAAAAAAAA7F8B8BA58C7C7D7E8564D2D2D9DDDDDDDDDDDDDDDDDD - DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDE2D2 - D251265255204C4C716F7373757BA392AFAFAFAE9992AA8B8C8983817D5C7457 - 575D265E265E7E7A7E5A7E7E7E5E5E5D848F8F9395989A9D9E9EB2B2B29E9D9D - 979ACCCCCDCD0240403E3E3E6B44434370507D798389898CABAB8B8B97979797 - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA80A57C795D8863D2B3E8DDDFDFDDDFDF - DDDFDDDDDFDDDDDDDFDDDFDDDFDDDFDDDFDFDDDFDDDDDFDDDDDFDDDDDDDDDDDD - DFDAD1D2654E4D50554F4C4C716F73737580A399A9AFAFAE9992808B8C89838A - 505074575B5B26267E7E7E7E5A5A7E7E7E5E5E5D845C7D8A90989A9D9EB2B2B2 - B29E9E97979ACDCCCDCD0240403E3E6B6B6B43436C50548A7C898CABAB8BA8A8 - 97AAAAAAAAAAAAACACACACACAC92ACACACAAAAAA80A5898F7A2DD2B3F8DDDFDF - DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF - DFDFDFDDDCE9D2D2421F5255204F4F4C716F6F7375809299AFADAFAF9992AAA5 - 8C8958797D5C27575B26265E7E7E7E5A7E7E7E7E7E5E5E5D848F8E8A90989A9D - 9E9EB2B29E9E9D9D979ACCCCCDCD0240403E3E6B446B43454B50547889898CAB - 8B8B9797AAAAAAAAACACACACACACAC9292ACACACACA3A3AA8BA5838482D2B366 - DD01DF01DFDFDF01DF01DFDFDFDFDFDFDFDF01DFDFDFDFDFDFDFDF01DFDFDFDF - DFDFDFDFDFDFDF01DA05D2654E45505520204C4C6F6F7373757B92A6999BAFAF - 9992AA8B8C8978797D5C5C575353265E5E7E7E7E7E5A7E7E7E5E265B848F8E93 - 96989C9D9E9EB2B29E9E9D9D979ACDCCCDCD02403E3E3E6B446B434548507983 - 898CABAB8B97AAAABAACACACACACBBBB92BBBBBBBBBBA7929292A39280A590D2 - B3D2D1E7F0E1DFDFDFDF01010101010101010101010101010101DF010101DF01 - 01DF01DFDFDF01DFDF010101E7D2D2881F746E544F4F4F4C716F7373757BA399 - A99BADAE999280A58C8978817D505C57575B265E7E7E7E5A7E5A7E7E7E7E5E5D - 298F8E9396989C9D9EB2B2B29E9E9D979AABCCCCCDCD02403E3E3E446B6B4345 - 48557983898CAB8BA897AAAAACACACBBBBBBBBBBBB99BB99A7BBA7BB92A7AC92 - 7F8B89B3B3B3B3B3B3DED1D1D105D6D6E6A0A0A0E7EBEBEFF4F4DF0101010101 - DF0101010101010101010101010101F0D1B3655A23506E4F4F4F4C4C716F7373 - 75809299AFAD9BAE999297A58C7C78815F2456575B265E5E7E7E7E7A7E7E7E7E - 7E5E5E5D848F8E9396989C9D9EB2B2B2B29E9D979A9ACDCDCDCD02403E3E6B6B - 44434345747D797C8CA58BA8A8AAAAACACACBBBBBBBB9999B9B999B99999A6A7 - A7A7A7A7AC80A5676767D2D2D2D1B3B3D2B3B3B3B3D1B3D1D1D1D1D1050505D8 - D6D8A0E8E2EA0AEBEBEFF6EFF3DFDF0101DFD9D6D2D251534850542020204C4C - 716F6F73758092A6AFAD9BAF999297A58C7C83817D7456235B265E7E7E7E7E7E - 7A5A7E7E7E5E5B29848F8E9596989C9E9EB2B2B29E9E9D979A9ACDCCCDCD023E - 3E3E446B4343456C505478898CAB8B97AAAAACACBBBB999999B9B9AEAEB9AEB9 - B9A69999B999A7A792AA80A589898A8A8E946161619F9F9F6666666767D267D2 - D2D2B3D2D2D2B3B3B3DED1D1D10505D6D8E3A0E8EAE7E3D2D2911F4B50542020 - 204C4F4C716F6F73758092A6AD9BAFAF999280AB899083817D7474235B261F7E - 7E7E7E5A7E5A7E7E7E7E5E5D848F8E95969A9C9D9EB2B2B29E9E9D979AABCDCC - CDCD023E3E3E444443436C6C50798389A58B97AAAAACACBBBBB9B999B9AEAEAE - AEAEA9A9AEAEA9B9A6A699A6A792A37F8075A5736F71784F546E5050745C7676 - 619161919F9F66669F66666666676767D267D267D2D2D2D2D2D2D2D29F494A50 - 55544F54206D4C4C716F6F7375809299AF9B9BAF999297A58C8378815F5C5629 - 53435E7E7E5A7E7E7A7A7E7E7E7E5E5D848F9495969A9C9EB2B2B2B29E9E9D97 - 9A98CDCDCDCD023E3E4444434345454B5079838CA58B97AAACACBBBBB9AEAEAE - AEAEAEAEAFAFAFA9A9A9A9AEA699A6A6A6A4A4A3A37F807B757573736F6F4C6D - 6D6D6E50504848486C4D5345434326265A919191919F9F9F666666B367D2689F - 436C5050204F4F4F204F4C4C716F6F73758092A9AF9B9BAF99AC97AB897C8A7D - 7D5C56295B265E7E7A7E7E7E7A7A7E7E7E7E5E5D848F9495969A9C9EB2B2B2B2 - 9E9E9D979AABCDCDCDCD023E3E6B444343456C4850797C8CABA8AAACACBB9999 - AEAEAEAEAEAFAFAFBEBEAFAFAFAFA9A9A9A9A6A6A6A6A7A4A3A37F7F7B7B7575 - 73736F6F6F4C4C4C6D6D6D6E505550505050481E4B4B2370232653262649495A - 491F43534824506E204F54206D4C4C4C716F737375809299AD9BADAF999280AB - 8C83797D7D74565B5B267E7E7E7A7E7E7A7A7A7E7E5E5E5D848F8D95969A9D9E - B2B2B2B29E9E97979A98CDCDCDCD026B44441F43434548487D78898C8BAAAA92 - BB99B9AEAEAEAFAFBEBEBEAFBEBEBEBEAFADA9AFA9A9A9A6A6A6A7A4A4A3A37F - 807B75757573736F6F6F4C4C4C6D4C6D6D4C6D2020556E6E5050505050525252 - 2452484B564B48745055556E55204F204F20204C6F6F6F73758092AFAD9B9BAF - 99AC97AB89838A7D5C5C56295B5E265E7E7A7A7E7E7A7A7A7E7E5E5D848F8D95 - 969A9D9EB2B2B2B29E9E9D979A98CDCDCDCD024E44441F4345454850547C89A5 - A8AAAC929999AEAEAFAFAFBEBEBEBEBDBEBEBEADADADADA9AFA9A9A9A6A6A7A4 - A4A3A37F7F807B7575736F6F6F6F6F6F4C4C4C6D204C204C4F6D20206E205455 - 5555555555505550555059556E55556E206E4F6D4F4F4C4C716F6F737580A799 - AD9B9BAF999297A58C838A7D505C295B535E7E7E7E7A7E7A7E7A7A7E7E7E5E5D - 848F9395989A9D9EB2B2B2B29E9E9D9AABABCDCDCDCD0244441F4343456C4850 - 547C8CA5A8AAACBBB9AEAEAEBEBEBEBEBEBEBDBDBE9BBEBDADADADADADA9A9A9 - A6A6A6A7A4A4A37F7F7B75757373736F6F6F6F6F4C4C4C4C6D4F4F4C4F6D2055 - 6D6E555554542055556E5455555554555555206E206E4F20204F6D4C716F7373 - 757F9299AD9B9BAF99928BA5897C797D5C5C295B5B7E7E7E5A5A7E7A727A7A7E - 7E7E5E5D848F9390989C9D9EB2B2B2B29E9D9C9A9A98CDCDCDCD024444434343 - 454A4850797C8C8BAAACBBBBAEAEAFBEBEBEBEBDBEBD9BB0BD9BB0BD9BADBDAD - ADADA9A9A9A6A6A7A4A4A3A38080757575736F6F6F6F6F6F4C4C4C6D6D4C4F6D - 6D2020555420556E6E5520555454546E6E555555542055545420544F204F4F4C - 716F6F737B8092A99B9B9BAF999297A58983797D595C575B265E7E7E5A7A7A7A - 7A7A7A7E7E5E5E5D848F9390989C9D9EB2B2B2B29E9D9D9AAB98CDCDCDCD0249 - 441F43456C1E506E787CA58BAA92BB99B9AFBEBEBEBEBE9BBDBDB0BDB0B0BDBD - BDBDADADADADADA9A9A9A6A6A7A4A47F807B7B7573736F6F6F6F4C4C4C4C4C4C - 4F20204F204F2054556E55555520556E54545455555555555554552054546D6E - 6D4F4F4C4C6F7373757FA4AEAD9B9BAF99928BAB8983797D5074565D267E7E7E - 5A7E7A7A7A7A7A7E7E7E5E5D848F8D95989C9E9EB2B2B29E9E9D979A988CCDCD - CDCD021F1F43534D4A48506E787CA58BAABB99AEAEBEBEBEBD9B9BB0B0BFBFBF - B0B0BDBFBDBDBDBDBDADADADA9A9A6A6A6A4A3A37F80757575736F6F6F6F6F6F - 4C4C4C4C4F204C4F6D202055555454556E54555420542054545555546E205454 - 20544F4F4F6D4C4C4C6F6F73757F92A99B9B9BAF9992978C8983795F5027295B - 267E7E5A7A7A7A7A7A7A7A7E7E5E5E5D5C8F9396989C9DB2B2B2B29E9E9D9C9A - 9898CDCDCDCD021F4343454D4B48506E788CA58092BBA7AEBEBEBE9BBD9BBFBF - BFBFB1BFBFBFBFB0BDBDBDBDBDADADADADA9A9A6A4A4A47F7F7B7B7573736F6F - 6F6F6F4C4C4C6D4C4C4C20204F202020546E6E6E545455555555556E55555555 - 205454545554546D4F4F4C4C716F6F737B7FA7AEAD9B9BAF99928BAB8983797D - 5C57575B5E5E7E7E7E7A727A727A7A7E7E7E5E84848E9396989C9EB2B2B2B2B2 - 9E9D9CAB988CCDCDCDCD021F4343456C48486E6E788C8BAAAC99AEAEAFBEBD9B - B0B0B0BFBFBFBFBCBCBFB0BCBFB0BDBDBDBDADADADA9A6A6A6A4A3A380807575 - 75736F6F6F6F6F4C4C4C4C4C4C4C204F4F2054204F5455555555555554555555 - 5555555455552020556E5420206D4C4C716F6F73757F92A99B9B9BAF9992A88C - 8983817D5C57575B7E7E7E7E7E7A7A7A7E7A7A7A7E5E5E5D848E9396989C9EB2 - B2B2B2B29E97979A9896CDCDCDCD021F4345454A48506E797C738BAAACA7AEAF - BE9B9BB0BFBFBFB1BCBCBCC0B1BCBCBCBCBCB0BDBDBDADADADADA6A6A4A4A47F - 7F7B7B7573736F6F6F6F4C4C4C4C4C4C4C6D20202055546E2055555455555420 - 55555554556E5555556E555520555420204F4F4C4C6F73737B7FA7AF9B9B9BAF - 99928BA58983817D5C56295B267E5E7E7A7A7A7A7A7A7A5A7E7E5D84848E9596 - 989C9EB2B2B2B29E9E9D97AB988CCDCDCDCD021F4345457448506E58718C8BAA - BB99AEBEBEBDB0BFBFBFC0BCC0C0B1C0C0C0C0B1C0BCBCBCBCBDBDADADA9A9A6 - A6A4A3A38080757575736F6F6F6F6F4C4C4C4C4F4F6D4F204F20202055556E55 - 555555555555555555555555556E6E556E54204F6D4F4F4C4C6F6F73757FA7AF - 9BB09BAF99AC8B8C8983817D5C565B53267E7E7E7A7A7A7A7A7A7A5A7E5E5E5D - 848E93969A9D9EB2B2B2B29E9E9D9A9A9896CDCDCDCD02435345534B50506E4C - 7CA580AABB99AFAFBEBDB0BFB1B1B1C0C0C0C0C0C0C0C0C0BCC0BCBCBCBDADBD - ADA9A9A6A4A4A3A3807B757573736F6F6F6F4C4C4C4C6D4F6D4C204F6E202055 - 556E5555546E55555555555555556E55556E55555420204F206D4C4C716F7373 - 7B7FA7AF9B9B9BAF99928B8C898381595C235B535E7E7E7E7A725A7A7A7A7A7A - 7E5E5E5D8F9493969A9D9EB2B2B2B29E9D9D9AAB8C96CDCDCDCD021F43454D4B - 505054587CA580AA99AEAFBEBDB0BFBFBFC0C0C0C0C0C0C0C0C0C0C0C0BCC0BC - B0BDBDADADA9A9A6A7A4A4A37F7B7B75736F736F6F6F4C4C4C4C6D4C4F204F4F - 202054205455546E556E55555555555555556E55556E5520546E2020204F4C4C - 4C7173737B7F99AF9BB09BAF99928B8C8978815027565B267E7E7E7A7A7A7A7A - 7A7A7A7A7E5E5E848F8E95969A9D9EB2B2B2B29E9E979AAB9696CDCDCDCD0226 - 53456C48505054587CA58092A7AEAFBEBDB0BFBFC0C0C0C0C0C1C1C1C1C0C0C0 - C0C0BCBCBDBDBDADADA9A6A6A6A4A37F807B757573736F6F6F6F4C4C4C4C4C4C - 6D6D4F206D2020545455545555555555556E5555555555555555555555542020 - 54204C4C716F6F75757F99AF9BB09BAF99AC8B8C89838159742953267E7E7E7A - 727A7A7A7A7A727A7E5E5E848F8D93989A9D9EB2B2B2B29E9E9C9AAB8C96CDCD - CDCD024325534B74506E4F4C7CA5809299AEBEBEB0B0BFC0B1C0C0C1C0C1C1C1 - C1C1C0C0C0C0BCBCBCBDBDADADADA6A6A6A4A3A37F7B757573736F6F6F6F6F4C - 4C4C4C6D4F4F4F20542054542055555454555550556E6E555555555555505555 - 552020204F4F4C4C717173737B7FA7AD9BB09BAF99AC8B8C8979815F74295326 - 7E7E7E7A7A7A7A7A7A7A7A7A7E5E5E5D8F9495969A9D9EB2B2B2B29E9D979A98 - 9889CDCDCDCD0226454D4A74506E5471738B7F92A6A9ADBEBDB0BFB1C0C0C1C1 - C1C1C1C1C1C1C1C0C0C0BCBCBCBDBDADADA9A9A6A6A4A47F8080757573736F6F - 6F6F4C4C6D4C4C4C4C20204F2020205420555455555555555555555555505555 - 55505555542020544F6D4F4C716F73737BA399AF9BB09BAF99928B8C908A7D5F - 565729265E7E727A7A7A287A7A287A7A7E5E5E848F8D90969C9DB2B2B2B2B29E - 9D979AB89696CDCDCDCD0226454D4B74506E547889A5AA9299A9ADBDB0BCBCC0 - C0C1C1C1C1C1C1C1C1C1C0C0C0B1BCBCBCBDBDADADA9A9A6A4A4A3A3807B7575 - 736F6F6F6F4C6F4C4C4C4C4F6D20204F20555455555454556E55555555505555 - 505055555555555554206E204F4F6D4C716F6F737B7F99AD9BB09BAF92AA8B8C - 898A815F565726267E7E7E7A7A7A727A7A7A7A7A7E7E5D848F9395989C9E9EB2 - B2B2B29E9D979A989690CDCCCDCD0225534A4A74506E4F71898B7F9299AFAD9B - BFBFC0C0C0C1C1C1C1C1C1C1C1C1C1C0C0C0BCBCBCBDBDBDADA9A9A6A6A4A37F - 807B7B7573736F6F6F6F714C4C4C4C4F4F4F4F20206E6E556E20545455555555 - 55555555555055505555505454542020204F6D4C4C6F6F737BA3A6AF9BB09BAF - 99AC8B8C7C8A7D5F5629535E7E7E7A727A7A282872287A7A7E7E91848F8D9598 - 9C9DB2B2B2B29E9E9D9A9A988C90CDCDCDCD02532545707450554F7873A5AA92 - B9AFBEBDBFB0C0C0C1C1C1C1C1C1C1C1C1C1C0C1C0BCC0BCBDBCBDADADA9A6A6 - A6A4A47F7F7B7575736F6F6F6F6F6F4C4C4C4F4F204F4F20206E555554545554 - 5455555055555055555050505555555555555520206D4C4C716F6F757BA3A6AD - B0B09BAF99AA8B8C838A7D50272953537E7E5A727A7A282828287A7A7E5E5E84 - 8F9395989C9EB2B2B2B29E9E9D9C9A8C9689CDCDCDCD025353221E50506E7971 - 6F8BAA92B9AFADBDBFC0C0C1C1C0C1C1C1C1C1C1C1C1C1C0C0C0BCBCBCBDBDAD - ADA9A9A6A4A4A3A3807B7B7573736F6F6F4C4C4C6D6D4C4C4F4F4F20206E5454 - 545554545555505055595555505550505559555554205420206D4C4C716F7375 - 7BA399ADB0B0B0AF99AA8B8983817D5C57235B5E5A7E7A7A7A7A7A28287A7A7A - 7E5E5D848F8A95989C9EB2B2B2B29E9D9DABAB969690CDCDCDCD0226234D225C - 59554F71738BAA92AEADADBDBFBCC0C0C1C1C1C1C1C1C1C1C1C1C0C1C0C0BCBC - BCBDADBDADADA9A6A6A4A3A3807B7575736F6F6F6F4C6F4C4C4C4C4C20202020 - 202054545454556E6E555055505550505055555055505555555554204F4F4F4C - 716F6F737BA3A6AD9BB09BAF99AA8B8C83815F5C5623537E7E7E7A7A7A827A28 - 2882287A5A5E5D848F93959A9C9EB2B2B2B29E9E9C9AAB969690CDCCCDCD0253 - 23234B7450545878738BAA92B9AFBEB0BCB1C0C0C0C1C1C1C1C1C1C1C1C1C1C0 - C0BCBCBCBCBCBDADADA9A9A6A6A4A37F7F7B757373736F6F6F6F4C4C4C6D4C20 - 6D4F6D20205454555454545555555550505550505055505055506E5555545420 - 204F4F4C716F73737BA399ADB0B19BAF99AA8B8983797D5C575D265E7E7E7A28 - 7A7A282828287A727E7E5D848F8D96989D9EB2B2B2B29E9D9C9A98B89090CDCC - CDCD022523234B5055545871737BAABBB9ADBEB0BFBFC0C0C1C1C1C1C1C1C1C1 - C1C1C1C0C0C0BCBCBCBDBDBDADA9A9A6A7A4A3A37F80757573736F6F716F4C4C - 4C6D6D4C204F6D6E20206E2020556E5550555550505550505955555055555555 - 55545420204F6D4C4C6F6F757B92A6ADB0B09BAF99AAA58C83817D74575D267E - 7E7A7A827A7A282828287A7A7E5E5D848E9396989D9EB2B2B2B29E9D979A9896 - 8983CDCDCDCD02264D224B50506E78718CA5AAA7AEAFBEBDBFC0C0C0C1C1C1C1 - C1C1C1C1C1C1C0C0C0C0BCBCBCBDBDADADA9A9A6A6A4A37F7F7B7575736F6F6F - 6F6F4C4C6D4C6D4C20202054546E546E6E555555555550505050505055505955 - 55505555552055544F4F4C4C716F73737B92999BB0B09BAF92AAAB8983817D74 - 575B265E7E7E7A282828287A2828827A5A5E5D848E93969A9D9EB2B2B29E9E9D - 9CAB98968990CDCCCDCD025325224B7450554F7C738BAAA7B9ADBDBDBFBFC0C0 - C0C1C1C1C1C1C1C1C1C1C0C1C0C0BCBCBCBCBDADADA9A9A6A6A4A3A3807B7575 - 736F6F6F714C4C4C4C6D4F204F4F20556E545455556E55555555505959505950 - 505050555050556E556E2055206D4F4C716F73757BA3A69BB1B19BAF9997AB89 - 83795F5C575B5E7E7E7E7A28772828282828287A7E7E5D848F93969A9D9EB2B2 - B2B29E9D97AB98969090CDCCCDCD025353231E48507D587C898BAAA7B9AFBDBD - BCC0C0C0C0C1C1C1C1C1C1C1C1C1C0C0C0C0BCBCBDBCBDBDADA9A6A6A7A4A3A3 - 807B7575736F6F6F6F4C4C6D4C4C4F4F6D2020202054555454546E5059555050 - 505050505050595950505555556E6E206D6D6D4C6F6F6F737B92A9ADB0B1B0AE - 99978B898A817D5C575B5E5A5A7A7A82727A282828287A7A7E5E5D848F93969A - 9D9EB2B2B29E9E9D9A9A8C969083CDCDCDCD025B5B23487450544F7C738BAA92 - B9AFBEBDBFB1C0C0C1C1C1C1C1C1C1C1C1C1C0C0C0C0BCBCBCBDBDADADA9A9A6 - A6A4A37F807B7573736F6F6F6F6F4C4C4C4C4F4F4F4F6E204F20555454555555 - 555550505050505050505050555555505555546E206D4F71716F6F758092AE9B - B0B19BAF92AAAB8983817D76535B265A5A727282282828287A777A7A7E5E5D84 - 9495969A9D9EB2B2B29E9E9D97ABB8968983CDCCCDCD022623234B4850555871 - 7C7BAABBAEAFBEBDBFC0C0C0C1C1C1C1C1C1C1C1C1C1C0C0C0BCBCBCBCBCBDAD - ADA9A6A6A6A4A37F807B7575736F6F6F714C4C4C4C4C6D204F205454206E2055 - 6E5555555050505050505050505050505055555555555420204F4F4C716F7375 - 7BA4A99BB0B19BAEBB97A58983815976575B5E7E7E7A7272282828282877287A - 7E7E5D848D93969A9D9EB2B2B29E9D9D9AAB96909090CDCCCDCD022625234B48 - 50554F7C898BAAA7B9AFBDBDBFBCC0C0C0C1C1C1C1C1C1C1C1C0C0C0C0C0BCBC - BCBDBDADADADA9A6A4A4A4A380757573736F6F6F6F4C4C6D4C4C6D4F4F4F5454 - 4F5520555555555550505050505059505050505950555055555554546E6D4F4C - 716F737580A4999BB1B19BAF9997A589587D5F275B5B5E7E7A5A287728282828 - 4E28287A7E7E5D618E95969C9DB2B2B2B29E9D979A9896898383CDCCCDCD0253 - 254D4A52506E5471898BAAA7AEAFBEB0BCC0C0C0C0C1C1C1C1C1C1C1C1C0C0C0 - BCC0BCBCBCBDBDBDADA9A9A6A7A4A37F807B7575736F6F6F4C4C4C6D4C6D6D6D - 4F2020546E5555555455505555505950505050505050505050505550556E5554 - 20204C4C4C6F6F758092AD9BB1B19BAF9297A589837D5C74295B5E7A7A727A7A - 28284E287A28287A7E7E5D848E95989C9DB2B2B2B29E9D9CAB989690908ACDCC - CDCD0226534B4B48505479718CA5A8A7B9AFBEBDBFC0BFC0C0C1C1C1C1C1C1C1 - C0C1C0C0C0BCBCBCBCBDBDADADA9A6A6A7A4A37F7F7B7575736F6F6F71714C6D - 4C4C6D4C6D202020542055556E55505955505050505050505050595050505955 - 555555546E4F4C4C4C6F73758092A9BDB1B19BAFACAAAB898A7D5C765D5E5E7E - 7A727A7A287777827A287A7A7A5E5D848E95989C9DB2B2B2B29E9D9C9A989690 - 908ACDCCCDCD0226252356485055547889A5AAACB9AFBEBDBCB1C0C0C0C1C1C1 - C1C1C1C1C0C0C0C0C0C0BCBCBCBDBDADADA9A9A6A7A4A37F807B7575736F6F6F - 71714C4C6D4F4F4F4F206E202055555455555555505055505050505050505059 - 505955555555556E6D4F4F4C716F737580A4A99BB1B19BAF92978C89587D5957 - 5D267E5A7A7A2828282828288228827A7E5E5D8F8D95989C9E9EB2B29E9E9D97 - AB8C96909083CDCCCDCD022653234A74506E4F787C7B7FA7B9AFBEBDBFBCC0C0 - C0C1C0C1C1C1C1C1C1C0C0C0C0BCBCBCBDBCBDBDADA9A9A6A4A4A3A380757573 - 6F6F6F6F4C4C4C4C4C4C206D2020552054556E6E555555555050505050505074 - 5250505059595550555454204F4F4C4C716F737580A4A9B0B1B1B0AE92978C89 - 837D59575D267E7A7A28287777827A607728827A7E5E5D619495989C9E9EB2B2 - B29E9D9A98988990838ACCCDCDCD022653232348505054786FA5AAACB9BEBEBD - BFBFC0C0C1C0C1C1C1C1C1C1C1C0C0C0C0BCBCBCBCBDBDADADA9A6A6A7A4A37F - 807B7575736F6F6F714C4C4C4F4F206D2054546E6E5454545555595050595050 - 50505050505024505050505555556E546E4F4C4C6F6F6F7580A4AD9BB1B19BAE - 9297AB898A7D5C765D5E7E7A7A282882822882828260287A7E5E5D8F8D95989C - 9EB2B2B29E9E9D9AAB968990838ACCCCCDCD025E265322525055547889A5AAAC - B9AFADBDBFBFC0C0C0C0C1C1C1C1C1C0C0C1C0BCC0C0BCBCBDBCBDADADA9A9A6 - A4A4A37F807B7575736F6F6F714C4C4F6D4F6D20202020206E5454546E555055 - 505050595050242450595059505059555055546E204F4C716F6F73757FA4A9B0 - B1B19BAEAC978C7C7959275D5B5E7E5A7A7A2882772860828228827A7E5E848F - 9395989C9EB2B2B29E9E9D9AAB969683838ACCCCCDCD02262653224848505478 - 7C75AA92B9AFADBDBFBFC0C0C0C1C0C1C0C1C1C0C1C0C0C0C0BCBCBCBCBDBDBD - ADA9A6A6A4A4A37F807B75736F6F6F71714C4C6D4C4F4F6D545420556E545555 - 556E55505050505924502450595074505050505055555555204F4C4C6F6F7375 - 7FA7ADB0B1B19BAEAC978C838A7D7457535E7E7A7A2828607760826060287A7A - 7E5E84619395989DC2B2B29E9E9D979A98968990838ACDCCCDCD022653532348 - 24506E7889A5AAACB9AFBEBDBFC0C0C0C0C0C1C1C1C1C1C1C0C1C0C0BCBCBCBC - BCBDADADA9A9A6A6A7A4A37F807B7575736F6F6F4C4C4C4C4F4F204F20542054 - 54205455555555595059595050502450525050505050505555556E54204F6D4C - 716F737580A7ADB0B1B19BAEAC978C9081505C5B265E5A5A7A7A778282606077 - 6060827A7E5E5D8F93959A9C9EB2B2B29E9D979A968990838A8ACCCCCDCD0226 - 53534A48525054787CA58092B9AFBEBDBFBFC0C0C0C0C0C1C1C1C1C0C1C0C0C0 - C0BCBCBCBCBDBDADADA9A6A6A4A3A37F807B7573736F6F6F4C4C4C6D6D4F4F20 - 2054545455555554555050595950505052507452742448505959505055556E54 - 204F4C4C6F6F6F757FA4ADB0B1B19BAE928B8C83815F5C57267E7E7A7A282882 - 828282608282287A7E5E848F93969A9D9EB2B2B29E9D979A989690838A8ACDCC - CDCD022626534D4B485054587CA5AAACB9AFBEBDBFBFBFC0C0C0C1C1C1C1C1C0 - C0C0C0C0BCBCBCBDBCBDBDADADA9A6A6A4A4A37F807B7573736F6F714C6D4C4C - 4C2020205555545454546E555555555059505050247450272424245024595050 - 595555204F6D4C71716F737580A7ADB0B1B19B99ACA88C83817D745B5E7E5A7A - 7A282828606060606060827A7E7E848F93969A9D9EB2B29E9E9D97AB96968983 - 8A81CCCCCDCD02265B53234B745054587CA5A8ACB9AFBEBDBFBFC0C0C0C0C0C1 - C0C1C0C1C0C0C0C0C0BCBCBCBCBDBDADADA9A9A6A4A4A37F807B7573736F6F6F - 4C4C4C4C204F204F202055545454555550555050502424245974745274522450 - 5924505050556E55206D4C716F6F737B7FA7ADB0B1B19BAEAC978C83815F565B - 5E7E7E727A8277776060606060607A7A7E5E848F93969A9D9EB2B29E9E9D9AAB - 969690838A81CCCCCCCD021F265B534B485054587CA580ACB9AFBEBDBFBFC0C0 - C0C0C0C0C1C1C0C0C1C0C0BCC0BCBCBCBDBDADADADA9A6A6A4A4A37F7B7B7573 - 736F6F6F4C4C6D4F4C6D4F20546E545555555555555550555059745250747424 - 527424745950505055555454204F4C4C716F73757FA7ADB0B1B19BAE928B8C83 - 815029535E7E7A72777782778260606060287A7A7E5E848F93969A9D9EB2B29E - 9E9C97AB9689908A8A8ACCCCCDCD021F2653234B485054787CA580ACA6AFBEBD - B0BFBCC0C0C0C0C0C1C1C0C0C0C0C0C0BCBCBCBCBDBDBDADA9A9A6A6A4A3A37F - 807B75736F6F6F714C4C4C4C20204F2055205455555555555555505050595052 - 50242424242452745050505055555520204F6D4C716F73757FA6ADB0B1B19B99 - AC8B8C837D5F7653267E7E7A82287777608260606028827A7E5E848F93969A9D - 9EB2B29E9D9D9A989689908A8A81CCCCCDCD022626255B4B745055787C73A8AC - B9AFBEBDBFBFBCC0C0C0C0C1C0C1C0C1C0C0C0C0C0BCBCBCBDBDBDADADA9A6A6 - A4A4A37F80757573736F6F4C4C6D4C4C4F206E20545520556E557D5555505050 - 505050507424245252242424505050505055556E6E6D6D4C716F737B7FA6ADB1 - B1B19BAEAA8B8C837D5C565B5E7E7E7228777760607760608260827A7E5E848F - 93989A9D9EB2B29E9D9CAB98968990838A81CCCCCDCD02262653232274505478 - 71A580ACB9A9ADBDB0BFC0C0BFC0C0C0C1C0C0C0C0C0C0C0BCBCBCBCBDBDADAD - ADA9A6A6A4A4A37F7B7B7573736F6F714C4C4C6D4C2020205420205555556E55 - 505050505959502474242424247452242424505059555454204F4C4C716F7375 - A3A6ADB0B1B19B99ACAB8C8A815C7653267E5A7277777760606060828260287A - 7E5E848F95969C9D9EB2B29E9D9C9A8C9690838A8A81CCCCCCCD0226265B2322 - 52507D587CA580ACB9AFBEBDBDBFBCC0C0C0C0C0C0C1C1C0C0C0C0C0BCBCBCBC - BDBDADADADA9A6A6A7A3A37F807575736F6F6F714C6D6D6D4F4F202020205554 - 55505555505050505050245924525224242424745250505050555554204F4C4C - 6F6F737B7FA6ADB1B1B19B9992AB89837D5C5753265A5A287728607760776060 - 82827A7A7E5E619493969C9D9EB29E9E9D97AB988990838A8181CCCCCCCD0249 - 265B534B2774555871A5A8AC99A9BEBDBDBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0 - BCBCBCBCBDBDADADA9A9A6A4A4A4A37F7B7B75736F6F6F4C4C4C4F4C204F4F20 - 20205554556E5555595959502450505924245224502452522448245050505555 - 546D4F4C6F6F737BA3A6ADBCB1B1AF99AA9A89837D5C575B5E7E7A7A7A826060 - 827760606082827A7E5E849495969C9D9EB29E9E9D97988C9690838A818ECCCC - CDCD02262626234B745055797C73A8ACB9AFBEBDBDBFBCC0BFC0C0C0C1C0C0C0 - C0C0C0C0BCBCBCBCBDADADADA9A9A6A6A4A4A3807B7575736F6F71714C4C4C4F - 6D6D205420205420555455555050505024747424242424525252522424505050 - 505555554F4F4F4C716F737BA3A6BDB1B1B19B99ACAB898A7D5C57537E5A727A - 28776060827760826082825A7E5E848F95989C9E9EB29E9D9D9A98969090838A - 8181CCCCCCCD027E5E2625224B507D587C8CA8ACA7A9BEBEBDB0BCBFC0C0C0C0 - C0C0C0C0C0C0C0C0BCBCBCBCBDBDADADA9A9A6A4A4A3A37F7B757573736F6F71 - 4C4C4C4F4F4F5420206E55545555556E50555924592459272424241E52215224 - 522450507D555555206D6D4C6F6F757BA3A6ADB1B1B1AF99AAAB898A7D5C5753 - 7E5A7A7A28776060828260826082827A7E5E849495989C9D9EB29E9E9D9A9896 - 90908A81818ECCCCCDCC027E26535B234B507D587173A8A3B9AFADBDBDBFBCC0 - C0B1C0C0C0C0C0C0C0BCC0C0BCBCBCBDBDBDADADA9A9A6A6A4A47F7F7B7B7573 - 6F6F6F4C4C4C4F4F4F4F20202020556E6E555555505950505059242724245252 - 2121485224245050505055544F4F4C4C716F737BA3A6ADB1B1B19B9997AB8979 - 7D745B267E5A727A776060776060886077607A7A7E5E849495989C9EB29E9E9D - 9C9A988990838A8A8181CCCCCCCD025A262625234B505079718C8BACBBA9BEBE - BDBFBCBCC0BFC0C0C0C0C0C0C0C0C0BCBCBCBCBDBDADADADA9A6A6A6A4A47F80 - 7B7575736F6F71714C4C4F206D206E55556E206E54505055505950505C592424 - 2452524827211E522452505050505554544F4C4C6F6F737BA3A6BDB1B1B0AF99 - AAAB89795F5C5D5E7E7A7A77286060777760608860607A7A7E5E849495989C9E - C29E9E9D979A9896908A8A817D81CCCCCDCD025A1F535B4B48507D79718C8BAC - B9AEBEBDBDBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0BCBCBCBDBDBDADA9A9A9A6A4 - A4A37F7F7B7B75736F6F71714C4C4F6D202020546E5555555055555050505074 - 7452242452525252521E52482474505050555554546D6D4C716F737BA3A69BB1 - B1B1AF99AAAB898A7D5C5D5E7E7A282877606060607760778260827A7E5E8494 - 95989C9E9E9E9E9D97AB969690838A81817DCCCCCCCD027E2653254D4B527D4F - 7C738BAAA7A9ADBEBDBFBFBFC0BFC0C0C0C0C0C0C0C0C0BCBCBCBCBDBDBDADAD - A9A6A6A6A4A4A3807B7575736F6F4C4C4C4C6D2054546E20556E545555555550 - 505059505052522448521E214821522724242450505555544F204C4C6F6F737B - 92A9ADB1B1B0AF99AA8C898A7D5C5D267E72828277776060608860608260777A - 7E5E849395989CC2C29E9E979CAB9690908381818E7DCCCCCCCD025A5E5B5323 - 4A5C50547C8C8BAAA7AEADBEBDBFBFBCBCC0C0C0C0C0C0BCC0C0C0BCBCBCBFBD - BDADADA9A9A9A6A7A4A3A3807B7575736F6F71714C4F4F4F4F206E5520545555 - 55555055505050245024244848521E52481E48524852505050505555204F6D4C - 716F737BA3A69BB1B1B09BBB97AB89815F765B267E7A28607760828288608860 - 7782287A7E5D618D95989DCA9E9E9E9D97AB9690908A81818E7DCCCBCCCD025A - 5E26535B4B745954788C8BAABBA9ADBDBDB0BFBFBCC0C0BFC0BCC0C0BCBCC0BC - BCBCBDBDBDADADADA9A9A6A4A4A37F807B75756F6F6F714C4C4F6D4F6D20206E - 6E556E555050505050505059272424522748212752481E521E74245050555555 - 6E4F4F4C716F757BA3A6BDB1B1B0AF99978C83815C765D5E5A7A286060828288 - 6088607760607A7A7E5E618D95989DC29E9E9D9D9A989690838A8A81817DCCCC - CCCD025A5A26262356485079718C8BA3BBB9AFBDBDBDBFBFBFBCC0C0C0C0C0C0 - C0C0BCBCBCBCBDBDBDADADA9A9A6A6A7A4A3A3807B7573736F6F714C4C6D4F4F - 202054546E555555555555505050507424242427522152525221525248525C59 - 50595555204F4F4C6F6F737BA3A6BDB1B1B0AF92978C83815C295D5E7E722877 - 60606060888288608260827A7E5D6194969A9C9D9E9E9D9C9A989690838A8181 - 7D8FCCCCCCCD025A5A2653234B747D54838C8BAABBB9ADBEBDBDBFBFBFBFBFC0 - BFC0BCBCC0BCC0BCBCBCBDBDBDADADA9A9A9A6A7A4A37F807B7573736F6F4C4C - 6D4C4F4F206E545454206E555050505050507474502448482421525248485252 - 52272474505555546E4F4F4C716F737BA3A99BB1B1B1AF998B8C90815C295B26 - 5A7A827777606088828288607760827A7E91618D96989D9E9E9E9D9C9A8C9690 - 8381817D7D7DCCCCCCCC025A7E4353532274505478898BAABBB9AFBEBDBDBFBF - BFBFBFBFC0C0C0C0C0BCBCBCBCBDBDBDADADADA9A9A6A6A4A4A37F807B75736F - 6F6F4C4C6D4C4F4F205454556E545555555050505024597452524852241E5227 - 7452521E52522424505055556E4F4F4C716F757BA3A99BB1B1B0AFBB978C8381 - 5C765B5E5A82772882886088888860778860287A7E5D6193969ACAC29E9E9D9C - 9A9689908A81817D7D7DCCCCCCCD027E7E2653235674506E7C898BAABBB9BEBE - BDBDBDBFBFBFB1BCBCBCC0C0BCBCBCBFBFBCBDBDADADADA9A9A6A6A7A4A37F80 - 7B7573736F716F4C4C6D204F205554556E6E556E555050595024507424521E74 - 48525621747421485248242450595055204F4F4C6F6F737BA4A9B0B1B1B0AF92 - 978C837D5C575B7E7E7A288277608288888860778282287A7E5D8F8D969A9D9D - CA9E9D9798989090838A8E7D7D5FCCCCCCCD025A5A265323565250817873ABAA - BBB9A9BEBDBDBDBFBFBFBCBFC0BCBCBCC0BCBCBCBFBDBDBDBDADADA9A9A6A6A4 - A4A37F807B75736F6F714C4C4F4F204F55545455556E55555559595050507424 - 24521E1E242756567448214821212424505055556E4F6D4C716F757BA3A9B0B1 - B19BAFBBA88C837D5C29537E7A28827782777777888888608282827A7E918F93 - 969A9DC29E9D9D9A989690838A818E7D5F59CCCCCCCC025A5A26265323485081 - 78898BAABBB9AFBEBDBDBFBFBFBFBCB1BFBCC0BCBCBCBCBCBCBDBDBDADADA9A9 - A9A6A7A4A4A37F807B7573736F714C4C4F20206D202055545454555555595050 - 505024745252212174481E5622527452525274242450555555544F4C716F737B - 92A99BB1B1B0AE928B96837D745D267E7A28778277608888888877607782827A - 7E5D8F93969A9D9D9E9D9C9AAB9690838A817D7D7D5FCCCCCCCD025A7E262653 - 234B50818389A5AABBB9AFBEBDBDB0BFBFBFBFBCBFBFC0BCBCBCBCBCBDBDBDBD - ADADA9A9A9A6A6A4A3A37F7B7B75736F6F71714C6D4F204F2054545454555555 - 555050505274242424522121564B524852522224212124245950555554204F4C - 716F7380A4A6B0B1B19BAFAC9A8C837D765D5B7E7A2882606060888588888888 - 8877827A5E918F93969A9D9EC29D9C9A9889908A817D7D5F7D5FCCCBCCCD0272 - 5A2626535774597D7889A5AABBB9AFBEBDBDBDBDBFBFBFBFBFBCBFBFBCBFBCBD - BFBDBDBDADADADA9A9A6A7A4A4A37F80757573736F714C4C4F6D202054205520 - 205555555950502424242452245252272752487474272152521E522424505555 - 55544F4C4C6F737BA4A9BDB1B1B0AFAC8B898A5F5C5D5E7E5A82826088888888 - 888888886060777A7E848F93989A9D9D9D9D9C9A9896908A8A817D7D7D5FCCCC - CCCD02727249265B4D56596E787CA5AABBB9A9BEBEBDBFBDBDBFBFBFBFBFBFBC - BCBFBFBFBDBDBDBDADADA9A9A9A6A6A4A3A37F807B75736F6F714C4C4F6D204F - 545555545555555050505024502424521E5274564848562752212152521E5224 - 5050555555544F4C6F6F737BA4A9B0B1B1B0AEAC8B898A7D765D5E7E7A7A8277 - 77607788858888886060827A7E918F93969C9D9D9D9D9C9A9690908A81817D5F - 5F74CCCCCCCC025A7E5A26535722507D7889A5AA92B9AFBEBDBEBDBDBFBFBFBF - BFBFBFBFBFBFBFBFBDBDBDADADADA9A9A6A6A4A4A4A3807B7B75736F6F714C4C - 6D4F20206E545455555550505024245050747452747448564B744856524B5622 - 212452242450505554206D4C716F738092A9B0B1B19BAEAC9A89795F5C5B265A - 8277777777888888858888606060287A7E848F93989C9D9D9D9C9C989690838A - 817D7D5F5F5CCCCCCCCC025A497E26535D56747D7889A5AABBB9AFBEBEBDBDBF - BDBFBDBFBFBFBFBFBFBFBFBFBDBDBDBDADADA9A9A9A6A6A4A3A380807575736F - 6F4C4C4F4F204F2020545555556E505050245074742474522152522756524874 - 2227485252525224505055552054544C716F737BA4A99BB1B19BAEACAB89795C - 565B5E7E7228608288518888888888888882827A7E918F93989ACA9D9D9C9A98 - 9690838A817D8F5F5F5FCCCBCCCC027A5A7E265B235750545889A5AAACB9AEBE - BEBEBDBDBFBDBFBFBFB0BFBFBFBDBFBDBDBDADADADADA9A9A6A6A7A7A37F7F7B - 7575736F714C4C4C6D6D54545455555455555550505024592424525227527448 - 2748524852274856277452525250506E55204F4F716F738092A9B0B1B19B99AC - AB89815957535E492877777760888888515188886060827A5E919495989C9D9D - 9D9C9A989690838A8E7D5F5C595CCCCCCCCC027A5A5A2653234B527D7989A5AA - 92B9A9BEBEBDBDBDBDBDBFBFBFBFBDBFBFBDBDBDBDBDBDADADADA9A9A6A6A7A4 - A3A3807B7B756F6F714C4F4F6D4F6E2055555555555555555959485024524848 - 5221564B2227522221524822275252522459505554544F4F6F6F7580A4A9B0B1 - B19BAEAAAB89815C575E5E5A7282607788888888888888886082827A5E848F95 - 989C9D9D9D9C9A9896908A8A8E7D7D5F5C5CCBCCCCCC027A727E26532356747D - 787CA5A8ACB9AEBEBEBDBDBDBDBFBDBDBFBFBFBFBFBFBFBDBDBDBDADADA9A9A9 - A6A6A7A4A3A3807B7B73736F6F4C4C4C20205420545455555550505050507424 - 27484821484856527452222174484B524852487424505055556D4F4C716F757B - A4A9B0B1B19B99AAAB90795C575D5E7A7A826077888888518588518888827A7A - 7E849495989C9DCA9D9C9A9890908A817D5F5F5C5C5CCCCCCCCC027A725A1F26 - 5356747D5889A5A8ACB9A9AFBEBEBDBDBDBDBDBFBDBFB0BFBDBDBDBDBDBDADAD - ADADA9A9A6A6A4A4A37F807B75736F6F714C4C4F20206E6E5555555555555050 - 50502424245227525652525248484B22224B5674522148742424505555544F4C - 716F7580A4A9B0B1B19B99AAAB90795C575B5E72827777888888888885888888 - 88607A7A5E849495989C9C9D9D9A9A98908A8A8E7D7D5F5C5C5CCCCCCCCC0228 - 5A5A1F265357747D587CA5A8ACB9AEBEBEBDBEBDBDBDBDBDBDBDBFBDBDBFBDBD - BDBDBDADADA9A9A6A6A7A4A3A37F807B75756F6F714C4C4F204F546E55556E55 - 5559505024747424525221485221214B22214A22224822275648525252505555 - 55544F4C716F7380A4A9B0B1B09B99AAAB90815C295E7E7A8277777788888888 - 888888888882827A5E848E95989C9D9D9C9A9896908A8A817D5F5F595C5CCCCC - CCCC025A725A1F2653297450797CA5A8ACB9A9AFBEBEBDBDBDBDBDBDBDBDBDBD - BFBDBDBEBDBDADADADA9A9A9A6A6A7A4A37F7B7B75736F6F714C4F4F20542055 - 55556E555555555059745024274848272148214B221E4A224B2222274B4B5224 - 2450505555204F4C716F7380A4A9B0B1B19B99AAAB907D5C76265A7228777788 - 778888858888888860827A7A7E849495989C9D9D9C9A9896908A8D8E7D5F5C59 - 5C5CCCCCCCCC0272725A7E2653577450797C8CA8ACA7A9AFBEBEBDBEBEBDBDBD - BDBDBDBDBDBDBDBDBDADBEADA9A9A9A9A6A6A7A3A37F807B75736F6F714C4C4F - 4F6E54546E6E5555555050505050242452527456274821224B1E22224A221E22 - 2752525224595050554F6D6D716F7580A7ADB0B1B1AF99AA8C837D5C5D5E7E7A - 2860888888888885858888886060827A5E849495989C9C9C9C9A9896908A8A7D - 7D5F5F595C5CCCCCCCCC027A7A5A7E2653237459797C8CA8ACBBAEAFBEBEBDBE - BDBDBDBDBDBDBDBEBDBDBDBDBEBDADADA9ADA9B9A6A4A4A3A37F807B75736F6F - 714C4F6D4F205554545555555050505052242452525274565648481E4A224B22 - 4A4A2248275252522450505555544F4C6F6F7380A4A9B0B1B09BBB978C837D5C - 5D5E7E728277778888858885858888858877827A5E619495989C9D9C9C9A9696 - 907981817D5F5F5C5C5CCCCCCCCC0228725A7E265B23567D79838C8BACBBB9AF - BEBEBEBDBDBDBEBEBDBDBDBDBDBDBEBDBDADADADA9A9A9A6A6A4A7A37F7F7B75 - 75736F714C4C6D4F205455555555555555505050242474521E521E4B561E211E - 1E4B4A2222562221214821212459505055204F4C716F7580A4A9B0B1B09B9997 - 8C835F765D5E5A7A8277888888858585858588886082607A5E619396989C9C9C - 9A9A9690838A817D5F5F5C5F5C5CCCCCCCCC02287A727E265323747D797C8CA8 - AABBB9AEAFBEBEBEBEBDBDBDBDBDBDBDBDBDBDBEADADADADADA9A6A6A6A7A4A3 - A380807575736F6F4C4C4F4F4F5454546E55555550505950502448742156481E - 4B1E2222561E1E4A22222222224848485250505555204F4F4C6F7580A4A9B0B1 - B0AF99978C8A7D745D7E7E7A7777778888858585858588888882827A5E849495 - 989C9C9C9A9896908A8A8E7D5F5F5C5F5C5CCCCCCCCC0228285A5A26264D565C - 81788C8BBABBB9AFAFBEBEBDBEBDBEBDBDBEBDBDBDBDBEADBDBEADA9A9A9A9A6 - A6A4A4A37F807B7575736F714C4F6D6D545455556E5550555050745024525252 - 52225248214A1E1E4A22524B2222224A2252275252595055556E204F716F7580 - A4ADB0B1B0AFBB978C837D765B265A7277607788858888858585858588827A7A - 5E849396989C9C9A9A9896908A8A815F5F5F5F5F5C5CCCCCCCCC022828724926 - 535B575079838C8BAABBB9AEAFBEBEBEBDBEBEBDBDBEBDBEADBEBDADBEADBEAF - ADA9B9A6A7A4A4A37F807B75756F6F714C4C4F4F545454545455505050594874 - 522452482727221E224A1E4B4822234D22224A4A225256564859505055546D4F - 4C6F7580A4ADB0BCB0AF9E97968A5F5C5B7E7A60826088888885858585858588 - 88827A7A5E619395989C9C9A989896908A817D5F7D5F5C5C5C74CCCBCCCC0228 - 827A5A26265B56597D788C8BAABBB9AFAFBEBEBEBEBEBDBEBEBDBEBDBEBEADAD - AFADA9A9A9A9B9A6A7A7A4A37F807B7573736F714F4C4F4F2054205555555055 - 5024507424525252522127524B222223224B4B22234D222222484B4852505050 - 55544F4F716F757FA4ADB0B1B0AF92978C8A5C295B7E72827760778888888586 - 858588888882827A5E619396989C9C9A989696908A817D5F5C5C5C747474CCCC - CCCC022828725A1F535B57506E838C8BAABBB9AEAFBEBEBEBEBDBEBDBEBEBDBE - BDBEAFADADAFADA9A9A9A6A6A7A4ACA37F807B75736F71714C6D6D4F4F206E55 - 5555505559505050244852485622272122221E4A575722222257222256224B1E - 482459555555544F4C6F757FA4A9BDB1B0AFBB8B89795C575E7E7A7760608885 - 858585858585858888827A7A5E8F9396989A9C9A989690938A8E7D7D5C5C5C5C - 5C5CCCCCCCCC022872285A7E265B5750817889A5AABBB9AEAFBEBEBEBEBEBEBE - BEBEBEBEBEADBEBEADADA9A9A9A9B9B9A7A7A3A37F807B7573736F714C6D4F6E - 545454555555555050502424745252524822221E22224A22224A234A4B232222 - 2256561E2450505055204F4F4C6F7580A7ADB0B19BAFACA8968A5F295E7E7A77 - 7777888885858585858585856082827A5E619396989A9C989896908A8A817D5C - 5F5C5C745C5CCCCCCCCC0228287A5A5A2625575C7D838C8BAABBB9AEAFAFBEBE - BEBEBEBEBEBEBEBEBEBEADA9AFADA9A9A9B9A6A7A7A7A3A380807B75736F6F71 - 4C4F6D206E545555505550505024505974245252521E52574A4A574B4A4A2322 - 4A23224B4A221E527450505055544F4F716F757FA7A9BCB1B0AFAC8B89795F57 - 267E7A2860888585858585858585858588827A7A91619396989C9A9A9896958A - 81817D5F5F5C5C5C5C74CCCCCCCC027728285A5A265B575C7D78B8A5AAACB9AE - AEAFAFBEBEBEBEBEBEBEBEADBEADAFA9ADA9AFA9A9B9A6A6A7A4A37F7F7B7B75 - 736F71714F4F4F545454556E50555050505274245248484B561E211E4B22224A - 4B2222224A22234D221E48271E4850505555204F4C6F757FA7ADB0B09BAFAC8B - 89815C575E7E7A6060888885858585868585858888607A7E5E8F9396989A9A98 - 9696838A8E7D5F5F5C5C5C5C7674CCCCCCCC0228287A727E265B575C7D7889A5 - AAACBBB9AEAFAFAFBEBEBEBEBEBEBEAFADAFBEBEA9A9AEA9A9A6A6A7A4ACA3A3 - 807B75A5736F714C4C4F4F545454545555505050505052525252527456222222 - 23224A4A2223234B5722574A4B4A4A5648485059552020204C6F757FA7ADB0B1 - 9BAFACAB89815C5D5E7A7A286077888586858585868585886060827A918F9396 - 989A9A9896908A8A8E8E5F5C5C5C5C5C7476CCCCCCCC027772285A7E1F5B5774 - 7D8389A5A8ACBBB9AFAEAFAFBEBEAFBEBEBEBEA9BEADA9A9A9A9A9A9A6A6B9A7 - A7A4A37F807B7B73736F6F4F4F4F4F6E55546E50555550502474505248485274 - 224A4A22225622222323226C7023232223564A48482450505555204F716F757F - A4ADB0B19BAEACAB90815C5D5E5A7A7777888585858586858686858888607A7E - 5E8F9396989A989896908A81817D5C5C5F5C5C275627CBCCCCCC024E77285A5A - 265323567D7989A5A8ACBBAEAEAFAFBEAFBEBEA9BEBEAFBEBEA9AFA9AFA9A9B9 - B9A6A7A7A7A3A3AA807B7573736F71714C4F4F4F55556E6E5055505924242452 - 484B2756221E22564A4B2270704B4B562223224A4B224B5674245050506E6E4F - 4C6F757FA7ADB0B09BAEACAB90815C575E7A8260778885858585858685858585 - 88607A7E91619398989A9A9895908A8D817D5F5C5C5C5C575657CCCBCCCC0277 - 77287A5A262623747D8A89A597ACBBB9AEAEBEAEAFAFBEAEBEAFBEA9A9AFA9A9 - A9AEB9A9A6B9A7A7A3A7AA7F808B75736F6F714F4F6D4F54556E6E5555505050 - 50525248485652486C4A4B221E4B4A2323224B5622222222234A225648522450 - 5055204F4C6F757FA7ADB0B09BAEAAAB897D5C535E7A77608288888585868686 - 858585858860827E916195969A9A989896908A8E7D5F5F5C745C5C567684CCCC - CCCC026028285A5A1F2653767D797CABA8ACBBB9B9AFAEBEAFBEAFAFBEA9AFBE - AFAFAEA9B9A9A9B9B9A7A7ACA7A3A3AA807B758C736F714C4F4F54546E555550 - 55505059505252525221524B4A23234A4A22224A222223295656574B224A4A27 - 522450505555206D4C6F757FA7ADB0B09BAEAAAB907D5C5B495A827760888585 - 858586868585858888827A7E919493989898989690838A8D8E5F5F5C5C275629 - 5657CBCCCCCC02607728285A5A265B76507989A5A8AABBB9AEAEAFA9AFB9AEBE - AEBEAEA9A9A9A9A9B9A9B9B9A6A6A7A7A3A3AA80807BA5736F6F784C4F546E6E - 545555555550505024244821221E52564A2256232222232323235723564B5723 - 23232248525224245555204F4C6F757FA7ADB0B09B99AAAB837D5C5B7E5A7A82 - 88858585858686868686858588607A7E919495969898989690958A8E8F5F5C5C - 5C7476575629CCCBCCCC0260282828725A265B565979838CA8ACBBBBB9AEAEAE - AFAFBEAEBEAEA9AEAEAEA9B9A9B9A6B9A7B9BBA7ACA37F808B7575736F71714F - 4F6D546E555555555050505250527474745222224B222222224A4D2322572223 - 232322232223221E272724505055206D4C6F757FA7ADB0B09B99AA98907D7626 - 7E7A827788888585868686868685868888607A7E918F959698989896908A8A8E - 7D5F5C5C5C5656575729CCCBCCCC026060287A5A5A265356507989A5A8ACBBBB - B9B9B9AEAFAEAFA9AFA9AFAFA9A9AEA9B9B9A6B9B9A7A7A792A3AA807B8B7373 - 6F6F4C4C4F4F5454555559505050502424485274524822564B222256234A4D23 - 22225623232323234A224B1E215224505555544F4C6F757FA7ADB0B09B99978C - 835F27267E7A777788888585858686868685868588827A7E9194959898989896 - 908A817D5F5F5C5C842757575729CCCCCCCC02606060285A1F2653575C7983A5 - A8BAACBBB9B9AEAEAEAEA9AEAEAEAEAEAEA9A9B9B9B9B9B9BBA7A7ACA3A38080 - 8B75A5736F71714C4F545455555555505050747474482756524A222222224B4D - 4A56232323222323232229574A22224A52527450555554204C6F757FA7ADB0B0 - BE99978C837D295E7E7A77608885858586868686868685858882827E848F9596 - 98989695908A8E7D5C5C5C5C5C2757222323CBCBCCCC02607777285A5A265B57 - 5C81838C8BAABBBBB9B9B9AEAEAEAEAEAEAEAEAEA9AEAEB9B9B9B9B9B9BBA4A7 - A3AA7F807B75736F7C71714F4F206E5555555550505074747448274B524B2223 - 4B2322234D23232322232323222223232222561E522774505055544F4C6F757F - A6ADBDB09B99978C838F575E7E72606051858586868686868686858560607A7E - 9194959698989696908A8E8F5F5C5C5C5C5757232329CBCCCCCC026028827A72 - 5A5E53575C797C8CA8BAACBBBBB9AEB9B9AEAEAEAEB9B9B9B9B9B9B9B9B9A7BB - A4A4ACA3AC7FAA8BA5A573736F714C4F6D4F546E555550505074247452485248 - 564A56232356564D232329232323575D572257222223221E74524850556E544F - 4C6F757FA7ADB0B0AF99978C8A5C575E5A7A6088888586868686868686868685 - 60827A7E9194959696989695908A8E5F5F5C5C5C565729232929CBCBCCCC0277 - 60777A7A5A2653575C81838CA5BAACBBBBB9B9B9B9B9B9AEAEAEB9AEB9B9B9B9 - B9B9BBA7BBA7A7ACA37F807B7B75A57C6F71714F6E54556E5550505050502452 - 52565648224A22232322222323572323232323572323292223224A224B482450 - 5555556D4C6F757FA6ADBDB0AF99978C8A5C5B5E5A7A82888885858586868686 - 8686868888827A7E84949596989696958A8A8E8F5C5C8456562729292329CBCB - CCCC0260602828725A1F26575C7D838CABBAACBBBBB9B9B9B9B9B9B9B9B9B9B9 - B9B9B9B9A7B9A7B9A7BBA3ACA3AAA880A575736F71714C4F5454545550555050 - 505252522722272221224D57574A2323235723292323235B5B29232357572222 - 4B4824505555554F4C6F757FA6ADBD9BAF999A968A5C5D5E7228775188868686 - 868686868686868588607A7E61949596969696958A8E7D5F5C5C277657562729 - 2929CBCBCCCC02606060285A7A5A26235C7D83B8ABBABAACB9BBB9B9B9B9B9B9 - B9B9B9B9B9B9B9B9B9BBBBA7ACA7ACA3AA7F808B75A56F6F6F71584F546E6E55 - 5050595950247474222152224B4A225622232223232325235323252323232329 - 23574A221E52245050556E6D4C6F757FA6ADBD9BAFBB97968A5C5D7E7E287760 - 88858686868687868686868588827A7E61949596989695958A8D8F5C5C747627 - 275657292929CBCBCCCC0260606082725A5A265B5C7D8389ABBAACBBBBBBBBB9 - B9B9B9B9B9B9B9BBB9B9BBBBA7BBA4BBA7A3ACAAAA80A87BA573897371784F4F - 6E545555505050597452485652524B2221224B22222223572323234D5B5B2325 - 2323235723232323482724595055204F4C6F75A3A6ADBD9BAFBB9789815C5B7E - 7A82828885858686868786878786868588827A5E84949596969690938A8E5F5C - 5C842956572923235B57CBCBCCCC0260606077287A5A7E535C7D838CA5A8BAAC - BBBBB9B9BBB9B9BBB9B9BBB9B9B9BBBBBBA7ACA7ACACACA37FA8807BA573736F - 7178784F5454555555505050245274275248481E4B4B222323235757235B2323 - 5B29232553235B232323224A48224850505555204C6F757FA6ADBD9BAFAC9A89 - 815C535E7A82608885858686868787868686868888827A918494959696959090 - 8A7D5F5C5C272756572929295B5BCBCBCCCC0260606077285A5A2653767D8389 - ABA8BAACBBBBBBBBB9BBB9B9BBB9B9BBBBBBBBBBA7BBA7ACA3ACAA7FBA808B7B - 758C736F7171584F545550555050597452527474524B2222704D22222357235B - 5B2323235B5B232323232329232323221E4852245055554F4C6F75A3A6ADBD9B - AFAC8B90815C5D7E7A60778885868686868687878686858888827A7E61949596 - 969695958D8E5F5C5C565656292929295B5BCBCBCBCC027760777728725A5E53 - 765F7989A5A8AAACACBBBBBBBBBBB9BBBBBBBBBBBBBBA7BBBBACA7ACACA3AAAA - 7F808BA5A573897C71784F545455555550592474745252522222222222222323 - 2323235B23235B53235B5B5B295B235B23234B224A5252245055544F4C6F75A3 - A6AD9B9BAE929A89815C5B7E8282778585868686878787868686868588827A5E - 619395969595958A8D7D5C5C5C845C57572329235B5BCBCBCCCC028877606028 - 7A5A7E535C5C8A89ABA8BABAACACBBBBBBBBBBBBBBBBBBBBBBBBBBA7ACA7ACAC - A3ACAAAA80A87BA573737C7C71784F4F6E545550507474745227524B1E212222 - 4D23234D2323232325535B53535B5B5B5B26235B29224D22222152505055544F - 4C6F75A3A6AD9B9BAEACAB898D5C5E7E28778851858686868787878787868685 - 88827A91619495959695938A8D5F5F5C27275757292929535B29CBCBCCCC0288 - 776077287A721F5B567D8189B8A8BAACBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB - A7ACACA3ACAAAA80A87B8BA5A5737C7171784F5454555550505048747456564B - 4B48224B6C4B222323292323535B5B29535B25255B5B5B5B23234D6C21524850 - 505555204C6F75A3A6ADBDBEAE9DAB907D765B7E7A7760858586868687878787 - 8786868588827A91619395959695958A8E5F5C5C8427575723295B255B5BCBCB - CCCC02886060772828724926575F8A89ABABBABABAACBBBBBBBBBBBBBBACBBBB - ACBBACACACACACACA3AAAAAA808BA5A5738C7C7C785879546E6E505050507474 - 52215222564A234B4A4D2323235B23535B5B25252525255B255B532323232323 - 225624595055546D4C6F75A3A6ADBD9BAEACAB908E765E5A8260608886868686 - 878787878786868588827A5E6194959595958A8D7D5F5C5C2756225729295B25 - 5B5BCBCBCCCC028888606028287A5A5E765C8A898CA8A8BAACACACBBACBBACBB - ACBBBBACBBACACACACACA3AAAABAAAA88B8BA5B873897C714C4F795455555550 - 7450522452521E22224A4A5757235323292525255B255B2625255B5B255B5B23 - 23232323224B525250556E4F4F6F75A3A6AD9B9B99AC98907D295E7E7A778885 - 85868687878787878687868588827A91619495959595938A8E5F5C5C27575757 - 29295B5B235BCBCBCCCB0288606077777A7A7E5E5D5C81908CA8A8BABAACACAC - BBACACACBBACACACACACACACACACAABAAA7FAAA88B8BA5A5737C7C7C78786E6E - 6E5550505074525652274A4D224A1E23232329235B2353255B535B53265B5B5B - 2626255B5B23234D4B2252745059544F4C6F75A3A6AD9BBE99AAAB837D765E72 - 7777888585868787878787878786868588827A91619395959593938D8F5F5C27 - 5757235B292925292329CBCBCBCC02886077777772725A26575C8190B8A8A8BA - BABAACACACACBBACACACACACACACBAACACAABAAAAAA8A88B8B8BA5738C7C7C78 - 714F796E6E505059747452212756224A22222223232229252353235B5B53535B - 2625255B53265B53535B2357702221245059556D4C6F75A3A6AD9BBE99AA988A - 5F575E7A286088858686878787878787878686858860825E6193939595938A8D - 5F5C5C27575D29295B23295D5B29CBCBCBCC02888860776028725A7E5D5C7D83 - B8ABA8BABAACBAACBAACACACBAACACACBAACACAAACAAAABAAAA88BA88BA5A5A5 - 6F7C6F717879546E5550505074525656225622225623235723232323535B535B - 255B5B26532626265326255B5B2323234A1E21745050546D4C6F75A3A6AD9BBE - 99978C8A5F297E7A8277888586868787878787878786868588827A9161949595 - 95938D8E5F5C5C7657292929295B25235B5BCBCBCBCC02888877608282285A5E - 5B5C8183B8ABA8BABABAACBAACACACACACACACBAACBAAABAAAAAAAAA80A88BA8 - 7BA5A5A5897C7C78584F54545059507452524B524B224B222222564D575B2325 - 53255B252626262625532626265B265B232323234A1E48745055556D4C6F75A3 - A6AD9BBE99978C8A5C5D5E7A7777888586868787878787878786868588827E91 - 6193959595938D8E5F5C5C76232929235B5B255B5B29CBCBCBCC028888606077 - 287A7A7E5B5C8190B8ABABA8BABABABABABABABAACBAACBAAAAAAAAAAABABAA8 - A8A8A88BA5A5A58C6F7C7C78784F81557D50745C52525252222222564B4D2323 - 5729235B5B5B5B53262626262626262626265326252323234B48484850555420 - 4C6F75A3A6AD9BAF99978C8A5C5D5A7A77888586868787878787878787878685 - 88827A918F939395938A8D5F5F745C272729295B5B235B295B5BCBCBCBCC0285 - 88886060287A5A7E5D847D8389ABA8A897BABABABABABABABABABABABABABABA - AABAA8A8A88B8B8BA5B873898C7C7178784F6E55505950527456525652222323 - 56234B2323235B5B5B5B5326265B2626262626265B2653255B2329234D4A7448 - 5050554F4C6F75A3A6ADBEAF99978C815C5D7E7A776085858687878787878787 - 8787868588827E918F949395938A8D5F5C5C5629292329255B295B265B5BCBCB - CCCB028588886060287A727E5D5C7D8A96B8A8A8BABABABABABABABABABABABA - BAAABAA8AAA8A8A88BA8A8A5A5A5A5B87C7C837879547D555074507456744B22 - 23224B2223235723235B5B5B5B5B5B2626262626262626262626265B25532923 - 4D4B52525055554F4C6F75A3A6ADADAF929789815C5E7E7A7751888586878787 - 874787878786868588827A9161949395938D8F8F5C2729292329295D5B255B5B - 2526CBCBCBCC0285885188606077727E5E847D8AB8ABA8A8A8BABABABABABABA - BAA8BABABABABAAAAAA8A8A8A8A88BABA5A5B8737C7C787878546E7D59244874 - 5674222223224B572357235B5B295B53535B2626262626252626262626262626 - 25232323222221527455556E4C6F75A3A6ADBEAFBB9796795C5D7E7A77888586 - 86878787878787878786868588827E9161949393938D8E5C5C27272723295B29 - 295B26252525CBCBCBCB0285858860606028725A26767D8A90B8ABA8BAA8BABA - BABABAA8BABABAA8BABAA8BAA8A8A8A88BA8A5A5A58C73897C7C785879547D7D - 50747452525222224A4B232323232323535B5B5B262626262626262626262626 - 2626262625252322704A22245050556E4C6F7BA3A6ADADAFBB9789815C5D7E82 - 7760858686878787878787878787868588827E9161939393938E7D8F5C5C2729 - 292925295B53535B265BCBCBCBCC02858885606060827A5A26765F8A90B8ABA8 - A8A89CBABABABA97BAA897BAA8A8BAA8A8A8A8A8A8A5ABA5A58C8C897C837879 - 5454505050747456564B4A226C57234D2323295B5B25255B2626262626262626 - 26262626262626265B5B232223225252485055204C6F75A3A6A9ADAE92A8898E - 765E7A827788858687878787878787878787868588827E918F949393938F8F5C - 5C7657292923235B25535B535B25CBCBCBCB0285888860606082285A5E767D8A - 90B8AB9AA8A8A8A8A8BAA8BABAA8A8A8A8A8A8A8A8A8A8AB8BABA5A58C8C8C7C - 7C837879797D55595C745656564B704A2223234D5B255B5B25255B2626262626 - 262626262626262626262626262529294D4B2152505055544F6F75A3A6ADADAE - AC8B897D765E7E827788858687878787878787878787868560827E916194938D - 8D8E8F5C84275723295B5B5B255B26535B26CBCBCBCB0285518888887782285A - 5E5D5C8D90B8B8ABA8A8A8A8A89AA8A8A8A8A8A8A89AA8A8ABA8ABA8ABABA5A5 - B88C7C897C787879545450507448485648222323235753535B5B23255B262626 - 262626262626265E262626262626262526255B5B574D1E245250554F4C6F75A3 - A6AFAFAE929A908D845E7A777785868686878787876287878787868588827E91 - 8F9494938D8F8F5C5C292929295B265B255B265B5B26CBCBCBCC028585856060 - 7728827A5E5D8F8D90B8ABA8ABA8A8A8A8A8A8A8A89CA8A8A8A8ABA8A8ABA8AB - A5ABA5B88C8C897C837878797D7D5074745648562222222223232323535B2325 - 5B5B2626262626267E26265E5E5A26262626262626532329234D565224505554 - 6D6F75A3A6A9AFAEACAB907D845E7A6060858686878787878747878787878685 - 88827E918F9494938D8F8F5C7457295B29255B5B25255B265B26CBCBCBCB0285 - 8588886060777A5A7E5D5C819096ABABA89AA89AA8A8A8A8A8A8A8A8ABA8A8AB - A8ABABABABB8A5A58C8C89897C7879796E7D5C507456565656222223235B2323 - 5B5B255B5B26262626262626265E7E2626261F261F2626262625232323221E52 - 74505554786F7BA3A6A9AF99ACAB905F5D5E7A82608586868787878787878787 - 8787868588827E91619494948E8F8F5C5629295B295B5326262526535326CBCB - CBCB0285858588606077725A7E5D848D8396B898A8A89AA8A8A89A9AA89AA8A8 - A8A8A89AABA8ABABABA5B8B88C898989837878796E505050742756271E224B23 - 2323295B5B5B255B26262626262626267E26265A267E7E2626262626265B2523 - 2322215274505554586F7BA3A6AFAF99ACAB908E295E7A776085868687878762 - 878762878787868588827E916194948D8F8F845C57295725235B5B5B5B262626 - 265ECBCBCBCB0285858888887760287A5E5D5CB79590B8ABA8AB9AABA8A8A8A8 - 9AA8ABA8ABA8ABA8ABABABABB8A5A58C8C897C83837879547D505074744B5622 - 4A5623232329235B5B535B262526262626267E26262649267E5A267E265E2626 - 2626532522572252505055544C6F7BA3A7A9AF99AAAB905F5D5E7A8288858687 - 87878787876287878787868588827E91619494948E5C5C5C2757295B5B5B265B - 26265B5B2626CBCBCBCC0285858588887760287A7E5D848D9096B8ABABA89AA8 - 9A9A9A9AA8A8A8A8A8ABA8ABABABABABABAB8C8C8C898983837879547D7D5C74 - 744B224A222223234D2323535B25262626262626262626267E5E1F5E5E7E5A26 - 26262626265B5B2323222248505055544C6F7BA3A7A9AF99AAAB908F5D5E7A60 - 8885868687878787478787878786868588827E91618F94948E8F5C5C5757295B - 5B5B5B5B2626265B2626C2CBCBCB} - WaterMark.Image.Layout = ilTile - object Label6: TLabel - Left = 176 - Top = 312 - Width = 219 - Height = 13 - Caption = 'Haga click en Finalizar para salir del asistente.' - end - object Label7: TLabel - Left = 168 - Top = 88 - Width = 155 - Height = 16 - Caption = 'Por favor, elija una opci'#243'n:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - end - object bImprimir: TButton - Left = 352 - Top = 112 - Width = 150 - Height = 25 - Caption = '&Imprimir las etiquetas' - TabOrder = 0 - OnClick = bImprimirClick - end - object Button2: TButton - Left = 184 - Top = 112 - Width = 150 - Height = 25 - Caption = '&Vista previa de las etiquetas' - TabOrder = 1 - OnClick = Button2Click - end - end - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteEtiquetasMontajes.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteEtiquetasMontajes.pas deleted file mode 100644 index cdd1671..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uAsistenteEtiquetasMontajes.pas +++ /dev/null @@ -1,99 +0,0 @@ -unit uAsistenteEtiquetasMontajes; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, JvWizard, JvExControls, JvComponent, StdCtrls, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit, - uBizMontajes, cxGraphics, cxDropDownEdit, uCustomView, uViewBase, - uViewPreview; - -type - TfAsistenteEtiquetasMontajes = class(TForm) - JvWizard1: TJvWizard; - JvWizardWelcomePage1: TJvWizardWelcomePage; - Label1: TLabel; - JvWizardInteriorPage1: TJvWizardInteriorPage; - edtLabelCount: TcxSpinEdit; - Label2: TLabel; - Label3: TLabel; - lblNombreCliente: TLabel; - Label4: TLabel; - cbImpresoras: TcxComboBox; - Label5: TLabel; - JvWizardWelcomePage2: TJvWizardWelcomePage; - Label6: TLabel; - Label7: TLabel; - bImprimir: TButton; - Button2: TButton; - procedure FormCreate(Sender: TObject); - procedure bImprimirClick(Sender: TObject); - procedure Button2Click(Sender: TObject); - procedure JvWizard1FinishButtonClick(Sender: TObject); - private - FMontaje : IBizMontaje; - procedure SetMontaje(const Value: IBizMontaje); - public - property Montaje : IBizMontaje read FMontaje write SetMontaje; - end; - - procedure VerAsistenteEtiquetasMontajes(AMontaje : IBizMontaje); - -implementation - -uses Printers; - -{$R *.dfm} - -procedure VerAsistenteEtiquetasMontajes(AMontaje : IBizMontaje); -var - fAsistenteEtiquetasMontajes: TfAsistenteEtiquetasMontajes; -begin - if not Assigned(AMontaje) then - raise Exception.Create('Montaje no asignado (VerAsistenteEtiquetasMontajes)'); - - with TfAsistenteEtiquetasMontajes.Create(NIL) do - try - Montaje := AMontaje; - ShowModal; - finally - Free; - end; -end; - - -procedure TfAsistenteEtiquetasMontajes.FormCreate(Sender: TObject); -begin - cbImpresoras.Properties.Items := Printer.Printers; - Printer.PrinterIndex := -1; - cbImpresoras.Text := Printer.Printers.Strings[Printer.PrinterIndex]; -end; - -procedure TfAsistenteEtiquetasMontajes.bImprimirClick(Sender: TObject); -begin - FMontaje.LabelCount := edtLabelCount.Value; - FMontaje.PrintLabels; -end; - -procedure TfAsistenteEtiquetasMontajes.SetMontaje( - const Value: IBizMontaje); -begin - FMontaje := Value; - if Assigned(FMontaje) then - lblNombreCliente.Caption := FMontaje.Cliente.NOMBRE; -end; - -procedure TfAsistenteEtiquetasMontajes.Button2Click(Sender: TObject); -begin - FMontaje.LabelCount := edtLabelCount.Value; - FMontaje.PreviewLabels; -end; - -procedure TfAsistenteEtiquetasMontajes.JvWizard1FinishButtonClick( - Sender: TObject); -begin - Close; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uCargarFicheros.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uCargarFicheros.pas deleted file mode 100644 index 5fd37ac..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uCargarFicheros.pas +++ /dev/null @@ -1,258 +0,0 @@ -unit uCargarFicheros; - -interface - -uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, - uROClient, uROClientIntf, uRORemoteService, uROBinMessage, - uROServiceComponent, uROWinInetHttpChannel, Forms, - VARELA_Intf, uROTypes, uROEventRepository; - -type - TCargarFicherosThread = class(TThread) - private - FROMessage: TROBinMessage; - fROChannel: TROWinInetHTTPChannel; - fRORemoteService: TRORemoteService; - FEventReceiver : TROEventReceiver; - - fOnSuccess: TNotifyEvent; - fOnError: TNotifyEvent; - - fLoadOK: Boolean; - fTimeStarted: TDateTime; - fErrorText: string; - fInfoStr: string; - - FMaxConnectionErrors : Integer; - FChannelErrorscount: Integer; - - procedure Run; - protected - FNombre : String; - procedure CargarFicheros; virtual; abstract; - procedure OnChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); - procedure OnLoadSuccess; virtual; - procedure OnLoadError(const ErrorMsg: String); virtual; - public - property Nombre : string read FNombre; - property LoadOK: Boolean read floadOK; - property TimeStarted: TDateTime read fTimeStarted; - property ErrorText: string read fErrortext; - property InfoStr: string read fInfoStr; - destructor Destroy; override; - procedure Execute; override; - constructor Create; - end; - - - { TCargarVentasThread } - TCargarVentasThread = class(TCargarFicherosThread) - private - fEDISalesService: IEDI_Sales; - - FFicheroCAB : String; - FFicheroLUG : String; - FFicheroART : String; - protected - procedure CargarFicheros; override; - public - destructor Destroy; override; - constructor Create(const FicheroCAB: String; const FicheroLUG: String; - const FicheroART: String; aOnLoadSuccess, aOnLoadError: TNotifyEvent); - end; - - - { TCargarInventarioThread } - TCargarInventarioThread = class(TCargarFicherosThread) - private - fEDIInventaryService: IEDI_Inventary; - - FFicheroCAB : String; - FFicheroLIN : String; - FFicheroCANT : String; - - protected - procedure CargarFicheros; override; - public - destructor Destroy; override; - constructor Create(const FicheroCAB: String; const FicheroLIN: String; - const FicheroCANT: String; aOnLoadSuccess, aOnLoadError: TNotifyEvent); - end; - - -implementation - -uses - uDataModuleBase, cxControls; - -{ TROThread } - - -destructor TCargarFicherosThread.Destroy; -begin - fROChannel.OnFailure := NIL; - - FreeAndNil(fRORemoteService); - FreeAndNil(fROChannel); - FreeAndNil(fROMessage); - inherited; -end; - -procedure TCargarFicherosThread.Run; -begin - ShowHourglassCursor; - try - CargarFicheros; - finally - HideHourglassCursor; - end; -end; - -procedure TCargarFicherosThread.Execute; -begin - try - Run; - finally - Self.Destroy; - end; -end; - -procedure TCargarFicherosThread.OnLoadError(const ErrorMsg: String); -begin - FErrorText := ErrorMsg; - if assigned(FOnError) then - FOnError(Self); -end; - -procedure TCargarFicherosThread.OnLoadSuccess; -begin - fLoadOK := True; - if assigned(FOnSuccess) then - FOnSuccess(Self); -end; - -procedure TCargarFicherosThread.OnChannelFailure( - Sender: TROTransportChannel; anException: Exception; var Retry: Boolean); -begin - if FChannelErrorsCount > FMaxConnectionErrors then - begin - FErrorText := anException.Message; - Self.Terminate; - end - else - begin - Inc(FChannelErrorsCount); - Sleep(1000); - Retry := true; - end; -end; - -constructor TCargarFicherosThread.Create; -begin - inherited Create(True); - FMaxConnectionErrors := 5; //try 5 times on channel-error - fLoadOK := False; - - fROMessage := TROBinMessage.Create(nil); - fROChannel := TROWinInetHTTPChannel.Create(NIL); - fROChannel.OnFailure := OnChannelFailure; - fROChannel.TargetURL := dmBase.Channel.TargetURL; -end; - -{ TCargarVentasThread } - -procedure TCargarVentasThread.CargarFicheros; -var - MsgError : String; -begin - try - if not fEDISalesService.CargarFicheroEDI(FFicheroCAB, FFicheroLUG, - FFicheroART, MsgError) then - OnLoadError(MsgError) - else - OnLoadSuccess; - except - on e: Exception do - OnLoadError(e.Message); - end; -end; - -constructor TCargarVentasThread.Create(const FicheroCAB, FicheroLUG, - FicheroART: String; aOnLoadSuccess, aOnLoadError: TNotifyEvent); -begin - inherited Create; - FNombre := 'SLSRPT'; - fRORemoteService := TRORemoteService.Create(nil); - fRORemoteService.Channel := fROChannel; - fRORemoteService.Message := fROMessage; - fRORemoteService.ServiceName := 'EDI_Sales'; - fEDISalesService := fRORemoteService as IEDI_Sales; - - FFicheroCAB := FicheroCAB; - FFicheroLUG := FicheroLUG; - FFicheroART := FicheroART; - - if assigned(aOnLoadSuccess) then - fOnSuccess := aOnLoadSuccess; - if assigned(aOnLoadError) then - fOnError := aOnLoadError; - Resume; -end; - -destructor TCargarVentasThread.Destroy; -begin - FEDISalesService := NIL; - inherited; -end; - -{ TCargarInventarioThread } - -procedure TCargarInventarioThread.CargarFicheros; -var - MsgError : String; -begin - inherited; - try - if not fEDIInventaryService.CargarFicheroEDI(FFicheroCAB, FFicheroLIN, - FFicheroCANT, MsgError) then - OnLoadError(MsgError) - else - OnLoadSuccess; - except - on e: Exception do - OnLoadError(e.Message); - end; -end; - -constructor TCargarInventarioThread.Create(const FicheroCAB, FicheroLIN, - FicheroCANT: String; aOnLoadSuccess, aOnLoadError: TNotifyEvent); -begin - inherited Create; - FNombre := 'INVRPT'; - fRORemoteService := TRORemoteService.Create(nil); - fRORemoteService.Channel := fROChannel; - fRORemoteService.Message := fROMessage; - fRORemoteService.ServiceName := 'EDI_Inventary'; - fEDIInventaryService := fRORemoteService as IEDI_Inventary; - - FFicheroCAB := FicheroCAB; - FFicheroLIN := FicheroLIN; - FFicheroCANT := FicheroCANT; - - if assigned(aOnLoadSuccess) then - fOnSuccess := aOnLoadSuccess; - if assigned(aOnLoadError) then - fOnError := aOnLoadError; - Resume; -end; - -destructor TCargarInventarioThread.Destroy; -begin - fEDIInventaryService := nil; - inherited; -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.ddp b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.dfm b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.dfm deleted file mode 100644 index ad25fb4..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.dfm +++ /dev/null @@ -1,192 +0,0 @@ -object dmFicherosEDI: TdmFicherosEDI - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 186 - Width = 300 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'EDI_Log' - Left = 40 - Top = 16 - end - object tbl_EDILog: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REPORT' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OK' - DataType = datBoolean - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ERROR_MSG' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'EDILog' - IndexDefs = <> - Left = 152 - Top = 24 - end - object ds_EDILog: TDADataSource - DataSet = tbl_EDILog.Dataset - DataTable = tbl_EDILog - Left = 152 - Top = 80 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 40 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.dfm.cbk b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.dfm.cbk deleted file mode 100644 index d10077e..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.dfm.cbk +++ /dev/null @@ -1,193 +0,0 @@ -object dmFicherosEDI: TdmFicherosEDI - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 186 - Width = 300 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'EDI_Log' - Left = 40 - Top = 16 - end - object tbl_EDILog: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REPORT' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OK' - DataType = datBoolean - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ERROR_MSG' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'EDILog' - IndexDefs = <> - Left = 152 - Top = 24 - end - object ds_EDILog: TDADataSource - DataSet = tbl_EDILog.Dataset - DataTable = tbl_EDILog - Left = 152 - Top = 80 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 40 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.pas deleted file mode 100644 index c21f9ad..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uDataModuleFicherosEDI.pas +++ /dev/null @@ -1,61 +0,0 @@ -unit uDataModuleFicherosEDI; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService, - uROClient, uROBinMessage, uROWinInetHttpChannel, uDataModuleBase, - schEDILogClient_Intf, uBizEDILog, uDARemoteDataAdapter, uDAInterfaces; - -type - TdmFicherosEDI = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_EDILog: TDACDSDataTable; - ds_EDILog: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - private - { Private declarations } - public - function GetItems : IBizEDILog; - end; - -var - dmFicherosEDI: TdmFicherosEDI; - -implementation - -{$R *.DFM} - -uses - uDataTableUtils, Forms, Controls, cxControls; - -procedure TdmFicherosEDI.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmFicherosEDI.GetItems: IBizEDILog; -var - dtLog: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLog := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_EDILog, dtLog); - dtLog.BusinessRulesID := BIZ_EDILOG; - Result := (dtLog as IBizEDILog); - finally - HideHourglassCursor; - end; -end; - -initialization - dmFicherosEDI := TdmFicherosEDI.Create(nil); - -finalization - FreeAndNil(dmFicherosEDI); - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.ddp b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.dfm b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.dfm deleted file mode 100644 index 5f3fd16..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.dfm +++ /dev/null @@ -1,147 +0,0 @@ -inherited fEditorHistorialCargasEDI: TfEditorHistorialCargasEDI - Left = 525 - Top = 313 - Caption = 'fEditorHistorialCargasEDI' - ClientHeight = 451 - ClientWidth = 660 - OnCreate = CustomEditorCreate - ExplicitWidth = 668 - ExplicitHeight = 485 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 660 - Caption = 'Historial de cargas de ficheros EDI' - ExplicitWidth = 660 - inherited Image1: TImage - Left = 633 - ExplicitLeft = 633 - end - end - inherited TBXDock: TTBXDock - Width = 660 - Visible = False - ExplicitWidth = 660 - inherited tbxMain: TTBXToolbar - Visible = False - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 660 - end - inherited tbxFiltro: TTBXToolbar - Visible = False - end - end - inherited StatusBar: TStatusBar - Top = 432 - Width = 660 - ExplicitTop = 432 - ExplicitWidth = 660 - end - inline frViewHistorialCargasEDI1: TfrViewHistorialCargasEDI [3] - Left = 0 - Top = 76 - Width = 660 - Height = 356 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitTop = 76 - ExplicitWidth = 660 - ExplicitHeight = 356 - inherited cxGrid: TcxGrid - Width = 660 - Height = 356 - ExplicitWidth = 660 - ExplicitHeight = 356 - inherited cxGridView: TcxGridDBTableView - inherited cxGridViewOK: TcxGridDBColumn - IsCaptionAssigned = True - end - inherited cxGridViewFECHA: TcxGridDBColumn - Width = 92 - end - inherited cxGridViewREPORT: TcxGridDBColumn - Width = 54 - end - inherited cxGridViewERROR_MSG: TcxGridDBColumn - Width = 492 - end - end - end - end - inherited EditorActionList: TActionList [4] - inherited actNuevo: TAction - Enabled = False - end - inherited actModificar: TAction - Enabled = False - end - inherited actEliminar: TAction - Enabled = False - end - inherited actDeshacer: TEditUndo - Enabled = False - end - inherited actCortar: TEditCut - Enabled = False - end - inherited actCopiar: TEditCopy - Enabled = False - end - inherited actPegar: TEditPaste - Enabled = False - end - inherited actSeleccionarTodo: TEditSelectAll - Enabled = False - end - inherited actLimpiar: TEditDelete - Enabled = False - end - inherited actDuplicar: TAction - Enabled = False - end - end - inherited SmallImages: TPngImageList [5] - end - inherited LargeImages: TPngImageList [6] - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [8] - end - inherited dsDataTable: TDADataSource [9] - end - inherited GridPopupMenu: TPopupMenu - inherited Modificar1: TMenuItem - Visible = False - end - inherited Duplicar1: TMenuItem - Visible = False - end - inherited Eliminar1: TMenuItem - Visible = False - end - inherited N1: TMenuItem - Visible = False - end - inherited Nuevo1: TMenuItem - Visible = False - end - inherited N2: TMenuItem - Visible = False - end - inherited Previsualizar1: TMenuItem - Visible = False - end - inherited Imprimir1: TMenuItem - Visible = False - end - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.pas deleted file mode 100644 index 1daa18b..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uEditorHistorialCargasEDI.pas +++ /dev/null @@ -1,76 +0,0 @@ -unit uEditorHistorialCargasEDI; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorGridBase, Menus, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, - TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent, - JvNavigationPane, uBizEDILog, uCustomView, uViewBase, - uViewHistorialCargasEDI, uViewGrid, uViewGridBase, StdCtrls, uDAInterfaces; - -type - IEditorHistorialCargasEDI = interface(IEditorGridBase) - ['{6C84E101-C4FB-48F9-A9A9-93F8606DF4FF}'] - function GetEDILog: IBizEDILog; - procedure SetEDILog(const Value: IBizEDILog); - property EDILog: IBizEDILog read GetEDILog write SetEDILog; - end; - - TfEditorHistorialCargasEDI = class(TfEditorGridBase, IEditorHistorialCargasEDI) - frViewHistorialCargasEDI1: TfrViewHistorialCargasEDI; - procedure CustomEditorCreate(Sender: TObject); - procedure FormShow(Sender: TObject); - protected - FEDILog : IBizEDILog; - function GetEDILog: IBizEDILog; - procedure SetEDILog(const Value: IBizEDILog); - public - property EDILog: IBizEDILog read GetEDILog write SetEDILog; - end; - -var - fEditorHistorialCargasEDI: TfEditorHistorialCargasEDI; - -implementation - -{$R *.dfm} - -{ TfEditorHistorialCargasEDI } - -function TfEditorHistorialCargasEDI.GetEDILog: IBizEDILog; -begin - Result := FEDILog; -end; - -procedure TfEditorHistorialCargasEDI.SetEDILog(const Value: IBizEDILog); -begin - FEDILog := Value; - dsDataTable.DataTable := FEDILog.DataTable; - if Assigned(ViewGrid) then - (ViewGrid as IViewHistorialCargasEDI).EDILog := FEDILog; -end; - -procedure TfEditorHistorialCargasEDI.CustomEditorCreate(Sender: TObject); -begin - inherited; - ViewGrid := frViewHistorialCargasEDI1; -end; - -procedure TfEditorHistorialCargasEDI.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay ninguna vista asignada'); - - if not Assigned(FEDILog) then - raise Exception.Create('No hay ningún control asignado'); - - FEDILog.DataTable.Active := True; - ViewGrid.GotoFirst; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.ddp b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.dfm b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.dfm deleted file mode 100644 index b83f315..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.dfm +++ /dev/null @@ -1,601 +0,0 @@ -object ModuleFicherosEDI: TModuleFicherosEDI - OldCreateOrder = True - Description = 'Gesti'#243'n de ficheros EDI' - ModuleMenu = MainMenu - ModuleName = 'Ficheros EDI' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.4' - Left = 779 - Top = 651 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000003954944415478DA95967B48145114 - C6BF6D6975FB472AA2C28AA03F2203234B24437C656A98665A6996424F94A428 - 0B212289DE490F2ACB34D135B32CCB16297B10F6C4324CEDA9926CF6B0D53202 - AD7DCE76EF9DE6EE8E6EBBEB81D93B7367F6FB9DEF9CBB7747715273CB060F22 - 3B3D5641C75DF9A51E3D4F63CFB60C85820236AD8E71F9E0A9F23A9454681117 - 1544BFC4E77F1B050C18AD1830D05160D7D2DCEBE606F4FFD48303A888ABE8E9 - D17371B3D5260A19AC30596C4EC5552A2F682E5C91039C3911041BF28E699C8A - 0FB091089B44719345E0E2DEDE6A9C2BD6B80648E273E7047A54F3F79D5D5C9C - 864B80243E9C686C6A4142E2727EED14105ED8C61F08E96F9035D55504C46461 - FC586FF7009AB9C52AC04A8E03A72F3280B6FEED7F85E3C3FCD8FDBC83A71820 - 2E2109B537AA196808202B2D1A9145ED431C50012A4463E08F09BD7DFDD07DE9 - C3A11305A829CDC7ED27EF39800685284728ED808DA95128ACBC8B0D29512C73 - C9C1D1A22A0E385354ECD44145E1613C7ED1CE01E1910B59A347AA54385F5221 - 02D62447A0E4EA7DAC5D168945659D6E7B60254BD548D6BFC12CC068B6A1B1A5 - 8303E68784E1C9A37A44C72EB6FF0E562F094579CD03642C0D777060C5E9B2EB - 6E7BE0EF370DAD6F3FC84A44212AE2E052955604A4C485E052ED23AC4A084562 - 65D7B07A70FCF07EB4757472C0ACD97399383DAED5D48980A4986054D73D0505 - D1CC2DA404564140F145ADDB1E1CDAB7173A9D8E0366CCF4C7BB37AD080C0A46 - EDCDFB22207E4110B4F79E61596C3052AABB8738185C73A3E348E6BB3F7F9495 - 8842A8833BF71E8B00BA53AE498B47E2C2792C73D607B2AF9457DFC4EE2DE92E - C5E9FC4FFD270EF0F59D029517D92ED46AD43F7C0E8594ADE44412A78DAE2435 - CCC95C8515EBB773578101B3B0243199895390816C74A65F5F3860DCB8F16C99 - 524843E32B0990673BA909627BBE63D0FD3F7BDD4A51C822CF5C12A70E46FCEE - E6001F9FD1FF9AEC85A6D6763B801C8AC10DA4FF5E1B3252B17E73AECC4144CC - 522E4E416AF3370E50AB47890E0864EAE4098E00E493D15E0B32B72B7F2AD2D3 - 5638CDFCB2290CA5CDCD289DDE8BD1E8E100A552C900BACF7D68AA2B50488023 - E423470E6150BCEEDA819CDC9D320701216441BC1C03E880B3117A4C1CF95DB6 - 8AF43F0C4C9C9E3B94854378F86C4DC6AFA357F1B46D9BACE6ECDC2C9E93B580 - 495E7680A3F820C0E0101D50F1DEAF5D70171440C351DC03409E627674A647AF - 29FFDE3886E8FD050279B575ACF985ED0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000006BD4944415478DA - 8D566B5054E7197ECEEED91BBBB2ECCAB20A2C4210B0108C012A511062443183 - 522BE3C4D814C6361D4D26924B53E35012A74D676A5A6352C7A989D30495C48C - 284AA8C6A891315A85AE82B05111D95D592EBBEB72D95DF6BE67CF39FD58B4A6 - 4D4D7366BE3FDFE5799EEF7DDFE7FD0E85FFF7157FAA42249C2DA0058F49C5F4 - 0CF01C1561797F98633B11085F47E726F7F71DA71E3A5FB83F2F7161F38EC7D3 - B9B2FB939C5C11495116B27324CF72E661976BC032366CB8693BE9980C34E142 - 4DEF0F235874302136F9FA6FE4190DAF6BD385884879D82D5E78DD2168A9240C - 3A075153B6070B9237231C6278CBD078E4F2E5BEE1DBB7EDEFF95C9E83FF7DA3 - FF2428F858975274EA8850FB5561D1121D7AFBC7C058E2B1B56C2BCEE969F87B - CC5015AC4480A3A1D5C661D66C35385A8C7142DED5690A765FBBD37877C25F87 - AF7F36F65D02A23C297DF8AF91B43F56AD5A3D0FA15008174FBAB17EDE1E94E5 - 162056C663D3863AB45CFC103D662F2E748D61F8AE07293A3512E7CC86D5C5C2 - 60B0B05DFABEFDA356DF6BD0FF7CF2DB04145D72706BF9DAC33B325706A3E07D - BD362CD76CC16B4B6BC15314BC81108E1E69C3BAEAA7E10D030344A32FC0A0ED - D200B941000B0A32D06B0DA1FBAA8919E81F7EDDD6BC66F70382C2FDF9E54B52 - 1A0CF29FE656D72C46381C86BEC38C3D15A790199F15DDC4DE1B11321C7EC01F - 0204645FDBE953B007D470314A2466A4E2B63580AE8E5B76DE1F5CD9FFC9CA1E - 2A7D8736673632AE4FF1D8D08F0DCF3D112530F65971F5BC0B6A311FD5F0B72D - 67A09B990517516FF702816008FF683E80F61387F1AB37DF43BB5104914C0607 - AF80C9E4E087FA47F6591A576CA690FF617CEEAA3DA36B7E9909590C0D966511 - 669828C9D438D16A80C22343E31B1604887C3F030409785BD37EE84F1FC7BA97 - EAB0A274098CA361341C3140959602A33D08E33766BB36217E014592FBD44BD5 - 05FB9A0797A63FFF4231143324D3E084E444EBB5A96BE1E0560B9C24242C87E8 - 5A14FCCB63A8D8B40D190525982513402906FEF2D937E065E4061E1AC61B038C - 5C26FA0525283AF0EB9D75E56F597D54EC17C61C543D571A25B9D66546DF792B - 0E11E5E341A29A8960B0EF263ACFB6A2FBE259AC7DE56DCCCD2F06C70B409324 - FD58037CF6F530F4BD4E38C52A988D36DEE570FE89923ED9F8DBF77F5F59DF69 - 189446FA2EE15C423D2A2AF2D071FC163EAFB7C0E2218925CACD377A70E8775B - B0666D153A6F1A9192574AB22C8462E62CCCC95D84BE638731429498D86488D2 - 32601A98807BD87E86129736BEF9EEF6D575DD3786A4DEDE763C313F01BB076B - 71E50F160C1170D7BDD05C39FB77B4ECAA437945252EB7778092C781A204D065 - E7E3A98DDB603C7E186E5F1897C635A05333611D71223836A127F5DFF872FDCB - CBDEB1793809825EBCF26C1614B269E0B100514F6A9323041EB713AD1FBC03C7 - A00925CF6C46EA638B4978C81A25044DDCBC5C079C338C626FAB194EA99AEC73 - 20C2445A28143714D5AC2B3C96949698D0D569446DF5E388570AE063A7433305 - CEF2538327BD271CAD209154118D7D749EACC791042F4902761DBB8DAF6EFAE0 - E064181FB0F2B442B173AA4C95254F669F5B5E9E9777FE422F55B9EC112CCE56 - 212C40D4B1D3E0D340DF1EF789A7125CA005A4420EAFEEBE8A5E7F0CDC010EEE - 117B3846ABD9187572C2AAA6ED3FA95A544FC241BBC69CD8FC4C0E92E304B091 - 1005D887834F1DCE8C03B2D4408BDE8EF79B4978C471981C73211408DDE555CA - BCE9565172E047F3B3755F2C5DBE20B5A7FB0EE667C56343990E9A180A03DE07 - 89E6EE93DC539E4380E72801E35810B53BF5B0D22AF8822C3C23760894CABDFE - 8F17BFF8EF6E2A5F76A8B6B068DE9F331F4D155F69EF43FEA30958B72C05696A - 1A0C01B5139696A36DA85CFF74D45489724042F3B8629EC4DB1F1930C4CD4080 - 17C23B6C43442436314AF90AEC5D687ED0AEF39B941A1DFD6E6EFEDC8D49295A - C1AD1B83901280D282242CCA51414D87F042D5ABF8B2BD81988E43EFE0244EEB - 6D38F9CFBBF04A9488104FF8EC0E300CEB42AC6A13D350D8F4DD07A7F8238D66 - A67A876E6E6275D223B3E949B71F0EDB04782604955C0057C7296455AE87CDE1 - 81C3CD202094123FC849FB8810F0D1A9D0B978A5EAAD082DFC00FB0A98FFFD64 - 2E6C8C9D95AC7C9E9689DFD0246B340AB5920A937A0D04C3C413A4541996B46D - 0A1C511C0E45E077BA117079480F8A3151B2986D6111FDF97DF0EF7BF4915E73 - 3A9F84E2458A16AD164A242A21F9A5A0C42212020E417F908C0031121BE184A2 - 09C8E54783427A170136FDD0BF8A07A9D97E3D65D2E52B778E7B728935B288E1 - 24BC90F6B112E91D4864D742ACF04C706FEED0C3CEFF0B07FB54E0B6F6EF4600 - 00000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actCargarFicheros: TAction - Category = 'Ficheros' - Caption = 'Cargar ficheros...' - ImageIndex = 0 - OnExecute = actCargarFicherosExecute - end - object actHistorial: TAction - Category = 'Ficheros' - Caption = 'Historial de cargas' - ImageIndex = 1 - OnExecute = actHistorialExecute - end - end - object MainMenu: TMainMenu - Tag = 100 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 10 - Caption = '&Ficheros' - GroupIndex = 1 - ImageIndex = 4 - OnClick = actCargarFicherosExecute - object Ficheros1: TMenuItem - Tag = 100 - Action = actCargarFicheros - end - object Historialdecargas1: TMenuItem - Tag = 200 - Action = actHistorial - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000002284944415478DA635CB2F9C47F06 - 2C20C6D7821144D7F62CC02A0F038C2003A27DCCE1024BB79C6470B2D066D877 - E22AC3CD9B37189A8AE3E1726F3EFD6178F5F13790FECBB067C75A862DBB4F22 - 0C0069440684344BC9AB33CC9AB308D500984BEA7A173298189B6275F299B3A7 - C19A41006E40889B31C39A5D67C1068034E3027FFEFC659053D682F3E106F83A - E8336C3E70116E00B2D39181914716434C5430C3EE9D5B19FC03C31006B85969 - 33EC3A769501E492D6C94BC1067CFDFE8BE1F5BB2F0C0F9EBE63D877F8284369 - 560C837D602E83B8300783ABBB3703171737C2007B13758683676E32805CD233 - 7325D80074AF64244632F844153078B8DA329C3F771A6CC892656B2106CC59BA - 832125DA8301E492C9F3D7A278E1F3F7BF60FC0988A3928BC12E30343205BB60 - DDC61D0C8C30853097CC5ABA11AB177CFD4318D2734A194C8D34191E3DBC0F36 - 64C7EEC3A806805C626BA2C050931FCBD03271318A179C3C82188A8ACBC12E90 - 935764E0E4E4623874F42C03A38147C2FF0B3B16C00D0225DDFCB468864FDF20 - CEFEF5E73FC3D79FFF18BEFCF8CB50575DC5A0A220C6C001D4CCC9C9C970FADC - 75EC0624C64430CC5FB202CCB77109041A0232E01F4357730D83B4380FD8F63B - 0F5E319CDB318D1164C077A0BA5B4043F44186F9BA3830040787426D85D81C7C - 418861B6CA2B8669DDF5602FBC7CFB03AC199C994004D4100E982BA64E980CD7 - 0CC1FFC0E273FA1BC0344C33DC001880B90094CB700164CD2000002110375C5F - 4EB13C0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000003824944415478DA - 5D530D4C94751C7EFEF70177AF1EBC753B4EA0B8148EEB0E439423CE4411B58D - 0C0DC92648AECC465B6DCD4D572BC714AA4DDB4CD7206DB38F65E55C6B358A8C - 8D558640C725C981E7D9911D1F1EDC07C7DD61F7F5BEF7FE7BA11CCCDFF66CFF - FDF67B9EFD7FBF3D0FC1BD653A9A06812D351566ADD7E76B8A922948DC13332E - F7B8BF3B7675661068E1978E93C52725283AF598A52A713AB0A2DDCCC725A09C - D8CA7E969AF20ED2E04C3CD67FD96E730DFFF53A3FF4AA6D9EB0448012B6ECEC - DE271B979D0869DB730DEB54B874D10DCD7533D4F90F034229F28ACD80428581 - 3E4768B8D7DE74A7FFC5AF16058CEF6F6C38A0BE10D0B5E63E52FCE002F99D92 - D3B08F4CA0EEB95A38A72518724531EE892023EF21F4FC3C1271D95D8FC77A9E - 1F20F33B576D2AFF9ED77FB9ADAC669ACC93DF341E87656305EED36A11E680BF - 83220607D0DF3F84045B8E884283AB97AF0D78BCCA0DC4D85A40EF5E61F77E13 - 7CBE107EEDF4201A4B8051A6E3585D1FC64647F1C3B99338FCD649F43A388CCE - 4A607706F9E098670759BDFDBD1329CB07AF556D2F40AE2E03F1781CDD5D3710 - F250EC54BD01814861EBFE0EB587DF854EB70A2C8DE3F8A776DC4E2EC7A4DD79 - 966C7BF9D2F9070A358DD6483DA9ACCE4728740743BF79B14324DFB2DB10F0FB - 51B4E909A8F30CD0EAD7823AACB8D81B46586D847BF086955434757E5EB0D6B0 - 573A7E85F429DF5E58E5A9CC2322A110DFB6B520430EC464AA857EF5A136B01E - 073EFB6516538C1E813F6F39897EE785239B9FDED2CA858392BAAD6A8CFC6183 - 82CD42B6B114419F17A19900D43A13784102B904A8CCE1D1D0DC8389F8324426 - A7BA88ACB8AD7CCF4B353F4D8EFB98832FAC8372B914B371801344889EE352FF - 4110B13E0770386FA3F9BC1BC1609426F954ABE883A3B2C2FAB26E83D9589921 - 4BE2953D060445077AFF59245351AC4403642979EC3B760537430A443D9E2861 - B31E5D30D2FC2F4AB698BBE40C9399CB02FB7719B08295E3E30FBF46E381DDD0 - 3014635311349FB986EBC13444A7BD3425959FA23FD61CBA9B05A2B07CF4CCAA - 35FA730A9655CDF9035899CDC06BEDC4E6FA06D86F06303C16434CCA20E1F7D3 - 14641D94B97F1F3A2AE6C8D26429377C6261D8CC76558E760D49534893BC8064 - 92176F419188CC21110E47693A7386A6F32DE8A89DBB278DFF57D3EF72B5D753 - CD71A95D0291AC1604CA709CE043BAD2CAA529BEC03755234BC7FF05ED0D8747 - EEB393300000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000003AF4944415478DABDD75B48145118 - 07F0FF28AC094550425174A1B21B1474A33B5694EC8369B1565A59D44B11F550 - BDD44377ACEC4A37CB5CCBB4B5581575B5DA4A532B53D36C230ABA41D7070D83 - C03477D6DDCE37DB9C9D19B77136A20F86B33AEEF9EDFF3B676656C1E7F3E17F - 967026E7962171738A59F867209B4CF78FCEE63A71C9E64093335D85EE3E7E25 - A4F6ECDFBE56E0204D1A4A52C2D804AA73ED6E2F3A3ABD68A7C3ED1F3B7E8FED - DF3E63EFE1B350814693C62D9A8E50B1C6270D28BB5BDF1D9C9FF1AA1B54B961 - 0CBC5E2FD26D77D0D2D2FC57D8A0616370D19A632C216161616182B68D62978F - 4F2C7A7CBA1895219030D1E345EA191BA64E9916CA1E51617F0483B5746E5B5D - 48905C0D4DCF90B074B93EA84D268A5D3872E17AB775D32B377BDF8CB8CD18D0 - BF97049614D9A591831B921721E3DA5D0E2A31D1D38593D67C097454BDEC1133 - CF198B2C7B3932738A25904A4EC9C1F5890B70A9E09E6E4B65307EDE78FEFB1F - 1D6E7CFDD6861676B4B3D769A7D261B71EC5D5A20A0E066D69CA9218E4165783 - 92CAA9A4841EFF6B6B9E8383E733ADBA09732FA421BFB4928371F11694390AD5 - 2D4D8A9B8BEB650F4049B598871DD9F61BBA6B486BD629FAD0C946371B4B9C55 - AA96121A1E1E1E002DE65928743E02255D92F751B7A53DD5847123E1ACA8E660 - CCFC58444444C0643221EBB2CD0FC62F9C0E47793D28A93299BC71ECA5770CAF - E1B143A9B8FFF0010767CE8E416D4D3562CD8B916BCBF783747F5CBF2A1E9454 - 8BD1CF45B72A0CAF61EA8103A8AFAB51B59450932902F6020704F901CCAE439E - 545BCAFB6797D7C7D68CAD971858371ADDF21AB2734F1B1F7170C2C449126662 - 6D2D76DC5683943458C94F0723181D2F5CB51C1C153D16919191127AF3765500 - D42BBA69EFD9BAC61046E7DFBEA8E7E0D06123A40D43687965AD7170E79614EC - 389881D76FDEA8CE8D8E8E46F2CA94C08761E3A7578F393870E060A99D84D6D4 - B9FCA020EC63C31E410FDCB671D51F93D1A348BE06096C7DDFC8C17EFDA2F81A - 3634BD340E6E5C978CB4D35941139A1392394629DBBE3471B077EF3E7E901D43 - 06450540F6DE448616CA13293F0481EB562705D249EBA5BEBB14FB1620DBE542 - E6A81688CD4F3948AD24ECDD87AFD2973019B4B0790B94E8EF0F0142095C99B4 - 9C5D83D94113CE8E5D8115CFFB03EF8173F39A21B4BA54D76173EB4FFE8D8F6F - 1A05CAABEFB6447C3F51805DC786C36259163459A762B3D079692E05A8C454A0 - B6B409172724A2F1714D8F3B5A2E02A9B4DF657541E5469A6CDE14F2FF045A8C - EA17B3DA9C7AF449C9A20000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 94000000097048597300000E9C00000E9C01079453DD0000091A4944415478DA - 9596097054F51DC7BFEFDA3B7B41D8DD64D71C24241009844024014492101014 - D4160A28D8B18E38C5BBD45A5B6B6BE980B6D57A0D18A8022A6D119C16396A51 - 4A0847249098262CB903B93661B3F7BEDD7DBB6FDFEB3F412A9DE2D137F36667 - 67DFFE3FEFFBFB7D7F07856F7315BFC581D158C024B3398ECA6159460159A244 - 8916E564B25D8C0B5D386B74012B93DF7414F5B5BFCED866802239CDA455DF75 - 537A8A3D3FC33C715ADE84346D8A9A91641A570271AEA7D7E7E9EE0FB5F7BA82 - 8D1E3FBF2FC1C7DA707E7DE4FF0312459C4E33236B3CFBD2F442ED6C45865321 - 1B6A21533CC4483E287E06D2B58530181DD0684DA0295A760D78C4DA339D818E - CEA18F433E614BE24C9713F895F4CDC0C2DD5A8551FEE1EC69B6B565B7C993C3 - E6AD6CFAE423308E4F201167202758F8878D387B220DDEE1A55898BB06068B1D - B4420D7F302A77760C49276B5B5B3DBED06BE17E66279C2BE35F0D243068A5C7 - EE2AB7AFBCA554C80D99DFD65A0A8F43A3F4C2EF55A2E3733BFAEAACE8DA1FC1 - D4F23B31C2EB2151139039291F45337241A934084424B886FCF267A7DB026DAD - FDCF4487B877AE8752D78751A1D33C71E7ADD9F796CE31E57746B729ED257FC2 - 04EB08DCC34AF4D69540DF3B0FE11E011F7FD488F70EBC0699D3A0F30A83F6BE - 182E76F990E130213B270D03210A235E5E3E55D3121E1A18D9E83BB4623B41C9 - FF0D9CB5AB744AAEFEE5271F2A2B68F57D96E2B5BE88ECC99F816124B83B7290 - A8A9842D3E11F69B1CE0230CEE5EB30432C3A1D74B8117806058C0917F762221 - 4AB8A52C0F1707E3E81FF4A3FEE4857642B9BBF7FD25CE2F8125EFEA53F474F5 - 0B8FCFAF12947193D3B30396791F40ABEF06CFABD15B9B0D7B77154AF3E723AF - B000A9361B18A512BC48E14A185093537CBE104E1E3B0A97604338A1417E6116 - 9C2E11BD9786E5F67F751F94786995EBE0B2C855E0BCDD6577CFCFDC5D75FBCC - 9BDABA9AB87EE64DA4CF390656338250400FD7F11C4C13EEC092797722232B1B - 0A8D0602290B170F8488BA783888E37BB6A1BEE61F58FDD4669C6AE7909AAA47 - 5869C2803B820B0D1D7105850A67F5829314A6EC558CCF4CFEFA178F2D581B94 - 54D6E68BB5943CED1528D3CE13153262211DC2A7F351422F45E582E59890E640 - 9C56C01F030411E043211CFCE31F70EE9303D8F0EC26DC726B259C8351ECDAD7 - 8CE925B96819242A7B8689B33DFBBBECF42A0A25BBB30AF2F4AF3FFD4845D5E7 - AD03DC69E7DB485D7C189C79001258C4790DF83A07D6A43E0CEBCD25D09AAD90 - 69962483418C8FE0F0CED7D17CEA532C7EE049CC2C5F821C2387404CC69E436D - 0812F5018511C39E08717847B7232BFD1E0AA55B17D92AB6FCFDFAEAC89E2342 - 65023100B963444D970AFEBE2F9B87ABFF325E5D558BD61335A83FFA572CDFF0 - 7314DE7607690C0C8C0A20470F1C6FF162CFC15618B333D1EF13D1D5D4195769 - 94EB28BAB4FAD1DB2B06B71CEAFFA526A7C24C14A8C0722C24994152A2904CD2 - 044C214678814B3C02ED839895A884CECB2274E50AEE796A1326975582A239F2 - 3CC01057CCB6006DC3023657D7C3929B81F69124FA5A7BE5444CF80DA59CBFEB - 918DEB6EDED4D45F6338D8F314B2AAD2C1EA75489252250EBF0A26D0982B025F - 53370ABD73801E2F56AC5885CEEE6E98F34BA050EBC873407ADE74D8720B51B7 - BD1AD1848C86010653AA2AD07245C6F0A5214851FE6FA3C0479F595FF64284A6 - 8C1FEEF829BAEC1FC0343B1394210549F1AA4271248C584B272A35EB90B8EC07 - 3FD08D6577DD83C686F37007A3A059EE6A752D5B87A2C56B70764735F926A3AE - 9785A9B80C83310EEECB2EB049F104C5CE7B77FD86B5337F373ED3AE3BB0FF28 - A6E5766347CB46B0459320A718207B43905A5A51A92587E55782A568D4FCA51A - 8948101367CE47C5FD3F22E164C714729A9431B5E576529791047EF25A3D026A - 33DC02992C9DFD6015CC3E8A9DBB6BFEF285793BE72C9C9579F8F0394CCD240E - 144FE295BAC781295980B307159AB5282E58848905C5305BED10222497DE1198 - D33249E9682191D027097034871AF2F70A07D0D817C6CFDE38871871F5A85BDD - ED97C11AF52F92B2A8B617163876DEF7FDF2F2E60B0354C8E7C3AA4A2B6A1B77 - E1CDBA675161BA17B3729622ABA008E36C0EF2966AE2467AEC70E90BC835E068 - 17C9310093CC32FE5C33806D1FF5206E4C4598F4BE409F4B54DB2C0F9267F632 - D665F40BDF5B39FB69558A8E3D76AC050FAF9E8A346D14EEA14B70F9C2449503 - 464B3A38029308EC1A40BA0E36FA69D59019401CEA8F8978EEAD46B48595F090 - 71161A1E21A32DD9AF48B57C77ACB571B7EE292A2C4C3B5A5955646E6EE9A38C - 5A062B1665C2AE4B22144F22282B49B17363CAA41B2893C96D20F537CB0A2849 - 48777FDA8B3D9FF462446146241A47A8CF0566FCB8036130ABA92F4693C66431 - 6DAF5C347D55BA23953E79C289B9250EAC586087554BC14F4AA49FF4CD44F2C6 - 301B5156301ED012B3360F46F0E357EBE166F4E0650EBCDB8B7854006D1AF79D - 6875F187FF194F5CE9EE9BAD0ED3DECA25C59325D068A8EFC0DC59762C2E4D43 - BE45018626A122C9BF44464E43BD13F316968D19640281D9B4408CD03F6D1AC1 - 1B7B2FC2051DA29402D14008D1E11189B658F60B81E4FDF8A02C7ADDC47F9ED6 - 2DCA7B2823D3F66271E9E494585CA49C4D3DB05B75A89A9B81E26C1DD28D0C2E - 3638F1DC93BFC7D1BA77C86BC9A4C0250C90101C3A3388FDC7FBE0A3344892C9 - 2FF0514406864869E93A6030AC4E6C2D3EFFBF2B06991C6AABF88023DBF2DBBC - A9593AA5568DCB5D2E621E1F8C7A25F2B38CD027DC38FBFE2E3CF8F216787C11 - 34B57BD0D8EE434064A11C6786C43088FA8288BA3D802EC525E9B43F486E2F39 - F2D54B14819AB2A907546AF5467B4E5AB631D5488DE62AE0E3E1F70448CB2371 - 8D8548C2CC24A724914A15D96554C4540C849880A8C70F21C84B943EA553D268 - 1F4F76463E41CD02F11BF65299CA5A77646A884FBCA45028CB8D5633674825E3 - 8365094486484071D2684781A32B85404C11F10610F387C89E437664837E1F99 - 009B13D5331BBEDD5EFAC565B9EF63AD51A32C8925A42762426206C530369A63 - 198AE32012503C1627E34BC058A5A8D46EA854E7928CE2EDB856388257CAA237 - 3AF3EB37EF6B517EBE45C10A6251C01B9C128B8A532996CE92245921D1743C41 - B37D32C7B549B4B2391C94CFE3BDE9FCD79DF56F9BAC2EA7B114766B00000000 - 49454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - Left = 232 - Top = 80 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.pas deleted file mode 100644 index 5aa8a3d..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uPluginControllerFicherosEDI.pas +++ /dev/null @@ -1,76 +0,0 @@ -unit uPluginControllerFicherosEDI; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCFicherosEDI = interface(IInterface) - ['{D058419C-2EFC-41A6-99DD-76E5B7FC4361}'] - end; - - TModuleFicherosEDI = class(TModuleController, IMCFicherosEDI) - actCargarFicheros: TAction; - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - Ficheros1: TMenuItem; - SmallImages: TPngImageList; - actHistorial: TAction; - Historialdecargas1: TMenuItem; - procedure actCargarFicherosExecute(Sender: TObject); - procedure actHistorialExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uAsistenteCargaFicheros, - uEditorHistorialCargasEDI, uBizEDILog, uDataModuleFicherosEDI; - -function GetModule : TModuleController; -begin - Result := TModuleFicherosEDI.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -procedure TModuleFicherosEDI.actCargarFicherosExecute(Sender: TObject); -begin - VerAsistenteEtiquetasMontajes; -end; - -procedure TModuleFicherosEDI.actHistorialExecute(Sender: TObject); -var - aControl: IBizEDILog; - aObj: IEditorHistorialCargasEDI; -begin - aControl := dmFicherosEDI.GetItems; - aObj := TfEditorHistorialCargasEDI.Create(Application); - try - with aObj do - begin - EDILog := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleFicherosEDI); - -finalization - UnRegisterModuleClass(TModuleFicherosEDI); - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uSubirFicheros.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uSubirFicheros.pas deleted file mode 100644 index ad5180a..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uSubirFicheros.pas +++ /dev/null @@ -1,233 +0,0 @@ -unit uSubirFicheros; - -interface - -uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, - uROClient, uROClientIntf, uRORemoteService, uROBinMessage, - uROServiceComponent, uROWinInetHttpChannel, - VARELA_Intf, uROTypes; - -type - - { TROThread } - TSubirFicheroThread = class(TThread) - private - fROMessage: TROBinMessage; - fROChannel: TROWinInetHTTPChannel; - fRORemoteService: TRORemoteService; - fOnAbort: TNotifyEvent; - fOnFinished: TNotifyEvent; - fOnProgress: TNotifyEvent; - fOnStartUpload: TNotifyEvent; - fOnError: TNotifyEvent; - fFileName: string; - fUploadOK: Boolean; - fFileSize: Int64; - fCurrentBytePos: Int64; - fTimeStarted: TDateTime; - fFileService: IsrvTransfereciaFicheros; - fErrorText: string; - fInfoStr: string; - fMaxConnectionErrors, fChannelErrorscount: Integer; - procedure RunUpload; - function GetUploadChunk(FileMemStream: TMemoryStream; aSize: Int64; - const Sequence: Integer): Binary; - procedure OnChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); - procedure Run; - protected - public - property UploadOK: Boolean read fUploadOK; - property FileSize: Int64 read fFileSize; - property CurrentBytePos: Int64 read fCurrentBytePos; - property TimeStarted: TDateTime read fTimeStarted; - property ErrorText: string read fErrortext; - property Filename: string read fFilename; - property InfoStr: string read fInfoStr; - constructor Create(aFileName: string; aOnStartUpload, aOnProgress, - aOnFinished, aOnAbort, aOnError: TNotifyEvent); - destructor Destroy; override; - - procedure Execute; override; - end; - -implementation - -uses - uDataModuleBase; - -{ TROThread } - -constructor TSubirFicheroThread.Create(aFileName: string; aOnStartUpload, aOnProgress, - aOnFinished, aOnAbort, aOnError: TNotifyEvent); -begin - inherited Create(TRUE); - fFilename := aFilename; - fmaxconnectionerrors := 5; //try 5 times on channel-error - - fROMessage := TROBinMessage.Create(nil); - fROChannel := TROWinInetHTTPChannel.Create(NIL); - fROChannel.OnFailure := OnChannelFailure; - fROChannel.TargetURL := dmBase.Channel.TargetURL; - - fRORemoteService := TRORemoteService.Create(nil); - fRORemoteService.Channel := fROChannel; - fRORemoteService.Message := fROMessage; - fRORemoteService.ServiceName := 'srvTransfereciaFicheros'; - fFileService := fRORemoteService as IsrvTransfereciaFicheros; - - if assigned(aOnAbort) then - fOnAbort := aOnAbort; - if assigned(aOnFinished) then - fOnFinished := aOnFinished; - if assigned(aOnProgress) then - fOnProgress := aOnProgress; - if assigned(aOnStartUpload) then - fOnStartUpload := aOnStartUpload; - if assigned(aOnError) then - fOnError := aOnError; - Resume; -end; - -destructor TSubirFicheroThread.Destroy; -begin - fFileService := nil; - fROChannel.OnFailure := NIL; - - FreeAndNil(fRORemoteService); - FreeAndNil(fROChannel); - FreeAndNil(fROMessage); - inherited; -end; - -procedure TSubirFicheroThread.Run; -begin - try - RunUpload; - finally - if assigned(fOnFinished) then - fOnFinished(Self); - end; -end; - -procedure TSubirFicheroThread.Execute; -begin - try - Run; - finally - Self.Destroy; - end; -end; - -function TSubirFicheroThread.GetUploadChunk(FileMemStream: TMemoryStream; aSize: - Int64; const Sequence: Integer): Binary; -const - Block: Integer = 65536; -var - Position: Int64; -begin - Result := Binary.Create; - Position := Block * (Sequence - 1); - if Position <= aSize then - begin - FileMemStream.Position := Position; - if Position + Block > aSize then - Result.CopyFrom(FileMemStream, aSize - Position) - else - Result.CopyFrom(FileMemStream, Block); - end; -end; - -procedure TSubirFicheroThread.RunUpload; -var - FileMemStream: TMemoryStream; - Chunk: Binary; - Sequence: Int64; - isfirst: Boolean; -begin - fErrorText := ''; - fUploadOK := false; - fChannelErrorscount := 0; - fCurrentBytePos := 0; - Sequence := 1; - fTimeStarted := Now; - FileMemStream := nil; - isfirst := true; - try - if FileExists(fFilename) then - begin - try - FileMemStream := TMemoryStream.Create; - FileMemStream.LoadFromFile(fFileName); - fFileName := ExtractFileName(fFileName); - fFileSize := FileMemStream.Size; - - fInfoStr := DateTimetoStr(fTimeStarted) + ' ' + - fFileName + ' ' + - FloatToStrF(Filesize / 1024, fffixed, 15, 1) + ' KB'; - - if assigned(fOnStartUpload) then - fOnStartUpload(Self); - Chunk := GetUploadChunk(FileMemStream, fFileSize, Sequence); - try - while Chunk.Size > 0 do - begin - if Terminated then - begin - if assigned(fOnAbort) then - fOnAbort(Self); - exit; - end; - fFileService.uploadChunk(isfirst, fFileName, Chunk); - isfirst := false; - - Inc(fCurrentBytePos, Chunk.Size); - FreeAndNil(Chunk); - - Inc(Sequence); - if assigned(fOnProgress) then - fOnProgress(Self); - Chunk := GetUploadChunk(FileMemStream, fFileSize, Sequence); - end; - fUploadOK := (FileSize > 0) and (FileSize = CurrentBytePos); - finally - FreeAndNil(Chunk); - end; - finally - FileMemStream.Free; - end; - end - else begin - fErrorText := 'No existe el fichero ' + fFileName; - if assigned(fOnError) then - fOnError(Self); - end; - except - on e: Exception do - begin - fErrorText := e.Message; - if assigned(fOnError) then - fOnError(Self); - end; - end; -end; - -procedure TSubirFicheroThread.OnChannelFailure(Sender: TROTransportChannel; - anException: Exception; var Retry: Boolean); -begin - if FChannelErrorsCount > FMaxConnectionErrors then - begin - FErrorText := anException.Message; - Self.Terminate; - end - else - begin - Inc(FChannelErrorsCount); - Sleep(1000); - Retry := true; - end; -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.ddp b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.dfm b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.dfm deleted file mode 100644 index 0432b04..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.dfm +++ /dev/null @@ -1,123 +0,0 @@ -inherited frViewHistorialCargasEDI: TfrViewHistorialCargasEDI - Width = 736 - Height = 430 - ExplicitWidth = 736 - ExplicitHeight = 430 - inherited cxGrid: TcxGrid - Width = 736 - Height = 430 - ExplicitWidth = 736 - ExplicitHeight = 430 - inherited cxGridView: TcxGridDBTableView - OptionsCustomize.ColumnGrouping = True - OptionsView.GridLines = glHorizontal - OptionsView.GroupRowStyle = grsOffice11 - object cxGridViewOK: TcxGridDBColumn - DataBinding.FieldName = 'OK' - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.Glyph.Data = { - 36090000424D3609000000000000360000002800000030000000100000000100 - 18000000000000090000120B0000120B00000000000000000000EBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEB8599CD1028908B99CAEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB70 - 88E01048FF102890EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBE1E7E09EC395B0DCADEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBADB9DD7088E0ABB5D8EBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB709F5E3F812065B259CE - E4CCEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEB92A0CAEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - D8E0D459993B65CD505CC74042AA3083C87AE0E6DFEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB4050B0EBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBD8E0D450943065CD5079EA6082E0776AD06057 - B247A2C799EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB92 - 9CC30038F0848EAEEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB4F9D3B - 6AD95079EA60A3ED96D9E7D89DED8E6AD0604CAE3BD5DED2EBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEB2040C00038F00E3395EBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBAAEB9BA7EC9090ED87EBEBEBEBEBEBE3E9E197 - E28E6AD06059A247D1EAC2EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBA7B1D850 - 70E00040FF0030D0BFC3CEEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE1EDDD - CAEBC3EBEBEBEBEBEBEBEBEBEBEBEBE3E9E182E07765CD505EB359D5EACDEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEB7688CB5078E01048FF0040F07581A5EBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBE3E9E182E0774CBE4085C177D5EACDEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB5068D070 - 90FF1050FF1040F00E33A4EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE3EAE189E07F4CBE4094D0 - 86D8E5D3EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEB6078D08098FF3060FF1050FF1D43C3EBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBE3EAE1B0EDA164BE50C7DFC3EBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB7088E090 - A8F080A0FF6080F03955A9EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE4EBE2CBEA - C196CF8AEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBD4D8E37088E06078D05068D0D6DBE8EBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB} - Properties.GlyphCount = 3 - Width = 20 - IsCaptionAssigned = True - end - object cxGridViewFECHA: TcxGridDBColumn - Caption = 'Fecha' - DataBinding.FieldName = 'FECHA' - PropertiesClassName = 'TcxDateEditProperties' - Properties.Alignment.Vert = taVCenter - OnGetDisplayText = cxGridViewFECHAGetDisplayText - SortIndex = 0 - SortOrder = soDescending - Width = 61 - end - object cxGridViewREPORT: TcxGridDBColumn - Caption = 'Report' - DataBinding.FieldName = 'REPORT' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Vert = taVCenter - Width = 35 - end - object cxGridViewERROR_MSG: TcxGridDBColumn - Caption = 'Error' - DataBinding.FieldName = 'ERROR_MSG' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Vert = taVCenter - Width = 323 - end - end - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.dfm.cbk b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.dfm.cbk deleted file mode 100644 index 0432b04..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.dfm.cbk +++ /dev/null @@ -1,123 +0,0 @@ -inherited frViewHistorialCargasEDI: TfrViewHistorialCargasEDI - Width = 736 - Height = 430 - ExplicitWidth = 736 - ExplicitHeight = 430 - inherited cxGrid: TcxGrid - Width = 736 - Height = 430 - ExplicitWidth = 736 - ExplicitHeight = 430 - inherited cxGridView: TcxGridDBTableView - OptionsCustomize.ColumnGrouping = True - OptionsView.GridLines = glHorizontal - OptionsView.GroupRowStyle = grsOffice11 - object cxGridViewOK: TcxGridDBColumn - DataBinding.FieldName = 'OK' - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.Glyph.Data = { - 36090000424D3609000000000000360000002800000030000000100000000100 - 18000000000000090000120B0000120B00000000000000000000EBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEB8599CD1028908B99CAEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB70 - 88E01048FF102890EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBE1E7E09EC395B0DCADEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBADB9DD7088E0ABB5D8EBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB709F5E3F812065B259CE - E4CCEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEB92A0CAEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - D8E0D459993B65CD505CC74042AA3083C87AE0E6DFEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB4050B0EBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBD8E0D450943065CD5079EA6082E0776AD06057 - B247A2C799EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB92 - 9CC30038F0848EAEEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB4F9D3B - 6AD95079EA60A3ED96D9E7D89DED8E6AD0604CAE3BD5DED2EBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEB2040C00038F00E3395EBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBAAEB9BA7EC9090ED87EBEBEBEBEBEBE3E9E197 - E28E6AD06059A247D1EAC2EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBA7B1D850 - 70E00040FF0030D0BFC3CEEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE1EDDD - CAEBC3EBEBEBEBEBEBEBEBEBEBEBEBE3E9E182E07765CD505EB359D5EACDEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEB7688CB5078E01048FF0040F07581A5EBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBE3E9E182E0774CBE4085C177D5EACDEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB5068D070 - 90FF1050FF1040F00E33A4EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE3EAE189E07F4CBE4094D0 - 86D8E5D3EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEB6078D08098FF3060FF1050FF1D43C3EBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBE3EAE1B0EDA164BE50C7DFC3EBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB7088E090 - A8F080A0FF6080F03955A9EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE4EBE2CBEA - C196CF8AEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBD4D8E37088E06078D05068D0D6DBE8EBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB - EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB} - Properties.GlyphCount = 3 - Width = 20 - IsCaptionAssigned = True - end - object cxGridViewFECHA: TcxGridDBColumn - Caption = 'Fecha' - DataBinding.FieldName = 'FECHA' - PropertiesClassName = 'TcxDateEditProperties' - Properties.Alignment.Vert = taVCenter - OnGetDisplayText = cxGridViewFECHAGetDisplayText - SortIndex = 0 - SortOrder = soDescending - Width = 61 - end - object cxGridViewREPORT: TcxGridDBColumn - Caption = 'Report' - DataBinding.FieldName = 'REPORT' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Vert = taVCenter - Width = 35 - end - object cxGridViewERROR_MSG: TcxGridDBColumn - Caption = 'Error' - DataBinding.FieldName = 'ERROR_MSG' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Vert = taVCenter - Width = 323 - end - end - end -end diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.pas deleted file mode 100644 index 1324623..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Cliente/uViewHistorialCargasEDI.pas +++ /dev/null @@ -1,72 +0,0 @@ -unit uViewHistorialCargasEDI; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGridBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, - dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, ActnList, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, uBizEDILog, cxCheckBox, - uViewGrid, cxCalendar, cxTextEdit, uDataModuleFicherosEDI, uDAInterfaces; - -type - IViewHistorialCargasEDI = interface(IViewGrid) - ['{556EBF85-7F86-49CB-A8BF-EBF299AAF9E5}'] - function GetEDILog: IBizEDILog; - procedure SetEDILog(const Value: IBizEDILog); - property EDILog: IBizEDILog read GetEDILog write SetEDILog; - end; - - TfrViewHistorialCargasEDI = class(TfrViewGrid, IViewHistorialCargasEDI) - cxGridViewFECHA: TcxGridDBColumn; - cxGridViewOK: TcxGridDBColumn; - cxGridViewERROR_MSG: TcxGridDBColumn; - cxGridViewREPORT: TcxGridDBColumn; - procedure cxGridViewFECHAGetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - protected - FEDILog : IBizEDILog; - function GetEDILog: IBizEDILog; - procedure SetEDILog(const Value: IBizEDILog); - public - property EDILog: IBizEDILog read GetEDILog write SetEDILog; - end; - - -implementation - -uses DateUtils; - - - -{$R *.dfm} - -{ TfrViewHistorialCargasEDI } - -function TfrViewHistorialCargasEDI.GetEDILog: IBizEDILog; -begin - Result := FEDILog; -end; - -procedure TfrViewHistorialCargasEDI.SetEDILog(const Value: IBizEDILog); -begin - FEDILog := Value; - dsDataSource.DataTable := FEDILog.DataTable; -end; - -procedure TfrViewHistorialCargasEDI.cxGridViewFECHAGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - ADate : TDateTime; -begin - inherited; -{ ADate := ARecord.Values[Sender.Index]; - if DaysBetween(ADate, Now) = 0 then - AText := FormatDateTime('hh:mm', ADate)} -end; - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/schEDILogClient_Intf.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/schEDILogClient_Intf.pas deleted file mode 100644 index 80f2f87..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/schEDILogClient_Intf.pas +++ /dev/null @@ -1,154 +0,0 @@ -unit schEDILogClient_Intf; - -interface - -uses - Classes, DB, 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_EDILog = '{301F7728-2A2A-465E-89CD-4D36F00E1B31}'; - - { Data table names } - nme_EDILog = 'EDILog'; - - { EDILog fields } - fld_EDILogID = 'ID'; - fld_EDILogREPORT = 'REPORT'; - fld_EDILogFECHA = 'FECHA'; - fld_EDILogOK = 'OK'; - fld_EDILogERROR_MSG = 'ERROR_MSG'; - - { EDILog field indexes } - idx_EDILogID = 0; - idx_EDILogREPORT = 1; - idx_EDILogFECHA = 2; - idx_EDILogOK = 3; - idx_EDILogERROR_MSG = 4; - -type - { IEDILog } - IEDILog = interface(IDAStronglyTypedDataTable) - ['{7B8F10CA-504A-4F10-ADA7-4B805DB211FE}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetREPORTValue: String; - procedure SetREPORTValue(const aValue: String); - function GetFECHAValue: DateTime; - procedure SetFECHAValue(const aValue: DateTime); - function GetOKValue: Boolean; - procedure SetOKValue(const aValue: Boolean); - function GetERROR_MSGValue: String; - procedure SetERROR_MSGValue(const aValue: String); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property REPORT: String read GetREPORTValue write SetREPORTValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property OK: Boolean read GetOKValue write SetOKValue; - property ERROR_MSG: String read GetERROR_MSGValue write SetERROR_MSGValue; - end; - - { TEDILogDataTableRules } - TEDILogDataTableRules = class(TDADataTableRules, IEDILog) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetREPORTValue: String; virtual; - procedure SetREPORTValue(const aValue: String); virtual; - function GetFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetOKValue: Boolean; virtual; - procedure SetOKValue(const aValue: Boolean); virtual; - function GetERROR_MSGValue: String; virtual; - procedure SetERROR_MSGValue(const aValue: String); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property REPORT: String read GetREPORTValue write SetREPORTValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property OK: Boolean read GetOKValue write SetOKValue; - property ERROR_MSG: String read GetERROR_MSGValue write SetERROR_MSGValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TEDILogDataTableRules } -constructor TEDILogDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TEDILogDataTableRules.Destroy; -begin - inherited; -end; - -function TEDILogDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_EDILogID].AsInteger; -end; - -procedure TEDILogDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_EDILogID].AsInteger := aValue; -end; - -function TEDILogDataTableRules.GetREPORTValue: String; -begin - result := DataTable.Fields[idx_EDILogREPORT].AsString; -end; - -procedure TEDILogDataTableRules.SetREPORTValue(const aValue: String); -begin - DataTable.Fields[idx_EDILogREPORT].AsString := aValue; -end; - -function TEDILogDataTableRules.GetFECHAValue: DateTime; -begin - result := DataTable.Fields[idx_EDILogFECHA].AsDateTime; -end; - -procedure TEDILogDataTableRules.SetFECHAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_EDILogFECHA].AsDateTime := aValue; -end; - -function TEDILogDataTableRules.GetOKValue: Boolean; -begin - result := DataTable.Fields[idx_EDILogOK].AsBoolean; -end; - -procedure TEDILogDataTableRules.SetOKValue(const aValue: Boolean); -begin - DataTable.Fields[idx_EDILogOK].AsBoolean := aValue; -end; - -function TEDILogDataTableRules.GetERROR_MSGValue: String; -begin - result := DataTable.Fields[idx_EDILogERROR_MSG].AsString; -end; - -procedure TEDILogDataTableRules.SetERROR_MSGValue(const aValue: String); -begin - DataTable.Fields[idx_EDILogERROR_MSG].AsString := aValue; -end; - - -initialization - RegisterDataTableRules(RID_EDILog, TEDILogDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/schEDILogServer_Intf.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/schEDILogServer_Intf.pas deleted file mode 100644 index e0b923b..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/schEDILogServer_Intf.pas +++ /dev/null @@ -1,167 +0,0 @@ -unit schEDILogServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schEDILogClient_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_EDILogDelta = '{6BA63DE2-08BB-4D9F-8C99-EBE412CE6FEC}'; - -type - { IEDILogDelta } - IEDILogDelta = interface(IEDILog) - ['{6BA63DE2-08BB-4D9F-8C99-EBE412CE6FEC}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldREPORTValue : String; - function GetOldFECHAValue : DateTime; - function GetOldOKValue : Boolean; - function GetOldERROR_MSGValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldREPORT : String read GetOldREPORTValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldOK : Boolean read GetOldOKValue; - property OldERROR_MSG : String read GetOldERROR_MSGValue; - end; - - { TEDILogBusinessProcessorRules } - TEDILogBusinessProcessorRules = class(TDABusinessProcessorRules, IEDILog, IEDILogDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetOldIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetREPORTValue: String; virtual; - function GetOldREPORTValue: String; virtual; - procedure SetREPORTValue(const aValue: String); virtual; - function GetFECHAValue: DateTime; virtual; - function GetOldFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetOKValue: Boolean; virtual; - function GetOldOKValue: Boolean; virtual; - procedure SetOKValue(const aValue: Boolean); virtual; - function GetERROR_MSGValue: String; virtual; - function GetOldERROR_MSGValue: String; virtual; - procedure SetERROR_MSGValue(const aValue: String); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property OldID : Integer read GetOldIDValue; - property REPORT : String read GetREPORTValue write SetREPORTValue; - property OldREPORT : String read GetOldREPORTValue; - property FECHA : DateTime read GetFECHAValue write SetFECHAValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property OK : Boolean read GetOKValue write SetOKValue; - property OldOK : Boolean read GetOldOKValue; - property ERROR_MSG : String read GetERROR_MSGValue write SetERROR_MSGValue; - property OldERROR_MSG : String read GetOldERROR_MSGValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TEDILogBusinessProcessorRules } -constructor TEDILogBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TEDILogBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TEDILogBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogID]; -end; - -function TEDILogBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EDILogID]; -end; - -procedure TEDILogBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogID] := aValue; -end; - -function TEDILogBusinessProcessorRules.GetREPORTValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogREPORT]; -end; - -function TEDILogBusinessProcessorRules.GetOldREPORTValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EDILogREPORT]; -end; - -procedure TEDILogBusinessProcessorRules.SetREPORTValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogREPORT] := aValue; -end; - -function TEDILogBusinessProcessorRules.GetFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogFECHA]; -end; - -function TEDILogBusinessProcessorRules.GetOldFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EDILogFECHA]; -end; - -procedure TEDILogBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogFECHA] := aValue; -end; - -function TEDILogBusinessProcessorRules.GetOKValue: Boolean; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogOK]; -end; - -function TEDILogBusinessProcessorRules.GetOldOKValue: Boolean; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EDILogOK]; -end; - -procedure TEDILogBusinessProcessorRules.SetOKValue(const aValue: Boolean); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogOK] := aValue; -end; - -function TEDILogBusinessProcessorRules.GetERROR_MSGValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogERROR_MSG]; -end; - -function TEDILogBusinessProcessorRules.GetOldERROR_MSGValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_EDILogERROR_MSG]; -end; - -procedure TEDILogBusinessProcessorRules.SetERROR_MSGValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_EDILogERROR_MSG] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID_EDILogDelta, TEDILogBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/uBizEDILog.pas b/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/uBizEDILog.pas deleted file mode 100644 index 3c79abf..0000000 --- a/Varela/Varela/Source/Modulos/FicherosEDI/Reglas/uBizEDILog.pas +++ /dev/null @@ -1,30 +0,0 @@ -unit uBizEDILog; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces, - DataAbstract3_Intf, uROTypes, schEDILogClient_Intf; - -const - BIZ_EDILOG = 'Client.EDILog'; - - -type - IBizEDILog = interface(IEDILog) - ['{EED6A5BD-DC2A-4233-8097-5D212264CA22}'] - end; - - TBizEDILogDataTableRules = class(TEDILogDataTableRules, IBizEDILog) - end; - - -implementation - -initialization - RegisterDataTableRules(BIZ_EDILOG, TBizEDILogDataTableRules); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.bdsproj b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.bdsproj deleted file mode 100644 index 954f701..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - Parametros.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - rtl;vcl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;indy;cxTreeListVCLD7;dxThemeD7;cxLibraryVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxsbD7;dxComnD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxIntlPrintSys3D7;PluginSDK_D7R;PngComponentsD7;PNG_D7;tb2k_d7;tbx_d7;cxExportVCLD7;cxIntlSchedulerD7;TMSD7;CEToolsPkgd7;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;dxPSTeeChartD7;dxPScxCommonD7;dxPSLnksD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7;cxVerticalGridVCLD7;EasyListviewD7;VirtualTreesD7;cxIntl5D7;ccpack70;ccpack70dsg;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;FR7;SMImportD7;SMExportD7;FRIBX7;DataAbstract_IDE_D7;GUISDK_D7;fsTee7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;frxTee7;fsADO7;fsBDE7;fsDB7;fsIBX7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.cfg b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.cfg deleted file mode 100644 index 53e7995..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.dof b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.dof deleted file mode 100644 index 454c088..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=rtl;vcl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;indy;cxTreeListVCLD7;dxThemeD7;cxLibraryVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxsbD7;dxComnD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxIntlPrintSys3D7;PluginSDK_D7R;PngComponentsD7;PNG_D7;tb2k_d7;tbx_d7;cxExportVCLD7;cxIntlSchedulerD7;TMSD7;CEToolsPkgd7;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;dxPSTeeChartD7;dxPScxCommonD7;dxPSLnksD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7;cxVerticalGridVCLD7;EasyListviewD7;VirtualTreesD7;cxIntl5D7;ccpack70;ccpack70dsg;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;DataAbstract_Core_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;FR7;SMImportD7;SMExportD7;FRIBX7;DataAbstract_IDE_D7;GUISDK_D7;fsTee7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;frxTee7;fsADO7;fsBDE7;fsDB7;fsIBX7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=0 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.0.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=0 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=0 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=1 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.dpk b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.dpk deleted file mode 100644 index 5242dc8..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.dpk +++ /dev/null @@ -1,57 +0,0 @@ -package Parametros; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES ON} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - dbrtl, - dsnap, - cxLibraryD10, - dxThemeD10, - adortl, - BaseD10, - ControlesBaseD10, - dxLayoutControlD10, - dxComnD10, - JvCoreD10R, - vcldb, - vcljpg, - vclx, - Jcl, - JclVcl, - JvStdCtrlsD10R, - JvSystemD10R, - tbx_D10, - tb2k_D10; - -contains - uDataModuleParametros in 'uDataModuleParametros.pas' {dmParametros: TDAClientDataModule}, - schParametrosClient_Intf in '..\Reglas\schParametrosClient_Intf.pas', - uBizParametros in '..\Reglas\uBizParametros.pas', - uViewParametrosCentro in 'uViewParametrosCentro.pas' {frViewParametrosCentro: TCustomView}, - uViewParametrosColeccion in 'uViewParametrosColeccion.pas' {frViewParametrosColeccion: TCustomView}; - -end. diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.drc b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.identcache b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.identcache deleted file mode 100644 index cb628de..0000000 Binary files a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.rc b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.rc deleted file mode 100644 index 153736a..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.rc +++ /dev/null @@ -1,22 +0,0 @@ -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 diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.res b/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.res deleted file mode 100644 index ea6f55b..0000000 Binary files a/Varela/Varela/Source/Modulos/Parametros/Cliente/Parametros.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.ddp b/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.dfm b/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.dfm deleted file mode 100644 index 4d5c1f1..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.dfm +++ /dev/null @@ -1,214 +0,0 @@ -object dmParametros: TdmParametros - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 297 - Width = 620 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvParametros' - Left = 40 - Top = 32 - end - object tbl_ListaCentros: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'CODFILIAL' - DataType = datString - Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODBARRA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = True - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'ListaCentros' - IndexDefs = <> - Left = 160 - Top = 96 - end - object ds_ListaCentros: TDADataSource - DataSet = tbl_ListaCentros.Dataset - DataTable = tbl_ListaCentros - Left = 160 - Top = 32 - end - object tbl_ListaColecciones: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'COLECAO' - DataType = datString - Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESC_COLECAO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = True - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'ListaColecciones' - IndexDefs = <> - Left = 296 - Top = 96 - end - object dsListaColecciones: TDADataSource - DataSet = tbl_ListaColecciones.Dataset - DataTable = tbl_ListaColecciones - Left = 296 - Top = 32 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.pas b/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.pas deleted file mode 100644 index c2f730f..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/uDataModuleParametros.pas +++ /dev/null @@ -1,78 +0,0 @@ -unit uDataModuleParametros; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uDataModuleBase, uROClient, - uROServiceComponent, uRORemoteService, uBizParametros, uDARemoteDataAdapter, - uDAInterfaces; - -type - TdmParametros = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_ListaCentros: TDACDSDataTable; - ds_ListaCentros: TDADataSource; - tbl_ListaColecciones: TDACDSDataTable; - dsListaColecciones: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetCentros : IBizCentros; - function GetColecciones : IBizColecciones; - end; - -var - dmParametros: TdmParametros; - -implementation - -{$R *.DFM} - -uses - Forms, Windows, Controls, VARELA_Intf, uEditorPreview, - uDataTableUtils, uROTypes, cxControls; - -procedure TdmParametros.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmParametros.GetCentros: IBizCentros; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_ListaCentros, dtLista); - dtLista.BusinessRulesID := BIZ_CENTROS; - Result := (dtLista as IBizCentros); - finally - HideHourglassCursor; - end; -end; - -function TdmParametros.GetColecciones: IBizColecciones; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_ListaColecciones, dtLista); - dtLista.BusinessRulesID := BIZ_COLECCIONES; - Result := (dtLista as IBizColecciones); - finally - HideHourglassCursor; - end; -end; - -initialization - dmParametros := TdmParametros.Create(nil); - -finalization - FreeAndNil(dmParametros); - -end. diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.ddp b/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.dfm b/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.dfm deleted file mode 100644 index 5c280e3..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.dfm +++ /dev/null @@ -1,36 +0,0 @@ -inherited frViewParametrosCentro: TfrViewParametrosCentro - Width = 587 - Height = 42 - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 0 - Width = 587 - Height = 42 - Align = alTop - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - object ccbCentro: TJvCheckedComboBox - Left = 49 - Top = 10 - Width = 392 - Height = 21 - CapSelectAll = '&Select all' - CapDeSelectAll = '&Deselect all' - NoFocusColor = clWindow - QuoteStyle = qsSingle - DropDownLines = 20 - TabOrder = 0 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'Centro:' - Control = ccbCentro - ControlOptions.ShowBorder = False - end - end - end -end diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas b/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas deleted file mode 100644 index 55d2ffe..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas +++ /dev/null @@ -1,91 +0,0 @@ -unit uViewParametrosCentro; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, dxLayoutControl, StdCtrls, Mask, JvExMask, JvToolEdit, - JvCombobox, cxControls, uViewParametrosControlGrid, TBXDkPanels, - uBizParametros; - -type - IViewParametrosCentro = interface(IViewParametrosControlGrid) - ['{AE4FC794-6D44-40A0-A138-09286870CBB0}'] - - function GetCentrosSeleccionados: TStringList; - property CentrosSeleccionados : TStringList read GetCentrosSeleccionados; - end; - - TfrViewParametrosCentro = class(TfrViewParametrosControlGrid, IViewParametrosCentro) - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutControl1Item1: TdxLayoutItem; - ccbCentro: TJvCheckedComboBox; - private - FCentros : IBizCentros; - procedure RellenarListaCentros; - function GetCentrosSeleccionados: TStringList; - public - procedure Execute; override; - procedure Refresh; override; - property CentrosSeleccionados : TStringList read GetCentrosSeleccionados; - end; - -implementation - -uses - uDataModuleParametros, uDADataTable; - -{$R *.dfm} - -{ TfrViewParametrosCentro } - -procedure TfrViewParametrosCentro.Execute; -begin - // inherited; <- no descomentar -end; - -function TfrViewParametrosCentro.GetCentrosSeleccionados: TStringList; -var - i : integer; -begin - Result := TStringList.Create; - - FCentros.DataTable.First; - for i := 0 to ccbCentro.Items.Count - 1 do - begin - if ccbCentro.Checked[i] then - Result.Add(FCentros.CODBARRA); - FCentros.DataTable.Next; - end; -end; - -procedure TfrViewParametrosCentro.Refresh; -begin - // inherited; <- no descomentar - RellenarListaCentros; -end; - -procedure TfrViewParametrosCentro.RellenarListaCentros; -var - i : Integer; -begin - FCentros := dmParametros.GetCentros; - ccbCentro.Items.BeginUpdate; - - ShowHourglassCursor; - try - ccbCentro.Items.Clear; - FCentros.DataTable.Active := True; - for i := 0 to FCentros.DataTable.RecordCount - 1 do - begin - ccbCentro.Items.Add(FCentros.FILIAL); - FCentros.DataTable.Next; - end; - finally - ccbCentro.Items.EndUpdate; - HideHourglassCursor; - end; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.ddp b/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.dfm b/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.dfm deleted file mode 100644 index d268eee..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.dfm +++ /dev/null @@ -1,36 +0,0 @@ -inherited frViewParametrosColeccion: TfrViewParametrosColeccion - Width = 587 - Height = 42 - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 0 - Width = 587 - Height = 42 - Align = alTop - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - object ccbColeccion: TJvCheckedComboBox - Left = 65 - Top = 10 - Width = 512 - Height = 21 - CapSelectAll = '&Select all' - CapDeSelectAll = '&Deselect all' - NoFocusColor = clWindow - QuoteStyle = qsSingle - DropDownLines = 20 - TabOrder = 0 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'Colecci'#243'n:' - Control = ccbColeccion - ControlOptions.ShowBorder = False - end - end - end -end diff --git a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.pas b/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.pas deleted file mode 100644 index f8ee182..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Cliente/uViewParametrosColeccion.pas +++ /dev/null @@ -1,91 +0,0 @@ -unit uViewParametrosColeccion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, dxLayoutControl, StdCtrls, Mask, JvExMask, JvToolEdit, - JvCombobox, cxControls, uViewParametrosControlGrid, TBXDkPanels, - uBizParametros; - -type - IViewParametrosColeccion = interface(IViewParametrosControlGrid) - ['{5523284E-4445-4026-AFAC-B243C19F0DA7}'] - - function GetColeccionesSeleccionadas: TStringList; - property ColeccionesSeleccionadas : TStringList read GetColeccionesSeleccionadas; - end; - - TfrViewParametrosColeccion = class(TfrViewParametrosControlGrid, IViewParametrosColeccion) - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - ccbColeccion: TJvCheckedComboBox; - dxLayoutControl1Item1: TdxLayoutItem; - private - FColecciones : IBizColecciones; - procedure RellenarListaColecciones; - function GetColeccionesSeleccionadas: TStringList; - public - procedure Execute; override; - procedure Refresh; override; - property ColeccionesSeleccionadas : TStringList read GetColeccionesSeleccionadas; - end; - -implementation - -uses - uDataModuleParametros, uDADataTable; - -{$R *.dfm} - -{ TfrViewParametrosColeccion } - -procedure TfrViewParametrosColeccion.Execute; -begin - // inherited; <- no descomentar -end; - -function TfrViewParametrosColeccion.GetColeccionesSeleccionadas: TStringList; -var - i : integer; -begin - Result := TStringList.Create; - - FColecciones.DataTable.First; - for i := 0 to ccbColeccion.Items.Count - 1 do - begin - if ccbColeccion.Checked[i] then - Result.Add(FColecciones.COLECAO); - FColecciones.DataTable.Next; - end; -end; - -procedure TfrViewParametrosColeccion.Refresh; -begin - // inherited; <- no descomentar - RellenarListaColecciones; -end; - -procedure TfrViewParametrosColeccion.RellenarListaColecciones; -var - i : Integer; -begin - FColecciones := dmParametros.GetColecciones; - ccbColeccion.Items.BeginUpdate; - - ShowHourglassCursor; - try - ccbColeccion.Items.Clear; - FColecciones.DataTable.Active := True; - for i := 0 to FColecciones.DataTable.RecordCount - 1 do - begin - ccbColeccion.Items.Add(FColecciones.DESC_COLECAO); - FColecciones.DataTable.Next; - end; - finally - ccbColeccion.Items.EndUpdate; - HideHourglassCursor; - end; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Parametros/Reglas/schParametrosClient_Intf.pas b/Varela/Varela/Source/Modulos/Parametros/Reglas/schParametrosClient_Intf.pas deleted file mode 100644 index fb835f0..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Reglas/schParametrosClient_Intf.pas +++ /dev/null @@ -1,196 +0,0 @@ -unit schParametrosClient_Intf; - -interface - -uses - Classes, DB, 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_ListaCentros = '{CE7EAA4D-6A5B-418E-931E-61BC59E87921}'; - RID_ListaColecciones = '{30AF285C-6577-445D-A759-78E8EC8275BF}'; - - { Data table names } - nme_ListaCentros = 'ListaCentros'; - nme_ListaColecciones = 'ListaColecciones'; - - { ListaCentros fields } - fld_ListaCentrosCODFILIAL = 'CODFILIAL'; - fld_ListaCentrosCODBARRA = 'CODBARRA'; - fld_ListaCentrosFILIAL = 'FILIAL'; - - { ListaCentros field indexes } - idx_ListaCentrosCODFILIAL = 0; - idx_ListaCentrosCODBARRA = 1; - idx_ListaCentrosFILIAL = 2; - - { ListaColecciones fields } - fld_ListaColeccionesCOLECAO = 'COLECAO'; - fld_ListaColeccionesDESC_COLECAO = 'DESC_COLECAO'; - - { ListaColecciones field indexes } - idx_ListaColeccionesCOLECAO = 0; - idx_ListaColeccionesDESC_COLECAO = 1; - -type - { IListaCentros } - IListaCentros = interface(IDAStronglyTypedDataTable) - ['{FF4F6460-CEBC-40C5-A2B9-7ED81AE90A7A}'] - { Property getters and setters } - function GetCODFILIALValue: String; - procedure SetCODFILIALValue(const aValue: String); - function GetCODBARRAValue: String; - procedure SetCODBARRAValue(const aValue: String); - function GetFILIALValue: String; - procedure SetFILIALValue(const aValue: String); - - - { Properties } - property CODFILIAL: String read GetCODFILIALValue write SetCODFILIALValue; - property CODBARRA: String read GetCODBARRAValue write SetCODBARRAValue; - property FILIAL: String read GetFILIALValue write SetFILIALValue; - end; - - { TListaCentrosDataTableRules } - TListaCentrosDataTableRules = class(TDADataTableRules, IListaCentros) - private - protected - { Property getters and setters } - function GetCODFILIALValue: String; virtual; - procedure SetCODFILIALValue(const aValue: String); virtual; - function GetCODBARRAValue: String; virtual; - procedure SetCODBARRAValue(const aValue: String); virtual; - function GetFILIALValue: String; virtual; - procedure SetFILIALValue(const aValue: String); virtual; - - { Properties } - property CODFILIAL: String read GetCODFILIALValue write SetCODFILIALValue; - property CODBARRA: String read GetCODBARRAValue write SetCODBARRAValue; - property FILIAL: String read GetFILIALValue write SetFILIALValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IListaColecciones } - IListaColecciones = interface(IDAStronglyTypedDataTable) - ['{6EACE103-97D5-4D08-9BA5-DC24826BD4C8}'] - { Property getters and setters } - function GetCOLECAOValue: String; - procedure SetCOLECAOValue(const aValue: String); - function GetDESC_COLECAOValue: String; - procedure SetDESC_COLECAOValue(const aValue: String); - - - { Properties } - property COLECAO: String read GetCOLECAOValue write SetCOLECAOValue; - property DESC_COLECAO: String read GetDESC_COLECAOValue write SetDESC_COLECAOValue; - end; - - { TListaColeccionesDataTableRules } - TListaColeccionesDataTableRules = class(TDADataTableRules, IListaColecciones) - private - protected - { Property getters and setters } - function GetCOLECAOValue: String; virtual; - procedure SetCOLECAOValue(const aValue: String); virtual; - function GetDESC_COLECAOValue: String; virtual; - procedure SetDESC_COLECAOValue(const aValue: String); virtual; - - { Properties } - property COLECAO: String read GetCOLECAOValue write SetCOLECAOValue; - property DESC_COLECAO: String read GetDESC_COLECAOValue write SetDESC_COLECAOValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TListaCentrosDataTableRules } -constructor TListaCentrosDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TListaCentrosDataTableRules.Destroy; -begin - inherited; -end; - -function TListaCentrosDataTableRules.GetCODFILIALValue: String; -begin - result := DataTable.Fields[idx_ListaCentrosCODFILIAL].AsString; -end; - -procedure TListaCentrosDataTableRules.SetCODFILIALValue(const aValue: String); -begin - DataTable.Fields[idx_ListaCentrosCODFILIAL].AsString := aValue; -end; - -function TListaCentrosDataTableRules.GetCODBARRAValue: String; -begin - result := DataTable.Fields[idx_ListaCentrosCODBARRA].AsString; -end; - -procedure TListaCentrosDataTableRules.SetCODBARRAValue(const aValue: String); -begin - DataTable.Fields[idx_ListaCentrosCODBARRA].AsString := aValue; -end; - -function TListaCentrosDataTableRules.GetFILIALValue: String; -begin - result := DataTable.Fields[idx_ListaCentrosFILIAL].AsString; -end; - -procedure TListaCentrosDataTableRules.SetFILIALValue(const aValue: String); -begin - DataTable.Fields[idx_ListaCentrosFILIAL].AsString := aValue; -end; - - -{ TListaColeccionesDataTableRules } -constructor TListaColeccionesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TListaColeccionesDataTableRules.Destroy; -begin - inherited; -end; - -function TListaColeccionesDataTableRules.GetCOLECAOValue: String; -begin - result := DataTable.Fields[idx_ListaColeccionesCOLECAO].AsString; -end; - -procedure TListaColeccionesDataTableRules.SetCOLECAOValue(const aValue: String); -begin - DataTable.Fields[idx_ListaColeccionesCOLECAO].AsString := aValue; -end; - -function TListaColeccionesDataTableRules.GetDESC_COLECAOValue: String; -begin - result := DataTable.Fields[idx_ListaColeccionesDESC_COLECAO].AsString; -end; - -procedure TListaColeccionesDataTableRules.SetDESC_COLECAOValue(const aValue: String); -begin - DataTable.Fields[idx_ListaColeccionesDESC_COLECAO].AsString := aValue; -end; - - -initialization - RegisterDataTableRules(RID_ListaCentros, TListaCentrosDataTableRules); - RegisterDataTableRules(RID_ListaColecciones, TListaColeccionesDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/Parametros/Reglas/schParametrosServer_Intf.pas b/Varela/Varela/Source/Modulos/Parametros/Reglas/schParametrosServer_Intf.pas deleted file mode 100644 index 9bd380b..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Reglas/schParametrosServer_Intf.pas +++ /dev/null @@ -1,203 +0,0 @@ -unit schParametrosServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schParametrosClient_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_ListaCentrosDelta = '{5AAFEEF2-8098-4A72-BC66-D67CF1CE1D1A}'; - RID_ListaColeccionesDelta = '{98EF7287-301A-462F-AF86-9EDE8B21DFA7}'; - -type - { IListaCentrosDelta } - IListaCentrosDelta = interface(IListaCentros) - ['{5AAFEEF2-8098-4A72-BC66-D67CF1CE1D1A}'] - { Property getters and setters } - function GetOldCODFILIALValue : String; - function GetOldCODBARRAValue : String; - function GetOldFILIALValue : String; - - { Properties } - property OldCODFILIAL : String read GetOldCODFILIALValue; - property OldCODBARRA : String read GetOldCODBARRAValue; - property OldFILIAL : String read GetOldFILIALValue; - end; - - { TListaCentrosBusinessProcessorRules } - TListaCentrosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaCentros, IListaCentrosDelta) - private - protected - { Property getters and setters } - function GetCODFILIALValue: String; virtual; - function GetOldCODFILIALValue: String; virtual; - procedure SetCODFILIALValue(const aValue: String); virtual; - function GetCODBARRAValue: String; virtual; - function GetOldCODBARRAValue: String; virtual; - procedure SetCODBARRAValue(const aValue: String); virtual; - function GetFILIALValue: String; virtual; - function GetOldFILIALValue: String; virtual; - procedure SetFILIALValue(const aValue: String); virtual; - - { Properties } - property CODFILIAL : String read GetCODFILIALValue write SetCODFILIALValue; - property OldCODFILIAL : String read GetOldCODFILIALValue; - property CODBARRA : String read GetCODBARRAValue write SetCODBARRAValue; - property OldCODBARRA : String read GetOldCODBARRAValue; - property FILIAL : String read GetFILIALValue write SetFILIALValue; - property OldFILIAL : String read GetOldFILIALValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IListaColeccionesDelta } - IListaColeccionesDelta = interface(IListaColecciones) - ['{98EF7287-301A-462F-AF86-9EDE8B21DFA7}'] - { Property getters and setters } - function GetOldCOLECAOValue : String; - function GetOldDESC_COLECAOValue : String; - - { Properties } - property OldCOLECAO : String read GetOldCOLECAOValue; - property OldDESC_COLECAO : String read GetOldDESC_COLECAOValue; - end; - - { TListaColeccionesBusinessProcessorRules } - TListaColeccionesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaColecciones, IListaColeccionesDelta) - private - protected - { Property getters and setters } - function GetCOLECAOValue: String; virtual; - function GetOldCOLECAOValue: String; virtual; - procedure SetCOLECAOValue(const aValue: String); virtual; - function GetDESC_COLECAOValue: String; virtual; - function GetOldDESC_COLECAOValue: String; virtual; - procedure SetDESC_COLECAOValue(const aValue: String); virtual; - - { Properties } - property COLECAO : String read GetCOLECAOValue write SetCOLECAOValue; - property OldCOLECAO : String read GetOldCOLECAOValue; - property DESC_COLECAO : String read GetDESC_COLECAOValue write SetDESC_COLECAOValue; - property OldDESC_COLECAO : String read GetOldDESC_COLECAOValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TListaCentrosBusinessProcessorRules } -constructor TListaCentrosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TListaCentrosBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TListaCentrosBusinessProcessorRules.GetCODFILIALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaCentrosCODFILIAL]; -end; - -function TListaCentrosBusinessProcessorRules.GetOldCODFILIALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaCentrosCODFILIAL]; -end; - -procedure TListaCentrosBusinessProcessorRules.SetCODFILIALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaCentrosCODFILIAL] := aValue; -end; - -function TListaCentrosBusinessProcessorRules.GetCODBARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaCentrosCODBARRA]; -end; - -function TListaCentrosBusinessProcessorRules.GetOldCODBARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaCentrosCODBARRA]; -end; - -procedure TListaCentrosBusinessProcessorRules.SetCODBARRAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaCentrosCODBARRA] := aValue; -end; - -function TListaCentrosBusinessProcessorRules.GetFILIALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaCentrosFILIAL]; -end; - -function TListaCentrosBusinessProcessorRules.GetOldFILIALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaCentrosFILIAL]; -end; - -procedure TListaCentrosBusinessProcessorRules.SetFILIALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaCentrosFILIAL] := aValue; -end; - - -{ TListaColeccionesBusinessProcessorRules } -constructor TListaColeccionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TListaColeccionesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TListaColeccionesBusinessProcessorRules.GetCOLECAOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaColeccionesCOLECAO]; -end; - -function TListaColeccionesBusinessProcessorRules.GetOldCOLECAOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaColeccionesCOLECAO]; -end; - -procedure TListaColeccionesBusinessProcessorRules.SetCOLECAOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaColeccionesCOLECAO] := aValue; -end; - -function TListaColeccionesBusinessProcessorRules.GetDESC_COLECAOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaColeccionesDESC_COLECAO]; -end; - -function TListaColeccionesBusinessProcessorRules.GetOldDESC_COLECAOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaColeccionesDESC_COLECAO]; -end; - -procedure TListaColeccionesBusinessProcessorRules.SetDESC_COLECAOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ListaColeccionesDESC_COLECAO] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID_ListaCentrosDelta, TListaCentrosBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_ListaColeccionesDelta, TListaColeccionesBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Modulos/Parametros/Reglas/uBizParametros.pas b/Varela/Varela/Source/Modulos/Parametros/Reglas/uBizParametros.pas deleted file mode 100644 index b7ec883..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Reglas/uBizParametros.pas +++ /dev/null @@ -1,49 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2007 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uBizParametros; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDBSelectionList, - schParametrosClient_Intf; - - -const - BIZ_CENTROS = 'Client.Centros'; - BIZ_COLECCIONES = 'Client.Colecciones'; - -type - IBizCentros = interface(IListaCentros) - ['{1B5A35E8-1243-4222-BB86-558574C0F2AE}'] - end; - - IBizColecciones = interface(IListaColecciones) - ['{BF62BD66-69B4-4134-954E-724C7C65CB5C}'] - end; - - TBizCentrosDataTableRules = class(TListaCentrosDataTableRules, IBizCentros) - end; - - TBizColeccionesDataTableRules = class(TListaColeccionesDataTableRules, IBizColecciones) - end; - -implementation - -uses - uDataModuleParametros; - -{ TBizCentrosDataTableRules } - -initialization - RegisterDataTableRules(BIZ_CENTROS, TBizCentrosDataTableRules); - RegisterDataTableRules(BIZ_COLECCIONES, TBizColeccionesDataTableRules); - -end. - diff --git a/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.ddp b/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.dfm b/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.dfm deleted file mode 100644 index fb27827..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.dfm +++ /dev/null @@ -1,155 +0,0 @@ -object srvParametros: TsrvParametros - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schParametros - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 300 - Width = 300 - object schParametros: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'SELECT'#10' RDX_FILIALES.CODFILIAL, RDX_FILIALES.CODBARRA, FILI' + - 'AIS.FILIAL'#10'FROM'#10' RDX_FILIALES INNER JOIN FILIAIS ON (RDX_FILI' + - 'ALES.CODFILIAL = FILIAIS.COD_FILIAL)'#10'WHERE'#10' RDX_FILIALES.COD' + - 'FILIAL <> '#39'000001'#39 - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CODFILIAL' - TableField = 'CODFILIAL' - end - item - DatasetField = 'CODBARRA' - TableField = 'CODBARRA' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end> - end> - Name = 'ListaCentros' - Fields = < - item - Name = 'CODFILIAL' - DataType = datString - Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODBARRA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'SELECT'#10' COLECOES.COLECAO, COLECOES.DESC_COLECAO'#10'FROM'#10' CO' + - 'LECOES'#10'WHERE'#10' COLECOES.COLECAO NOT IN ('#39'IND'#39', '#39'PRI'#39', '#39'009'#39')'#10 + - 'ORDER BY COLECOES.COLECAO DESC' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'COLECAO' - TableField = 'COLECAO' - end - item - DatasetField = 'DESC_COLECAO' - TableField = 'DESC_COLECAO' - end> - end> - Name = 'ListaColecciones' - Fields = < - item - Name = 'COLECAO' - DataType = datString - Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESC_COLECAO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.pas b/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.pas deleted file mode 100644 index 3cc706d..0000000 --- a/Varela/Varela/Source/Modulos/Parametros/Servidor/srvParametros_Impl.pas +++ /dev/null @@ -1,48 +0,0 @@ -unit srvParametros_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAScriptingProvider, uDABusinessProcessor, - uDAClasses, uDADataTable, uDABINAdapter, uDADataStreamer; - - -type - { TsrvParametros } - TsrvParametros = class(TDARemoteService, IsrvParametros) - DABINAdapter: TDABINAdapter; - schParametros: TDASchema; - private - protected - { IsrvParametros methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer; - -procedure Create_srvParametros(out anInstance : IUnknown); -begin - anInstance := TsrvParametros.Create(NIL); -end; - -{ srvParametros } -initialization - TROClassFactory.Create('srvParametros', Create_srvParametros, TsrvParametros_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.bdsproj b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.bdsproj deleted file mode 100644 index 6072fed..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.bdsproj +++ /dev/null @@ -1,679 +0,0 @@ - - - - - - - - - - - - Recepciones.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - Intraweb 8.0 Design Package for Borland Development Studio 2006 - - - - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.cfg b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.cfg deleted file mode 100644 index a34a309..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$Y- --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.dof b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.dof deleted file mode 100644 index a44450d..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=0 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.dpk b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.dpk deleted file mode 100644 index 76a3206..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.dpk +++ /dev/null @@ -1,84 +0,0 @@ -package Recepciones; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO OFF} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - dbrtl, - dsnap, - BaseD10, - vcl, - adortl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - GUISDK_D10, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - cxTreeListD10, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - JvGlobusD10R, - ControlesBaseD10, - Parametros, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - dxPSCoreD10, - dxComnD10, - JvCustomD10R, - bdertl, - VclSmp, - dxPScxGridLnkD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - vclshlctrls, - dclcxLibraryD10; - -contains - uPluginControllerRecepciones in 'uPluginControllerRecepciones.pas' {ModuleRecepciones: TModuleController}, - uDataModuleRecepciones in 'uDataModuleRecepciones.pas' {dmRecepciones: TDAClientDataModule}, - uBizRecepciones in '..\Reglas\uBizRecepciones.pas', - uViewListaRecepciones in 'uViewListaRecepciones.pas' {frViewListaRecepciones: TCustomView}, - uEditorListaRecepciones in 'uEditorListaRecepciones.pas' {fEditorListaRecepciones: TCustomEditor}, - uEditorAjustarRecepciones in 'uEditorAjustarRecepciones.pas' {fEditorAjustarRecepciones}, - uViewListaRecepcionesAlbaran in 'uViewListaRecepcionesAlbaran.pas' {frViewListaRecepcionesAlbaran: TCustomView}, - uEditorListaRecepcionesAlbaran in 'uEditorListaRecepcionesAlbaran.pas' {fEditorListaRecepcionesAlbaran: TCustomEditor}; - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.drc b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.identcache b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.identcache deleted file mode 100644 index ce259cd..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.rc b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.res b/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/Recepciones.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/cxVerticalGridD10.drc b/Varela/Varela/Source/Modulos/Recepciones/Cliente/cxVerticalGridD10.drc deleted file mode 100644 index e520ba1..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/cxVerticalGridD10.drc +++ /dev/null @@ -1,23 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x52", "\x00", "\x4f", "\x00", "\x44", "\x00", /* 0020: .R.O.D. */ - "\x58", "\x00", "\x53", "\x00", "\x6f", "\x00", "\x63", "\x00", /* 0028: X.S.o.c. */ - "\x6b", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0030: k. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0038: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0040: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/cxVerticalGridVCLD7.drc b/Varela/Varela/Source/Modulos/Recepciones/Cliente/cxVerticalGridVCLD7.drc deleted file mode 100644 index ae9acff..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/cxVerticalGridVCLD7.drc +++ /dev/null @@ -1,22 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x43", "\x00", "\x6f", "\x00", "\x72", "\x00", /* 0020: .C.o.r. */ - "\x65", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0028: e. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0030: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0038: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/dxLayoutControlD10.drc b/Varela/Varela/Source/Modulos/Recepciones/Cliente/dxLayoutControlD10.drc deleted file mode 100644 index e520ba1..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/dxLayoutControlD10.drc +++ /dev/null @@ -1,23 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x52", "\x00", "\x4f", "\x00", "\x44", "\x00", /* 0020: .R.O.D. */ - "\x58", "\x00", "\x53", "\x00", "\x6f", "\x00", "\x63", "\x00", /* 0028: X.S.o.c. */ - "\x6b", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0030: k. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0038: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0040: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/rtl.drc b/Varela/Varela/Source/Modulos/Recepciones/Cliente/rtl.drc deleted file mode 100644 index a81d7c4..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/rtl.drc +++ /dev/null @@ -1,10 +0,0 @@ -/* VER150 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.dfm deleted file mode 100644 index 42adba6..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.dfm +++ /dev/null @@ -1,1830 +0,0 @@ -object dmRecepciones: TdmRecepciones - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 364 - Width = 620 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvRecepciones' - Left = 64 - Top = 32 - end - object tbl_Recepciones: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_ESTADO_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_OBSERVACIONES_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CONTABILIZAR_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RECIBIDO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Recepciones_RECIBIDO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Recepciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Recepciones' - IndexDefs = <> - Left = 208 - Top = 32 - end - object ds_Recepciones: TDADataSource - DataSet = tbl_Recepciones.Dataset - DataTable = tbl_Recepciones - Left = 208 - Top = 88 - end - object tbl_RecepcionesAprobadas: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_ESTADO_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_OBSERVACIONES_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CONTABILIZAR_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RECIBIDO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Recepciones_RECIBIDO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Recepciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'RecepcionesAprobadas' - IndexDefs = <> - Left = 352 - Top = 32 - end - object ds_RecepcionesAprobadas: TDADataSource - DataSet = tbl_RecepcionesAprobadas.Dataset - DataTable = tbl_RecepcionesAprobadas - Left = 352 - Top = 88 - end - object tbl_RecepcionesPendientes: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_ESTADO_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_OBSERVACIONES_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Recepciones_CONTABILIZAR_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_R48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - ReadOnly = True - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RECIBIDO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - DictionaryEntry = 'Recepciones_RR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Recepciones_RECIBIDO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - ServerAutoRefresh = True - DictionaryEntry = 'Recepciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'RecepcionesPendientes' - IndexDefs = <> - Left = 488 - Top = 32 - end - object ds_RecepcionesPendientes: TDADataSource - DataSet = tbl_RecepcionesPendientes.Dataset - DataTable = tbl_RecepcionesPendientes - Left = 488 - Top = 88 - end - object tbl_RecepcionesAlbaran: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADOALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADOPRODUCTO' - DataType = datString - Size = 9 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'RecepcionesAlbaran' - IndexDefs = <> - Left = 208 - Top = 192 - end - object ds_RecepcionesAlbaran: TDADataSource - DataSet = tbl_RecepcionesAlbaran.Dataset - DataTable = tbl_RecepcionesAlbaran - Left = 208 - Top = 248 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 64 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.pas deleted file mode 100644 index 1216728..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.pas +++ /dev/null @@ -1,131 +0,0 @@ -unit uDataModuleRecepciones; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uDataModuleBase, uROClient, - uROServiceComponent, uRORemoteService, uBizRecepciones, uDARemoteDataAdapter, - uDAInterfaces; - -type - TdmRecepciones = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_Recepciones: TDACDSDataTable; - ds_Recepciones: TDADataSource; - tbl_RecepcionesAprobadas: TDACDSDataTable; - ds_RecepcionesAprobadas: TDADataSource; - tbl_RecepcionesPendientes: TDACDSDataTable; - ds_RecepcionesPendientes: TDADataSource; - tbl_RecepcionesAlbaran: TDACDSDataTable; - ds_RecepcionesAlbaran: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - private - { Private declarations } - public - function GetItems : IBizRecepciones; overload; - function GetItems(const AEstado : TInvRecepcionEstado) : IBizRecepciones; overload; - function GetItemsAlbaran : IBizRecepcionesAlbaran; overload; - function GetItemsAlbaran(const AEstado : TInvRecepcionAlbaranEstado) : IBizRecepcionesAlbaran; overload; - end; - -var - dmRecepciones: TdmRecepciones; - -implementation - -{$R *.DFM} - -uses - Forms, Windows, Controls, VARELA_Intf, uEditorPreview, - uDataTableUtils, uROTypes, cxControls; - - -procedure TdmRecepciones.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmRecepciones.GetItems: IBizRecepciones; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_Recepciones, dtLista); - dtLista.BusinessRulesID := BIZ_RECEPCIONES; - Result := (dtLista as IBizRecepciones); - finally - HideHourglassCursor; - end; -end; - -function TdmRecepciones.GetItems( - const AEstado: TInvRecepcionEstado): IBizRecepciones; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - - case AEstado of - tirPendiente : CloneDataTable(tbl_RecepcionesPendientes, dtLista); - tirAprobado : CloneDataTable(tbl_RecepcionesAprobadas, dtLista); - end; - - dtLista.BusinessRulesID := BIZ_RECEPCIONES; - Result := (dtLista as IBizRecepciones); - finally - HideHourglassCursor; - end; -end; - -function TdmRecepciones.GetItemsAlbaran: IBizRecepcionesAlbaran; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_RecepcionesAlbaran, dtLista); - dtLista.BusinessRulesID := BIZ_RECEPCIONESALBARAN; - Result := (dtLista as IBizRecepcionesAlbaran); - finally - HideHourglassCursor; - end; -end; - -function TdmRecepciones.GetItemsAlbaran(const AEstado: TInvRecepcionAlbaranEstado): IBizRecepcionesAlbaran; -var - dtLista: IBizRecepcionesAlbaran; -begin - ShowHourglassCursor; - try - dtLista := GetItemsAlbaran; - - with dtLista.DataTable.Where do - begin - Clear; - case AEstado of - tiraPendiente : AddCondition('ESTADOALBARAN', cEqual, 'P'); - tiraRecibido : AddCondition('ESTADOALBARAN', cEqual, 'R'); - end; - end; - - Result := dtLista; - finally - HideHourglassCursor; - end; -end; - -initialization - dmRecepciones := TdmRecepciones.Create(nil); - -finalization - FreeAndNil(dmRecepciones); - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.ddp b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.dfm deleted file mode 100644 index 1bfb8a8..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.dfm +++ /dev/null @@ -1,907 +0,0 @@ -object fEditorAjustarRecepciones: TfEditorAjustarRecepciones - Left = 490 - Top = 337 - BorderStyle = bsDialog - Caption = 'Modificaci'#243'n de recepciones de productos' - ClientHeight = 536 - ClientWidth = 753 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object JvgWizardHeader1: TJvgWizardHeader - Left = 0 - Top = 0 - Width = 753 - Height = 73 - CaptionFont.Charset = DEFAULT_CHARSET - CaptionFont.Color = clWindowText - CaptionFont.Height = -11 - CaptionFont.Name = 'MS Sans Serif' - CaptionFont.Style = [fsBold] - CommentFont.Charset = DEFAULT_CHARSET - CommentFont.Color = clWindowText - CommentFont.Height = -11 - CommentFont.Name = 'MS Sans Serif' - CommentFont.Style = [] - SymbolFont.Charset = DEFAULT_CHARSET - SymbolFont.Color = clHighlightText - SymbolFont.Height = -35 - SymbolFont.Name = 'Wingdings' - SymbolFont.Style = [fsBold] - Captions.Strings = ( - 'Modificaci'#243'n de recepciones de productos') - Comments.Strings = ( - '') - Gradient.FromColor = clHighlight - Gradient.ToColor = clWindow - Gradient.Active = True - Gradient.Orientation = fgdVertical - BufferedDraw = False - end - object Bevel1: TBevel - Left = 11 - Top = 483 - Width = 730 - Height = 4 - Shape = bsBottomLine - end - object bAceptar: TButton - Left = 572 - Top = 496 - Width = 75 - Height = 25 - Caption = '&Aceptar' - ModalResult = 1 - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 666 - Top = 496 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 73 - Width = 753 - Height = 403 - ParentBackground = True - TabOrder = 2 - AutoContentSizes = [acsWidth, acsHeight] - object Bevel2: TBevel - Left = 22 - Top = 224 - Width = 50 - Height = 10 - Shape = bsBottomLine - end - object Label1: TLabel - Left = 22 - Top = 260 - Width = 86 - Height = 13 - Caption = 'Cantidad enviada:' - end - object Label2: TLabel - Left = 22 - Top = 335 - Width = 84 - Height = 13 - Caption = 'Cantidad por EDI:' - end - object Label3: TLabel - Left = 61 - Top = 364 - Width = 45 - Height = 13 - Caption = 'Cantidad:' - end - object edtEnv40: TcxDBMaskEdit - Left = 218 - Top = 258 - DataBinding.DataField = 'E40' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 - Width = 25 - end - object edtEnv38: TcxDBMaskEdit - Left = 114 - Top = 258 - DataBinding.DataField = 'E38' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 - Width = 25 - end - object edtEnv42: TcxDBMaskEdit - Left = 322 - Top = 258 - DataBinding.DataField = 'E42' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 - Width = 25 - end - object edtEnv44: TcxDBMaskEdit - Left = 426 - Top = 258 - DataBinding.DataField = 'E44' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Width = 25 - end - object edtEnv46: TcxDBMaskEdit - Left = 530 - Top = 258 - DataBinding.DataField = 'E46' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 - Width = 25 - end - object edtEnv48: TcxDBMaskEdit - Left = 634 - Top = 258 - DataBinding.DataField = 'E48' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 - Width = 25 - end - object edtRec38: TcxDBMaskEdit - Left = 112 - Top = 333 - DataBinding.DataField = 'R38' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 - Width = 98 - end - object edtRec40: TcxDBMaskEdit - Left = 216 - Top = 333 - DataBinding.DataField = 'R40' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 - Width = 98 - end - object edtRec42: TcxDBMaskEdit - Left = 320 - Top = 333 - DataBinding.DataField = 'R42' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 18 - Width = 98 - end - object edtRec44: TcxDBMaskEdit - Left = 424 - Top = 333 - DataBinding.DataField = 'R44' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 20 - Width = 98 - end - object edtRec46: TcxDBMaskEdit - Left = 528 - Top = 333 - DataBinding.DataField = 'R46' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 22 - Width = 98 - end - object edtRec48: TcxDBMaskEdit - Left = 632 - Top = 333 - DataBinding.DataField = 'R48' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 24 - Width = 98 - end - object edtRecR48: TcxCurrencyEdit - Left = 632 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 25 - Width = 98 - end - object edtRecR46: TcxCurrencyEdit - Left = 528 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 23 - Width = 98 - end - object edtRecR44: TcxCurrencyEdit - Left = 424 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 21 - Width = 98 - end - object edtRecR42: TcxCurrencyEdit - Left = 320 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 19 - Width = 98 - end - object edtRecR40: TcxCurrencyEdit - Left = 216 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 - Width = 98 - end - object edtRecR38: TcxCurrencyEdit - Left = 112 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 - Width = 98 - end - object edtFecha: TcxDBLabel - Left = 133 - Top = 28 - AutoSize = True - DataBinding.DataField = 'FECHA' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - end - object edtCentro: TcxDBLabel - Left = 185 - Top = 28 - AutoSize = True - DataBinding.DataField = 'FILIAL' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - end - object edtProducto: TcxDBLabel - Left = 133 - Top = 51 - AutoSize = True - DataBinding.DataField = 'PRODUCTO' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - end - object edtColor: TcxDBLabel - Left = 613 - Top = 51 - DataBinding.DataField = 'COLOR' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 118 - end - object edtAlbaran: TcxDBLabel - Left = 133 - Top = 104 - AutoSize = True - DataBinding.DataField = 'ALBARAN' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - end - object cbEstadoAlbaran: TcxComboBox - Left = 133 - Top = 127 - Properties.Items.Strings = ( - 'Ninguna' - 'Env'#237'o perdido' - 'Env'#237'o retrasado' - 'Env'#237'o devuelto' - 'Otros') - 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 = 5 - Text = 'cbEstadoAlbaran' - Width = 156 - end - object memEstadoAlbaran: TcxMemo - Left = 22 - Top = 172 - Lines.Strings = ( - 'memEstadoAlbaran') - 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 = 7 - Height = 46 - Width = 708 - end - object cbContabilizarAlbaran: TcxCheckBox - Left = 348 - Top = 127 - Caption = 'Contabilizar este albar'#225'n' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 'S' - Properties.ValueUnchecked = 'N' - State = cbsGrayed - 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 = 6 - Width = 319 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group1: TdxLayoutGroup - Caption = 'Datos generales' - object dxLayoutControl1Group2: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item31: TdxLayoutItem - Caption = 'Fecha del movimiento:' - Control = edtFecha - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item17: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Centro:' - Control = edtCentro - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group3: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item32: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Producto:' - Control = edtProducto - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item33: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'Color:' - Control = edtColor - ControlOptions.MinWidth = 50 - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Group4: TdxLayoutGroup - Caption = 'Datos del albar'#225'n de env'#237'o' - object dxLayoutControl1Group8: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group7: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'Albar'#225'n de env'#237'o:' - Control = edtAlbaran - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group6: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item5: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Estado del env'#237'o' - Control = cbEstadoAlbaran - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item8: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'cxCheckBox1' - ShowCaption = False - Control = cbContabilizarAlbaran - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Item6: TdxLayoutItem - Caption = 'Observaciones sobre el albar'#225'n:' - CaptionOptions.AlignVert = tavTop - CaptionOptions.Layout = clTop - Control = memEstadoAlbaran - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item9: TdxLayoutItem - Control = Bevel2 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group9: TdxLayoutGroup - Caption = 'New Group' - ShowCaption = False - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item16: TdxLayoutItem - Caption = 'Tallas:' - CaptionOptions.AlignHorz = taRightJustify - CaptionOptions.Layout = clTop - Offsets.Top = 2 - Control = Label1 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item11: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '38' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv38 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item10: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '40' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv40 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item12: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '42' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv42 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item13: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '44' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv44 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item14: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '46' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv46 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item15: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '48' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtEnv48 - ControlOptions.ShowBorder = False - end - end - end - object dxLayoutControl1Group5: TdxLayoutGroup - Caption = 'Datos de recepci'#243'n del env'#237'o' - LayoutDirection = ldHorizontal - object dxLayoutControl1Group16: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item23: TdxLayoutItem - Caption = 'Tallas:' - CaptionOptions.AlignHorz = taRightJustify - CaptionOptions.Layout = clTop - Offsets.Top = 2 - Control = Label2 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item30: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - CaptionOptions.Layout = clTop - Offsets.Top = 10 - ShowCaption = False - Control = Label3 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group10: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item2: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '38' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec38 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item29: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR38 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group11: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '40' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec40 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item28: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR40 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group12: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item4: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '42' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec42 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item27: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR42 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group13: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item20: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '44' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec44 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item26: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR44 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group14: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item21: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '46' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec46 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item25: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR46 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group15: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item22: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '48' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec48 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item24: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR48 - ControlOptions.ShowBorder = False - end - end - end - end - end - object dsDataSource: TDADataSource - Left = 200 - Top = 496 - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.pas deleted file mode 100644 index 633791b..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorAjustarRecepciones.pas +++ /dev/null @@ -1,352 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorAjustarRecepciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, JvExControls, JvComponent, - JvgWizardHeader, ExtCtrls, cxStyles, cxCustomData, uBizRecepciones, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, - cxCurrencyEdit, uDADataTable, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, - cxClasses, cxControls, cxGridCustomView, cxGrid, dxLayoutControl, - cxContainer, cxTextEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, - cxCheckBox, cxCalendar, cxLabel, cxDBLabel; - -type - IEditorAjustarRecepciones = interface - ['{549191AB-7CF0-464A-872B-ECBCD0088A25}'] - function GetItems : IBizRecepciones; - procedure SetItems (const AValue : IBizRecepciones); - property Items : IBizRecepciones read GetItems write SetItems; - end; - - TfEditorAjustarRecepciones = class(TForm, IEditorAjustarRecepciones) - bAceptar: TButton; - bCancelar: TButton; - JvgWizardHeader1: TJvgWizardHeader; - Bevel1: TBevel; - dsDataSource: TDADataSource; - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutControl1Group1: TdxLayoutGroup; - dxLayoutControl1Group2: TdxLayoutGroup; - dxLayoutControl1Group3: TdxLayoutGroup; - dxLayoutControl1Group4: TdxLayoutGroup; - dxLayoutControl1Group5: TdxLayoutGroup; - dxLayoutControl1Item9: TdxLayoutItem; - Bevel2: TBevel; - dxLayoutControl1Group8: TdxLayoutGroup; - dxLayoutControl1Item10: TdxLayoutItem; - edtEnv40: TcxDBMaskEdit; - dxLayoutControl1Group9: TdxLayoutGroup; - dxLayoutControl1Item11: TdxLayoutItem; - edtEnv38: TcxDBMaskEdit; - dxLayoutControl1Item12: TdxLayoutItem; - edtEnv42: TcxDBMaskEdit; - dxLayoutControl1Item13: TdxLayoutItem; - edtEnv44: TcxDBMaskEdit; - dxLayoutControl1Item14: TdxLayoutItem; - edtEnv46: TcxDBMaskEdit; - dxLayoutControl1Item15: TdxLayoutItem; - edtEnv48: TcxDBMaskEdit; - dxLayoutControl1Item16: TdxLayoutItem; - Label1: TLabel; - dxLayoutControl1Item2: TdxLayoutItem; - edtRec38: TcxDBMaskEdit; - dxLayoutControl1Item3: TdxLayoutItem; - edtRec40: TcxDBMaskEdit; - dxLayoutControl1Item4: TdxLayoutItem; - edtRec42: TcxDBMaskEdit; - dxLayoutControl1Item20: TdxLayoutItem; - edtRec44: TcxDBMaskEdit; - dxLayoutControl1Item21: TdxLayoutItem; - edtRec46: TcxDBMaskEdit; - dxLayoutControl1Item22: TdxLayoutItem; - edtRec48: TcxDBMaskEdit; - dxLayoutControl1Item23: TdxLayoutItem; - Label2: TLabel; - dxLayoutControl1Item24: TdxLayoutItem; - edtRecR48: TcxCurrencyEdit; - dxLayoutControl1Item25: TdxLayoutItem; - edtRecR46: TcxCurrencyEdit; - dxLayoutControl1Item26: TdxLayoutItem; - edtRecR44: TcxCurrencyEdit; - dxLayoutControl1Item27: TdxLayoutItem; - edtRecR42: TcxCurrencyEdit; - dxLayoutControl1Item28: TdxLayoutItem; - edtRecR40: TcxCurrencyEdit; - dxLayoutControl1Item29: TdxLayoutItem; - edtRecR38: TcxCurrencyEdit; - dxLayoutControl1Group10: TdxLayoutGroup; - dxLayoutControl1Group11: TdxLayoutGroup; - dxLayoutControl1Group12: TdxLayoutGroup; - dxLayoutControl1Group13: TdxLayoutGroup; - dxLayoutControl1Group14: TdxLayoutGroup; - dxLayoutControl1Group15: TdxLayoutGroup; - dxLayoutControl1Item30: TdxLayoutItem; - Label3: TLabel; - dxLayoutControl1Group16: TdxLayoutGroup; - edtFecha: TcxDBLabel; - dxLayoutControl1Item31: TdxLayoutItem; - edtCentro: TcxDBLabel; - dxLayoutControl1Item17: TdxLayoutItem; - edtProducto: TcxDBLabel; - dxLayoutControl1Item32: TdxLayoutItem; - edtColor: TcxDBLabel; - dxLayoutControl1Item33: TdxLayoutItem; - edtAlbaran: TcxDBLabel; - dxLayoutControl1Item1: TdxLayoutItem; - cbEstadoAlbaran: TcxComboBox; - dxLayoutControl1Item5: TdxLayoutItem; - memEstadoAlbaran: TcxMemo; - dxLayoutControl1Item6: TdxLayoutItem; - cbContabilizarAlbaran: TcxCheckBox; - dxLayoutControl1Item8: TdxLayoutItem; - dxLayoutControl1Group7: TdxLayoutGroup; - dxLayoutControl1Group6: TdxLayoutGroup; - procedure FormShow(Sender: TObject); - procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure bAceptarClick(Sender: TObject); - private - FItems : IBizRecepciones; - FHayErrores : Boolean; - FAlbaranModificado : Boolean; - procedure CargarValores; - procedure SalvarValores; - procedure ModificarAlbaran; - protected - function GetItems : IBizRecepciones; - procedure SetItems (const AValue : IBizRecepciones); - public - property Items : IBizRecepciones read GetItems write SetItems; - end; - - -implementation - -uses - uEditorUtils, uDataModuleRecepciones; - -{$R *.dfm} - -function ShowEditorAjustarRecepciones (ABizObject : TDADataTableRules) : TModalResult; -var - AEditor: TfEditorAjustarRecepciones; -begin - AEditor := TfEditorAjustarRecepciones.Create(Application); - try - AEditor.Items := (ABizObject as IBizRecepciones); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - - -{ TfEditorCambioReferenciaGenerica } - -procedure TfEditorAjustarRecepciones.FormShow(Sender: TObject); -begin - FHayErrores := False; - FAlbaranModificado := False; - FItems.DataTable.Open; - - cbEstadoAlbaran.Enabled := Length(FItems.DataTable.FieldByName('ALBARAN').AsString) > 0; - cbContabilizarAlbaran.Enabled := cbEstadoAlbaran.Enabled; - memEstadoAlbaran.Enabled := cbEstadoAlbaran.Enabled; - - CargarValores; -end; - -function TfEditorAjustarRecepciones.GetItems: IBizRecepciones; -begin - Result := FItems; -end; - -procedure TfEditorAjustarRecepciones.SetItems( - const AValue: IBizRecepciones); -begin - FItems := AValue; - if Assigned(FItems) then - dsDataSource.DataTable := FItems.DataTable; -end; - -procedure TfEditorAjustarRecepciones.cxGridViewCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if ((AViewInfo.Item as TcxGridDBBandedColumn).Position.RowIndex = 1) then - begin - ADone := True; - with AViewInfo do begin - ACanvas.FillRect(Bounds); - ACanvas.DrawTexT(Text, TextAreaBounds, 0); - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom]); - end; - end; -end; - -procedure TfEditorAjustarRecepciones.bAceptarClick(Sender: TObject); -begin - ShowHourglassCursor; - Application.ProcessMessages; - try - SalvarValores; - FItems.DataTable.ApplyUpdates; - if FAlbaranModificado then - ModificarAlbaran; - finally - HideHourglassCursor; - end; - Close; -end; - -procedure TfEditorAjustarRecepciones.CargarValores; -begin - with FItems.DataTable do - begin - if FieldByName('R38').AsInteger <> FieldByName('RR38').AsInteger then - edtRecR38.Value := FieldByName('RR38').AsInteger - else - edtRecR38.Value := FieldByName('R38').AsInteger; - - if FieldByName('R40').AsInteger <> FieldByName('RR40').AsInteger then - edtRecR40.Value := FieldByName('RR40').AsInteger - else - edtRecR40.Value := FieldByName('R40').AsInteger; - - if FieldByName('R42').AsInteger <> FieldByName('RR42').AsInteger then - edtRecR42.Value := FieldByName('RR42').AsInteger - else - edtRecR42.Value := FieldByName('R42').AsInteger; - - if FieldByName('R44').AsInteger <> FieldByName('RR44').AsInteger then - edtRecR44.Value := FieldByName('RR44').AsInteger - else - edtRecR44.Value := FieldByName('R44').AsInteger; - - if FieldByName('R46').AsInteger <> FieldByName('RR46').AsInteger then - edtRecR46.Value := FieldByName('RR46').AsInteger - else - edtRecR46.Value := FieldByName('R46').AsInteger; - - if FieldByName('R48').AsInteger <> FieldByName('RR48').AsInteger then - edtRecR48.Value := FieldByName('RR48').AsInteger - else - edtRecR48.Value := FieldByName('R48').AsInteger; - - if Length(FieldByName('ESTADO_ALBARAN').AsString) = 0 then - cbEstadoAlbaran.Text := cbEstadoAlbaran.Properties.Items[0] - else - cbEstadoAlbaran.Text := FieldByName('ESTADO_ALBARAN').AsString; - - cbContabilizarAlbaran.Checked := (FieldByName('CONTABILIZAR_ALBARAN').AsString = 'S'); - memEstadoAlbaran.Lines.Clear; - if Length(FieldByName('OBSERVACIONES_ALBARAN').AsString) > 0 then - memEstadoAlbaran.Lines.Add(FieldByName('OBSERVACIONES_ALBARAN').AsString) - end; -end; - -procedure TfEditorAjustarRecepciones.SalvarValores; -var - aux : String; -begin - FAlbaranModificado := False; - with FItems.DataTable do - begin - Edit; - FieldByName('RR38').AsVariant := edtRecR38.Value; - FieldByName('RR40').AsVariant := edtRecR40.Value; - FieldByName('RR42').AsVariant := edtRecR42.Value; - FieldByName('RR44').AsVariant := edtRecR44.Value; - FieldByName('RR46').AsVariant := edtRecR46.Value; - FieldByName('RR48').AsVariant := edtRecR48.Value; - - if cbEstadoAlbaran.Text = cbEstadoAlbaran.Properties.Items[0] then - aux := '' - else - aux := cbEstadoAlbaran.Text; - - if FieldByName('ESTADO_ALBARAN').AsString <> aux then - begin - FAlbaranModificado := True; - FieldByName('ESTADO_ALBARAN').AsString := aux; - end; - - if cbContabilizarAlbaran.Checked then - aux := 'S' - else - aux := 'N'; - - if FieldByName('CONTABILIZAR_ALBARAN').AsString <> aux then - begin - FAlbaranModificado := True; - FieldByName('CONTABILIZAR_ALBARAN').AsString := aux; - end; - - FieldByName('OBSERVACIONES_ALBARAN').AsString := memEstadoAlbaran.Lines.Text; - - Post; - end; -end; - -procedure TfEditorAjustarRecepciones.ModificarAlbaran; -var - bm : TBookMark ; - AAlbaran : String; - AEstado : String; - AContabilizar : String; -begin - { Si se ha cambiado el albarán, hay - que cambiarlo en el resto de filas en las que aparezca } - - AAlbaran := FItems.DataTable.FieldByName('ALBARAN').AsString; - AEstado := FItems.DataTable.FieldByName('ESTADO_ALBARAN').AsString; - AContabilizar := FItems.DataTable.FieldByName('CONTABILIZAR_ALBARAN').AsString; - - bm := FItems.DataTable.GetBookMark; - FItems.DataTable.DisableControls; - FItems.DataTable.DisableEventHandlers; - FItems.DataTable.LogChanges := False; - try - FItems.DataTable.Filter := 'ALBARAN = ''' + AAlbaran + ''''; - FItems.DataTable.Filtered := True; - FItems.DataTable.First; - - repeat - FItems.Edit; - FItems.DataTable.FieldByName('ESTADO_ALBARAN').AsString := AEstado; - FItems.DataTable.FieldByName('CONTABILIZAR_ALBARAN').AsString := AContabilizar; - FItems.Post; - FItems.DataTable.Next - until FItems.DataTable.EOF; - - FItems.DataTable.GotoBookMark(bm); - finally - FItems.DataTable.Filter := ''; - FItems.DataTable.Filtered := False; - FItems.DataTable.FreeBookMark(BM); - FItems.DataTable.LogChanges := True; - FItems.DataTable.EnableEventHandlers; - FItems.DataTable.EnableControls; - end; -end; - -initialization - RegisterEditor(IBizRecepciones, ShowEditorAjustarRecepciones, etItem); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.ddp b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm deleted file mode 100644 index f42f185..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm +++ /dev/null @@ -1,1715 +0,0 @@ -inherited fEditorListaRecepciones: TfEditorListaRecepciones - Left = 448 - Top = 221 - Caption = 'Control de recepciones' - ClientHeight = 664 - ClientWidth = 816 - ExplicitWidth = 824 - ExplicitHeight = 698 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 816 - Caption = 'Control de recepciones' - ExplicitWidth = 816 - inherited Image1: TImage - Left = 789 - ExplicitLeft = 789 - end - end - inherited TBXDock: TTBXDock - Width = 816 - ExplicitWidth = 816 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 578 - object TBXSubmenuItem2: TTBXSubmenuItem [5] - Caption = 'Cambiar el estado' - DropdownCombo = True - object TBXItem37: TTBXItem - Action = actPendiente - end - object TBXItem36: TTBXItem - Action = actAprobado - end - end - object TBXSeparatorItem16: TTBXSeparatorItem [8] - end - object tbxiExpandir: TTBXItem [16] - Action = actExpandir - end - object tbxiContraer: TTBXItem [17] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [18] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 816 - end - inherited tbxFiltro: TTBXToolbar - Left = 578 - ExplicitLeft = 578 - end - end - inherited StatusBar: TStatusBar - Top = 645 - Width = 816 - ExplicitTop = 645 - ExplicitWidth = 816 - end - object JvTabBar1: TJvTabBar [3] - Left = 0 - Top = 204 - Width = 816 - Height = 29 - Cursor = crHandPoint - CloseButton = False - Painter = JvModernTabBarPainter1 - Images = SmallImages - Tabs = < - item - Caption = 'Pendientes' - Selected = True - ImageIndex = 26 - end - item - Caption = 'Aprobados' - ImageIndex = 25 - end - item - Caption = 'Todos' - end> - OnTabSelected = JvTabBar1TabSelected - end - inline frViewListaRecepciones1: TfrViewListaRecepciones [4] - Left = 0 - Top = 233 - Width = 816 - Height = 412 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 4 - ReadOnly = False - ExplicitTop = 233 - ExplicitWidth = 816 - ExplicitHeight = 412 - inherited cxGrid: TcxGrid - Width = 816 - Height = 412 - ExplicitWidth = 816 - ExplicitHeight = 412 - inherited cxGridView: TcxGridDBTableView - PopupMenu = GridPopupMenu - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0;-,0' - Kind = skSum - Position = spFooter - Column = frViewListaRecepciones1.cxGridBandedViewDIFERENCIA - end - item - Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades' - Kind = skSum - Column = frViewListaRecepciones1.cxGridBandedViewDIFERENCIA - end> - inherited cxGridBandedViewAPROBADO: TcxGridDBColumn - IsCaptionAssigned = True - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - BuiltInReportLink = True - end - end - end - object TBXDockablePanel1: TTBXDockablePanel [5] - Left = 0 - Top = 76 - MaxClientHeight = 61 - Align = alTop - Caption = 'TBXDockablePanel1' - FloatingWidth = 128 - FloatingHeight = 128 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 5 - inline frViewParametrosCentro1: TfrViewParametrosCentro - Left = 0 - Top = 19 - Width = 425 - Height = 109 - Align = alLeft - TabOrder = 0 - ReadOnly = False - ExplicitTop = 19 - ExplicitWidth = 425 - ExplicitHeight = 109 - inherited dxLayoutControl1: TdxLayoutControl - Width = 425 - ExplicitWidth = 425 - inherited ccbCentro: TJvCheckedComboBox - Width = 392 - ExplicitWidth = 392 - end - end - end - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 816 - Height = 19 - Margins.Left = 5 - Margins.Top = 5 - Align = alTop - Caption = 'Par'#225'metros de consulta' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentColor = True - ParentFont = False - Underline = True - end - object pnlAgrupaciones: TTBXAlignmentPanel - Left = 425 - Top = 19 - Width = 391 - Height = 109 - Align = alClient - AutoSize = True - TabOrder = 2 - object TBXButton3: TTBXButton - Tag = 3 - Left = 8 - Top = 10 - Width = 90 - Height = 21 - Action = actRefrescar - AutoSize = False - Caption = 'Consultar' - ImageIndex = 0 - TabOrder = 0 - Wrapping = twEndEllipsis - end - end - end - inherited EditorActionList: TActionList [6] - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Caption = 'Modificar recepci'#243'n' - OnExecute = actModificarExecute - end - inherited actEliminar: TAction - Enabled = False - Visible = False - end - inherited actDuplicar: TAction - Enabled = False - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - OnUpdate = actAnchoAutoUpdate - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - OnUpdate = actAnchoAutoUpdate - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - OnUpdate = actAnchoAutoUpdate - end - object actPendiente: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Pendiente' - GroupIndex = 1 - ImageIndex = 26 - OnExecute = actPendienteExecute - OnUpdate = actPendienteUpdate - end - object actAprobado: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Aprobado' - GroupIndex = 1 - ImageIndex = 25 - OnExecute = actAprobadoExecute - OnUpdate = actAprobadoUpdate - end - end - inherited SmallImages: TPngImageList [7] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001D94944415478DA9D9321781B310C859F59580CCB66B6B21886CDF0A0 - 61A061E19595CD6585375678B0D030D0B0D065851E2B74589827E9B26CFDF205 - 6C427767E9E9D7934FE114F5A3F5522AB0A29723D08E0DC61858A3A1B556B812 - EA77717EADF0C3E67CD0DA01F5BDA23612D21A766BA0579742F2813AF74CDDC3 - EE1BC6F1510EA6E9FB22F471E006A8B50A91DB1A7549505B8FCFB3A01B423637 - 1A4CD41A533978EFE8591AD1382011AB2E04D26B41182CD6AB350EC703E6974C - 9DAB14C518606F37C8E5A734F1EE0F85E2F9D3BE301A9B859412AC7554A02539 - E50C7281881A0A7B42E330A11F0CA6D12935CDB93B67C9209A9BC6F08397E238 - 9D9E69A4F09449A82D2D4F5BC2AA61DC39A8E92577460F63447C88D87C5DE3FE - F1C7B938BF37F8872CB561D098A35736A45EE8BBDB6AA8382521E0644922A110 - 02DCAD11FC4CDEF89D472153E3E889B8F4712A923B060B353ECD9D67276701FD - 05561F04719A9398C8778123EF67159F738FF3F23EEE2C796095E20D945208B5 - 8A89764B2B23A3E6294AA2730E4CC8AB7377A9B399DC998BCF6B5C2ECCB24A46 - AE24686804BE038BC1CB0D34C3DCD9CAB60F9FEFC1DFD18EBDD7F2263424F2E9 - 9C572E4237FABAC0B5E062332459634DFE2CF21F02F45FA4F0EF02D7E217D845 - 051D2C6D56E60000000049454E44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - Left = 331 - Bitmap = {} - end - inherited LargeImages: TPngImageList [8] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Left = 251 - Top = 88 - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [9] - Left = 416 - Top = 224 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] - Left = 368 - Top = 168 - end - inherited dsDataTable: TDADataSource [11] - Top = 136 - end - inherited GridPopupMenu: TPopupMenu - Left = 112 - Top = 128 - object Cambiarelestado1: TMenuItem [3] - Caption = 'Cambiar el estado a...' - object Pendiente1: TMenuItem - Action = actPendiente - AutoCheck = True - GroupIndex = 1 - end - object Enespera1: TMenuItem - Action = actAprobado - AutoCheck = True - GroupIndex = 1 - end - end - end - object JvModernTabBarPainter1: TJvModernTabBarPainter - BorderColor = clWindow - ControlDivideColor = cl3DDkShadow - DividerColor = clBtnShadow - Font.Charset = DEFAULT_CHARSET - Font.Color = clHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - DisabledFont.Charset = DEFAULT_CHARSET - DisabledFont.Color = clGrayText - DisabledFont.Height = -11 - DisabledFont.Name = 'MS Sans Serif' - DisabledFont.Style = [] - SelectedFont.Charset = DEFAULT_CHARSET - SelectedFont.Color = clHighlight - SelectedFont.Height = -11 - SelectedFont.Name = 'MS Sans Serif' - SelectedFont.Style = [fsBold] - Left = 320 - Top = 128 - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas deleted file mode 100644 index 008f4a6..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas +++ /dev/null @@ -1,370 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorListaRecepciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uBizRecepciones, uViewListaRecepciones, uEditorGridBase, - JvTabBar, uCustomView, uViewBase, uViewGridBase, uViewGrid, Menus, DB, - uDADataTable, JvAppStorage, JvAppRegistryStorage, JvComponentBase, - JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, - TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, - JvExControls, JvComponent, JvNavigationPane, StdCtrls, TBXDkPanels, - uViewParametrosCentro, uViewParametrosControlGrid, uDAInterfaces; - -const - CM_SETFOCUSEDRECORD = WM_USER + 1002; - -type - IEditorListaRecepciones = interface(IEditorGridBase) - ['{5CF9C341-A9BB-4A42-A132-0145827FBD9C}'] - function GetItems: IBizRecepciones; - procedure SetItems(const Value: IBizRecepciones); - property Items: IBizRecepciones read GetItems - write SetItems; - end; - - TfEditorListaRecepciones = class(TfEditorGridBase, IEditorListaRecepciones) - JvTabBar1: TJvTabBar; - JvModernTabBarPainter1: TJvModernTabBarPainter; - actPendiente: TAction; - Cambiarelestado1: TMenuItem; - Pendiente1: TMenuItem; - Enespera1: TMenuItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXSeparatorItem16: TTBXSeparatorItem; - TBXItem36: TTBXItem; - TBXItem37: TTBXItem; - actAprobado: TAction; - frViewListaRecepciones1: TfrViewListaRecepciones; - TBXDockablePanel1: TTBXDockablePanel; - frViewParametrosCentro1: TfrViewParametrosCentro; - TBXLabel1: TTBXLabel; - pnlAgrupaciones: TTBXAlignmentPanel; - TBXButton3: TTBXButton; - procedure FormShow(Sender: TObject); - procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); - procedure actModificarExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure actAnchoAutoUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actPendienteExecute(Sender: TObject); - procedure actPendienteUpdate(Sender: TObject); - procedure actAprobadoExecute(Sender: TObject); - procedure actAprobadoUpdate(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - protected - FItems : IBizRecepciones; - function GetItems: IBizRecepciones; - procedure SetItems(const Value: IBizRecepciones); - procedure CambiarEstado(const NuevoEstado: TInvRecepcionEstado); - function GetModified: Boolean; override; - procedure CMSetFocusedRecord(var Msg: TMessage); message CM_SETFOCUSEDRECORD; - public - property Items: IBizRecepciones read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses uEditorBase, cxGridTableView, cxGridCustomTableView, cxControls, - uDBSelectionList, cxGridDBTableView, cxGridDBDataDefinitions, - uDataModuleRecepciones, uEditorDBBase; - - -{$R *.dfm} - -constructor TfEditorListaRecepciones.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewListaRecepciones1; -end; - -function TfEditorListaRecepciones.GetItems: IBizRecepciones; -begin - Result := FItems; -end; - -procedure TfEditorListaRecepciones.SetItems( - const Value: IBizRecepciones); -begin - FItems := Value; - if Assigned(FItems) then - begin - dsDataTable.DataTable := FItems.DataTable; - frViewListaRecepciones1.dsDataSource.DataTable := FItems.DataTable; - end; -end; - -procedure TfEditorListaRecepciones.FormShow(Sender: TObject); -begin - inherited; - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - //FItems.DataTable.Active := True; - - frViewParametrosCentro1.Refresh; - with (ViewGrid as IViewListaRecepciones) do - VerPendientes; -end; - -procedure TfEditorListaRecepciones.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); -begin - inherited; - ShowHourglassCursor; - - Items.DataTable.Active := False; - - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmRecepciones.GetItems(tirPendiente); - (ViewGrid as IViewListaRecepciones).VerPendientes; - end; - - 1 : begin - Items := dmRecepciones.GetItems(tirAprobado); - (ViewGrid as IViewListaRecepciones).VerAprobados; - end; - - 2 : begin - Items := dmRecepciones.GetItems; - (ViewGrid as IViewListaRecepciones).VerTodos; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - ViewGrid._FocusedView.EndUpdate; - HideHourglassCursor; - end; -end; - -procedure TfEditorListaRecepciones.actModificarExecute( - Sender: TObject); -begin - ViewGrid._FocusedView.BeginUpdate; - ViewGrid.SaveGridStatus; - try - FItems.Show; - finally - // Que salga el reloj de espera mientras el grid refresca datos y restaura la posición - ShowHourglassCursor; - Application.ProcessMessages; - try - ViewGrid._FocusedView.EndUpdate; - ViewGrid.RestoreGridStatus; - finally - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaRecepciones.actExpandirExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorListaRecepciones.actContraerExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -procedure TfEditorListaRecepciones.actAnchoAutoExecute( - Sender: TObject); -begin - inherited; - ViewGrid.AjustarAncho; -end; - -procedure TfEditorListaRecepciones.actAnchoAutoUpdate( - Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and Assigned(ViewGrid) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorListaRecepciones.actModificarUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (ViewGrid._FocusedView.Controller.SelectedRecordCount < 2) and - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)) -end; - -procedure TfEditorListaRecepciones.actRefrescarExecute( - Sender: TObject); -var - ACentrosList : TStringList; - AWhere : String; - i : integer; -begin - AWhere := ''; - - {case (ViewGrid as IViewListaRecepciones).VistaActiva of - trvaPendiente, - trvaAprobado : AWhere := ' and' - else - AWhere := ''; - end;} - - AWhere := AWhere + ' CENTRO in ('; - - Items.DataTable.Active := False; - ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; - - ShowHourglassCursor; - try - if ACentrosList.Count = 0 then - ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.') - else begin - with Items.DataTable.Where do - begin - Clear; - for i := 0 to ACentrosList.Count - 1 do - begin - if i > 0 then - AWhere := AWhere + ', '; - AWhere := AWhere + '''' + ACentrosList[i] + ''''; - end; - AWhere := AWhere + ')'; - AddText(AWhere, False); - end; - Items.DataTable.Active := True; - end; - finally - HideHourglassCursor; - FreeAndNIL(ACentrosList); - end; - - inherited; - - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; -end; - -procedure TfEditorListaRecepciones.actPendienteExecute( - Sender: TObject); -begin - CambiarEstado(tirPendiente); -end; - -procedure TfEditorListaRecepciones.actPendienteUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - (ViewGrid._FocusedView.Controller.FocusedRow.Level <> 0)); - - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = tirPendiente); -end; - -procedure TfEditorListaRecepciones.actAprobadoExecute( - Sender: TObject); -begin - CambiarEstado(tirAprobado); -end; - -procedure TfEditorListaRecepciones.actAprobadoUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - (ViewGrid._FocusedView.Controller.FocusedRow.Level <> 0)); - - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = tirAprobado); -end; - -procedure TfEditorListaRecepciones.CambiarEstado( - const NuevoEstado: TInvRecepcionEstado); -var - ARecord: TcxCustomGridRecord; - i : Integer; - bm : TBookMark ; -begin - if Assigned(FItems) and Assigned(ViewGrid) and (ViewGrid.MultiSelect) then - begin - ShowHourglassCursor; - bm := FItems.DataTable.GetBookMark; - //FItems.DataTable.DisableControls; <- No descomentar - ViewGrid._FocusedView.BeginUpdate; - try - for i := 0 to ViewGrid._FocusedView.Controller.SelectedRecordCount-1 do - begin - ARecord := ViewGrid._FocusedView.Controller.SelectedRecords[i]; - if (ARecord is TcxGridDataRow) then - begin - if (ARecord as TcxGridDataRow).CanFocus then - begin - (ARecord as TcxGridDataRow).Focused := True; - FItems.Edit; - FItems.Estado := NuevoEstado; - FItems.Post; - end; - end; - end; - FItems.DataTable.ApplyUpdates; - FItems.DataTable.GotoBookMark(bm); - finally - FItems.DataTable.FreeBookMark(BM); - //FItems.DataTable.EnableControls; <- No descomentar - ViewGrid._FocusedView.EndUpdate; - ViewGrid._FocusedView.Controller.ClearSelection; - PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(ViewGrid._FocusedView), - MakeLParam(ViewGrid._FocusedView.Controller.FocusedRowIndex, - ViewGrid._FocusedView.Controller.TopRowIndex)); - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaRecepciones.actEliminarExecute( - Sender: TObject); -begin -// inherited; -end; - - -function TfEditorListaRecepciones.GetModified: Boolean; -begin - Result := False; -end; - -procedure TfEditorListaRecepciones.CMSetFocusedRecord(var Msg: TMessage); -begin - TcxGridDBTableView(msg.WParam).Controller.FocusedRowIndex := Msg.LParamLo; - TcxGridDBTableView(msg.WParam).Controller.TopRowIndex := Msg.LParamHi; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.ddp b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm deleted file mode 100644 index 04d1789..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm +++ /dev/null @@ -1,1576 +0,0 @@ -inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran - Left = 286 - Top = 168 - Width = 850 - Height = 671 - Caption = 'Control de '#225'lbaranes' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 842 - Caption = 'Control de albaranes' - inherited Image1: TImage - Left = 815 - end - end - inherited TBXDock: TTBXDock - Width = 842 - inherited tbxMain: TTBXToolbar - object TBXSeparatorItem16: TTBXSeparatorItem [7] - end - object tbxiExpandir: TTBXItem [15] - Action = actExpandir - end - object tbxiContraer: TTBXItem [16] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [17] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxFiltro: TTBXToolbar - Left = 344 - DockPos = 344 - end - end - inherited StatusBar: TStatusBar - Top = 618 - Width = 842 - end - object JvTabBar1: TJvTabBar [3] - Left = 0 - Top = 76 - Width = 842 - Height = 29 - Cursor = crHandPoint - CloseButton = False - Painter = JvModernTabBarPainter1 - Images = SmallImages - Tabs = < - item - Caption = 'Pendientes' - Selected = True - ImageIndex = 26 - end - item - Caption = 'Aprobados' - ImageIndex = 25 - end - item - Caption = 'Todos' - end> - OnTabSelected = JvTabBar1TabSelected - end - inline frViewListaRecepcionesAlbaran1: TfrViewListaRecepcionesAlbaran [4] - Left = 0 - Top = 105 - Width = 842 - Height = 513 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 4 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 842 - Height = 513 - inherited cxGridView: TcxGridDBTableView - inherited cxGridViewESTADOPRODUCTO: TcxGridDBColumn - Caption = 'Situaci'#243'n' - end - inherited cxGridViewCODIGO: TcxGridDBColumn - Caption = 'C'#243'digo' - end - inherited cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - end - inherited cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - BuiltInReportLink = True - end - end - end - inherited EditorActionList: TActionList [5] - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Caption = 'Modificar recepci'#243'n' - Visible = False - end - inherited actEliminar: TAction - Enabled = False - Visible = False - end - inherited actDuplicar: TAction - Enabled = False - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - OnUpdate = actAnchoAutoUpdate - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - OnUpdate = actAnchoAutoUpdate - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - OnUpdate = actAnchoAutoUpdate - end - end - inherited SmallImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001D94944415478DA9D9321781B310C859F59580CCB66B6B21886CDF0A0 - 61A061E19595CD6585375678B0D030D0B0D065851E2B74589827E9B26CFDF205 - 6C427767E9E9D7934FE114F5A3F5522AB0A29723D08E0DC61858A3A1B556B812 - EA77717EADF0C3E67CD0DA01F5BDA23612D21A766BA0579742F2813AF74CDDC3 - EE1BC6F1510EA6E9FB22F471E006A8B50A91DB1A7549505B8FCFB3A01B423637 - 1A4CD41A533978EFE8591AD1382011AB2E04D26B41182CD6AB350EC703E6974C - 9DAB14C518606F37C8E5A734F1EE0F85E2F9D3BE301A9B859412AC7554A02539 - E50C7281881A0A7B42E330A11F0CA6D12935CDB93B67C9209A9BC6F08397E238 - 9D9E69A4F09449A82D2D4F5BC2AA61DC39A8E92577460F63447C88D87C5DE3FE - F1C7B938BF37F8872CB561D098A35736A45EE8BBDB6AA8382521E0644922A110 - 02DCAD11FC4CDEF89D472153E3E889B8F4712A923B060B353ECD9D67276701FD - 05561F04719A9398C8778123EF67159F738FF3F23EEE2C796095E20D945208B5 - 8A89764B2B23A3E6294AA2730E4CC8AB7377A9B399DC998BCF6B5C2ECCB24A46 - AE24686804BE038BC1CB0D34C3DCD9CAB60F9FEFC1DFD18EBDD7F2263424F2E9 - 9C572E4237FABAC0B5E062332459634DFE2CF21F02F45FA4F0EF02D7E217D845 - 051D2C6D56E60000000049454E44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [7] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [8] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] - end - inherited dsDataTable: TDADataSource [10] - Top = 136 - end - inherited GridPopupMenu: TPopupMenu - Left = 112 - Top = 128 - end - object JvModernTabBarPainter1: TJvModernTabBarPainter - BorderColor = clWindow - ControlDivideColor = cl3DDkShadow - DividerColor = clBtnShadow - Font.Charset = DEFAULT_CHARSET - Font.Color = clHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - DisabledFont.Charset = DEFAULT_CHARSET - DisabledFont.Color = clGrayText - DisabledFont.Height = -11 - DisabledFont.Name = 'MS Sans Serif' - DisabledFont.Style = [] - SelectedFont.Charset = DEFAULT_CHARSET - SelectedFont.Color = clHighlight - SelectedFont.Height = -11 - SelectedFont.Name = 'MS Sans Serif' - SelectedFont.Style = [fsBold] - Left = 320 - Top = 128 - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas deleted file mode 100644 index b6218d1..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas +++ /dev/null @@ -1,184 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorListaRecepcionesAlbaran; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uBizRecepciones, uEditorGridBase, JvTabBar, uCustomView, uViewBase, - uViewGridBase, uViewGrid, Menus, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, - StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, StdCtrls, - uViewListaRecepcionesAlbaran; - - -type - IEditorListaRecepcionesAlbaran = interface(IEditorGridBase) - ['{143EEF14-E999-4570-85A6-3F06F0F22044}'] - function GetItems: IBizRecepcionesAlbaran; - procedure SetItems(const Value: IBizRecepcionesAlbaran); - property Items: IBizRecepcionesAlbaran read GetItems write SetItems; - end; - - TfEditorListaRecepcionesAlbaran = class(TfEditorGridBase, IEditorListaRecepcionesAlbaran) - JvTabBar1: TJvTabBar; - JvModernTabBarPainter1: TJvModernTabBarPainter; - TBXSeparatorItem16: TTBXSeparatorItem; - frViewListaRecepcionesAlbaran1: TfrViewListaRecepcionesAlbaran; - procedure FormShow(Sender: TObject); - procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure actAnchoAutoUpdate(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - protected - FItems : IBizRecepcionesAlbaran; - function GetItems: IBizRecepcionesAlbaran; - procedure SetItems(const Value: IBizRecepcionesAlbaran); - public - property Items: IBizRecepcionesAlbaran read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses uEditorBase, cxGridTableView, cxGridCustomTableView, cxControls, - uDBSelectionList, cxGridDBTableView, cxGridDBDataDefinitions, - uDataModuleRecepciones, uEditorDBBase; - - -{$R *.dfm} - -constructor TfEditorListaRecepcionesAlbaran.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewListaRecepcionesAlbaran1; -end; - -function TfEditorListaRecepcionesAlbaran.GetItems: IBizRecepcionesAlbaran; -begin - Result := FItems; -end; - -procedure TfEditorListaRecepcionesAlbaran.SetItems(const Value: IBizRecepcionesAlbaran); -begin - FItems := Value; - if Assigned(FItems) then - begin - ShowHourglassCursor; - try - dsDataTable.DataTable := FItems.DataTable; - frViewListaRecepcionesAlbaran1.dsDataSource.DataTable := FItems.DataTable; - - if not FItems.DataTable.Active then - FItems.DataTable.Active := True; - finally - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaRecepcionesAlbaran.FormShow(Sender: TObject); -begin - inherited; - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - with (ViewGrid as IViewListaRecepcionesAlbaran) do - begin - AjustarAncho; - ContraerTodo; - GotoFirst; - end; -end; - -procedure TfEditorListaRecepcionesAlbaran.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); -begin - inherited; - ShowHourglassCursor; - Items.DataTable.Active := False; - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmRecepciones.GetItemsAlbaran(tiraPendiente); - end; - - 1 : begin - Items := dmRecepciones.GetItemsAlbaran(tiraRecibido); - end; - - 2 : begin - Items := dmRecepciones.GetItemsAlbaran; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - with (ViewGrid as IViewListaRecepcionesAlbaran) do - begin - ExpandirTodo; - AjustarAncho; - ContraerTodo; - _FocusedView.EndUpdate; - GotoFirst; - end; - HideHourglassCursor; - end; -end; - -procedure TfEditorListaRecepcionesAlbaran.actExpandirExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorListaRecepcionesAlbaran.actContraerExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -procedure TfEditorListaRecepcionesAlbaran.actAnchoAutoExecute( - Sender: TObject); -begin - inherited; - ViewGrid.AjustarAncho; -end; - -procedure TfEditorListaRecepcionesAlbaran.actAnchoAutoUpdate( - Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and Assigned(ViewGrid) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorListaRecepcionesAlbaran.actRefrescarExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; - ViewGrid.GotoFirst; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.ddp b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.dfm deleted file mode 100644 index f7f43f4..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.dfm +++ /dev/null @@ -1,756 +0,0 @@ -object ModuleRecepciones: TModuleRecepciones - OldCreateOrder = True - DefaultAction = actRecepcion - Description = 'Control de recepci'#243'n de prendas' - ModuleMenu = MainMenu - ModuleName = 'Control de recepci'#243'n de prendas' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.3' - Left = 701 - Top = 547 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000001CC4944415478DA63FCFFFF3F032D - 0123C8826B95B2CE40F61E3CEA5C08C96B773CD98B2E08321B66C17FE5861A06 - 76F6740C9D3F7FCE649897D8C290341FBF7CD6F2278C782DD06A7F0C560C073F - 7E00F17786D9BB0C1898B7A732642EC32F4F9A0520CD1FDE410C38E584690116 - 79E22D8069061BF09361F6AD20540B70C81367C1C78908CD1F3E405CF82A0561 - 011E79E22C78588FD00C0B825F65080BF0C813B400948A66AF92C79A06410680 - 52113E794216381F7C883B9DDBCB33B81092A7381F6073212140523E0059805C - AC1093FB8166EE253A1FA05B303D4AF63FBEDC7DB7A18501682623D1F9009B05 - 59D76B187EEC78CFC0C0C109C41C703990A54033B15840209D235BC06838F3BF - B1B93DC3D1C279100B0484E096E0B680403A87590032BCBC328061CFBEF72841 - 73B47327D812AC1610CA07300B40865BDA6932648459A1A899B4F80EC3D1CAE5 - 609FB0F3E7635840301F80D3B9C10CB0E1C24A926071111E5606715E4E062D69 - 61880599532116C837A25AC0C8485C1247F601B2258E1A32600B12AC1F80C552 - C31EA2A622522C80C501C892E387AEC3E540119EFCC915C5D7F07C40AC052800 - 185C60FA4206238AE54866C173325916C02C41B200DD1CB805B40434B7000019 - B523EF6A240B860000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000004FB4944415478DA9D957B50547514 - C7BFF7B54F6079DC85856569C1911115F101E1F8C8473435E334D51F65FED38C - 4EE6A4A533CDD41F0565A6D230E39868F218922173CAD2EC9D35D604BE928780 - 4248C28ABB8AC0E2021BCBB2F7D9EFAE3BC60CF888737FBFFB9BFD3DCEE777CE - D97B0EA5AA2A2EECA30015064541148850E467681CB872955D6C309BAA199A02 - CDD0100591ACA9E8EB0FFCA93361FDAA3C20184258281A32280CE56F533151A8 - 08C048069B2C228380C2807102E8E98DCA4B74A617732C039D9E41E09F20B988 - 80AEBFBA3A141AAFAF5A44F60911450C42A43711407012A0BE942B63B8D825D1 - C973E6317A725B42181B95D0D6E4C2DA9D1FC2D5D886AEBF6F63E59AA5A083D7 - F0C5EE1DF0B34EAC7D310BBE811168E60B237E84463BCB176E165F9D04683C18 - 25C424E7729905AF01EC28409B517BB80A09BC01B37373B0BFF8083CAD2EBCB9 - 6F0B0C7A16DD4DB53877DE8B27376EC6CC2C2BA4E101B4FF7214AE8E0EF1B912 - 513709D05C69F65AD317F0E319DBD1E93142A9DF86B414E091393990C5107A3D - 5E58628DB024392004FCE038153DCD75A8FDC30BE7332588776441AE7D1C9DED - 18DC54A35A27015A2A4D04309FEF892B069FB4180D75C7106CD80A451234EBC1 - 720C28D6005992C85C8804940123CBE406EB70D29D8D817E0FB6E77E048F4B1C - 7CA9E23E80EBF1BB90E6588C14AB11474EFC0685FCADEE6EA4EEC4868AF490A8 - 6059DE5C74B86EA2A4F413BC9F5F819B3DF28301A9F67CA4D94CB89FC83209AA - 2811E3289CAC6B4169C5A728CA3D387DC048F7598C36550192198A4A6BC7A02A - 01283A1DDC010BDEFD690C458B3E9E3EA0EDE712E8E93ED81CCB8962ED90161A - 15FE2BDFC0773B80ADA752A70FD0D67F3DB411E3FC7CAC591D073ADA00853C2C - 66C377F60C86AF3660C30FE6E901C8122449C67B7B8E2323DE8B975734039638 - 4831D1A04DCB31547B053ED765BCF22387C2E900044146E9E71DA8AE65F0EC5C - 370A52CE21A48B8573C63866E5CCC7EDBAEBF0756B00F67F00520920C91476CD - DE9A669CEE12B172590E3ADD21083207DF0885998693D8B98DC6687D3F863B1B - B1E17B230A173E0C206117EC291AC0881DE54D38D13484ECEC34F0B106449938 - E8F51C4CC482D6DFBFC3BA471BE110AF41F04B78E394FD01808A0880DF85A4C4 - 5C3888055B8A4FE352BF8A34270F867CB92623516E36C2694B45DFD92A2CCBE8 - 039F988E5E3F8BF2E3E7F1CEC203F706345718BD7C5A36EFE17723C19A17FE92 - 87FD41EC3ED4827AB704DE1A0D2924C36864614B4A874DB88835AB66123752E8 - 76DF44F5675F3D1890E0981D06C426E4C36ED5933C2F223826E18343AD3876CA - 8DA7972491E09B21CA34B266A5223399D4179AC635CFC300CA0D0490C5BB490C - AC29CB11635010088A90640523A321ECA969C3534B529035C342E66492A3D470 - 67190637FA07505573146F2FD87F3F80DE1B6FCFE46FD8F6A2BBCF8EE6D6168C - 9152459152A93D5AD35E5464BCD3282DD18263599C397F01254B4B09409A1A70 - B1CCE0B52467F2BA394538FC6D3B7C837DE4204DD2824CFC2CDF19235DCB15AA - ACCD2BE14AA689D9C0A280FF1AAE2E69707DE51480C6B298718B7D9E3E2ED10E - 65A81D2C4B45942BFF298F80886F48D34679422A27F5DB3D844B9795D0A66AD5 - 301970802BD499A256F4DE100A6EB9C74881892CDE7D4D3C31750A67751013E2 - B1E3892275E72440C37EFA059663575EEF919FBFD5AB10F7DC5BD154202D67E9 - F518723A51F8D85BEA9713B7FD0B5B96F1EFAB7DEF880000000049454E44AE42 - 6082} - Name = 'PngImage1' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actRecepcion: TAction - Category = 'Inventario' - Caption = 'Control de recepci'#243'n' - ImageIndex = 0 - OnExecute = actRecepcionExecute - end - object actRecepcionAlbaranes: TAction - Category = 'Inventario' - Caption = 'Control de albaranes' - ImageIndex = 1 - OnExecute = actRecepcionAlbaranesExecute - end - end - object MainMenu: TMainMenu - Tag = 500 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 100 - Caption = '&Inventario' - GroupIndex = 1 - ImageIndex = 4 - object Controldeventasenproceso1: TMenuItem - Tag = 110 - Action = actRecepcion - end - object Controldealbaranes1: TMenuItem - Tag = 600 - Action = actRecepcionAlbaranes - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F330000013A4944415478DA63BC5A21F39F81 - 48A0DDF1841199FFFFFF7F06469001CA0D3510911F3F18181EDC6198D7B98121 - 693EA658D6727C064015CEBEE4CDC0BC3D1562009A186E032A4AC00A196E5C65 - 98FDAB0C62C0744C31DC064404806D8101B001E59862380D38F890B840C41F06 - 04020C1BC01B882003400A40E05AA52CD6A8D66A7FCC883310910D981E25FB1F - 14260C0A2A0C0C1C1C60B1BB0D2D480644600F3098018C8633FF4F2E926748D5 - DB0A3704C5006C81083300A4D9D8DC9E21C1FA01432A5B1703838636D890BB1D - 3D1003F08692C18CFFFDAD910C42FC5C0C9316DF810B1FCD9CCA7077C5060206 - 00354747D980352BC908836910001994FCC995C15E9E81381778F9183128CB8A - 304C9EBE0B2C04F2CE99191A707D04E31A640898BE90C1088B7BB046A0DDE030 - 226800CC10240318A10E07B101D716EAE1AF47BD0C0000000049454E44AE4260 - 82} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F330000030F4944415478DA85D35F6C53551C - C0F1EFBDB7F7AEAEAD5BB775CA836E14D6CE2CCCCA26B39B1A9CBEB820E3C168 - 4C7C20C1277DF0C527252EFA26181CC14C08983461C4E1BF88C1180631FC892B - 0ECB4A906D256066270E57D6F5CFD6BBDDF6DEE35D595089915F72929393733E - F99DFC7E3FE97C3F080BA554C4AB4858A939C9359B711FAAAE713F61168DE54C - 66512FE84BAF758618312D5CB24A4192D13BDE14267648E7FB95EDB2A37293A7 - AE31A4B99CD6AF13B30E5FCB932D8B8B92BBBAA686627A8273277EBCD2D3BB21 - 5DD273CE4266EE8659CC9D6C7B431F2803B10157DCED0B3E5AFFD44EF2A94932 - 89B3F85B9BF9EEB333843A36D0B0D6CDE96F86A96D798EE0C676E247DFE3CFE4 - F4A517F7885019B8F269C588B32E10CE068698BE7C81A5F1F7512B34244942D1 - EEC3B2FF26F479AEEACF30AD3D4E77F12D8C8C117D794074DE01546F53B8D07C - 187F63888B1747595A365014194950866487466DFD43ECFE783FCF3BFAA81444 - 7BF7DC052C06223437B5E1D428C7ADB12F2195C0141E8459A0602C707C3449BD - 3188B324A2DBFAEF01C43E7F9D86D62EDC2E3796A930FFD35724A6F3CCDEFCFA - DE80690A3ED8DDCF8E2D0B3C10B0ABA585499D1CE7DAB5297EBBBEEF7F80800D - A8B02B32C985A493CD6BE2B8DC697A7BAA90E34926C6934C5DDFFBDFC04230C2 - 23EBDBF8301223362308B5FA592879C8DE9CA7DB374858BB4462CA20FDC7D1BB - 80432BC0FA70DECEC0DFB891BE4FA28C671CF8EA3C786BAAA82C59B4F3050F3E - 1CE4D8F0393AD84545F11FC0E583DA885ABD369C6F8AB0CEBF895251A7EFC018 - 3F8CA5E80856D9908FAD9D6EBB9432834347D86CEEFC7706BF1C54CAC09CFF08 - 866820974B93CA189C199DA1EB311FAAA6A0C81292E2E0C4F071B6686FDB8015 - DDF6D12A103FA0FEECF135B5A5D6BCCBB1530996F51CF67D8428816595274D58 - A6DD503624F27469432C658DD84BFB44FBED59D85FF56DC5FDF5DD8A5AED2AA4 - 7F2F77E0CA83DBAB74676F8BA8AACC8D9902D9ACF5FD2B7B45CFEA30C92F80FC - F4D549F3D5F95B4272A80824FE0E6975514EC8595BCB88D7CBD0B3EF88C32B67 - 7F01C53983F0FCEC7FE90000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000002334944415478DABDD4CD4B14611C - 07F0EF20CCBAA38B422042E5128BA2D641F3105628A4F50F04DEC4378636A14B - 88B8D0C18390872EBD1CD6160A111204CF42E42141BC847852B084243D0641AE - B08B31CDEF7166765E9E99791E151F186661BEF3FB3C0CFB7D14C33070994B21 - 703B77BDCFFCFD2526DB2F92B9397BB01AF6902C1B3432D32F90483CE1064BA5 - 397C1899C1E8C7F8CCF8E2812204B6BFFCC55EF2ACA3BFEC2AAC75A36A45C7D3 - 4FF199B383D620366CF3111FE464CE06BA06B161BB8F836048461EF40D42F108 - 85C3212F189191037FBF0A0C42B188C29FF10A18939103BF4F01E5B267108ECD - DD97272B604C4618A45A1496D26159368C6A11971105FBBEEE4797BA378D7E91 - CC85163F6AF7224BBAF804F2CE5ED1A3D13456A58A1F06BE1E518C6C3E1FF985 - F6A667601A8A54F1A3C0AA072BD07B3680DAD4E9E55AB411D30801634A1D09DE - FE5C015D683828506A1EA874CE196F9FA7A1B72C7B410B0D07054AED0709EBBA - D38BE17B3FA15F9D076A6A0328171429BE1F246CFEDD18DE2CFCE0BEB39E5B3C - 05AF4C0440A1E253A96D90B0EE9E366407EE72F3B489F567EF015545A279D60B - 2A8A789F59DEC232371A7072F20FA954923D4B265576EFCA3432903E332D7D60 - DF5B0B19101D7986D5D769D03415C96A3580DAE060A9CD79ED61E3B54AF1A540 - 01F4FEAD26067ECBB73A83C9708E3669D0851258A325A0599F93503F68CF3F1F - E84237D676028FA82A04BA679F1FB45076DFCA3A439C7FB26FEEC58036EA0379 - 331DF032D77F05B2A7E7C969F3360000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000003C64944415478DABD967B4C53571C - C7BFF7D25ADAF14644C40EB48A0614182A746ADC5466073EC77CA3A6262693A8 - 2B3A3715A73173260CFD07B486A9F3B5B06C3EA395971A256AA2F808C5075A10 - 6696A8640E1519D0C77D78EFA1B71115466BE73739F99D73EEEF9ECFF99D9CDF - 2F87E2791EEF539404A428AA4BA7423DBADCD5D2FDE8F2C7B705E30256E6533A - C19439A75D0E66330F7DAEF1AD0B56FFBE0245260E9953E93761E03E4F31F0E5 - DD01F9E8919B103428AC93C3FEB5CB3033FB6BD2FFE19B0262F38A8CF8B7D182 - FA8A1D04987B301F3CEB00C732E039079EDDAD45E3FD22241B58AA5B60E25C63 - 9730092846A3F974B96B4E826ED9934B609C00B694FC882A3387AFF6F1FF0D3C - 76631419BF389C8CC90BA7BD7154CAD06862DB9B1EB8E61EDD3A45A0DA5557C9 - 5853A7750F382F7D1476FC5A06F65C1A7A2ABFF4F330FE7288F40BD37E761F28 - 4A847672166EB2D868C9D294738EC6AC342D0E1EAFC0DEA2939E03BB13C7F160 - 580E0CC33A2D87DF4C17FE1FE0AB30BBD50EBB737CACFCB21781825F63453E98 - BA6238986011DB314D3E35818E4E43F1D378EF01198715BB7334F862DD11F40D - 11735549703C58A14C38505FB008A5C11BBD07B459DB51F85D1234BA0D989270 - 0556FF7E80AF52C8BD5628957A34EC5C8912FFC5DE018A17A2B9A50D9F2DDE0B - 63961C1F4709F9E61F013E301436B90CBE8A2FD160CC4649C09277078AB0C74F - 5A31677D25DA646A18922F604448356CAA300485FBE1438D1D8A804502D0E01D - E08387CD98BBE61C3217A4C2F2A71DCF5A85B2CCF9A0A51D50D86A71D4B00708 - FF1EF53BD7A0D45FEF39508CACA9D98A8CD567E11BDE071FC546A277B08A24BB - 0F4D23C82F00C565379135D68C786D0CEC7FE4E0C4076B3D03CE9A3442C82B16 - 63F42628FA8441DD3FD8556554AA5EF091C91017ADC619D369A4B2ABA10CB022 - 297E212A19AD7BC084D9DB71BC2A05D3C72790E4BE76E76F2CCDBB0AF5E04804 - 06AAE0A752402EF7412F851C4943A270B1FC1296658493D3E02839CC35B5EE01 - 87676CC3895BE33079DC70B28818E58D9A2758995F85BE0322D0D2DC468E5326 - A331B05F081E3F0FC596F98E8EAA23B4DB96FBEE01E3A6E7C2543301BAD17104 - 26D5C8AA7BFF202BEF3A6C2FDA60C88C15A2E7C00A2D521D81615134F113E536 - 3076EA669CBAA7C3C494A12E98B4FB6A4B137E3A701BBBD66B5D9B916AAA24B7 - 8143D337A2A46E0A3E1919430AB127720B38449783D28619D85AB0CF2398A41E - 036352BF256F129E633AEC6BFD0EFBCA37675F70EAB4E8D3BFAEF70C38687C36 - EACF17BC5374927A0224EF52B3D92B3C2426A2FB77E9FBD24BF00815F6456737 - F30000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - Left = 232 - Top = 80 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.pas deleted file mode 100644 index 808042e..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uPluginControllerRecepciones.pas +++ /dev/null @@ -1,94 +0,0 @@ -unit uPluginControllerRecepciones; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList, uBizRecepciones; - -type - IMCRecepciones = interface(IInterface) - ['{3BA48DD2-A9D3-4168-9507-84065E8F839B}'] - end; - - TModuleRecepciones = class(TModuleController, IMCRecepciones) - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - actRecepcion: TAction; - Controldeventasenproceso1: TMenuItem; - actRecepcionAlbaranes: TAction; - Controldealbaranes1: TMenuItem; - procedure actRecepcionExecute(Sender: TObject); - procedure actRecepcionAlbaranesExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uDataModuleRecepciones, - uEditorListaRecepciones, uEditorListaRecepcionesAlbaran; - -function GetModule : TModuleController; -begin - Result := TModuleRecepciones.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleRecepciones.actRecepcionExecute(Sender: TObject); -var - aControl: IBizRecepciones; - aObj: IEditorListaRecepciones; -begin - aControl := dmRecepciones.GetItems(tirPendiente); - aObj := TfEditorListaRecepciones.Create(Application); - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -procedure TModuleRecepciones.actRecepcionAlbaranesExecute(Sender: TObject); -var - aControl: IBizRecepcionesAlbaran; - aObj: IEditorListaRecepcionesAlbaran; -begin - aControl := dmRecepciones.GetItemsAlbaran(tiraPendiente); - aObj := TfEditorListaRecepcionesAlbaran.Create(Application); - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleRecepciones); - -finalization - UnRegisterModuleClass(TModuleRecepciones); - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.ddp b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm deleted file mode 100644 index cfce401..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm +++ /dev/null @@ -1,513 +0,0 @@ -inherited frViewListaRecepciones: TfrViewListaRecepciones - Width = 695 - Height = 477 - ExplicitWidth = 695 - ExplicitHeight = 477 - inherited cxGrid: TcxGrid - Width = 695 - Height = 477 - ExplicitWidth = 695 - ExplicitHeight = 477 - inherited cxGridView: TcxGridDBTableView - OnMouseDown = cxGridViewMouseDown - FilterBox.Visible = fvNever - OnCellDblClick = cxGridViewCellDblClick - DataController.KeyFieldNames = 'RecID' - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0;-,0' - Kind = skSum - Position = spFooter - Column = cxGridBandedViewDIFERENCIA - end - item - Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades' - Kind = skSum - Column = cxGridBandedViewDIFERENCIA - end> - OptionsCustomize.ColumnGrouping = True - OptionsSelection.MultiSelect = True - OptionsView.Footer = False - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfVisibleWhenExpanded - OptionsView.GroupRowStyle = grsOffice11 - Preview.Column = cxGridViewColumnOBSERVACIONES - Preview.Visible = True - Styles.Footer = cxStyleFooter - OnCustomDrawGroupCell = cxGridViewCustomDrawGroupCell - object cxGridBandedViewAPROBADO: TcxGridDBColumn - DataBinding.FieldName = 'APROBADO' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Alignment.Horz = taLeftJustify - Properties.Images = SmallImages - Properties.Items = < - item - Description = 'Aprobado' - ImageIndex = 0 - Value = 'S' - end - item - Description = 'Pendiente' - ImageIndex = 1 - Value = 'N' - end> - Properties.ReadOnly = True - Properties.ShowDescriptions = False - MinWidth = 15 - Width = 15 - IsCaptionAssigned = True - end - object cxGridBandedViewCENTRO: TcxGridDBColumn - DataBinding.FieldName = 'CENTRO' - Visible = False - Width = 44 - end - object cxGridBandedViewFILIAL: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'FILIAL' - Visible = False - GroupIndex = 0 - SortIndex = 0 - SortOrder = soAscending - Width = 64 - end - object cxGridBandedViewCODIGO: TcxGridDBColumn - DataBinding.FieldName = 'CODIGO' - Visible = False - OnGetDataText = cxGridBandedViewCODIGOGetDataText - OnGetDisplayText = cxGridBandedViewCODIGOGetDisplayText - GroupIndex = 1 - SortIndex = 1 - SortOrder = soAscending - Width = 32 - end - object cxGridBandedViewPRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'PRODUCTO' - Visible = False - Width = 76 - end - object cxGridBandedViewCOLOR: TcxGridDBColumn - DataBinding.FieldName = 'COLOR' - Visible = False - Width = 49 - end - object cxGridBandedViewFECHA: TcxGridDBColumn - Caption = 'Fecha' - DataBinding.FieldName = 'FECHA' - PropertiesClassName = 'TcxDateEditProperties' - SortIndex = 2 - SortOrder = soAscending - Width = 49 - end - object cxGridBandedViewESTADO_ALBARAN: TcxGridDBColumn - DataBinding.FieldName = 'ESTADO_ALBARAN' - Visible = False - Width = 94 - end - object cxGridBandedViewALBARAN: TcxGridDBColumn - Caption = 'Albar'#225'n' - DataBinding.FieldName = 'ALBARAN' - OnGetDisplayText = cxGridBandedViewALBARANGetDisplayText - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 71 - end - object cxGridBandedViewCONTABILIZAR_ALBARAN: TcxGridDBColumn - DataBinding.FieldName = 'CONTABILIZAR_ALBARAN' - Visible = False - Width = 20 - end - object cxGridBandedViewE38: TcxGridDBColumn - DataBinding.FieldName = 'E38' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 36 - end - object cxGridBandedViewE40: TcxGridDBColumn - DataBinding.FieldName = 'E40' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 35 - end - object cxGridBandedViewE42: TcxGridDBColumn - DataBinding.FieldName = 'E42' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 34 - end - object cxGridBandedViewE44: TcxGridDBColumn - DataBinding.FieldName = 'E44' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 35 - end - object cxGridBandedViewE46: TcxGridDBColumn - DataBinding.FieldName = 'E46' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 35 - end - object cxGridBandedViewE48: TcxGridDBColumn - DataBinding.FieldName = 'E48' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEnviado - Styles.OnGetContentStyle = cxGridBandedViewALBARANStylesGetContentStyle - Width = 36 - end - object cxGridBandedViewENVIADO: TcxGridDBColumn - Caption = 'Enviado' - DataBinding.FieldName = 'ENVIADO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSubtotal - Width = 36 - end - object cxGridBandedViewR38: TcxGridDBColumn - DataBinding.FieldName = 'R38' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewR40: TcxGridDBColumn - DataBinding.FieldName = 'R40' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewR42: TcxGridDBColumn - DataBinding.FieldName = 'R42' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewR44: TcxGridDBColumn - DataBinding.FieldName = 'R44' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewR46: TcxGridDBColumn - DataBinding.FieldName = 'R46' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewR48: TcxGridDBColumn - DataBinding.FieldName = 'R48' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewRECIBIDO: TcxGridDBColumn - DataBinding.FieldName = 'RECIBIDO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Visible = False - HeaderAlignmentHorz = taRightJustify - Width = 25 - end - object cxGridBandedViewRR38: TcxGridDBColumn - Caption = 'R38' - DataBinding.FieldName = 'RR38' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR38GetDisplayText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR38StylesGetContentStyle - Width = 34 - end - object cxGridBandedViewRR40: TcxGridDBColumn - Caption = 'R40' - DataBinding.FieldName = 'RR40' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR40GetDisplayText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR40StylesGetContentStyle - Width = 35 - end - object cxGridBandedViewRR42: TcxGridDBColumn - Caption = 'R42' - DataBinding.FieldName = 'RR42' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR42GetDisplayText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR42StylesGetContentStyle - Width = 35 - end - object cxGridBandedViewRR44: TcxGridDBColumn - Caption = 'R44' - DataBinding.FieldName = 'RR44' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR44GetDisplayText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR44StylesGetContentStyle - Width = 35 - end - object cxGridBandedViewRR46: TcxGridDBColumn - Caption = 'R46' - DataBinding.FieldName = 'RR46' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR46GetDisplayText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR46StylesGetContentStyle - Width = 35 - end - object cxGridBandedViewRR48: TcxGridDBColumn - Caption = 'R48' - DataBinding.FieldName = 'RR48' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - OnGetDisplayText = cxGridBandedViewRR48GetDisplayText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleRecibido - Styles.OnGetContentStyle = cxGridBandedViewRR48StylesGetContentStyle - Width = 35 - end - object cxGridBandedViewRECIBIDO_RECT: TcxGridDBColumn - Caption = 'Recibido' - DataBinding.FieldName = 'RECIBIDO_RECT' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridBandedViewRECIBIDO_RECTGetDataText - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleSubtotal - Width = 20 - end - object cxGridBandedViewDIFERENCIA: TcxGridDBColumn - Caption = 'Diferencia' - DataBinding.FieldName = 'DIFERENCIA' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridBandedViewDIFERENCIAGetDataText - HeaderAlignmentHorz = taRightJustify - HeaderGlyphAlignmentHorz = taRightJustify - Width = 50 - end - object cxGridViewColumnOBSERVACIONES: TcxGridDBColumn - Caption = 'OBSERVACIONES' - DataBinding.FieldName = 'OBSERVACIONES_ALBARAN' - PropertiesClassName = 'TcxMemoProperties' - end - end - end - inherited dsDataSource: TDADataSource - Top = 120 - end - inherited dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageFooter.Font.Color = clBlack - PrinterPage.PageFooter.Font.Height = -12 - PrinterPage.PageFooter.Font.Name = 'Tahoma' - PrinterPage.PageFooter.Font.Style = [] - PrinterPage.PageFooter.LeftTitle.Strings = ( - 'VARELA IMAGEN Y DISE'#209'O S.L.') - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageHeader.Font.Color = clBlack - PrinterPage.PageHeader.Font.Height = -15 - PrinterPage.PageHeader.Font.Name = 'Tahoma' - PrinterPage.PageHeader.Font.Style = [] - PrinterPage.PageHeader.LeftTitle.Strings = ( - 'CONTROL DE RECEPCI'#211'N') - PrinterPage.PageHeader.RightTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage.ScaleMode = smFit - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 38877.461868113420000000 - ShrinkToPageWidth = True - OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsFormatting.SuppressBackgroundBitmaps = True - OptionsFormatting.UseNativeStyles = True - OptionsFormatting.ConsumeSelectionStyle = True - OptionsLevels.Unwrap = True - OptionsRefinements.TransparentGraphics = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.ExpandButtons = False - OptionsView.FilterBar = False - StyleRepository = cxStyleRepositoryInforme - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - OnInitializeCell = dxComponentPrinterLink1InitializeCell - BuiltInReportLink = True - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleEnviado: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleRecibido: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleSubtotal: TcxStyle - AssignedValues = [svColor] - Color = 14803425 - end - object cxStyleCantidadRectificada: TcxStyle - AssignedValues = [svTextColor] - TextColor = 2129152 - end - object cxStyle1: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsStrikeOut] - TextColor = clGray - end - object cxStyleFooter: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 395 - Top = 80 - Bitmap = {} - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 112 - Top = 48 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas deleted file mode 100644 index 080d655..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas +++ /dev/null @@ -1,595 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewListaRecepciones; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, DBTables, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, uBizRecepciones, dxPSGlbl, - dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, - dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, - cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, - cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces; - -type - TvRecepcionVistaActiva = (trvaPendiente, trvaAprobado, trvaTodos); - - IViewListaRecepciones = interface(IViewGrid) - ['{E4401ABB-E95D-43AC-9155-BA57DC2B88C2}'] - procedure VerPendientes; - procedure VerAprobados; - procedure VerTodos; - - function GetVistaActiva : TvRecepcionVistaActiva; - property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva; - end; - - TfrViewListaRecepciones = class(TfrViewGrid, IViewListaRecepciones) - cxGridBandedViewCENTRO: TcxGridDBColumn; - cxGridBandedViewFILIAL: TcxGridDBColumn; - cxGridBandedViewCODIGO: TcxGridDBColumn; - cxGridBandedViewPRODUCTO: TcxGridDBColumn; - cxGridBandedViewCOLOR: TcxGridDBColumn; - cxGridBandedViewFECHA: TcxGridDBColumn; - cxGridBandedViewALBARAN: TcxGridDBColumn; - cxGridBandedViewE38: TcxGridDBColumn; - cxGridBandedViewE40: TcxGridDBColumn; - cxGridBandedViewE42: TcxGridDBColumn; - cxGridBandedViewE44: TcxGridDBColumn; - cxGridBandedViewE46: TcxGridDBColumn; - cxGridBandedViewE48: TcxGridDBColumn; - cxGridBandedViewENVIADO: TcxGridDBColumn; - cxGridBandedViewR38: TcxGridDBColumn; - cxGridBandedViewR40: TcxGridDBColumn; - cxGridBandedViewR42: TcxGridDBColumn; - cxGridBandedViewR44: TcxGridDBColumn; - cxGridBandedViewR46: TcxGridDBColumn; - cxGridBandedViewR48: TcxGridDBColumn; - cxGridBandedViewRECIBIDO: TcxGridDBColumn; - cxGridBandedViewDIFERENCIA: TcxGridDBColumn; - cxGridBandedViewESTADO_ALBARAN: TcxGridDBColumn; - cxGridBandedViewCONTABILIZAR_ALBARAN: TcxGridDBColumn; - cxGridBandedViewRR38: TcxGridDBColumn; - cxGridBandedViewRR40: TcxGridDBColumn; - cxGridBandedViewRR42: TcxGridDBColumn; - cxGridBandedViewRR44: TcxGridDBColumn; - cxGridBandedViewRR46: TcxGridDBColumn; - cxGridBandedViewRR48: TcxGridDBColumn; - cxGridBandedViewRECIBIDO_RECT: TcxGridDBColumn; - cxGridBandedViewAPROBADO: TcxGridDBColumn; - cxStyleEnviado: TcxStyle; - cxStyleRecibido: TcxStyle; - cxStyleSubtotal: TcxStyle; - SmallImages: TPngImageList; - cxStyleCantidadRectificada: TcxStyle; - cxStyle1: TcxStyle; - cxStyleFooter: TcxStyle; - dxComponentPrinterLink1: TdxGridReportLink; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxGridViewColumnOBSERVACIONES: TcxGridDBColumn; - procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure cxGridBandedViewRR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewALBARANGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR40GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR42GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR44GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR46GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR48GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRR38StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR40StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR42StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR44StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR46StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewRR48StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridBandedViewALBARANStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewCustomDrawGroupCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableCellViewInfo; - var ADone: Boolean); - procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure cxGridBandedViewCODIGOGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure cxGridBandedViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridBandedViewRECIBIDO_RECTGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure cxGridBandedViewDIFERENCIAGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure dxComponentPrinterLink1InitializeCell( - Sender: TdxGridReportLink; AView: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; - AnItem: TAbstractdxReportCellData); - protected - FTipo : String; - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - function GetVistaActiva : TvRecepcionVistaActiva; - public - procedure Preview; override; - procedure Print; override; - procedure PrintSetup; override; - procedure VerPendientes; - procedure VerAprobados; - procedure VerTodos; - property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva; - end; - - -implementation - -uses - uDataModuleRecepciones, DateUtils, cxGridDBDataDefinitions, - uViewGridBase, cxGridRows; - -{$R *.dfm} - -procedure TfrViewListaRecepciones.cxGridViewMouseDown( - Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, - Y: Integer); -var - HT: TcxCustomGridHitTest; - ALevelIndex, AGroupIndex, I, AIndex: Integer; - AList: TList; - DC: TcxGridDBDataController; -begin - inherited; - HT := TcxGridSite(Sender).GridView.ViewInfo.GetHitTest(X, Y); - if (HT is TcxGridRecordHitTest) and not (HT is TcxGridRecordCellHitTest) - and not (HT is TcxGridExpandButtonHitTest) then - begin - DC := TcxGridDBTableView(TcxGridSite(Sender).GridView).DataController; - AList := TList.Create; - ALevelIndex := TcxGridRecordHitTest(HT).GridRecord.Level; - if ALevelIndex > 0 then - begin - ShowHourglassCursor; - TcxGridDBTableView(TcxGridSite(Sender).GridView).BeginUpdate; - try - AGroupIndex := DC.Groups.DataGroupIndexByRowIndex[TcxGridRecordHitTest(HT).GridRecord.Index]; - DC.Groups.LoadRecordIndexes(AList, AGroupIndex); - for I := 0 to AList.Count - 1 do - begin - AIndex := DC.GetRowIndexByRecordIndex(Integer(AList[I]), True); - DC.SelectRows(AIndex, AIndex); - end; - finally - FreeAndNil(AList); - TcxGridDBTableView(TcxGridSite(Sender).GridView).EndUpdate; - HideHourglassCursor; - end; - end; - end; -end; - -procedure TfrViewListaRecepciones.VerAprobados; -begin - FTipo := 'S'; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewListaRecepciones.VerPendientes; -begin - FTipo := 'N'; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewListaRecepciones.VerTodos; -begin - FTipo := ''; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); - cxGridBandedViewAPROBADO.Visible := True; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewALBARANGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -begin - inherited; - if Length(VarToStr(ARecord.Values[cxGridBandedViewESTADO_ALBARAN.Index])) > 0 then - AText := AText + ' (' + VarToStr(ARecord.Values[cxGridBandedViewESTADO_ALBARAN.Index]) + ')'; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridBandedViewR38.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR40GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridBandedViewR40.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR42GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridBandedViewR42.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR44GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridBandedViewR44.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR46GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridBandedViewR46.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR48GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridBandedViewR48.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR38StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridBandedViewR38.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR40StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridBandedViewR40.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR42StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridBandedViewR42.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR44StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridBandedViewR44.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR46StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridBandedViewR46.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRR48StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridBandedViewR48.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewALBARANStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - - if VarToStr(ARecord.Values[cxGridBandedViewCONTABILIZAR_ALBARAN.Index]) = 'N' then - AStyle := cxStyle1; -end; - -procedure TfrViewListaRecepciones.cxGridViewCustomDrawGroupCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableCellViewInfo; var ADone: Boolean); -var - ARecIndex: Integer; - Val1: string; -begin - inherited; - - if TcxGridGroupCellViewInfo(AViewInfo).GridRecord.GroupedColumn = cxGridBandedViewFILIAL then - begin - ARecIndex := AViewInfo.GridRecord.RecordIndex; - Val1 := Sender.DataController.DisplayTexts[ARecIndex, cxGridBandedViewFILIAL.Index]; - AViewInfo.Text := 'Centro: ' + Val1; - end; -end; - - -procedure TfrViewListaRecepciones.cxGridViewCellDblClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Sender); -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewCODIGOGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Val1, Val2: string; -begin - inherited; - - Val1 := AText + ' ' + Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridBandedViewPRODUCTO.Index]; - Val2 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridBandedViewCOLOR.Index]; - AText := 'Producto: ' + Val1 + ' - Color: ' + Val2; -end; - -procedure TfrViewListaRecepciones.Preview; -begin - inherited; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewListaRecepciones.Print; -begin - inherited; - dxComponentPrinterLink1.Print(True, nil); -end; - -procedure TfrViewListaRecepciones.PrintSetup; -begin - inherited; - dxComponentPrinterLink1.PageSetup; -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -begin - inherited; - AText := StringReplace(AText, 'CODIGO : ', '', [rfReplaceAll, rfIgnoreCase]) -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewRECIBIDO_RECTGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Total : Double; -begin - inherited; - - Total := 0; - with Sender.GridView.DataController do - begin - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRR38.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRR40.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRR42.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRR44.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRR46.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRR48.Index], 0); - end; - AText := FloatToStr(Total); -end; - -procedure TfrViewListaRecepciones.cxGridBandedViewDIFERENCIAGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Total : Double; -begin - inherited; - with Sender.GridView.DataController do - begin - Total := StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewRECIBIDO_RECT.Index], 0); - Total := Total - StrToFloatDef(DisplayTexts[ARecordIndex, cxGridBandedViewENVIADO.Index], 0); - end; - AText := FloatToStr(Total); -end; - -procedure TfrViewListaRecepciones.dxComponentPrinterLink1InitializeCell( - Sender: TdxGridReportLink; AView: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; - AnItem: TAbstractdxReportCellData); -var - aux : string; -begin - inherited; - if Assigned(ARecord) then - begin - aux := ARecord.Values[cxGridBandedViewCONTABILIZAR_ALBARAN.Index]; - if aux = 'N' then - begin - AnItem.Font.Style := cxStyle1.Font.Style; - AnItem.Font.Color := cxStyle1.Font.Color; - end; - end; -end; - -procedure TfrViewListaRecepciones.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - AItemList := cxGridView.DataController.Filter.Root; - - if (Length(FTIPO) > 0) then - begin - FNivelFiltrado := AItemList.AddItemList(fboAnd); - FNivelFiltrado.AddItem(cxGridBandedViewAPROBADO, foEqual, FTIPO, FTIPO); - end; - - if cxGridView.DataController.Filter.IsEmpty - then cxGridView.DataController.Filter.Active := False - else cxGridView.DataController.Filter.Active := True; - - cxGridView.DataController.Filter.EndUpdate; -end; - -function TfrViewListaRecepciones.GetVistaActiva: TvRecepcionVistaActiva; -begin - if FTipo = 'N' then - Result := trvaPendiente - else if FTipo = 'S' then - Result := trvaAprobado - else - Result := trvaTodos; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.ddp b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm deleted file mode 100644 index 8d07c37..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm +++ /dev/null @@ -1,262 +0,0 @@ -inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran - Width = 695 - Height = 477 - inherited cxGrid: TcxGrid - Width = 695 - Height = 477 - inherited cxGridView: TcxGridDBTableView - FilterBox.Visible = fvNever - DataController.KeyFieldNames = 'Albaran;Codigo;Color' - OptionsCustomize.ColumnGrouping = True - OptionsSelection.MultiSelect = True - OptionsView.Footer = False - OptionsView.GridLines = glHorizontal - OptionsView.GroupRowStyle = grsOffice11 - Preview.Visible = True - Styles.Footer = cxStyleFooter - object cxGridViewRecID: TcxGridDBColumn - DataBinding.FieldName = 'RecID' - Visible = False - end - object cxGridViewALBARAN: TcxGridDBColumn - DataBinding.FieldName = 'ALBARAN' - Visible = False - OnGetDataText = cxGridViewALBARANGetDataText - GroupIndex = 0 - Width = 63 - end - object cxGridViewESTADOALBARAN: TcxGridDBColumn - DataBinding.FieldName = 'ESTADOALBARAN' - Visible = False - Width = 21 - end - object cxGridViewFILIAL: TcxGridDBColumn - DataBinding.FieldName = 'FILIAL' - Visible = False - Width = 111 - end - object cxGridViewESTADOPRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'ESTADOPRODUCTO' - Width = 35 - end - object cxGridViewCODIGO: TcxGridDBColumn - DataBinding.FieldName = 'CODIGO' - Width = 43 - end - object cxGridViewPRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'PRODUCTO' - Width = 143 - end - object cxGridViewCOLOR: TcxGridDBColumn - DataBinding.FieldName = 'COLOR' - Width = 35 - end - object cxGridViewE38: TcxGridDBColumn - DataBinding.FieldName = 'E38' - Width = 38 - end - object cxGridViewE40: TcxGridDBColumn - DataBinding.FieldName = 'E40' - Width = 38 - end - object cxGridViewE42: TcxGridDBColumn - DataBinding.FieldName = 'E42' - Width = 36 - end - object cxGridViewE44: TcxGridDBColumn - DataBinding.FieldName = 'E44' - Width = 39 - end - object cxGridViewE46: TcxGridDBColumn - DataBinding.FieldName = 'E46' - Width = 37 - end - object cxGridViewE48: TcxGridDBColumn - DataBinding.FieldName = 'E48' - Width = 37 - end - end - end - inherited dsDataSource: TDADataSource - Top = 120 - end - inherited dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageFooter.Font.Color = clBlack - PrinterPage.PageFooter.Font.Height = -12 - PrinterPage.PageFooter.Font.Name = 'Tahoma' - PrinterPage.PageFooter.Font.Style = [] - PrinterPage.PageFooter.LeftTitle.Strings = ( - 'VARELA IMAGEN Y DISE'#209'O S.L.') - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageHeader.Font.Color = clBlack - PrinterPage.PageHeader.Font.Height = -15 - PrinterPage.PageHeader.Font.Name = 'Tahoma' - PrinterPage.PageHeader.Font.Style = [] - PrinterPage.PageHeader.LeftTitle.Strings = ( - 'CONTROL DE ALBARANES') - PrinterPage.PageHeader.RightTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage.ScaleMode = smFit - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.Caption = 'Informe nuevo' - ReportDocument.CreationDate = 38877.461868113420000000 - ShrinkToPageWidth = True - OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsFormatting.SuppressBackgroundBitmaps = True - OptionsFormatting.UseNativeStyles = True - OptionsFormatting.ConsumeSelectionStyle = True - OptionsLevels.Unwrap = True - OptionsRefinements.TransparentGraphics = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.ExpandButtons = False - OptionsView.FilterBar = False - StyleRepository = cxStyleRepositoryInforme - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - BuiltInReportLink = True - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleEnviado: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleRecibido: TcxStyle - AssignedValues = [svColor] - Color = 16119285 - end - object cxStyleSubtotal: TcxStyle - AssignedValues = [svColor] - Color = 14803425 - end - object cxStyleCantidadRectificada: TcxStyle - AssignedValues = [svTextColor] - TextColor = 2129152 - end - object cxStyle1: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsStrikeOut] - TextColor = clGray - end - object cxStyleFooter: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 395 - Top = 80 - Bitmap = {} - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 112 - Top = 48 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas b/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas deleted file mode 100644 index 0ef731b..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas +++ /dev/null @@ -1,111 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewListaRecepcionesAlbaran; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, DBTables, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, uBizRecepciones, dxPSGlbl, - dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, - dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, - cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, - cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo; - -type - IViewListaRecepcionesAlbaran = interface(IViewGrid) - ['{F0B4B97B-158B-4FD8-B3F1-8ECAC7AE40D5}'] - end; - - TfrViewListaRecepcionesAlbaran = class(TfrViewGrid, IViewListaRecepcionesAlbaran) - cxStyleEnviado: TcxStyle; - cxStyleRecibido: TcxStyle; - cxStyleSubtotal: TcxStyle; - SmallImages: TPngImageList; - cxStyleCantidadRectificada: TcxStyle; - cxStyle1: TcxStyle; - cxStyleFooter: TcxStyle; - dxComponentPrinterLink1: TdxGridReportLink; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxGridViewRecID: TcxGridDBColumn; - cxGridViewALBARAN: TcxGridDBColumn; - cxGridViewESTADOALBARAN: TcxGridDBColumn; - cxGridViewFILIAL: TcxGridDBColumn; - cxGridViewESTADOPRODUCTO: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewE38: TcxGridDBColumn; - cxGridViewE40: TcxGridDBColumn; - cxGridViewE42: TcxGridDBColumn; - cxGridViewE44: TcxGridDBColumn; - cxGridViewE46: TcxGridDBColumn; - cxGridViewE48: TcxGridDBColumn; - procedure cxGridViewALBARANGetDataText(Sender: TcxCustomGridTableItem; - ARecordIndex: Integer; var AText: String); - public - procedure Preview; override; - procedure Print; override; - procedure PrintSetup; override; - end; - - -implementation - -uses - uDataModuleRecepciones, DateUtils, cxGridDBDataDefinitions, - uViewGridBase, cxGridRows; - -{$R *.dfm} -procedure TfrViewListaRecepcionesAlbaran.Preview; -begin - inherited; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewListaRecepcionesAlbaran.Print; -begin - inherited; - dxComponentPrinterLink1.Print(True, nil); -end; - -procedure TfrViewListaRecepcionesAlbaran.PrintSetup; -begin - inherited; - dxComponentPrinterLink1.PageSetup; -end; - -procedure TfrViewListaRecepcionesAlbaran.cxGridViewALBARANGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - ARecIndex: Integer; - Val1: string; -begin - inherited; - - if Assigned(Sender) then - begin - Val1 := cxGridView.DataController.Values[ARecordIndex, cxGridViewALBARAN.Index]; - AText := Val1; - Val1 := cxGridView.DataController.Values[ARecordIndex, cxGridViewFILIAL.Index]; - AText := AText + ' - Destino: ' + Val1; - end; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Recepciones/RecepcionesGroup.bdsgroup b/Varela/Varela/Source/Modulos/Recepciones/RecepcionesGroup.bdsgroup deleted file mode 100644 index bb8123f..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/RecepcionesGroup.bdsgroup +++ /dev/null @@ -1,24 +0,0 @@ - - - - - - - - - - - ..\..\Base\BaseD10.bdsproj - ..\..\ControlesBase\ControlesBaseD10.bdsproj - ..\Parametros\Cliente\Parametros.bdsproj - ..\..\Usuarios\Usuarios.bdsproj - ..\..\Configuracion\Configuracion.bdsproj - Cliente\Recepciones.bdsproj - ..\..\Cliente\AdminPV.bdsproj - ..\..\Servidor\AdminPV_Server.bdsproj - BaseD10.bpl ControlesBaseD10.bpl Parametros.bpl Usuarios.bpl Configuracion.bpl Recepciones.bpl AdminPV.exe AdminPV_Server.exe - - - - diff --git a/Varela/Varela/Source/Modulos/Recepciones/RecepcionesGroup.bdsgroup.local b/Varela/Varela/Source/Modulos/Recepciones/RecepcionesGroup.bdsgroup.local deleted file mode 100644 index b451b7b..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/RecepcionesGroup.bdsgroup.local +++ /dev/null @@ -1,6 +0,0 @@ - - - - - - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Reglas/uBizRecepciones.pas b/Varela/Varela/Source/Modulos/Recepciones/Reglas/uBizRecepciones.pas deleted file mode 100644 index b9531a4..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Reglas/uBizRecepciones.pas +++ /dev/null @@ -1,85 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uBizRecepciones; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDBSelectionList; - - -const - BIZ_RECEPCIONES = 'Client.Recepciones'; - BIZ_RECEPCIONESALBARAN = 'Client.RecepcionesAlbaran'; - -type - TInvRecepcionEstado = (tirPendiente, tirAprobado); - TInvRecepcionAlbaranEstado = (tiraPendiente, tiraRecibido); - - IBizRecepciones = interface(IDAStronglyTypedDataTable) //IRecepciones) - ['{51AA574C-78B9-43B7-B278-CDD95B729F60}'] - procedure Show; - procedure SetEstado(const AValue : TInvRecepcionEstado); - function GetEstado : TInvRecepcionEstado ; - property Estado : TInvRecepcionEstado read GetEstado write SetEstado; - end; - - IBizRecepcionesAlbaran = interface(IDAStronglyTypedDataTable) //IRecepcionesAlbaran) - ['{167478EB-ECE5-48D6-A0F2-66F07B62CA3F}'] - end; - - TBizRecepcionesDataTableRules = class(TDADataTableRules, IBizRecepciones) //TRecepcionesDataTableRules, IBizRecepciones, - protected - procedure SetEstado(const AValue : TInvRecepcionEstado); - function GetEstado : TInvRecepcionEstado ; - public - procedure Show; - property Estado : TInvRecepcionEstado read GetEstado write SetEstado; - end; - - TBizRecepcionesAlbaranDataTableRules = class(TDADataTableRules, IBizRecepcionesAlbaran) //TRecepcionesAlbaranDataTableRules, IBizRecepcionesAlbaran, - end; - -implementation - -uses - uEditorUtils, uDataModuleRecepciones; - -{ TBizRecepcionDataTableRules } - -function TBizRecepcionesDataTableRules.GetEstado: TInvRecepcionEstado; -begin - if DataTable.FieldByName('APROBADO').AsString = 'S' then - Result := tirAprobado - else - Result := tirPendiente -end; - -procedure TBizRecepcionesDataTableRules.SetEstado( - const AValue: TInvRecepcionEstado); -begin - case AValue of - tirPendiente : DataTable.FieldByName('APROBADO').AsString := 'N'; - tirAprobado : DataTable.FieldByName('APROBADO').AsString := 'S'; - else - DataTable.FieldByName('APROBADO').AsString := 'N'; - end; -end; - -procedure TBizRecepcionesDataTableRules.Show; -begin - ShowEditor(IBizRecepciones, Self, etItem); -end; - -initialization - RegisterDataTableRules(BIZ_RECEPCIONES, TBizRecepcionesDataTableRules); - RegisterDataTableRules(BIZ_RECEPCIONESALBARAN, TBizRecepcionesAlbaranDataTableRules); - -end. - diff --git a/Varela/Varela/Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.dfm b/Varela/Varela/Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.dfm deleted file mode 100644 index 538d1bc..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.dfm +++ /dev/null @@ -1,2482 +0,0 @@ -object srvRecepciones: TsrvRecepciones - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schRecepciones - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 300 - Width = 300 - object schRecepciones: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DADataDictionary1 - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_RECEPCION_ALBARANES' - SQL = - 'SELECT ALBARAN, ESTADOALBARAN, FILIAL, ESTADOPRODUCTO, CODIGO, P' + - 'RODUCTO, COLOR, E38,'#10'E40, E42, E44, E46, E48'#10'FROM RDX_V_CONTROL_' + - 'RECEPCION_ALBARANES' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ALBARAN' - TableField = 'ALBARAN' - end - item - DatasetField = 'ESTADOALBARAN' - TableField = 'ESTADOALBARAN' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'ESTADOPRODUCTO' - TableField = 'ESTADOPRODUCTO' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end> - end> - Name = 'RecepcionesAlbaran' - Fields = < - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADOALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADOPRODUCTO' - DataType = datString - Size = 9 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_RECEPCION' - SQL = 'SELECT '#10' *'#10' FROM'#10' RDX_V_CONTROL_RECEPCION' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'ALBARAN' - TableField = 'ALBARAN' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'ENVIADO' - TableField = 'ENVIADO' - end - item - DatasetField = 'R38' - TableField = 'R38' - end - item - DatasetField = 'R40' - TableField = 'R40' - end - item - DatasetField = 'R42' - TableField = 'R42' - end - item - DatasetField = 'R44' - TableField = 'R44' - end - item - DatasetField = 'R46' - TableField = 'R46' - end - item - DatasetField = 'R48' - TableField = 'R48' - end - item - DatasetField = 'RECIBIDO' - TableField = 'RECIBIDO' - end - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'ESTADO_ALBARAN' - TableField = 'ESTADO_ALBARAN' - end - item - DatasetField = 'OBSERVACIONES_ALBARAN' - TableField = 'OBSERVACIONES_ALBARAN' - end - item - DatasetField = 'CONTABILIZAR_ALBARAN' - TableField = 'CONTABILIZAR_ALBARAN' - end - item - DatasetField = 'RR38' - TableField = 'RR38' - end - item - DatasetField = 'RR40' - TableField = 'RR40' - end - item - DatasetField = 'RR42' - TableField = 'RR42' - end - item - DatasetField = 'RR44' - TableField = 'RR44' - end - item - DatasetField = 'RR46' - TableField = 'RR46' - end - item - DatasetField = 'RR48' - TableField = 'RR48' - end - item - DatasetField = 'RECIBIDO_RECT' - TableField = 'RECIBIDO_RECT' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end> - end> - Name = 'Recepciones' - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ESTADO_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_OBSERVACIONES_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CONTABILIZAR_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R38' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R40' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R42' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R44' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R46' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R48' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RECIBIDO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RECIBIDO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_RECEPCION' - SQL = - 'SELECT'#10' *'#10' FROM'#10' RDX_V_CONTROL_RECEPCION'#10'WHERE (APROBADO ' + - '= '#39'N'#39')' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'ALBARAN' - TableField = 'ALBARAN' - end - item - DatasetField = 'ESTADO_ALBARAN' - TableField = 'ESTADO_ALBARAN' - end - item - DatasetField = 'OBSERVACIONES_ALBARAN' - TableField = 'OBSERVACIONES_ALBARAN' - end - item - DatasetField = 'CONTABILIZAR_ALBARAN' - TableField = 'CONTABILIZAR_ALBARAN' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'ENVIADO' - TableField = 'ENVIADO' - end - item - DatasetField = 'R38' - TableField = 'R38' - end - item - DatasetField = 'R40' - TableField = 'R40' - end - item - DatasetField = 'R42' - TableField = 'R42' - end - item - DatasetField = 'R44' - TableField = 'R44' - end - item - DatasetField = 'R46' - TableField = 'R46' - end - item - DatasetField = 'R48' - TableField = 'R48' - end - item - DatasetField = 'RECIBIDO' - TableField = 'RECIBIDO' - end - item - DatasetField = 'RR38' - TableField = 'RR38' - end - item - DatasetField = 'RR40' - TableField = 'RR40' - end - item - DatasetField = 'RR42' - TableField = 'RR42' - end - item - DatasetField = 'RR44' - TableField = 'RR44' - end - item - DatasetField = 'RR46' - TableField = 'RR46' - end - item - DatasetField = 'RR48' - TableField = 'RR48' - end - item - DatasetField = 'RECIBIDO_RECT' - TableField = 'RECIBIDO_RECT' - end - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end> - end> - Name = 'RecepcionesPendientes' - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ESTADO_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_OBSERVACIONES_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CONTABILIZAR_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R38' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R40' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R42' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R44' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R46' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R48' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RECIBIDO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RECIBIDO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_RECEPCION' - SQL = - 'SELECT '#10' *'#10' FROM'#10' RDX_V_CONTROL_RECEPCION'#10'WHERE (APROBADO' + - ' = '#39'S'#39')' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'ALBARAN' - TableField = 'ALBARAN' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'ENVIADO' - TableField = 'ENVIADO' - end - item - DatasetField = 'R38' - TableField = 'R38' - end - item - DatasetField = 'R40' - TableField = 'R40' - end - item - DatasetField = 'R42' - TableField = 'R42' - end - item - DatasetField = 'R44' - TableField = 'R44' - end - item - DatasetField = 'R46' - TableField = 'R46' - end - item - DatasetField = 'R48' - TableField = 'R48' - end - item - DatasetField = 'RECIBIDO' - TableField = 'RECIBIDO' - end - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'ESTADO_ALBARAN' - TableField = 'ESTADO_ALBARAN' - end - item - DatasetField = 'OBSERVACIONES_ALBARAN' - TableField = 'OBSERVACIONES_ALBARAN' - end - item - DatasetField = 'CONTABILIZAR_ALBARAN' - TableField = 'CONTABILIZAR_ALBARAN' - end - item - DatasetField = 'RR38' - TableField = 'RR38' - end - item - DatasetField = 'RR40' - TableField = 'RR40' - end - item - DatasetField = 'RR42' - TableField = 'RR42' - end - item - DatasetField = 'RR44' - TableField = 'RR44' - end - item - DatasetField = 'RR46' - TableField = 'RR46' - end - item - DatasetField = 'RR48' - TableField = 'RR48' - end - item - DatasetField = 'RECIBIDO_RECT' - TableField = 'RECIBIDO_RECT' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end> - end> - Name = 'RecepcionesAprobadas' - Fields = < - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CENTRO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CODIGO' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_COLOR' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_FECHA' - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ESTADO_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_OBSERVACIONES_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_CONTABILIZAR_ALBARAN' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_E48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_ENVIADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R38' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R40' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R42' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R44' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R46' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'R48' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_R48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RECIBIDO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_RECIBIDO_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'Recepciones_DIFERENCIA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = < - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_RECEPCION' - SQL = - 'SELECT '#10' RECIBIDO_RECT, DIFERENCIA'#10' FROM'#10' RDX_V_CONTROL_R' + - 'ECEPCION'#10' WHERE'#10' FECHA = :FECHA AND'#10' CENTRO = :CENT' + - 'RO AND'#10' CODIGO = :CODIGO AND'#10' COLOR = :COLOR' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'DIFERENCIA' - TableField = 'DIFERENCIA' - end - item - DatasetField = 'RECIBIDO_RECT' - TableField = 'RECIBIDO_RECT' - end> - end> - Name = 'RefreshRecepciones' - Fields = < - item - Name = 'RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RR38' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RR40' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RR42' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RR44' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RR46' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RR48' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_RECEPCION' - SQL = - 'begin'#10' declare @rowcount_var int'#10' declare @ALBARAN char(7)' + - #10' declare @ESTADO_ALBARAN varchar(20)'#10' declare @OBSERVACIO' + - 'NES_ALBARAN varchar(255)'#10' declare @CONTABILIZAR_ALBARAN char(' + - '1)'#10#10' declare @RR38 numeric(15,0)'#10' declare @RR40 numeric(15' + - ',0)'#10' declare @RR42 numeric(15,0)'#10' declare @RR44 numeric(15' + - ',0)'#10' declare @RR46 numeric(15,0)'#10' declare @RR48 numeric(15' + - ',0)'#10#10' declare @APROBADO char(1)'#10' declare @FECHA datetime'#10' ' + - ' declare @CENTRO varchar(17)'#10' declare @CODIGO varchar(12)'#10' ' + - ' declare @COLOR varchar(10)'#10#10' set @ALBARAN = :ALBARAN'#10' s' + - 'et @ESTADO_ALBARAN = :ESTADO_ALBARAN'#10' set @OBSERVACIONES_ALBA' + - 'RAN = :OBSERVACIONES_ALBARAN'#10' set @CONTABILIZAR_ALBARAN = :CO' + - 'NTABILIZAR_ALBARAN'#10#10' set @RR38 = :RR38'#10' set @RR40 = :RR40'#10 + - ' set @RR42 = :RR42'#10' set @RR44 = :RR44'#10' set @RR46 = :RR4' + - '6'#10' set @RR48 = :RR48'#10#10' set @APROBADO = :APROBADO'#10' set @' + - 'FECHA = :FECHA'#10' set @CENTRO = :CENTRO'#10' set @CODIGO = :CODI' + - 'GO'#10' set @COLOR = :COLOR'#10#10#10' /* ****************************' + - '******* */'#10' if @ALBARAN <> '#39#39#10' begin'#10' update RDX_A' + - 'JUSTES_ALBARAN set'#10#9' ESTADO = @ESTADO_ALBARAN,'#10#9' OBS' + - 'ERVACIONES = @OBSERVACIONES_ALBARAN,'#10#9' CONTABILIZAR = @CON' + - 'TABILIZAR_ALBARAN'#10' where RDX_AJUSTES_ALBARAN.ALBARAN = @' + - 'ALBARAN'#10#10#9' select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10' if @ROWCO' + - 'UNT_VAR = 0'#10#9' begin'#10' insert into RDX_AJUSTES_ALBARAN' + - #10' (ALBARAN, ESTADO, OBSERVACIONES, CONTABILIZ' + - 'AR)'#10' values (@ALBARAN, @ESTADO_ALBARAN,'#10' ' + - ' @OBSERVACIONES_ALBARAN, @CONTABILIZAR_ALBARAN)'#10#10' ' + - ' select @ROWCOUNT_VAR = @@ROWCOUNT'#10' end'#10' end'#10#10' ' + - ' /* *********************************** */'#10#9'update RDX_RECEPCI' + - 'ON_AJUSTES set'#10#9' CANT38 = @RR38,'#10#9' CANT40 = ' + - '@RR40,'#10#9' CANT42 = @RR42,'#10#9' CANT44 = @RR44,'#10#9 + - ' CANT46 = @RR46,'#10#9' CANT48 = @RR48,'#10' ' + - ' APROBADO = @APROBADO,'#10' FECHACAMBIO = CURRENT' + - '_TIMESTAMP'#10#9'where'#10' (RDX_RECEPCION_AJUSTES.CENTRO = @' + - 'CENTRO and'#10#9' RDX_RECEPCION_AJUSTES.CODIGO = @CODIGO and'#10#9' ' + - ' RDX_RECEPCION_AJUSTES.COLOR = @COLOR and'#10#9' RDX_RECEPCIO' + - 'N_AJUSTES.FECHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9 + - 'if @ROWCOUNT_VAR = 0'#10' begin'#10' insert into RDX_RECE' + - 'PCION_AJUSTES'#10' (FECHA, CENTRO, CODIGO, COLOR,'#10' ' + - ' APROBADO, FECHACAMBIO,'#10' CANT38, CA' + - 'NT40, CANT42,'#10' CANT44, CANT46, CANT48)'#10' ' + - 'values ('#10' @FECHA, @CENTRO, @CODIGO,'#10' ' + - ' @COLOR, @APROBADO, CURRENT_TIMESTAMP,'#10' @RR3' + - '8, @RR40, @RR42,'#10' @RR44, @RR46, @RR48)'#10#10' ' + - ' select @ROWCOUNT_VAR = @@ROWCOUNT'#10' end'#10'end'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_Estado_Recepciones' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 48 - Top = 32 - end - object bpRecepciones: TDABusinessProcessor - Schema = schRecepciones - UpdateCommandName = 'Update_Estado_Recepciones' - RefreshDatasetName = 'RefreshRecepciones' - ReferencedDataset = 'Recepciones' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 32 - end - object bpRecepcionesAprobadas: TDABusinessProcessor - Schema = schRecepciones - UpdateCommandName = 'Update_Estado_Recepciones' - RefreshDatasetName = 'RefreshRecepciones' - ReferencedDataset = 'RecepcionesAprobadas' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 88 - end - object bpRecepcionesPendientes: TDABusinessProcessor - Schema = schRecepciones - UpdateCommandName = 'Update_Estado_Recepciones' - RefreshDatasetName = 'RefreshRecepciones' - ReferencedDataset = 'RecepcionesPendientes' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 152 - end - object DADataDictionary1: TDADataDictionary - Fields = < - item - Name = 'Recepciones_APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'APROBADO' - Alignment = taLeftJustify - end - item - Name = 'Recepciones_FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'FECHACAMBIO' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'CENTRO' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'FILIAL' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'CODIGO' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'PRODUCTO' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'COLOR' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'FECHA' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_ALBARAN' - DataType = datString - Size = 7 - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'ALBARAN' - ReadOnly = True - Alignment = taLeftJustify - end - item - Name = 'Recepciones_ESTADO_ALBARAN' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ESTADO_ALBARAN' - Alignment = taLeftJustify - end - item - Name = 'Recepciones_OBSERVACIONES_ALBARAN' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'OBSERVACIONES_ALBARAN' - Alignment = taLeftJustify - end - item - Name = 'Recepciones_CONTABILIZAR_ALBARAN' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'CONTABILIZAR_ALBARAN' - Alignment = taLeftJustify - end - item - Name = 'Recepciones_E38' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'E38' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_E40' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'E40' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_E42' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'E42' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_E44' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'E44' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_E46' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'E46' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_E48' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'E48' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_ENVIADO' - DataType = datInteger - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'ENVIADO' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_R38' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'R38' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_R40' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'R40' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_R42' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'R42' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_R44' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'R44' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_R46' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'R46' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_R48' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'R48' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_RECIBIDO' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'RECIBIDO' - ReadOnly = True - Alignment = taRightJustify - end - item - Name = 'Recepciones_RR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'RR38' - Alignment = taRightJustify - end - item - Name = 'Recepciones_RR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'RR40' - Alignment = taRightJustify - end - item - Name = 'Recepciones_RR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'RR42' - Alignment = taRightJustify - end - item - Name = 'Recepciones_RR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'RR44' - Alignment = taRightJustify - end - item - Name = 'Recepciones_RR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'RR46' - Alignment = taRightJustify - end - item - Name = 'Recepciones_RR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'RR48' - Alignment = taRightJustify - end - item - Name = 'Recepciones_RECIBIDO_RECT' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'RECIBIDO_RECT' - Alignment = taRightJustify - end - item - Name = 'Recepciones_DIFERENCIA' - DataType = datFloat - BlobType = dabtUnknown - LogChanges = False - DisplayWidth = 0 - DisplayLabel = 'DIFERENCIA' - Alignment = taRightJustify - end> - Left = 48 - Top = 104 - end - object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True - Left = 48 - Top = 168 - end -end diff --git a/Varela/Varela/Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.pas b/Varela/Varela/Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.pas deleted file mode 100644 index 0e9d902..0000000 --- a/Varela/Varela/Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.pas +++ /dev/null @@ -1,52 +0,0 @@ -unit srvRecepciones_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - uDAScriptingProvider, uDABusinessProcessor, - {Generated:} VARELA_Intf, uDAClasses, - uDAInterfaces, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TsrvRecepciones } - TsrvRecepciones = class(TDARemoteService, IsrvRecepciones) - bpRecepciones: TDABusinessProcessor; - bpRecepcionesAprobadas: TDABusinessProcessor; - bpRecepcionesPendientes: TDABusinessProcessor; - DABINAdapter: TDABINAdapter; - schRecepciones: TDASchema; - DADataDictionary1: TDADataDictionary; - private - protected - { IsrvRecepciones methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer, Variants; - -procedure Create_srvRecepciones(out anInstance : IUnknown); -begin - anInstance := TsrvRecepciones.Create(NIL); -end; - -{ srvRecepciones } -initialization - TROClassFactory.Create('srvRecepciones', Create_srvRecepciones, TsrvRecepciones_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.bdsproj b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.bdsproj deleted file mode 100644 index d5c0d3d..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - ReferenciaGenerica.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.cfg b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.cfg deleted file mode 100644 index a34a309..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$Y- --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dof b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dof deleted file mode 100644 index f5bd34e..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=0 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Servidor -Item1=..\..\Output\Cliente -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk deleted file mode 100644 index 041fc26..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk +++ /dev/null @@ -1,75 +0,0 @@ -package ReferenciaGenerica; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO OFF} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - dbrtl, - dsnap, - BaseD10, - vcl, - adortl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - GUISDK_D10, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - cxTreeListD10, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - JvGlobusD10R, - ControlesBaseD10, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - dxPSCoreD10, - dxComnD10, - JvCustomD10R; - -contains - uPluginControllerReferenciaGenerica in 'uPluginControllerReferenciaGenerica.pas' {ModuleReferenciaGenerica: TModuleController}, - uDataModuleReferenciaGenerica in 'uDataModuleReferenciaGenerica.pas' {dmReferenciaGenerica: TDAClientDataModule}, - uBizReferenciaGenerica in '..\Reglas\uBizReferenciaGenerica.pas', - schReferenciaGenericaClient_Intf in '..\Reglas\schReferenciaGenericaClient_Intf.pas', - uEditorListaReferenciaGenerica in 'uEditorListaReferenciaGenerica.pas' {fEditorListaReferenciaGenerica: TCustomEditor}, - uViewListaReferenciaGenerica in 'uViewListaReferenciaGenerica.pas' {frViewListaReferenciaGenerica: TCustomView}, - uEditorCambioReferenciaGenerica in 'uEditorCambioReferenciaGenerica.pas' {fEditorCambioReferenciaGenerica}, - schReferenciaGenericaServer_Intf in '..\Reglas\schReferenciaGenericaServer_Intf.pas'; - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.identcache b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.identcache deleted file mode 100644 index 5cbf90e..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.rc b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.res b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.ddp b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm deleted file mode 100644 index fa19a3d..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm +++ /dev/null @@ -1,227 +0,0 @@ -object dmReferenciaGenerica: TdmReferenciaGenerica - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 297 - Width = 298 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvReferenciaGenerica' - Left = 40 - Top = 32 - end - object ds_ReferenciaGenerica: TDADataSource - Left = 192 - Top = 96 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetData' - GetDataCall.Params = < - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'ReferenciaGenerica' - end - item - Name = 'Params' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - Value = False - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - Value = -1 - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = DABinDataStreamer1 - Left = 40 - Top = 96 - end - object DABinDataStreamer1: TDABinDataStreamer - IsCompatibleV4 = False - Left = 40 - Top = 160 - end - object tbl_ReferenciaGenerica: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - InPrimaryKey = True - end - item - Name = 'CLAVE1' - DataType = datFloat - InPrimaryKey = True - end - item - Name = 'CLAVE2' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'CLAVE3' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'NUMCON' - DataType = datInteger - end - item - Name = 'FECHA' - DataType = datDateTime - end - item - Name = 'CODCENTRO' - DataType = datString - Size = 17 - end - item - Name = 'CENTRO' - DataType = datString - Size = 45 - end - item - Name = 'CODVENDEDOR' - DataType = datString - Size = 17 - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 86 - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - end - item - Name = 'CODIGO_BARRA' - DataType = datString - Size = 25 - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - end - item - Name = 'TALLA' - DataType = datString - Size = 8 - end - item - Name = 'VTAPROCESO' - DataType = datFloat - end - item - Name = 'VTAFINAL' - DataType = datFloat - end - item - Name = 'VTATERM' - DataType = datFloat - end - item - Name = 'VALTOT' - DataType = datFloat - end - item - Name = 'ESTADO' - DataType = datString - Size = 1 - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - end> - Params = <> - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'ReferenciaGenerica' - IndexDefs = <> - Left = 192 - Top = 40 - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.pas deleted file mode 100644 index 2615ede..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.pas +++ /dev/null @@ -1,139 +0,0 @@ -unit uDataModuleReferenciaGenerica; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService, - uROClient, uROBinMessage, uROWinInetHttpChannel, uDataModuleBase, - uBizReferenciaGenerica, uDARemoteDataAdapter, uDAInterfaces, uDADataStreamer; - -type - TdmReferenciaGenerica = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - ds_ReferenciaGenerica: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - DABinDataStreamer1: TDABinDataStreamer; - tbl_ReferenciaGenerica: TDACDSDataTable; - procedure DAClientDataModuleCreate(Sender: TObject); - private - { Private declarations } - public - procedure Print(const Centro: string; const Vendedor : String; const Estado : String; const AFiltro : string = ''); - procedure Preview(const Centro: string; const Vendedor : String; const Estado : String; const AFiltro : string = ''); - function GetItems : IBizReferenciaGenerica; - function GetProducto(const Codigo: String; const Talla: String; - const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; - function GetSelectedItems(const AItems : IBizReferenciaGenerica): IBizReferenciaGenerica; - end; - -var - dmReferenciaGenerica: TdmReferenciaGenerica; - -implementation - -{$R *.DFM} - -uses - Forms, Windows, Controls, VARELA_Intf, uEditorPreview, - uDataTableUtils, uROTypes, cxControls; - -procedure TdmReferenciaGenerica.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmReferenciaGenerica.GetItems: IBizReferenciaGenerica; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_ReferenciaGenerica, dtLista); - dtLista.BusinessRulesID := BIZ_REFERENCIAGENERICA; - Result := (dtLista as IBizReferenciaGenerica); - finally - HideHourglassCursor; - end; -end; - -function TdmReferenciaGenerica.GetProducto(const Codigo, Talla, - Color: String; out CodigoBarras, Descripcion: String): Boolean; -begin - Result := (RORemoteService as IsrvReferenciaGenerica).GetProducto(Codigo, - Talla, Color, CodigoBarras, Descripcion); -end; - -function TdmReferenciaGenerica.GetSelectedItems( - const AItems: IBizReferenciaGenerica): IBizReferenciaGenerica; -var - dtLista : TDACDSDataTable; - ATarget : TDADataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_ReferenciaGenerica, dtLista, False); - CopyDataTable(AItems.DataTable, dtLista, True); - dtLista.BusinessRulesID := BIZ_REFERENCIAGENERICA; - dtLista.LogChanges := True; // Para guardar los cambios - dtLista.RemoteFetchEnabled := True; // Para guardar los cambios - Result := (dtLista as IBizReferenciaGenerica); - finally - HideHourglassCursor; - end; -end; - -procedure TdmReferenciaGenerica.Preview(const Centro, Vendedor: String; const Estado : String; - const AFiltro : String); -var - AStream: TROBinaryMemoryStream; - AEditorPreview : TfEditorPreview; -begin - AEditorPreview := TfEditorPreview.Create(Application); - try - ShowHourglassCursor; - try - AStream := (RORemoteService as IsrvReferenciaGenerica).GenerateReport(Centro, Vendedor, Estado, AFiltro); - AEditorPreview.Report.PreviewPages.LoadFromStream(AStream); - finally - HideHourglassCursor; - end; - AEditorPreview.ShowModal; - finally - AEditorPreview.Release; - AStream.Free; - end; -end; - -procedure TdmReferenciaGenerica.Print(const Centro, Vendedor: String; const Estado : String; - const AFiltro : String); -var - AStream: TROBinaryMemoryStream; - AEditorPreview : TfEditorPreview; -begin - AEditorPreview := TfEditorPreview.Create(Application); - try - ShowHourglassCursor; - try - AStream := (RORemoteService as IsrvReferenciaGenerica).GenerateReport(Centro, Vendedor, Estado, AFiltro); - AEditorPreview.Report.PreviewPages.LoadFromStream(AStream); - finally - HideHourglassCursor; - end; - AEditorPreview.Print; - finally - AEditorPreview.Release; - AStream.Free; - end; -end; - -initialization - dmReferenciaGenerica := TdmReferenciaGenerica.Create(nil); - -finalization - FreeAndNil(dmReferenciaGenerica); - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.ddp b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.dfm b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.dfm deleted file mode 100644 index 9562cb5..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.dfm +++ /dev/null @@ -1,574 +0,0 @@ -object fEditorCambioReferenciaGenerica: TfEditorCambioReferenciaGenerica - Left = 418 - Top = 278 - BorderIcons = [biSystemMenu, biMaximize] - Caption = 'Rectificar referencia gen'#233'rica de producto' - ClientHeight = 535 - ClientWidth = 759 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnShow = FormShow - DesignSize = ( - 759 - 535) - PixelsPerInch = 96 - TextHeight = 13 - object JvgWizardHeader1: TJvgWizardHeader - Left = 0 - Top = 0 - Width = 759 - Height = 73 - CaptionFont.Charset = DEFAULT_CHARSET - CaptionFont.Color = clWindowText - CaptionFont.Height = -11 - CaptionFont.Name = 'MS Sans Serif' - CaptionFont.Style = [fsBold] - CommentFont.Charset = DEFAULT_CHARSET - CommentFont.Color = clWindowText - CommentFont.Height = -11 - CommentFont.Name = 'MS Sans Serif' - CommentFont.Style = [] - SymbolFont.Charset = DEFAULT_CHARSET - SymbolFont.Color = clHighlightText - SymbolFont.Height = -35 - SymbolFont.Name = 'Wingdings' - SymbolFont.Style = [fsBold] - Captions.Strings = ( - 'Rectificar referencia gen'#233'rica de producto') - Comments.Strings = ( - - 'Indique el c'#243'digo de producto, el color y la talla que correspon' + - 'de a la referencia gen'#233'rica.') - Gradient.FromColor = clHighlight - Gradient.ToColor = clWindow - Gradient.Active = True - Gradient.Orientation = fgdVertical - BufferedDraw = False - end - object Bevel1: TBevel - Left = 16 - Top = 483 - Width = 730 - Height = 4 - Anchors = [akLeft, akRight, akBottom] - Shape = bsBottomLine - end - object lblImporteTotal: TLabel - Left = 85 - Top = 460 - Width = 5 - Height = 13 - Anchors = [akLeft, akBottom] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object bAceptar: TButton - Left = 577 - Top = 496 - Width = 75 - Height = 25 - Anchors = [akRight, akBottom] - Caption = '&Aceptar' - ModalResult = 1 - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 671 - Top = 496 - Width = 75 - Height = 25 - Anchors = [akRight, akBottom] - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object bComprobar: TButton - Left = 17 - Top = 496 - Width = 152 - Height = 25 - Anchors = [akLeft, akBottom] - Caption = 'Comprobar todos los c'#243'digos' - TabOrder = 2 - OnClick = bComprobarClick - end - object cxGrid: TcxGrid - Left = 16 - Top = 88 - Width = 729 - Height = 385 - Anchors = [akLeft, akTop, akRight, akBottom] - TabOrder = 3 - LookAndFeel.Kind = lfStandard - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBBandedTableView - NavigatorButtons.ConfirmDelete = False - OnCustomDrawCell = cxGridViewCustomDrawCell - DataController.DataSource = dsDataSource - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Format = '#,##0.##' - Kind = skSum - Column = cxGridViewVALTOT - end> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.AlwaysShowEditor = True - OptionsBehavior.FocusCellOnTab = True - OptionsBehavior.GoToNextCellOnEnter = True - OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsData.Deleting = False - OptionsData.Inserting = False - OptionsSelection.InvertSelect = False - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.Navigator = True - OptionsView.ScrollBars = ssVertical - OptionsView.ShowEditButtons = gsebAlways - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.GridLines = glNone - OptionsView.GroupByBox = False - OptionsView.NewItemRowInfoText = 'Click here to add a new row' - OptionsView.BandHeaders = False - Bands = < - item - Width = 667 - end> - object cxGridViewRecID: TcxGridDBBandedColumn - DataBinding.FieldName = 'RecID' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewOperacion: TcxGridDBBandedColumn - OnGetProperties = cxGridViewOperacionGetProperties - Options.ShowEditButtons = isebAlways - Options.Grouping = False - Options.Moving = False - Styles.Content = cxStyleNoEditable - Width = 26 - Position.BandIndex = 0 - Position.ColIndex = 0 - Position.RowIndex = 0 - end - object cxGridViewNUMINF: TcxGridDBBandedColumn - DataBinding.FieldName = 'NUMINF' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - SortIndex = 1 - SortOrder = soAscending - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewCLAVE1: TcxGridDBBandedColumn - DataBinding.FieldName = 'CLAVE1' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - SortIndex = 2 - SortOrder = soAscending - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewCLAVE2: TcxGridDBBandedColumn - DataBinding.FieldName = 'CLAVE2' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - SortIndex = 3 - SortOrder = soAscending - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewCLAVE3: TcxGridDBBandedColumn - DataBinding.FieldName = 'CLAVE3' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - SortIndex = 4 - SortOrder = soAscending - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewNUMCON: TcxGridDBBandedColumn - DataBinding.FieldName = 'NUMCON' - Visible = False - SortIndex = 5 - SortOrder = soAscending - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewFECHA: TcxGridDBBandedColumn - Caption = 'Fecha venta' - DataBinding.FieldName = 'FECHA' - PropertiesClassName = 'TcxTextEditProperties' - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - SortIndex = 0 - SortOrder = soAscending - Styles.Content = cxStyleNoEditable - Width = 73 - Position.BandIndex = 0 - Position.ColIndex = 1 - Position.RowIndex = 0 - end - object cxGridViewCODCENTRO: TcxGridDBBandedColumn - DataBinding.FieldName = 'CODCENTRO' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewCENTRO: TcxGridDBBandedColumn - Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Styles.Content = cxStyleNoEditable - Width = 304 - Position.BandIndex = 0 - Position.ColIndex = 2 - Position.RowIndex = 0 - end - object cxGridViewCODVENDEDOR: TcxGridDBBandedColumn - DataBinding.FieldName = 'CODVENDEDOR' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Width = 348 - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewVENDEDOR: TcxGridDBBandedColumn - Caption = 'Vendedor' - DataBinding.FieldName = 'VENDEDOR' - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Styles.Content = cxStyleNoEditable - Width = 173 - Position.BandIndex = 0 - Position.ColIndex = 3 - Position.RowIndex = 0 - end - object cxGridViewNUMTALON: TcxGridDBBandedColumn - Caption = 'Tal'#243'n' - DataBinding.FieldName = 'NUMTALON' - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Styles.Content = cxStyleNoEditable - Width = 87 - Position.BandIndex = 0 - Position.ColIndex = 0 - Position.RowIndex = 1 - end - object cxGridViewCODIGO_BARRA: TcxGridDBBandedColumn - DataBinding.FieldName = 'CODIGO_BARRA' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewCODIGO: TcxGridDBBandedColumn - Caption = 'C'#243'digo' - DataBinding.FieldName = 'CODIGO' - Styles.Content = cxStyleEditable - Width = 114 - Position.BandIndex = 0 - Position.ColIndex = 1 - Position.RowIndex = 1 - end - object cxGridViewPRODUCTO: TcxGridDBBandedColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Styles.Content = cxStyleProductor - Styles.OnGetContentStyle = cxGridViewPRODUCTOStylesGetContentStyle - Width = 300 - Position.BandIndex = 0 - Position.ColIndex = 4 - Position.RowIndex = 1 - end - object cxGridViewCOLOR: TcxGridDBBandedColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - Styles.Content = cxStyleEditable - Width = 60 - Position.BandIndex = 0 - Position.ColIndex = 2 - Position.RowIndex = 1 - end - object cxGridViewTALLA: TcxGridDBBandedColumn - Caption = 'Talla' - DataBinding.FieldName = 'TALLA' - Styles.Content = cxStyleEditable - Width = 59 - Position.BandIndex = 0 - Position.ColIndex = 3 - Position.RowIndex = 1 - end - object cxGridViewVTAPROCESO: TcxGridDBBandedColumn - Caption = 'Proceso' - DataBinding.FieldName = 'VTAPROCESO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Properties.UseLeftAlignmentOnEditing = False - FooterAlignmentHorz = taRightJustify - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleEditable - Width = 49 - Position.BandIndex = 0 - Position.ColIndex = 4 - Position.RowIndex = 0 - end - object cxGridViewVTAFINAL: TcxGridDBBandedColumn - Caption = 'Final/Resc.' - DataBinding.FieldName = 'VTAFINAL' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Properties.UseLeftAlignmentOnEditing = False - FooterAlignmentHorz = taRightJustify - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleEditable - Width = 51 - Position.BandIndex = 0 - Position.ColIndex = 5 - Position.RowIndex = 0 - end - object cxGridViewVTATERM: TcxGridDBBandedColumn - Caption = 'Term./Dev.' - DataBinding.FieldName = 'VTATERM' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taCenter - Properties.UseLeftAlignmentOnEditing = False - FooterAlignmentHorz = taRightJustify - HeaderGlyphAlignmentHorz = taRightJustify - Styles.Content = cxStyleEditable - Width = 51 - Position.BandIndex = 0 - Position.ColIndex = 6 - Position.RowIndex = 0 - end - object cxGridViewVALTOT: TcxGridDBBandedColumn - Caption = 'Importe' - DataBinding.FieldName = 'VALTOT' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.UseLeftAlignmentOnEditing = False - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - HeaderGlyphAlignmentHorz = taRightJustify - Options.Moving = False - Styles.Content = cxStyleEditable - Width = 90 - Position.BandIndex = 0 - Position.ColIndex = 5 - Position.RowIndex = 1 - end - object cxGridViewESTADO: TcxGridDBBandedColumn - DataBinding.FieldName = 'ESTADO' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Width = 144 - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - object cxGridViewFECHACAMBIO: TcxGridDBBandedColumn - DataBinding.FieldName = 'FECHACAMBIO' - Visible = False - Options.Editing = False - Options.Focusing = False - Options.Grouping = False - Options.Moving = False - Position.BandIndex = -1 - Position.ColIndex = -1 - Position.RowIndex = -1 - end - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - object dsDataSource: TDADataSource - Left = 200 - Top = 496 - end - object cxStyleRepository1: TcxStyleRepository - Left = 368 - Top = 272 - object cxStyleEditable: TcxStyle - AssignedValues = [svFont] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - object cxStyleNoEditable: TcxStyle - AssignedValues = [svTextColor] - TextColor = 6250335 - end - object cxStyleProductor: TcxStyle - AssignedValues = [svTextColor] - TextColor = 14898176 - end - object cxStyleNoEncontrado: TcxStyle - AssignedValues = [svTextColor] - TextColor = clRed - end - end - object cxEditRepository1: TcxEditRepository - Left = 240 - Top = 272 - object cxEditButtonDesglosar: TcxEditRepositoryButtonItem - Properties.Buttons = < - item - Caption = '+' - Default = True - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000000000000000000000000000000000000FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00000000000000000000000000AF4F1F00A9471700A33F0F000000 - 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00000000000000000000000000B5572600FDA66A00A94717000000 - 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00000000000000000000000000BA5F2D00FCB07600AF4F1F000000 - 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00CE794700C9724000C46C3A00BF653300FBB98200B5572600AF4F - 1F00A9471700A33F0F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00D3804E00F8DAA900F9D29F00F9C99500FAC18B00FBB98200FCB0 - 7600FDA66A00A9471700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00D8865400D3804E00CE794700C9724000F9C99500BF653300BA5F - 2D00B5572600AF4F1F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00000000000000000000000000CE794700F9D29F00C46C3A000000 - 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00000000000000000000000000D3804E00F8DAA900C97240000000 - 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00000000000000000000000000D8865400D3804E00CE7947000000 - 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} - Kind = bkText - Stretchable = False - end> - Properties.ViewStyle = vsButtonsOnly - Properties.OnButtonClick = cxEditButtonDesglosarPropertiesButtonClick - end - object cxEditButtonEliminarDesglose: TcxEditRepositoryButtonItem - Properties.Buttons = < - item - Caption = '-' - Default = True - Glyph.Data = { - 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000000000000000000000000000000000000FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00D7855300CF7A4800C7703E00BF653300B85B2A00AE4E1D00A441 - 10009B34040098300000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00D8865400F8E0B000F8E0B000F8E0B000F9D3A100FAC18B00FCAE - 7300FE9859009B340400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00D8865400D8865400D7855300CF7A4800C7703E00BF653300B85B - 2A00AE4E1D00A4411000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF - FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00} - Kind = bkText - Stretchable = False - end> - Properties.ViewStyle = vsButtonsOnly - Properties.OnButtonClick = cxEditButtonEliminarDesglosePropertiesButtonClick - end - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.dfm_ b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.dfm_ deleted file mode 100644 index d9923d1..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.dfm_ +++ /dev/null @@ -1,144 +0,0 @@ -object fEditorCambioReferenciaGenerica: TfEditorCambioReferenciaGenerica - Left = 421 - Top = 281 - Width = 767 - Height = 569 - BorderIcons = [biSystemMenu, biMaximize] - Caption = 'Rectificar referencia gen'#233'rica de producto' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnShow = FormShow - DesignSize = ( - 759 - 535) - PixelsPerInch = 96 - TextHeight = 13 - object JvgWizardHeader1: TJvgWizardHeader - Left = 0 - Top = 0 - Width = 759 - Height = 73 - CaptionFont.Charset = DEFAULT_CHARSET - CaptionFont.Color = clWindowText - CaptionFont.Height = -11 - CaptionFont.Name = 'MS Sans Serif' - CaptionFont.Style = [fsBold] - CommentFont.Charset = DEFAULT_CHARSET - CommentFont.Color = clWindowText - CommentFont.Height = -11 - CommentFont.Name = 'MS Sans Serif' - CommentFont.Style = [] - SymbolFont.Charset = DEFAULT_CHARSET - SymbolFont.Color = clHighlightText - SymbolFont.Height = -35 - SymbolFont.Name = 'Wingdings' - SymbolFont.Style = [fsBold] - Captions.Strings = ( - 'Rectificar referencia gen'#233'rica de producto') - Comments.Strings = ( - - 'Indique el c'#243'digo de producto, el color y la talla que correspon' + - 'de a la referencia gen'#233'rica.') - Gradient.FromColor = clHighlight - Gradient.ToColor = clWindow - Gradient.Active = True - Gradient.Orientation = fgdVertical - BufferedDraw = False - end - object Bevel1: TBevel - Left = 16 - Top = 483 - Width = 730 - Height = 4 - Anchors = [akLeft, akBottom] - Shape = bsBottomLine - end - object Label1: TLabel - Left = 16 - Top = 460 - Width = 61 - Height = 13 - Anchors = [akLeft, akBottom] - Caption = 'Importe total:' - end - object lblImporteTotal: TLabel - Left = 85 - Top = 460 - Width = 5 - Height = 13 - Anchors = [akLeft, akBottom] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object bAceptar: TButton - Left = 577 - Top = 496 - Width = 75 - Height = 25 - Anchors = [akLeft, akBottom] - Caption = '&Aceptar' - ModalResult = 1 - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 671 - Top = 496 - Width = 75 - Height = 25 - Anchors = [akLeft, akBottom] - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object bComprobar: TButton - Left = 17 - Top = 496 - Width = 152 - Height = 25 - Anchors = [akLeft, akBottom] - Caption = 'Comprobar todos los c'#243'digos' - TabOrder = 2 - OnClick = bComprobarClick - end - object dsDataSource: TDADataSource - DataTable = dmReferenciaGenerica.tbl_ReferenciaGenerica - Left = 200 - Top = 496 - end - object cxStyleRepository1: TcxStyleRepository - Left = 368 - Top = 272 - object cxStyleEditable: TcxStyle - AssignedValues = [svFont] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - object cxStyleNoEditable: TcxStyle - AssignedValues = [svTextColor] - TextColor = 6250335 - end - object cxStyleProductor: TcxStyle - AssignedValues = [svTextColor] - TextColor = 14898176 - end - object cxStyleNoEncontrado: TcxStyle - AssignedValues = [svTextColor] - TextColor = clRed - end - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.pas deleted file mode 100644 index 3740253..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.pas +++ /dev/null @@ -1,314 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorCambioReferenciaGenerica; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uBizReferenciaGenerica, StdCtrls, JvExControls, JvComponent, - JvgWizardHeader, ExtCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, - cxData, cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, cxGridBandedTableView, - cxGridDBBandedTableView, cxCurrencyEdit, cxSpinEdit, cxButtonEdit, - cxTextEdit, cxEditRepositoryItems, uDAInterfaces; - -type - IEditorCambioReferenciaGenerica = interface - ['{11A66FAC-E782-43DE-A3E6-68473F351F43}'] - function GetItems : IBizReferenciaGenerica; - procedure SetItems (const AValue : IBizReferenciaGenerica); - property Items : IBizReferenciaGenerica read GetItems write SetItems; - end; - - TfEditorCambioReferenciaGenerica = class(TForm, IEditorCambioReferenciaGenerica) - bAceptar: TButton; - bCancelar: TButton; - JvgWizardHeader1: TJvgWizardHeader; - Bevel1: TBevel; - bComprobar: TButton; - dsDataSource: TDADataSource; - cxStyleRepository1: TcxStyleRepository; - cxStyleEditable: TcxStyle; - cxStyleNoEditable: TcxStyle; - cxStyleProductor: TcxStyle; - cxStyleNoEncontrado: TcxStyle; - cxGrid: TcxGrid; - cxGridView: TcxGridDBBandedTableView; - cxGridViewRecID: TcxGridDBBandedColumn; - cxGridViewNUMINF: TcxGridDBBandedColumn; - cxGridViewCLAVE1: TcxGridDBBandedColumn; - cxGridViewCLAVE2: TcxGridDBBandedColumn; - cxGridViewCLAVE3: TcxGridDBBandedColumn; - cxGridViewFECHA: TcxGridDBBandedColumn; - cxGridViewCODCENTRO: TcxGridDBBandedColumn; - cxGridViewCENTRO: TcxGridDBBandedColumn; - cxGridViewCODVENDEDOR: TcxGridDBBandedColumn; - cxGridViewVENDEDOR: TcxGridDBBandedColumn; - cxGridViewNUMTALON: TcxGridDBBandedColumn; - cxGridViewCODIGO_BARRA: TcxGridDBBandedColumn; - cxGridViewCODIGO: TcxGridDBBandedColumn; - cxGridViewPRODUCTO: TcxGridDBBandedColumn; - cxGridViewCOLOR: TcxGridDBBandedColumn; - cxGridViewTALLA: TcxGridDBBandedColumn; - cxGridViewVTAPROCESO: TcxGridDBBandedColumn; - cxGridViewVTAFINAL: TcxGridDBBandedColumn; - cxGridViewVTATERM: TcxGridDBBandedColumn; - cxGridViewVALTOT: TcxGridDBBandedColumn; - cxGridViewESTADO: TcxGridDBBandedColumn; - cxGridViewFECHACAMBIO: TcxGridDBBandedColumn; - cxGridLevel: TcxGridLevel; - lblImporteTotal: TLabel; - cxGridViewOperacion: TcxGridDBBandedColumn; - cxEditRepository1: TcxEditRepository; - cxEditButtonDesglosar: TcxEditRepositoryButtonItem; - cxEditButtonEliminarDesglose: TcxEditRepositoryButtonItem; - cxGridViewNUMCON: TcxGridDBBandedColumn; - procedure FormShow(Sender: TObject); - procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure bComprobarClick(Sender: TObject); - procedure cxGridViewPRODUCTOStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure bAceptarClick(Sender: TObject); - procedure cxGridViewOperacionGetProperties( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AProperties: TcxCustomEditProperties); - procedure cxEditButtonDesglosarPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure cxEditButtonEliminarDesglosePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); - private - FItems : IBizReferenciaGenerica; - FCodigoBarras : String; - FHayErrores : Boolean; - FItemsErroneos : Integer; - procedure DesglosarReferencia; - protected - function GetItems : IBizReferenciaGenerica; - procedure SetItems (const AValue : IBizReferenciaGenerica); - public - property Items : IBizReferenciaGenerica read GetItems write SetItems; - end; - - -implementation - -uses - uEditorUtils, uDataModuleReferenciaGenerica, - schReferenciaGenericaClient_Intf, Math; - -{$R *.dfm} - -function ShowEditorCambioReferenciaGenerica (ABizObject : TDADataTableRules) : TModalResult; -var - AEditor: TfEditorCambioReferenciaGenerica; -begin - AEditor := TfEditorCambioReferenciaGenerica.Create(Application); - try - AEditor.Items := (ABizObject as IBizReferenciaGenerica); - Result := AEditor.ShowModal; - if Result = mrOk then - begin - {(ABizObject as IBizReferenciaGenerica).Edit; - (ABizObject as IBizReferenciaGenerica).CODIGO := AEditor.Codigo; - (ABizObject as IBizReferenciaGenerica).TALLA := AEditor.Talla; - (ABizObject as IBizReferenciaGenerica).COLOR := AEditor.Color; - (ABizObject as IBizReferenciaGenerica).CODIGO_BARRA := AEditor.CodigoBarras; - (ABizObject as IBizReferenciaGenerica).PRODUCTO := AEditor.Label3.Caption; - (ABizObject as IBizReferenciaGenerica).FECHACAMBIO := Now; - (ABizObject as IBizReferenciaGenerica).ESTADO := rgResuelto; - (ABizObject as IBizReferenciaGenerica).Post; - (ABizObject as IBizReferenciaGenerica).DataTable.ApplyUpdates;} - end; - -{ if Result = mrIgnore then - begin - (ABizObject as IBizReferenciaGenerica).Delete; - (ABizObject as IBizReferenciaGenerica).DataTable.ApplyUpdates; - end;} - - finally - AEditor.Release; - end; -end; - - -{ TfEditorCambioReferenciaGenerica } - -procedure TfEditorCambioReferenciaGenerica.FormShow(Sender: TObject); -begin - FCodigoBarras := ''; - FHayErrores := False; - FItemsErroneos := 0; - FItems.DataTable.Open; - cxGridView.DataController.GotoFirst; -end; - -function TfEditorCambioReferenciaGenerica.GetItems: IBizReferenciaGenerica; -begin - Result := FItems; -end; - -procedure TfEditorCambioReferenciaGenerica.SetItems( - const AValue: IBizReferenciaGenerica); -begin - FItems := AValue; - if Assigned(FItems) then - dsDataSource.DataTable := FItems.DataTable; -end; - -procedure TfEditorCambioReferenciaGenerica.cxGridViewCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if VarToStrDef(AViewInfo.GridRecord.Values[cxGridViewNUMCON.Index], '0') <> '0' then - ACanvas.Brush.Color := clInfoBk; - - if ((AViewInfo.Item as TcxGridDBBandedColumn).Position.RowIndex = 1) then - begin - ADone := True; - with AViewInfo do begin - ACanvas.FillRect(Bounds); - ACanvas.DrawTexT(Text, TextAreaBounds, 0); - - if (AViewInfo.Item.Index = cxGridViewCOLOR.Index) or - (AViewInfo.Item.Index = cxGridViewTALLA.Index) or - (AViewInfo.Item.Index = cxGridViewCODIGO.Index) or - (AViewInfo.Item.Index = cxGridViewVALTOT.Index) then - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom, bTop, bLeft, bRight]) - else - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom]); - end; - end - else - if (AViewInfo.Item.Index = cxGridViewVTAPROCESO.Index) or - (AViewInfo.Item.Index = cxGridViewVTAFINAL.Index) or - (AViewInfo.Item.Index = cxGridViewVTATERM.Index) then - begin - ADone := True; - with AViewInfo do - begin - ACanvas.FillRect(Bounds); - ACanvas.DrawTexT(Text, TextAreaBounds, 0); - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom, bTop, bLeft, bRight]); - end; - end; -end; - -procedure TfEditorCambioReferenciaGenerica.bComprobarClick( - Sender: TObject); -var - Descripcion : String; - CodigoBarras : String; - bEncontrado : Boolean; - i : Integer; - ABookmark : Pointer; -begin - FHayErrores := False; - FItemsErroneos := 0; - FItems.DataTable.DisableControls; - ABookmark := FItems.DataTable.GetBookMark; - try - FItems.First; - for i := 0 to FItems.RecordCount - 1 do - begin - bEncontrado := dmReferenciaGenerica.GetProducto(FItems.CODIGO, FItems.TALLA, - FItems.COLOR, CodigoBarras, Descripcion); - FItems.Edit; - if bEncontrado and (Pos('ERROR REFERENCIA', Descripcion) = 0) then - begin - FItems.PRODUCTO := Descripcion; - FItems.CODIGO_BARRA := CodigoBarras; - FItems.Estado := rgResuelto; - FItems.FECHACAMBIO := Now; - end - else begin - FHayErrores := True; - FItemsErroneos := FItemsErroneos + 1; - FItems.PRODUCTO := '*** PRODUCTO NO ENCONTRADO ***'; - end; - FItems.Post; - FItems.Next; - end; - finally - FItems.DataTable.EnableControls; - FItems.DataTable.GotoBookmark(ABookmark); - FItems.DataTable.FreeBookmark(ABookmark); - end; -end; - -procedure TfEditorCambioReferenciaGenerica.cxGridViewPRODUCTOStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - if ARecord.Values[AItem.Index] = '*** PRODUCTO NO ENCONTRADO ***' then - AStyle := cxStyleNoEncontrado; -end; - -procedure TfEditorCambioReferenciaGenerica.bAceptarClick(Sender: TObject); -begin - bComprobar.Click; - if FHayErrores then - if (Application.MessageBox('Hay códigos de producto que no se han encontrado o son incorrectos.' + #10#13 + - '¿Desea guardar los cambios de solamente aquellos que están bien?', 'Atención', MB_YESNO) = IDNO) then - Exit; - - // Adaptación a DA5 - // Sólo guardar en el caso de que haya algún item correcto. Si todos están mal da una excepción el servidor - // porque no hay filas a actualizar. - if FItemsErroneos < FItems.DataTable.RecordCount then - FItems.DataTable.ApplyUpdates; - Close; -end; - -procedure TfEditorCambioReferenciaGenerica.cxGridViewOperacionGetProperties( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AProperties: TcxCustomEditProperties); -begin - if Assigned(ARecord) then - begin - // Sólo aparecerá el botón '+' si alguna cantidad es mayor que 1 - if (Abs(StrToIntDef(ARecord.DisplayTexts[cxGridViewVTAPROCESO.Index], 0)) > 1) or - (Abs(StrToIntDef(ARecord.DisplayTexts[cxGridViewVTAFINAL.Index], 0)) > 1) or - (Abs(StrToIntDef(ARecord.DisplayTexts[cxGridViewVTATERM.Index], 0)) > 1) then - AProperties := cxEditButtonDesglosar.Properties - else - if (StrToIntDef(ARecord.DisplayTexts[cxGridViewNUMCON.Index], 0) > 0) then - AProperties := cxEditButtonEliminarDesglose.Properties - end; -end; - -procedure TfEditorCambioReferenciaGenerica.DesglosarReferencia; -begin - FItems.DesglosarReferencia; -end; - -procedure TfEditorCambioReferenciaGenerica.cxEditButtonDesglosarPropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); -begin - DesglosarReferencia; -end; - -procedure TfEditorCambioReferenciaGenerica.cxEditButtonEliminarDesglosePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); -begin - FItems.Delete; -end; - -initialization - RegisterEditor(IBizReferenciaGenerica, ShowEditorCambioReferenciaGenerica, etItem); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.pas_ b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.pas_ deleted file mode 100644 index 833fcb5..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorCambioReferenciaGenerica.pas_ +++ /dev/null @@ -1,210 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorCambioReferenciaGenerica; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uBizReferenciaGenerica, StdCtrls, JvExControls, JvComponent, - JvgWizardHeader, ExtCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, - cxData, cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel, - cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, cxGridBandedTableView, - cxGridDBBandedTableView, cxCurrencyEdit, cxSpinEdit; - -type - IEditorCambioReferenciaGenerica = interface - ['{11A66FAC-E782-43DE-A3E6-68473F351F43}'] - function GetItems : IBizReferenciaGenerica; - procedure SetItems (const AValue : IBizReferenciaGenerica); - property Items : IBizReferenciaGenerica read GetItems write SetItems; - end; - - TfEditorCambioReferenciaGenerica = class(TForm, IEditorCambioReferenciaGenerica) - bAceptar: TButton; - bCancelar: TButton; - JvgWizardHeader1: TJvgWizardHeader; - Bevel1: TBevel; - bComprobar: TButton; - dsDataSource: TDADataSource; - cxStyleRepository1: TcxStyleRepository; - cxStyleEditable: TcxStyle; - cxStyleNoEditable: TcxStyle; - cxStyleProductor: TcxStyle; - cxStyleNoEncontrado: TcxStyle; - Label1: TLabel; - lblImporteTotal: TLabel; - procedure FormShow(Sender: TObject); - procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure bComprobarClick(Sender: TObject); - procedure cxGridViewPRODUCTOStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure bAceptarClick(Sender: TObject); - private - FItems : IBizReferenciaGenerica; - FCodigoBarras : String; - FHayErrores : Boolean; - protected - function GetItems : IBizReferenciaGenerica; - procedure SetItems (const AValue : IBizReferenciaGenerica); - public - property Items : IBizReferenciaGenerica read GetItems write SetItems; - end; - - -implementation - -uses - uEditorUtils, uDataModuleReferenciaGenerica, - schReferenciaGenericaClient_Intf; - -{$R *.dfm} - -function ShowEditorCambioReferenciaGenerica (ABizObject : TDADataTableRules) : TModalResult; -var - AEditor: TfEditorCambioReferenciaGenerica; -begin - AEditor := TfEditorCambioReferenciaGenerica.Create(Application); - try - AEditor.Items := (ABizObject as IBizReferenciaGenerica); - Result := AEditor.ShowModal; - if Result = mrOk then - begin - {(ABizObject as IBizReferenciaGenerica).Edit; - (ABizObject as IBizReferenciaGenerica).CODIGO := AEditor.Codigo; - (ABizObject as IBizReferenciaGenerica).TALLA := AEditor.Talla; - (ABizObject as IBizReferenciaGenerica).COLOR := AEditor.Color; - (ABizObject as IBizReferenciaGenerica).CODIGO_BARRA := AEditor.CodigoBarras; - (ABizObject as IBizReferenciaGenerica).PRODUCTO := AEditor.Label3.Caption; - (ABizObject as IBizReferenciaGenerica).FECHACAMBIO := Now; - (ABizObject as IBizReferenciaGenerica).ESTADO := rgResuelto; - (ABizObject as IBizReferenciaGenerica).Post; - (ABizObject as IBizReferenciaGenerica).DataTable.ApplyUpdates;} - end; - -{ if Result = mrIgnore then - begin - (ABizObject as IBizReferenciaGenerica).Delete; - (ABizObject as IBizReferenciaGenerica).DataTable.ApplyUpdates; - end;} - - finally - AEditor.Release; - end; -end; - - -{ TfEditorCambioReferenciaGenerica } - -procedure TfEditorCambioReferenciaGenerica.FormShow(Sender: TObject); -begin - FCodigoBarras := ''; - FHayErrores := False; - FItems.DataTable.Open; - cxGridView.DataController.GotoFirst; -end; - -function TfEditorCambioReferenciaGenerica.GetItems: IBizReferenciaGenerica; -begin - Result := FItems; -end; - -procedure TfEditorCambioReferenciaGenerica.SetItems( - const AValue: IBizReferenciaGenerica); -begin - FItems := AValue; - if Assigned(FItems) then - dsDataSource.DataTable := FItems.DataTable; -end; - -procedure TfEditorCambioReferenciaGenerica.cxGridViewCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if ((AViewInfo.Item as TcxGridDBBandedColumn).Position.RowIndex = 1) then - begin - ADone := True; - with AViewInfo do begin - ACanvas.FillRect(Bounds); - ACanvas.DrawTexT(Text, TextAreaBounds, 0); - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom]); - end; - end; -end; - -procedure TfEditorCambioReferenciaGenerica.bComprobarClick( - Sender: TObject); -var - Descripcion : String; - CodigoBarras : String; - bEncontrado : Boolean; - i : Integer; - ABookmark : Pointer; -begin - FHayErrores := False; - FItems.DataTable.DisableControls; - ABookmark := FItems.DataTable.GetBookMark; - try - FItems.First; - for i := 0 to FItems.RecordCount - 1 do - begin - bEncontrado := dmReferenciaGenerica.GetProducto(FItems.CODIGO, FItems.TALLA, - FItems.COLOR, CodigoBarras, Descripcion); - FItems.Edit; - if bEncontrado and (Pos('ERROR REFERENCIA', Descripcion) = 0) then - begin - FItems.PRODUCTO := Descripcion; - FItems.CODIGO_BARRA := CodigoBarras; - FItems.Estado := rgResuelto; - FItems.FECHACAMBIO := Now; - end - else begin - FHayErrores := True; - FItems.PRODUCTO := '*** PRODUCTO NO ENCONTRADO ***'; - end; - FItems.Post; - FItems.Next; - end; - finally - FItems.DataTable.EnableControls; - FItems.DataTable.GotoBookmark(ABookmark); - FItems.DataTable.FreeBookmark(ABookmark); - end; -end; - -procedure TfEditorCambioReferenciaGenerica.cxGridViewPRODUCTOStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - if ARecord.Values[AItem.Index] = '*** PRODUCTO NO ENCONTRADO ***' then - AStyle := cxStyleNoEncontrado; -end; - -procedure TfEditorCambioReferenciaGenerica.bAceptarClick(Sender: TObject); -begin - bComprobar.Click; - if FHayErrores then - if (Application.MessageBox('Hay códigos de producto que no se han encontrado o son incorrectos.' + #10#13 + - '¿Desea guardar los cambios de aquellos que están bien?', 'Atención', MB_YESNO) = IDNO) then - Exit; - FItems.DataTable.ApplyUpdates; - Close; -end; - -initialization - RegisterEditor(IBizReferenciaGenerica, ShowEditorCambioReferenciaGenerica, etItem); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.ddp b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm deleted file mode 100644 index 4f2abe1..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm +++ /dev/null @@ -1,1652 +0,0 @@ -inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica - Left = 301 - Top = 227 - Caption = 'Control de referencias gen'#233'ricas' - ClientHeight = 637 - ClientWidth = 901 - ExplicitWidth = 909 - ExplicitHeight = 671 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 901 - Caption = 'Control de referencias gen'#233'ricas' - ExplicitWidth = 901 - inherited Image1: TImage - Left = 874 - ExplicitLeft = 874 - end - end - inherited TBXDock: TTBXDock - Width = 901 - ExplicitWidth = 901 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 691 - object TBXSubmenuItem2: TTBXSubmenuItem [7] - Caption = 'Cambiar el estado' - DropdownCombo = True - object TBXItem37: TTBXItem - Action = actPendiente - end - object TBXItem36: TTBXItem - Action = actEspera - end - object TBXItem35: TTBXItem - Action = actResuelto - end - end - object TBXSeparatorItem16: TTBXSeparatorItem [8] - end - object tbxiExpandir: TTBXItem [16] - Action = actExpandir - end - object tbxiContraer: TTBXItem [17] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [18] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 901 - end - inherited tbxFiltro: TTBXToolbar - Left = 691 - ExplicitLeft = 691 - end - end - inherited StatusBar: TStatusBar - Top = 618 - Width = 901 - ExplicitTop = 618 - ExplicitWidth = 901 - end - inline frViewListaReferenciaGenerica1: TfrViewListaReferenciaGenerica [3] - Left = 0 - Top = 105 - Width = 901 - Height = 513 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitTop = 105 - ExplicitWidth = 901 - ExplicitHeight = 513 - inherited cxGrid: TcxGrid - Width = 901 - Height = 513 - ExplicitWidth = 901 - ExplicitHeight = 513 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = 'N'#186' de ventas: 0' - Kind = skCount - FieldName = 'NUMTALON' - Column = frViewListaReferenciaGenerica1.cxGridViewNUMTALON - end> - end - end - end - object JvTabBar1: TJvTabBar [4] - Left = 0 - Top = 76 - Width = 901 - Height = 29 - Cursor = crHandPoint - CloseButton = False - Painter = JvModernTabBarPainter1 - Images = SmallImages - Tabs = < - item - Caption = 'Pendientes' - Selected = True - ImageIndex = 26 - end - item - Caption = 'En espera' - ImageIndex = 24 - end - item - Caption = 'Resueltos' - ImageIndex = 25 - end> - OnTabSelected = JvTabBar1TabSelected - end - inherited EditorActionList: TActionList [5] - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Caption = 'Rectificar referencia' - Hint = 'Asocia un producto con'#13#10'la venta de referencia gen'#233'rica' - OnExecute = actModificarExecute - end - inherited actEliminar: TAction - Caption = 'Eliminar rectificaci'#243'n' - Hint = - 'Elimina la asociaci'#243'n de un producto'#13#10'con esta venta con referen' + - 'cia gen'#233'rica' - end - inherited actPrevisualizar: TAction - Caption = '&Previsualizar formulario' - Hint = 'Previsualizar el formulario '#13#10'para indicar los productos' - end - inherited actImprimir: TAction - Caption = 'Imprimir formulario' - Hint = 'Imprimir el formulario'#13#10'para indicar los productos' - end - inherited actDuplicar: TAction - Enabled = False - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - OnUpdate = actAnchoAutoUpdate - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - OnUpdate = actAnchoAutoUpdate - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - OnUpdate = actAnchoAutoUpdate - end - object actPendiente: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Pendiente' - GroupIndex = 1 - ImageIndex = 26 - OnExecute = actPendienteExecute - OnUpdate = actPendienteUpdate - end - object actEspera: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'En espera' - GroupIndex = 1 - ImageIndex = 24 - OnExecute = actEsperaExecute - OnUpdate = actEsperaUpdate - end - object actResuelto: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Resuelto' - GroupIndex = 1 - ImageIndex = 25 - OnExecute = actResueltoExecute - OnUpdate = actResueltoUpdate - end - end - inherited SmallImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001D94944415478DA9D9321781B310C859F59580CCB66B6B21886CDF0A0 - 61A061E19595CD6585375678B0D030D0B0D065851E2B74589827E9B26CFDF205 - 6C427767E9E9D7934FE114F5A3F5522AB0A29723D08E0DC61858A3A1B556B812 - EA77717EADF0C3E67CD0DA01F5BDA23612D21A766BA0579742F2813AF74CDDC3 - EE1BC6F1510EA6E9FB22F471E006A8B50A91DB1A7549505B8FCFB3A01B423637 - 1A4CD41A533978EFE8591AD1382011AB2E04D26B41182CD6AB350EC703E6974C - 9DAB14C518606F37C8E5A734F1EE0F85E2F9D3BE301A9B859412AC7554A02539 - E50C7281881A0A7B42E330A11F0CA6D12935CDB93B67C9209A9BC6F08397E238 - 9D9E69A4F09449A82D2D4F5BC2AA61DC39A8E92577460F63447C88D87C5DE3FE - F1C7B938BF37F8872CB561D098A35736A45EE8BBDB6AA8382521E0644922A110 - 02DCAD11FC4CDEF89D472153E3E889B8F4712A923B060B353ECD9D67276701FD - 05561F04719A9398C8778123EF67159F738FF3F23EEE2C796095E20D945208B5 - 8A89764B2B23A3E6294AA2730E4CC8AB7377A9B399DC998BCF6B5C2ECCB24A46 - AE24686804BE038BC1CB0D34C3DCD9CAB60F9FEFC1DFD18EBDD7F2263424F2E9 - 9C572E4237FABAC0B5E062332459634DFE2CF21F02F45FA4F0EF02D7E217D845 - 051D2C6D56E60000000049454E44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [7] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [8] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] - end - inherited dsDataTable: TDADataSource [10] - Top = 136 - end - inherited GridPopupMenu: TPopupMenu - Left = 112 - Top = 128 - object Cambiarelestado1: TMenuItem [3] - Caption = 'Cambiar el estado a...' - object Pendiente1: TMenuItem - Action = actPendiente - AutoCheck = True - GroupIndex = 1 - end - object Enespera1: TMenuItem - Action = actEspera - AutoCheck = True - GroupIndex = 1 - end - object Resuelto1: TMenuItem - Action = actResuelto - AutoCheck = True - GroupIndex = 1 - end - end - end - object JvModernTabBarPainter1: TJvModernTabBarPainter - BorderColor = clWindow - ControlDivideColor = cl3DDkShadow - DividerColor = clBtnShadow - Font.Charset = DEFAULT_CHARSET - Font.Color = clHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - DisabledFont.Charset = DEFAULT_CHARSET - DisabledFont.Color = clGrayText - DisabledFont.Height = -11 - DisabledFont.Name = 'MS Sans Serif' - DisabledFont.Style = [] - SelectedFont.Charset = DEFAULT_CHARSET - SelectedFont.Color = clHighlight - SelectedFont.Height = -11 - SelectedFont.Name = 'MS Sans Serif' - SelectedFont.Style = [fsBold] - Left = 320 - Top = 128 - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas deleted file mode 100644 index d4e4299..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas +++ /dev/null @@ -1,447 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorListaReferenciaGenerica; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorGridBase, Menus, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, - TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent, - JvNavigationPane, uBizReferenciaGenerica, uCustomView, uViewBase, - uViewControlGrid, uViewListaReferenciaGenerica, uViewGridBase, uViewGrid, - JvTabBar, Grids, DBGrids, StdCtrls, Buttons, uDAInterfaces; - -type - IEditorListaReferenciaGenerica = interface(IEditorGridBase) - ['{875E6A40-3243-4325-A28B-D415BEC291BF}'] - function GetItems: IBizReferenciaGenerica; - procedure SetItems(const Value: IBizReferenciaGenerica); - property Items: IBizReferenciaGenerica read GetItems - write SetItems; - end; - - TfEditorListaReferenciaGenerica = class(TfEditorGridBase, IEditorListaReferenciaGenerica) - frViewListaReferenciaGenerica1: TfrViewListaReferenciaGenerica; - JvTabBar1: TJvTabBar; - JvModernTabBarPainter1: TJvModernTabBarPainter; - actPendiente: TAction; - Cambiarelestado1: TMenuItem; - Pendiente1: TMenuItem; - Enespera1: TMenuItem; - Resuelto1: TMenuItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXSeparatorItem16: TTBXSeparatorItem; - TBXItem35: TTBXItem; - TBXItem36: TTBXItem; - TBXItem37: TTBXItem; - actEspera: TAction; - actResuelto: TAction; - procedure FormShow(Sender: TObject); - procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); - procedure actModificarExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure actAnchoAutoUpdate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actPrevisualizarUpdate(Sender: TObject); - procedure actImprimirUpdate(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actPendienteExecute(Sender: TObject); - procedure actPendienteUpdate(Sender: TObject); - procedure actEsperaExecute(Sender: TObject); - procedure actEsperaUpdate(Sender: TObject); - procedure actResueltoUpdate(Sender: TObject); - procedure actResueltoExecute(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - protected - FItems : IBizReferenciaGenerica; - function GetItems: IBizReferenciaGenerica; - procedure SetItems(const Value: IBizReferenciaGenerica); - procedure CambiarEstado (const NuevoEstado : TRefGenEstado); - public - property Items: IBizReferenciaGenerica read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses uEditorBase, cxGridTableView, cxGridCustomTableView, cxControls, - uDBSelectionList, uDataModuleReferenciaGenerica, cxGridDBTableView, - cxGridDBDataDefinitions; - - -{$R *.dfm} - -{ TfEditorListaReferenciaGenerica } - -constructor TfEditorListaReferenciaGenerica.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewListaReferenciaGenerica1; -end; - -function TfEditorListaReferenciaGenerica.GetItems: IBizReferenciaGenerica; -begin - Result := FItems; -end; - -procedure TfEditorListaReferenciaGenerica.SetItems( - const Value: IBizReferenciaGenerica); -begin - FItems := Value; - if Assigned(FItems) then - begin - dsDataTable.DataTable := FItems.DataTable; - frViewListaReferenciaGenerica1.dsDataSource.DataTable := FItems.DataTable; - end; -end; - -procedure TfEditorListaReferenciaGenerica.FormShow(Sender: TObject); -begin - inherited; - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - FItems.DataTable.Active := True; - Items.VerPendientes; - with (ViewGrid as IViewListaReferenciaGenerica) do - begin - VerPendientes; - ExpandirTodo; - GotoFirst; - end; -end; - -procedure TfEditorListaReferenciaGenerica.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); -begin - inherited; - case Item.Index of - 0 : begin - Items.VerPendientes; - (ViewGrid as IViewListaReferenciaGenerica).VerPendientes; - end; - - 1 : begin - Items.VerEnEspera; - (ViewGrid as IViewListaReferenciaGenerica).VerEnEspera; - end; - - 2 : begin - Items.VerResueltos; - (ViewGrid as IViewListaReferenciaGenerica).VerResueltos - end; - end; - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; -end; - -procedure TfEditorListaReferenciaGenerica.actModificarExecute( - Sender: TObject); -var - AObj : IBizReferenciaGenerica; - ASelectedRowList : ISelectedRowList; -begin - inherited; - if Supports(FItems, ISelectedRowList, ASelectedRowList) then - begin - ShowHourglassCursor; - try - ViewGrid._FocusedView.BeginUpdate; - try - SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, ASelectedRowList); - AObj := dmReferenciaGenerica.GetSelectedItems(Items); - finally - ViewGrid._FocusedView.EndUpdate; - end; - AObj.Show; - finally - AObj := nil; - ASelectedRowList := nil; - actRefrescar.Execute; - HideHourglassCursor - end; - end; -end; - -procedure TfEditorListaReferenciaGenerica.actExpandirExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorListaReferenciaGenerica.actContraerExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -procedure TfEditorListaReferenciaGenerica.actAnchoAutoExecute( - Sender: TObject); -begin - inherited; - ViewGrid.AjustarAncho; -end; - -procedure TfEditorListaReferenciaGenerica.actAnchoAutoUpdate( - Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and Assigned(ViewGrid) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorListaReferenciaGenerica.actEliminarUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (JvTabBar1.SelectedTab.Index = 2); - -end; - -procedure TfEditorListaReferenciaGenerica.actPrevisualizarUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (JvTabBar1.SelectedTab.Index < 2) and - (ViewGrid._FocusedView.Controller.FocusedRecord is TcxGridGroupRow) -end; - -procedure TfEditorListaReferenciaGenerica.actImprimirUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (JvTabBar1.SelectedTab.Index < 2) and - (ViewGrid._FocusedView.Controller.FocusedRecord is TcxGridGroupRow) -end; - -procedure TfEditorListaReferenciaGenerica.actPrevisualizarExecute( - Sender: TObject); -var - ACentro : String; - AVendedor : String; - AGroupIndexInicial : Integer; - AEstado : TRefGenEstado; - AFiltro : String; -begin - // inherited; - AGroupIndexInicial := 0; - - while (ViewGrid._FocusedView.Controller.FocusedRecord is TcxGridGroupRow) do - begin - (ViewGrid._FocusedView.Controller.FocusedRecord as TcxGridGroupRow).Expand(True); - ViewGrid._FocusedView.Controller.GoToNext(True); - AGroupIndexInicial := AGroupIndexInicial + 1; - end; - - ACentro := ViewGrid._FocusedView.Controller.FocusedRecord.Values[ViewGrid._FocusedView.GetColumnByFieldName('CODCENTRO').Index]; - if AGroupIndexInicial < 2 then - AVendedor := ViewGrid._FocusedView.Controller.FocusedRecord.Values[ViewGrid._FocusedView.GetColumnByFieldName('CODVENDEDOR').Index]; - - case JvTabBar1.SelectedTab.Index of - 0 : AEstado := rgPendiente; - 1 : AEstado := rgEnEspera; - 2 : AEstado := rgResuelto; - else - AEstado := rgPendiente; - end; - - AFiltro := ViewGrid.GetFilterAsSQL; - - Items.Preview(ACentro, AVendedor, AEstado, AFiltro); -end; - -procedure TfEditorListaReferenciaGenerica.actImprimirExecute( - Sender: TObject); -var - ACentro : String; - AVendedor : String; - AGroupIndexInicial : Integer; - AString : String; - AEstado : TRefGenEstado; - AFiltro : String; -begin - // inherited; - AGroupIndexInicial := 0; - - while (ViewGrid._FocusedView.Controller.FocusedRecord is TcxGridGroupRow) do - begin - (ViewGrid._FocusedView.Controller.FocusedRecord as TcxGridGroupRow).Expand(True); - ViewGrid._FocusedView.Controller.GoToNext(True); - AGroupIndexInicial := AGroupIndexInicial + 1; - end; - - ACentro := ViewGrid._FocusedView.Controller.FocusedRecord.Values[ViewGrid._FocusedView.GetColumnByFieldName('CODCENTRO').Index]; - if AGroupIndexInicial < 2 then - AVendedor := ViewGrid._FocusedView.Controller.FocusedRecord.Values[ViewGrid._FocusedView.GetColumnByFieldName('CODVENDEDOR').Index]; - - case JvTabBar1.SelectedTab.Index of - 0 : AEstado := rgPendiente; - 1 : AEstado := rgEnEspera; - 2 : AEstado := rgResuelto; - else - AEstado := rgPendiente; - end; - - AFiltro := ViewGrid.GetFilterAsSQL; - - Items.Print(ACentro, AVendedor, AEstado, AFiltro); - - AString := '¿Desea que las ventas del centro ' + ViewGrid._FocusedView.Controller.FocusedRecord.Values[ViewGrid._FocusedView.GetColumnByFieldName('CENTRO').Index]; - if Length(AVendedor) > 0 then - AString := AString + #10#13 + 'y del vendedor ' + ViewGrid._FocusedView.Controller.FocusedRecord.Values[ViewGrid._FocusedView.GetColumnByFieldName('VENDEDOR').Index]; - - AString := AString + #10#13 + 'pasen a espera de la rectificación?'; - - if (Application.MessageBox(PAnsiChar(AString), 'Atención', MB_YESNO) = IDYES) then - CambiarEstado(rgEnEspera); -end; - -procedure TfEditorListaReferenciaGenerica.actModificarUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (ViewGrid._FocusedView.Controller.SelectedRecordCount > 0) -end; - -procedure TfEditorListaReferenciaGenerica.actRefrescarExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; -end; - -procedure TfEditorListaReferenciaGenerica.actPendienteExecute( - Sender: TObject); -begin - CambiarEstado(rgPendiente); -end; - -procedure TfEditorListaReferenciaGenerica.actPendienteUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = rgPendiente); -end; - -procedure TfEditorListaReferenciaGenerica.actEsperaExecute( - Sender: TObject); -begin - CambiarEstado(rgEnEspera); -end; - -procedure TfEditorListaReferenciaGenerica.actEsperaUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = rgEnEspera); -end; - -procedure TfEditorListaReferenciaGenerica.actResueltoUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = rgResuelto); -end; - -procedure TfEditorListaReferenciaGenerica.actResueltoExecute( - Sender: TObject); -begin - CambiarEstado(rgResuelto); -end; - -procedure TfEditorListaReferenciaGenerica.CambiarEstado( - const NuevoEstado: TRefGenEstado); -var - ASelectedRowList : ISelectedRowList; - i : Integer; -begin - inherited; - if Assigned(FItems) and Assigned(ViewGrid) and (ViewGrid.MultiSelect) then - if Supports(FItems, ISelectedRowList, ASelectedRowList) then - begin - ShowHourglassCursor; - FItems.DataTable.DisableControls; - - try - SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, ASelectedRowList); - try - for i := 0 to ASelectedRowList.SelectedRows.Count - 1 do - begin - FItems.First; - if FItems.Locate('RecID', ASelectedRowList.SelectedRows[i]) then - begin - FItems.Edit; - FItems.FECHACAMBIO := Now; - FItems.Estado := NuevoEstado; - FItems.Post; - end; - end; - FItems.DataTable.ApplyUpdates; - ViewGrid._FocusedView.Controller.ClearSelection; - except - FItems.DataTable.CancelUpdates; - end; - finally - FItems.DataTable.EnableControls; - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaReferenciaGenerica.actEliminarExecute( - Sender: TObject); -var - AObj : IBizReferenciaGenerica; - ASelectedRowList : ISelectedRowList; - i : integer; -begin -// inherited; - if Supports(FItems, ISelectedRowList, ASelectedRowList) then - begin - ShowHourglassCursor; - try - SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, ASelectedRowList); - AObj := dmReferenciaGenerica.GetSelectedItems(Items); - while not AObj.DataTable.EOF do - AObj.Delete; - AObj.DataTable.ApplyUpdates; - finally - AObj := nil; - ASelectedRowList := nil; - HideHourglassCursor; - actRefrescar.Execute; - end; - end; -end; - - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.ddp b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.dfm b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.dfm deleted file mode 100644 index 872b578..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.dfm +++ /dev/null @@ -1,132 +0,0 @@ -object ModuleReferenciaGenerica: TModuleReferenciaGenerica - OldCreateOrder = True - DefaultAction = actRefGenericas - Description = 'Control de referencia gen'#233'rica' - ModuleMenu = MainMenu - ModuleName = 'Control de referencia gen'#233'rica' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.3' - Left = 779 - Top = 651 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002024944415478DA - 63FCFFFF3F0323232303B5C04603C6FF40AAC2FFC2FF4E109F919A16800CF789 - CA61607AB89861D3D18F604BA866C19A1533FFB3766430F859F333301CFBC0B0 - E93FD8CC16AA580032DCC6C19FE1C58B170CEB162D6430DE3781E1F985FF0C19 - C010A2D882030B32FEDFF861C0606161C1F0E0C103B0252B96AF603870F00023 - C5710032DCCC458781E9C9198605172CC062C88613B4A063FABAFF7FFFFD63F8 - FBF71FC33F28FDF7DF5F867F40DA43E23803CCF0E7DF5E31BCBCB58D21A44586 - C12BBA9C01A667415F21EE2002195E9E110834F83F54C37FB8C6F36B0BB11A7E - E8F805B0BA3F403551590D0CE7774EC76E01A586EF397A8E61DED24DD82DA0D4 - 7090BAFD272E60B7009FE1A797A432EC7FE2C750EBBB0DAFE17F80EA0F9FBA84 - 6901BAE1E63EB90C87D74F8046F07F86964C6D869A684B869E63010CBEB26138 - 0D07D1C7CE5E41B5A073C67AAC86CF5FB38F21C6DF9E61E7E22C86D3C70E3264 - 1B2932F46EBDC7B0F1F61F9C8683F8A72E5CC3F481A17BE6FFBEA622060B7D05 - B02530C341ECE4E424867BB7AF33B8E97E61C8EB3E0B0F3E6C8683E8B3976F60 - 8F039825465A3248F1F08FC1C5D19A4149559361D2E419040D07E10BD76EE14E - 45304B74D524A1190B622072C4E3331CC4BE72F30E6E0B902D51571425D97010 - 206801B22520C5E4008216C02C21CB7428805B404B306AC1C05B000079BE9B8D - E3C07E050000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actRefGenericas: TAction - Category = 'Ventas' - Caption = 'Control de referencias gen'#233'ricas' - ImageIndex = 0 - OnExecute = actRefGenericasExecute - end - end - object MainMenu: TMainMenu - Tag = 1000 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 100 - Caption = '&Ventas' - GroupIndex = 1 - ImageIndex = 4 - object Controldeventasenproceso1: TMenuItem - Tag = 110 - Action = actRefGenericas - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63642011FC3060F80FA2392E30308268465235B346E532FC5E369961D1050686 - 34A07EA20D383183E1FF13A54B0C6F2E2D65602AE9048B116D0048B39ECF1486 - 97B7B6312C3C64C620D5D000D68CD50B7D7337FFFFF3E72FC39F3F7F1840B41B - 7B38034C330887B4C830F8C65781E5FEFEFD8B6A00487361920FC3BFFFFF810A - FE319C9FC782A1F9C8C94B60CDBF81B86DD2128401A46ABEFFE41DC3A2959B20 - 06A06B9EBF783983C1EF580671352FAC9A7F01F1D3171F19E62E5DC7C008D2EC - E960CAA0A628C6E01A59C1B0797E33C3E2E5AB18126223192E005D814DF39FDF - FF185EBEFDCC3063E12A880BDAA6AEF91FE861C3202729C8F0E7EF3F066D4D55 - 78B860D30CA2DF7FFCC63079CE324418D4F52DFB1FE9EFC4202AC403F6C61F60 - 08FFF9FB1FAB6610FFCBD79F0C7D3316A1C64269DBFCFF49E19EE0002206744E - 9E87990E72EB66FE07DB0E8DE7DFBFFF40F01F28FE8D4A33FEFFFF9F94EC8001 - 06DE00000C3C25BBC192F80F0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD2520000020F4944415478DA - 63FCFFFF3F033D01E3C8B09091919126866F346004FBC6FFC27FB00560BB6865 - 21C8329FA81C06A6878B19361DFD08B6946616AE5931F33F6B4706839F353F03 - C3B10F0C9B201E64F03BFF8F91EA16822CB371F06778F1E205C3BA450B198CF7 - 4D6080052BD57D786041C6FF1B3F0C182C2C2C181E3C7800B674C5F2150C070E - 1EA07E1C822C3373D161607A728661C1050BB018B26544593879D176A2F28CEE - BF8D0C30CB9E7F7BC5F0F2D6368690161986F2B6D928EA72623D70C721C832A0 - 02BC16FDF9FB9FE1E8922CAC961D3B7599E1EFBF7F4035FF18FE0271646603C3 - B91DD3B05B486DCB761F39C7306FE926EC1652DB3210BDFFF805EC16D2C2B2DF - BFFF321C397319D34264CB2E5C7FCA9054D8CA30AFBF9AC140531AC5B28A3865 - 060EC54E865ADF6D445906A24F9CBF8A6AE194C53B507C66E4910592048933C0 - C44196810CAA4E5465A889B664E83916C0E02B1B46D03210FFF4A5EB983E3474 - CFFCDFD754C4E060A602F62128186C4C74C13E8459B661760AC3E9630719B28D - 14197AB7DE63D878FB0F41CB40F4F9AB37B1C721B2A5C8C108D3181D13C370EF - F6750637DD2F0C45FD17C0E2842C03E1CB376EE34EA5C896225B06A26DAC4C19 - 94543519A64D9F4DB46520F3AFDCBC83DB42644B2D0D14E106FCFEF317C57262 - 2D03018216225B6AA4254B9165445B886C294803A580280B6196526C1B14C02D - A42718B570E85B0800B34ACDE7425C769D0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 80 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.pas deleted file mode 100644 index 6a7c6fc..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uPluginControllerReferenciaGenerica.pas +++ /dev/null @@ -1,72 +0,0 @@ -unit uPluginControllerReferenciaGenerica; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCReferenciaGenerica = interface(IInterface) - ['{11391827-E14C-449B-AA0A-56193B945226}'] - end; - - TModuleReferenciaGenerica = class(TModuleController, IMCReferenciaGenerica) - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - actRefGenericas: TAction; - Controldeventasenproceso1: TMenuItem; - procedure actRefGenericasExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uEditorListaReferenciaGenerica, - uBizReferenciaGenerica, uDataModuleReferenciaGenerica; - -function GetModule : TModuleController; -begin - Result := TModuleReferenciaGenerica.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleReferenciaGenerica.actRefGenericasExecute(Sender: TObject); -var - aControl: IBizReferenciaGenerica; - aObj: IEditorListaReferenciaGenerica; -begin - aControl := dmReferenciaGenerica.GetItems; - aObj := TfEditorListaReferenciaGenerica.Create(Application); - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleReferenciaGenerica); - -finalization - UnRegisterModuleClass(TModuleReferenciaGenerica); - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.ddp b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm deleted file mode 100644 index dc062a3..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm +++ /dev/null @@ -1,140 +0,0 @@ -inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica - Width = 504 - ExplicitWidth = 504 - inherited cxGrid: TcxGrid - Width = 504 - ExplicitWidth = 504 - inherited cxGridView: TcxGridDBTableView - OnMouseDown = cxGridViewMouseDown - FilterBox.Visible = fvNever - OnCellDblClick = cxGridViewCellDblClick - DataController.Filter.Options = [] - DataController.KeyFieldNames = 'RecID' - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = 'N'#186' de ventas: 0' - Kind = skCount - FieldName = 'NUMTALON' - Column = cxGridViewNUMTALON - end> - OptionsSelection.MultiSelect = True - OptionsSelection.UnselectFocusedRecordOnExit = True - OptionsView.GridLines = glVertical - OptionsView.GroupRowStyle = grsOffice11 - object cxGridViewColumn1: TcxGridDBColumn - DataBinding.FieldName = 'RECID' - Visible = False - end - object cxGridViewFECHACAMBIO: TcxGridDBColumn - Caption = 'Cambiado' - DataBinding.FieldName = 'FECHACAMBIO' - Visible = False - end - object cxGridViewFECHA: TcxGridDBColumn - Caption = 'Fecha venta' - DataBinding.FieldName = 'FECHA' - PropertiesClassName = 'TcxDateEditProperties' - SortIndex = 0 - SortOrder = soAscending - end - object cxGridViewCODCENTRO: TcxGridDBColumn - DataBinding.FieldName = 'CODCENTRO' - Visible = False - end - object cxGridViewCENTRO: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' - PropertiesClassName = 'TcxTextEditProperties' - Visible = False - GroupIndex = 0 - end - object cxGridViewCODVENDEDOR: TcxGridDBColumn - DataBinding.FieldName = 'CODVENDEDOR' - Visible = False - end - object cxGridViewVENDEDOR: TcxGridDBColumn - Caption = 'Vendedor' - DataBinding.FieldName = 'VENDEDOR' - PropertiesClassName = 'TcxTextEditProperties' - Visible = False - GroupIndex = 1 - end - object cxGridViewNUMTALON: TcxGridDBColumn - Caption = 'Tal'#243'n' - DataBinding.FieldName = 'NUMTALON' - PropertiesClassName = 'TcxTextEditProperties' - end - object cxGridViewCODIGO: TcxGridDBColumn - Caption = 'C'#243'digo' - DataBinding.FieldName = 'CODIGO' - PropertiesClassName = 'TcxTextEditProperties' - end - object cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - PropertiesClassName = 'TcxTextEditProperties' - end - object cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - PropertiesClassName = 'TcxTextEditProperties' - end - object cxGridViewTALLA: TcxGridDBColumn - Caption = 'Talla' - DataBinding.FieldName = 'TALLA' - PropertiesClassName = 'TcxTextEditProperties' - end - object cxGridViewVTAPROCESO: TcxGridDBColumn - Caption = 'Proceso' - DataBinding.FieldName = 'VTAPROCESO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVTAFINAL: TcxGridDBColumn - Caption = 'Final/Resc' - DataBinding.FieldName = 'VTAFINAL' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVTATERM: TcxGridDBColumn - Caption = 'Term/Dev' - DataBinding.FieldName = 'VTATERM' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVALTOT: TcxGridDBColumn - Caption = 'Importe' - DataBinding.FieldName = 'VALTOT' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleResuelto: TcxStyle - AssignedValues = [svTextColor] - TextColor = 5921370 - end - object cxStyleEnEspera1semana: TcxStyle - AssignedValues = [svTextColor] - TextColor = clRed - end - object cxStyleResueltoRectificado: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas deleted file mode 100644 index 5150184..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas +++ /dev/null @@ -1,180 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewListaReferenciaGenerica; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, DBTables, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, uBizReferenciaGenerica, dxPSGlbl, - dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, - dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, - cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, uDAInterfaces; - -type - IViewListaReferenciaGenerica = interface(IViewGrid) - ['{2D43B302-DAA6-45FE-BC72-BAD3591CCE67}'] - procedure VerPendientes; - procedure VerEnEspera; - procedure VerResueltos; - end; - - TfrViewListaReferenciaGenerica = class(TfrViewGrid, IViewListaReferenciaGenerica) - cxGridViewFECHA: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewVENDEDOR: TcxGridDBColumn; - cxGridViewNUMTALON: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewTALLA: TcxGridDBColumn; - cxGridViewVTAPROCESO: TcxGridDBColumn; - cxGridViewVTAFINAL: TcxGridDBColumn; - cxGridViewVTATERM: TcxGridDBColumn; - cxGridViewVALTOT: TcxGridDBColumn; - cxGridViewCODCENTRO: TcxGridDBColumn; - cxGridViewCODVENDEDOR: TcxGridDBColumn; - cxGridViewFECHACAMBIO: TcxGridDBColumn; - cxStyleResuelto: TcxStyle; - cxStyleEnEspera1semana: TcxStyle; - cxStyleResueltoRectificado: TcxStyle; - cxGridViewColumn1: TcxGridDBColumn; - procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - private - FEstado : TRefGenEstado; - public - procedure VerPendientes; - procedure VerEnEspera; - procedure VerResueltos; - end; - - -implementation - -uses uDataModuleReferenciaGenerica, DateUtils, cxGridDBDataDefinitions; - -{$R *.dfm} - -procedure TfrViewListaReferenciaGenerica.cxGridViewCellDblClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Sender); -end; - -procedure TfrViewListaReferenciaGenerica.VerEnEspera; -begin - cxGridViewFECHACAMBIO.Visible := True; - cxGridViewFECHACAMBIO.Caption := 'En espera desde'; - FEstado := rgEnEspera; -end; - -procedure TfrViewListaReferenciaGenerica.VerPendientes; -begin - cxGridViewFECHACAMBIO.Visible := False; - FEstado := rgPendiente; -end; - -procedure TfrViewListaReferenciaGenerica.VerResueltos; -begin - cxGridViewFECHACAMBIO.Visible := True; - cxGridViewFECHACAMBIO.Caption := 'Fecha de rectificación'; - FEstado := rgResuelto; -end; - -procedure TfrViewListaReferenciaGenerica.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - AColumn : TcxGridDBColumn; - AFecha : TDateTime; -begin - inherited; - - // La fila es la cabecera de un grupo - if ARecord.Expandable then - Exit; - - if FEstado = rgResuelto then - begin - if AItem.Index in [cxGridViewPRODUCTO.Index, cxGridViewCOLOR.Index, - cxGridViewTALLA.Index] then - AStyle := cxStyleResueltoRectificado - else - AStyle := cxStyleResuelto; - Exit; - end; - - if FEstado = rgEnEspera then - begin - AColumn := cxGridViewFECHACAMBIO; - if Assigned(AColumn) and (AColumn.Visible) then - begin - try - AFecha := VarToDateTime(ARecord.Values[AColumn.Index]); - except - on Exception do - AFecha := Now; - end; - - if DaysBetween(Now, AFecha) > 7 then - AStyle := cxStyleEnEspera1semana - end; - end; -end; - -procedure TfrViewListaReferenciaGenerica.cxGridViewMouseDown( - Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, - Y: Integer); -var - HT: TcxCustomGridHitTest; - ARecord: TcxCustomGridRecord; - AGroupIndex, I, AIndex: Integer; - AList: TList; - DC: TcxGridDBDataController; -begin - inherited; - HT := TcxGridSite(Sender).GridView.ViewInfo.GetHitTest(X, Y); - if (HT is TcxGridRecordHitTest) and not (HT is TcxGridRecordCellHitTest) - and not (HT is TcxGridExpandButtonHitTest) then - begin - DC := TcxGridDBTableView(TcxGridSite(Sender).GridView).DataController; - AList := TList.Create; - ShowHourglassCursor; - TcxGridDBTableView(TcxGridSite(Sender).GridView).BeginUpdate; - try - AGroupIndex := DC.Groups.DataGroupIndexByRowIndex[TcxGridRecordHitTest(HT).GridRecord.Index]; - DC.Groups.LoadRecordIndexes(AList, AGroupIndex); - for I := 0 to AList.Count - 1 do - begin - AIndex := DC.GetRowIndexByRecordIndex(Integer(AList[I]), True); - DC.SelectRows(AIndex, AIndex); - end; - finally - FreeAndNil(AList); - TcxGridDBTableView(TcxGridSite(Sender).GridView).EndUpdate; - HideHourglassCursor; - end; - end; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas deleted file mode 100644 index 9210b56..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas +++ /dev/null @@ -1,913 +0,0 @@ -unit schReferenciaGenericaClient_Intf; - -interface - -uses - Classes, DB, 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__ExisteFilaReferenciaGenerica = '{D1595576-9979-4EBB-840B-FF8B69E9AF21}'; - RID_InformeRefGenerica = '{C8CFA7EB-16B5-4AB4-A583-3EBD915B44B8}'; - RID_GetProducto = '{5D97B590-D22E-4D97-AFC6-400986B4D9FA}'; - RID_ReferenciaGenerica = '{A40BCD4C-E370-497D-8C28-118CBC1A3664}'; - - { Data table names } - nme__ExisteFilaReferenciaGenerica = '_ExisteFilaReferenciaGenerica'; - nme_InformeRefGenerica = 'InformeRefGenerica'; - nme_GetProducto = 'GetProducto'; - nme_ReferenciaGenerica = 'ReferenciaGenerica'; - - { _ExisteFilaReferenciaGenerica fields } - fld__ExisteFilaReferenciaGenericaNUMINF = 'NUMINF'; - fld__ExisteFilaReferenciaGenericaCLAVE1 = 'CLAVE1'; - fld__ExisteFilaReferenciaGenericaCLAVE2 = 'CLAVE2'; - fld__ExisteFilaReferenciaGenericaCLAVE3 = 'CLAVE3'; - fld__ExisteFilaReferenciaGenericaNUMCON = 'NUMCON'; - - { _ExisteFilaReferenciaGenerica field indexes } - idx__ExisteFilaReferenciaGenericaNUMINF = 0; - idx__ExisteFilaReferenciaGenericaCLAVE1 = 1; - idx__ExisteFilaReferenciaGenericaCLAVE2 = 2; - idx__ExisteFilaReferenciaGenericaCLAVE3 = 3; - idx__ExisteFilaReferenciaGenericaNUMCON = 4; - - { InformeRefGenerica fields } - fld_InformeRefGenericaCODCENTRO = 'CODCENTRO'; - fld_InformeRefGenericaCENTRO = 'CENTRO'; - fld_InformeRefGenericaCODVENDEDOR = 'CODVENDEDOR'; - fld_InformeRefGenericaVENDEDOR = 'VENDEDOR'; - fld_InformeRefGenericaFECHA = 'FECHA'; - fld_InformeRefGenericaNUMTALON = 'NUMTALON'; - fld_InformeRefGenericaCANTIDAD = 'CANTIDAD'; - fld_InformeRefGenericaVALTOT = 'VALTOT'; - - { InformeRefGenerica field indexes } - idx_InformeRefGenericaCODCENTRO = 0; - idx_InformeRefGenericaCENTRO = 1; - idx_InformeRefGenericaCODVENDEDOR = 2; - idx_InformeRefGenericaVENDEDOR = 3; - idx_InformeRefGenericaFECHA = 4; - idx_InformeRefGenericaNUMTALON = 5; - idx_InformeRefGenericaCANTIDAD = 6; - idx_InformeRefGenericaVALTOT = 7; - - { GetProducto fields } - fld_GetProductoCODIGO_BARRA = 'CODIGO_BARRA'; - fld_GetProductoCOR_PRODUTO = 'COR_PRODUTO'; - fld_GetProductoDESC_PRODUTO = 'DESC_PRODUTO'; - fld_GetProductoPRODUTO = 'PRODUTO'; - fld_GetProductoGRADE = 'GRADE'; - - { GetProducto field indexes } - idx_GetProductoCODIGO_BARRA = 0; - idx_GetProductoCOR_PRODUTO = 1; - idx_GetProductoDESC_PRODUTO = 2; - idx_GetProductoPRODUTO = 3; - idx_GetProductoGRADE = 4; - - { ReferenciaGenerica fields } - fld_ReferenciaGenericaNUMINF = 'NUMINF'; - fld_ReferenciaGenericaCLAVE1 = 'CLAVE1'; - fld_ReferenciaGenericaCLAVE2 = 'CLAVE2'; - fld_ReferenciaGenericaCLAVE3 = 'CLAVE3'; - fld_ReferenciaGenericaNUMCON = 'NUMCON'; - fld_ReferenciaGenericaFECHA = 'FECHA'; - fld_ReferenciaGenericaCODCENTRO = 'CODCENTRO'; - fld_ReferenciaGenericaCENTRO = 'CENTRO'; - fld_ReferenciaGenericaCODVENDEDOR = 'CODVENDEDOR'; - fld_ReferenciaGenericaVENDEDOR = 'VENDEDOR'; - fld_ReferenciaGenericaNUMTALON = 'NUMTALON'; - fld_ReferenciaGenericaCODIGO_BARRA = 'CODIGO_BARRA'; - fld_ReferenciaGenericaCODIGO = 'CODIGO'; - fld_ReferenciaGenericaPRODUCTO = 'PRODUCTO'; - fld_ReferenciaGenericaCOLOR = 'COLOR'; - fld_ReferenciaGenericaTALLA = 'TALLA'; - fld_ReferenciaGenericaVTAPROCESO = 'VTAPROCESO'; - fld_ReferenciaGenericaVTAFINAL = 'VTAFINAL'; - fld_ReferenciaGenericaVTATERM = 'VTATERM'; - fld_ReferenciaGenericaVALTOT = 'VALTOT'; - fld_ReferenciaGenericaESTADO = 'ESTADO'; - fld_ReferenciaGenericaFECHACAMBIO = 'FECHACAMBIO'; - - { ReferenciaGenerica field indexes } - idx_ReferenciaGenericaNUMINF = 0; - idx_ReferenciaGenericaCLAVE1 = 1; - idx_ReferenciaGenericaCLAVE2 = 2; - idx_ReferenciaGenericaCLAVE3 = 3; - idx_ReferenciaGenericaNUMCON = 4; - idx_ReferenciaGenericaFECHA = 5; - idx_ReferenciaGenericaCODCENTRO = 6; - idx_ReferenciaGenericaCENTRO = 7; - idx_ReferenciaGenericaCODVENDEDOR = 8; - idx_ReferenciaGenericaVENDEDOR = 9; - idx_ReferenciaGenericaNUMTALON = 10; - idx_ReferenciaGenericaCODIGO_BARRA = 11; - idx_ReferenciaGenericaCODIGO = 12; - idx_ReferenciaGenericaPRODUCTO = 13; - idx_ReferenciaGenericaCOLOR = 14; - idx_ReferenciaGenericaTALLA = 15; - idx_ReferenciaGenericaVTAPROCESO = 16; - idx_ReferenciaGenericaVTAFINAL = 17; - idx_ReferenciaGenericaVTATERM = 18; - idx_ReferenciaGenericaVALTOT = 19; - idx_ReferenciaGenericaESTADO = 20; - idx_ReferenciaGenericaFECHACAMBIO = 21; - -type - { I_ExisteFilaReferenciaGenerica } - I_ExisteFilaReferenciaGenerica = interface(IDAStronglyTypedDataTable) - ['{98972C64-DAD7-4646-90BE-053EFD062BBF}'] - { Property getters and setters } - function GetNUMINFValue: String; - procedure SetNUMINFValue(const aValue: String); - function GetCLAVE1Value: Float; - procedure SetCLAVE1Value(const aValue: Float); - function GetCLAVE2Value: Integer; - procedure SetCLAVE2Value(const aValue: Integer); - function GetCLAVE3Value: Integer; - procedure SetCLAVE3Value(const aValue: Integer); - function GetNUMCONValue: Integer; - procedure SetNUMCONValue(const aValue: Integer); - - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; - end; - - { T_ExisteFilaReferenciaGenericaDataTableRules } - T_ExisteFilaReferenciaGenericaDataTableRules = class(TDADataTableRules, I_ExisteFilaReferenciaGenerica) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetNUMCONValue: Integer; virtual; - procedure SetNUMCONValue(const aValue: Integer); virtual; - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IInformeRefGenerica } - IInformeRefGenerica = interface(IDAStronglyTypedDataTable) - ['{6AFE9984-0F66-4AC2-B5E7-87F3C48B81B9}'] - { Property getters and setters } - function GetCODCENTROValue: String; - procedure SetCODCENTROValue(const aValue: String); - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetCODVENDEDORValue: String; - procedure SetCODVENDEDORValue(const aValue: String); - function GetVENDEDORValue: String; - procedure SetVENDEDORValue(const aValue: String); - function GetFECHAValue: DateTime; - procedure SetFECHAValue(const aValue: DateTime); - function GetNUMTALONValue: String; - procedure SetNUMTALONValue(const aValue: String); - function GetCANTIDADValue: String; - procedure SetCANTIDADValue(const aValue: String); - function GetVALTOTValue: Float; - procedure SetVALTOTValue(const aValue: Float); - - - { Properties } - property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CANTIDAD: String read GetCANTIDADValue write SetCANTIDADValue; - property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; - end; - - { TInformeRefGenericaDataTableRules } - TInformeRefGenericaDataTableRules = class(TDADataTableRules, IInformeRefGenerica) - private - protected - { Property getters and setters } - function GetCODCENTROValue: String; virtual; - procedure SetCODCENTROValue(const aValue: String); virtual; - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODVENDEDORValue: String; virtual; - procedure SetCODVENDEDORValue(const aValue: String); virtual; - function GetVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCANTIDADValue: String; virtual; - procedure SetCANTIDADValue(const aValue: String); virtual; - function GetVALTOTValue: Float; virtual; - procedure SetVALTOTValue(const aValue: Float); virtual; - - { Properties } - property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CANTIDAD: String read GetCANTIDADValue write SetCANTIDADValue; - property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { - Datos de una prenda - } - { IGetProducto } - IGetProducto = interface(IDAStronglyTypedDataTable) - ['{66AEFCA5-9C07-41F0-A81B-9A0965270310}'] - { Property getters and setters } - function GetCODIGO_BARRAValue: String; - procedure SetCODIGO_BARRAValue(const aValue: String); - function GetCOR_PRODUTOValue: String; - procedure SetCOR_PRODUTOValue(const aValue: String); - function GetDESC_PRODUTOValue: String; - procedure SetDESC_PRODUTOValue(const aValue: String); - function GetPRODUTOValue: String; - procedure SetPRODUTOValue(const aValue: String); - function GetGRADEValue: String; - procedure SetGRADEValue(const aValue: String); - - - { Properties } - property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; - property COR_PRODUTO: String read GetCOR_PRODUTOValue write SetCOR_PRODUTOValue; - property DESC_PRODUTO: String read GetDESC_PRODUTOValue write SetDESC_PRODUTOValue; - property PRODUTO: String read GetPRODUTOValue write SetPRODUTOValue; - property GRADE: String read GetGRADEValue write SetGRADEValue; - end; - - { TGetProductoDataTableRules } - TGetProductoDataTableRules = class(TDADataTableRules, IGetProducto) - private - protected - { Property getters and setters } - function GetCODIGO_BARRAValue: String; virtual; - procedure SetCODIGO_BARRAValue(const aValue: String); virtual; - function GetCOR_PRODUTOValue: String; virtual; - procedure SetCOR_PRODUTOValue(const aValue: String); virtual; - function GetDESC_PRODUTOValue: String; virtual; - procedure SetDESC_PRODUTOValue(const aValue: String); virtual; - function GetPRODUTOValue: String; virtual; - procedure SetPRODUTOValue(const aValue: String); virtual; - function GetGRADEValue: String; virtual; - procedure SetGRADEValue(const aValue: String); virtual; - - { Properties } - property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; - property COR_PRODUTO: String read GetCOR_PRODUTOValue write SetCOR_PRODUTOValue; - property DESC_PRODUTO: String read GetDESC_PRODUTOValue write SetDESC_PRODUTOValue; - property PRODUTO: String read GetPRODUTOValue write SetPRODUTOValue; - property GRADE: String read GetGRADEValue write SetGRADEValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IReferenciaGenerica } - IReferenciaGenerica = interface(IDAStronglyTypedDataTable) - ['{0D8DB24C-6B9C-4DBA-8B26-D007BD14ED85}'] - { Property getters and setters } - function GetNUMINFValue: String; - procedure SetNUMINFValue(const aValue: String); - function GetCLAVE1Value: Float; - procedure SetCLAVE1Value(const aValue: Float); - function GetCLAVE2Value: Integer; - procedure SetCLAVE2Value(const aValue: Integer); - function GetCLAVE3Value: Integer; - procedure SetCLAVE3Value(const aValue: Integer); - function GetNUMCONValue: Integer; - procedure SetNUMCONValue(const aValue: Integer); - function GetFECHAValue: DateTime; - procedure SetFECHAValue(const aValue: DateTime); - function GetCODCENTROValue: String; - procedure SetCODCENTROValue(const aValue: String); - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetCODVENDEDORValue: String; - procedure SetCODVENDEDORValue(const aValue: String); - function GetVENDEDORValue: String; - procedure SetVENDEDORValue(const aValue: String); - function GetNUMTALONValue: String; - procedure SetNUMTALONValue(const aValue: String); - function GetCODIGO_BARRAValue: String; - procedure SetCODIGO_BARRAValue(const aValue: String); - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetTALLAValue: String; - procedure SetTALLAValue(const aValue: String); - function GetVTAPROCESOValue: Float; - procedure SetVTAPROCESOValue(const aValue: Float); - function GetVTAFINALValue: Float; - procedure SetVTAFINALValue(const aValue: Float); - function GetVTATERMValue: Float; - procedure SetVTATERMValue(const aValue: Float); - function GetVALTOTValue: Float; - procedure SetVALTOTValue(const aValue: Float); - function GetESTADOValue: String; - procedure SetESTADOValue(const aValue: String); - function GetFECHACAMBIOValue: DateTime; - procedure SetFECHACAMBIOValue(const aValue: DateTime); - - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property VTAPROCESO: Float read GetVTAPROCESOValue write SetVTAPROCESOValue; - property VTAFINAL: Float read GetVTAFINALValue write SetVTAFINALValue; - property VTATERM: Float read GetVTATERMValue write SetVTATERMValue; - property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; - property ESTADO: String read GetESTADOValue write SetESTADOValue; - property FECHACAMBIO: DateTime read GetFECHACAMBIOValue write SetFECHACAMBIOValue; - end; - - { TReferenciaGenericaDataTableRules } - TReferenciaGenericaDataTableRules = class(TDADataTableRules, IReferenciaGenerica) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetNUMCONValue: Integer; virtual; - procedure SetNUMCONValue(const aValue: Integer); virtual; - function GetFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetCODCENTROValue: String; virtual; - procedure SetCODCENTROValue(const aValue: String); virtual; - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODVENDEDORValue: String; virtual; - procedure SetCODVENDEDORValue(const aValue: String); virtual; - function GetVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCODIGO_BARRAValue: String; virtual; - procedure SetCODIGO_BARRAValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetVTAPROCESOValue: Float; virtual; - procedure SetVTAPROCESOValue(const aValue: Float); virtual; - function GetVTAFINALValue: Float; virtual; - procedure SetVTAFINALValue(const aValue: Float); virtual; - function GetVTATERMValue: Float; virtual; - procedure SetVTATERMValue(const aValue: Float); virtual; - function GetVALTOTValue: Float; virtual; - procedure SetVALTOTValue(const aValue: Float); virtual; - function GetESTADOValue: String; virtual; - procedure SetESTADOValue(const aValue: String); virtual; - function GetFECHACAMBIOValue: DateTime; virtual; - procedure SetFECHACAMBIOValue(const aValue: DateTime); virtual; - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property VTAPROCESO: Float read GetVTAPROCESOValue write SetVTAPROCESOValue; - property VTAFINAL: Float read GetVTAFINALValue write SetVTAFINALValue; - property VTATERM: Float read GetVTATERMValue write SetVTATERMValue; - property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; - property ESTADO: String read GetESTADOValue write SetESTADOValue; - property FECHACAMBIO: DateTime read GetFECHACAMBIOValue write SetFECHACAMBIOValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ T_ExisteFilaReferenciaGenericaDataTableRules } -constructor T_ExisteFilaReferenciaGenericaDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor T_ExisteFilaReferenciaGenericaDataTableRules.Destroy; -begin - inherited; -end; - -function T_ExisteFilaReferenciaGenericaDataTableRules.GetNUMINFValue: String; -begin - result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMINF].AsString; -end; - -procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetNUMINFValue(const aValue: String); -begin - DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMINF].AsString := aValue; -end; - -function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE1Value: Float; -begin - result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE1].AsFloat; -end; - -procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetCLAVE1Value(const aValue: Float); -begin - DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE1].AsFloat := aValue; -end; - -function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE2Value: Integer; -begin - result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE2].AsInteger; -end; - -procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetCLAVE2Value(const aValue: Integer); -begin - DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE2].AsInteger := aValue; -end; - -function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE3Value: Integer; -begin - result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE3].AsInteger; -end; - -procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetCLAVE3Value(const aValue: Integer); -begin - DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE3].AsInteger := aValue; -end; - -function T_ExisteFilaReferenciaGenericaDataTableRules.GetNUMCONValue: Integer; -begin - result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMCON].AsInteger; -end; - -procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetNUMCONValue(const aValue: Integer); -begin - DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMCON].AsInteger := aValue; -end; - - -{ TInformeRefGenericaDataTableRules } -constructor TInformeRefGenericaDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TInformeRefGenericaDataTableRules.Destroy; -begin - inherited; -end; - -function TInformeRefGenericaDataTableRules.GetCODCENTROValue: String; -begin - result := DataTable.Fields[idx_InformeRefGenericaCODCENTRO].AsString; -end; - -procedure TInformeRefGenericaDataTableRules.SetCODCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_InformeRefGenericaCODCENTRO].AsString := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_InformeRefGenericaCENTRO].AsString; -end; - -procedure TInformeRefGenericaDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_InformeRefGenericaCENTRO].AsString := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetCODVENDEDORValue: String; -begin - result := DataTable.Fields[idx_InformeRefGenericaCODVENDEDOR].AsString; -end; - -procedure TInformeRefGenericaDataTableRules.SetCODVENDEDORValue(const aValue: String); -begin - DataTable.Fields[idx_InformeRefGenericaCODVENDEDOR].AsString := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetVENDEDORValue: String; -begin - result := DataTable.Fields[idx_InformeRefGenericaVENDEDOR].AsString; -end; - -procedure TInformeRefGenericaDataTableRules.SetVENDEDORValue(const aValue: String); -begin - DataTable.Fields[idx_InformeRefGenericaVENDEDOR].AsString := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetFECHAValue: DateTime; -begin - result := DataTable.Fields[idx_InformeRefGenericaFECHA].AsDateTime; -end; - -procedure TInformeRefGenericaDataTableRules.SetFECHAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_InformeRefGenericaFECHA].AsDateTime := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetNUMTALONValue: String; -begin - result := DataTable.Fields[idx_InformeRefGenericaNUMTALON].AsString; -end; - -procedure TInformeRefGenericaDataTableRules.SetNUMTALONValue(const aValue: String); -begin - DataTable.Fields[idx_InformeRefGenericaNUMTALON].AsString := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetCANTIDADValue: String; -begin - result := DataTable.Fields[idx_InformeRefGenericaCANTIDAD].AsString; -end; - -procedure TInformeRefGenericaDataTableRules.SetCANTIDADValue(const aValue: String); -begin - DataTable.Fields[idx_InformeRefGenericaCANTIDAD].AsString := aValue; -end; - -function TInformeRefGenericaDataTableRules.GetVALTOTValue: Float; -begin - result := DataTable.Fields[idx_InformeRefGenericaVALTOT].AsFloat; -end; - -procedure TInformeRefGenericaDataTableRules.SetVALTOTValue(const aValue: Float); -begin - DataTable.Fields[idx_InformeRefGenericaVALTOT].AsFloat := aValue; -end; - - -{ TGetProductoDataTableRules } -constructor TGetProductoDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TGetProductoDataTableRules.Destroy; -begin - inherited; -end; - -function TGetProductoDataTableRules.GetCODIGO_BARRAValue: String; -begin - result := DataTable.Fields[idx_GetProductoCODIGO_BARRA].AsString; -end; - -procedure TGetProductoDataTableRules.SetCODIGO_BARRAValue(const aValue: String); -begin - DataTable.Fields[idx_GetProductoCODIGO_BARRA].AsString := aValue; -end; - -function TGetProductoDataTableRules.GetCOR_PRODUTOValue: String; -begin - result := DataTable.Fields[idx_GetProductoCOR_PRODUTO].AsString; -end; - -procedure TGetProductoDataTableRules.SetCOR_PRODUTOValue(const aValue: String); -begin - DataTable.Fields[idx_GetProductoCOR_PRODUTO].AsString := aValue; -end; - -function TGetProductoDataTableRules.GetDESC_PRODUTOValue: String; -begin - result := DataTable.Fields[idx_GetProductoDESC_PRODUTO].AsString; -end; - -procedure TGetProductoDataTableRules.SetDESC_PRODUTOValue(const aValue: String); -begin - DataTable.Fields[idx_GetProductoDESC_PRODUTO].AsString := aValue; -end; - -function TGetProductoDataTableRules.GetPRODUTOValue: String; -begin - result := DataTable.Fields[idx_GetProductoPRODUTO].AsString; -end; - -procedure TGetProductoDataTableRules.SetPRODUTOValue(const aValue: String); -begin - DataTable.Fields[idx_GetProductoPRODUTO].AsString := aValue; -end; - -function TGetProductoDataTableRules.GetGRADEValue: String; -begin - result := DataTable.Fields[idx_GetProductoGRADE].AsString; -end; - -procedure TGetProductoDataTableRules.SetGRADEValue(const aValue: String); -begin - DataTable.Fields[idx_GetProductoGRADE].AsString := aValue; -end; - - -{ TReferenciaGenericaDataTableRules } -constructor TReferenciaGenericaDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TReferenciaGenericaDataTableRules.Destroy; -begin - inherited; -end; - -function TReferenciaGenericaDataTableRules.GetNUMINFValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaNUMINF].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetNUMINFValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaNUMINF].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCLAVE1Value: Float; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCLAVE1].AsFloat; -end; - -procedure TReferenciaGenericaDataTableRules.SetCLAVE1Value(const aValue: Float); -begin - DataTable.Fields[idx_ReferenciaGenericaCLAVE1].AsFloat := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCLAVE2Value: Integer; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCLAVE2].AsInteger; -end; - -procedure TReferenciaGenericaDataTableRules.SetCLAVE2Value(const aValue: Integer); -begin - DataTable.Fields[idx_ReferenciaGenericaCLAVE2].AsInteger := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCLAVE3Value: Integer; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCLAVE3].AsInteger; -end; - -procedure TReferenciaGenericaDataTableRules.SetCLAVE3Value(const aValue: Integer); -begin - DataTable.Fields[idx_ReferenciaGenericaCLAVE3].AsInteger := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetNUMCONValue: Integer; -begin - result := DataTable.Fields[idx_ReferenciaGenericaNUMCON].AsInteger; -end; - -procedure TReferenciaGenericaDataTableRules.SetNUMCONValue(const aValue: Integer); -begin - DataTable.Fields[idx_ReferenciaGenericaNUMCON].AsInteger := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetFECHAValue: DateTime; -begin - result := DataTable.Fields[idx_ReferenciaGenericaFECHA].AsDateTime; -end; - -procedure TReferenciaGenericaDataTableRules.SetFECHAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_ReferenciaGenericaFECHA].AsDateTime := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCODCENTROValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCODCENTRO].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetCODCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaCODCENTRO].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCENTRO].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaCENTRO].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCODVENDEDORValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCODVENDEDOR].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetCODVENDEDORValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaCODVENDEDOR].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetVENDEDORValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaVENDEDOR].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetVENDEDORValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaVENDEDOR].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetNUMTALONValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaNUMTALON].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetNUMTALONValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaNUMTALON].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCODIGO_BARRAValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCODIGO_BARRA].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetCODIGO_BARRAValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaCODIGO_BARRA].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCODIGO].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaCODIGO].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaPRODUCTO].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaPRODUCTO].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaCOLOR].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaCOLOR].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetTALLAValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaTALLA].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetTALLAValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaTALLA].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetVTAPROCESOValue: Float; -begin - result := DataTable.Fields[idx_ReferenciaGenericaVTAPROCESO].AsFloat; -end; - -procedure TReferenciaGenericaDataTableRules.SetVTAPROCESOValue(const aValue: Float); -begin - DataTable.Fields[idx_ReferenciaGenericaVTAPROCESO].AsFloat := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetVTAFINALValue: Float; -begin - result := DataTable.Fields[idx_ReferenciaGenericaVTAFINAL].AsFloat; -end; - -procedure TReferenciaGenericaDataTableRules.SetVTAFINALValue(const aValue: Float); -begin - DataTable.Fields[idx_ReferenciaGenericaVTAFINAL].AsFloat := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetVTATERMValue: Float; -begin - result := DataTable.Fields[idx_ReferenciaGenericaVTATERM].AsFloat; -end; - -procedure TReferenciaGenericaDataTableRules.SetVTATERMValue(const aValue: Float); -begin - DataTable.Fields[idx_ReferenciaGenericaVTATERM].AsFloat := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetVALTOTValue: Float; -begin - result := DataTable.Fields[idx_ReferenciaGenericaVALTOT].AsFloat; -end; - -procedure TReferenciaGenericaDataTableRules.SetVALTOTValue(const aValue: Float); -begin - DataTable.Fields[idx_ReferenciaGenericaVALTOT].AsFloat := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetESTADOValue: String; -begin - result := DataTable.Fields[idx_ReferenciaGenericaESTADO].AsString; -end; - -procedure TReferenciaGenericaDataTableRules.SetESTADOValue(const aValue: String); -begin - DataTable.Fields[idx_ReferenciaGenericaESTADO].AsString := aValue; -end; - -function TReferenciaGenericaDataTableRules.GetFECHACAMBIOValue: DateTime; -begin - result := DataTable.Fields[idx_ReferenciaGenericaFECHACAMBIO].AsDateTime; -end; - -procedure TReferenciaGenericaDataTableRules.SetFECHACAMBIOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_ReferenciaGenericaFECHACAMBIO].AsDateTime := aValue; -end; - - -initialization - RegisterDataTableRules(RID__ExisteFilaReferenciaGenerica, T_ExisteFilaReferenciaGenericaDataTableRules); - RegisterDataTableRules(RID_InformeRefGenerica, TInformeRefGenericaDataTableRules); - RegisterDataTableRules(RID_GetProducto, TGetProductoDataTableRules); - RegisterDataTableRules(RID_ReferenciaGenerica, TReferenciaGenericaDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas deleted file mode 100644 index 725953b..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas +++ /dev/null @@ -1,1045 +0,0 @@ -unit schReferenciaGenericaServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schReferenciaGenericaClient_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__ExisteFilaReferenciaGenericaDelta = '{4C9816CA-AD0C-473A-B192-0F3331601D04}'; - RID_InformeRefGenericaDelta = '{2C606C5E-D12E-443D-B4E6-C0B16320F16B}'; - RID_GetProductoDelta = '{A606AA38-2F35-4FC5-BB96-3C6FD80EBFB6}'; - RID_ReferenciaGenericaDelta = '{C8170A4A-6B29-465D-99F4-773795682573}'; - -type - { I_ExisteFilaReferenciaGenericaDelta } - I_ExisteFilaReferenciaGenericaDelta = interface(I_ExisteFilaReferenciaGenerica) - ['{4C9816CA-AD0C-473A-B192-0F3331601D04}'] - { Property getters and setters } - function GetOldNUMINFValue : String; - function GetOldCLAVE1Value : Float; - function GetOldCLAVE2Value : Integer; - function GetOldCLAVE3Value : Integer; - function GetOldNUMCONValue : Integer; - - { Properties } - property OldNUMINF : String read GetOldNUMINFValue; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property OldNUMCON : Integer read GetOldNUMCONValue; - end; - - { T_ExisteFilaReferenciaGenericaBusinessProcessorRules } - T_ExisteFilaReferenciaGenericaBusinessProcessorRules = class(TDABusinessProcessorRules, I_ExisteFilaReferenciaGenerica, I_ExisteFilaReferenciaGenericaDelta) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - function GetOldNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetCLAVE1Value: Float; virtual; - function GetOldCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - function GetOldCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE3Value: Integer; virtual; - function GetOldCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetNUMCONValue: Integer; virtual; - function GetOldNUMCONValue: Integer; virtual; - procedure SetNUMCONValue(const aValue: Integer); virtual; - - { Properties } - property NUMINF : String read GetNUMINFValue write SetNUMINFValue; - property OldNUMINF : String read GetOldNUMINFValue; - property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property CLAVE3 : Integer read GetCLAVE3Value write SetCLAVE3Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property NUMCON : Integer read GetNUMCONValue write SetNUMCONValue; - property OldNUMCON : Integer read GetOldNUMCONValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IInformeRefGenericaDelta } - IInformeRefGenericaDelta = interface(IInformeRefGenerica) - ['{2C606C5E-D12E-443D-B4E6-C0B16320F16B}'] - { Property getters and setters } - function GetOldCODCENTROValue : String; - function GetOldCENTROValue : String; - function GetOldCODVENDEDORValue : String; - function GetOldVENDEDORValue : String; - function GetOldFECHAValue : DateTime; - function GetOldNUMTALONValue : String; - function GetOldCANTIDADValue : String; - function GetOldVALTOTValue : Float; - - { Properties } - property OldCODCENTRO : String read GetOldCODCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property OldCODVENDEDOR : String read GetOldCODVENDEDORValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property OldCANTIDAD : String read GetOldCANTIDADValue; - property OldVALTOT : Float read GetOldVALTOTValue; - end; - - { TInformeRefGenericaBusinessProcessorRules } - TInformeRefGenericaBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeRefGenerica, IInformeRefGenericaDelta) - private - protected - { Property getters and setters } - function GetCODCENTROValue: String; virtual; - function GetOldCODCENTROValue: String; virtual; - procedure SetCODCENTROValue(const aValue: String); virtual; - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODVENDEDORValue: String; virtual; - function GetOldCODVENDEDORValue: String; virtual; - procedure SetCODVENDEDORValue(const aValue: String); virtual; - function GetVENDEDORValue: String; virtual; - function GetOldVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetFECHAValue: DateTime; virtual; - function GetOldFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetNUMTALONValue: String; virtual; - function GetOldNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCANTIDADValue: String; virtual; - function GetOldCANTIDADValue: String; virtual; - procedure SetCANTIDADValue(const aValue: String); virtual; - function GetVALTOTValue: Float; virtual; - function GetOldVALTOTValue: Float; virtual; - procedure SetVALTOTValue(const aValue: Float); virtual; - - { Properties } - property CODCENTRO : String read GetCODCENTROValue write SetCODCENTROValue; - property OldCODCENTRO : String read GetOldCODCENTROValue; - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property CODVENDEDOR : String read GetCODVENDEDORValue write SetCODVENDEDORValue; - property OldCODVENDEDOR : String read GetOldCODVENDEDORValue; - property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property FECHA : DateTime read GetFECHAValue write SetFECHAValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property CANTIDAD : String read GetCANTIDADValue write SetCANTIDADValue; - property OldCANTIDAD : String read GetOldCANTIDADValue; - property VALTOT : Float read GetVALTOTValue write SetVALTOTValue; - property OldVALTOT : Float read GetOldVALTOTValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IGetProductoDelta } - IGetProductoDelta = interface(IGetProducto) - ['{A606AA38-2F35-4FC5-BB96-3C6FD80EBFB6}'] - { Property getters and setters } - function GetOldCODIGO_BARRAValue : String; - function GetOldCOR_PRODUTOValue : String; - function GetOldDESC_PRODUTOValue : String; - function GetOldPRODUTOValue : String; - function GetOldGRADEValue : String; - - { Properties } - property OldCODIGO_BARRA : String read GetOldCODIGO_BARRAValue; - property OldCOR_PRODUTO : String read GetOldCOR_PRODUTOValue; - property OldDESC_PRODUTO : String read GetOldDESC_PRODUTOValue; - property OldPRODUTO : String read GetOldPRODUTOValue; - property OldGRADE : String read GetOldGRADEValue; - end; - - { TGetProductoBusinessProcessorRules } - TGetProductoBusinessProcessorRules = class(TDABusinessProcessorRules, IGetProducto, IGetProductoDelta) - private - protected - { Property getters and setters } - function GetCODIGO_BARRAValue: String; virtual; - function GetOldCODIGO_BARRAValue: String; virtual; - procedure SetCODIGO_BARRAValue(const aValue: String); virtual; - function GetCOR_PRODUTOValue: String; virtual; - function GetOldCOR_PRODUTOValue: String; virtual; - procedure SetCOR_PRODUTOValue(const aValue: String); virtual; - function GetDESC_PRODUTOValue: String; virtual; - function GetOldDESC_PRODUTOValue: String; virtual; - procedure SetDESC_PRODUTOValue(const aValue: String); virtual; - function GetPRODUTOValue: String; virtual; - function GetOldPRODUTOValue: String; virtual; - procedure SetPRODUTOValue(const aValue: String); virtual; - function GetGRADEValue: String; virtual; - function GetOldGRADEValue: String; virtual; - procedure SetGRADEValue(const aValue: String); virtual; - - { Properties } - property CODIGO_BARRA : String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; - property OldCODIGO_BARRA : String read GetOldCODIGO_BARRAValue; - property COR_PRODUTO : String read GetCOR_PRODUTOValue write SetCOR_PRODUTOValue; - property OldCOR_PRODUTO : String read GetOldCOR_PRODUTOValue; - property DESC_PRODUTO : String read GetDESC_PRODUTOValue write SetDESC_PRODUTOValue; - property OldDESC_PRODUTO : String read GetOldDESC_PRODUTOValue; - property PRODUTO : String read GetPRODUTOValue write SetPRODUTOValue; - property OldPRODUTO : String read GetOldPRODUTOValue; - property GRADE : String read GetGRADEValue write SetGRADEValue; - property OldGRADE : String read GetOldGRADEValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IReferenciaGenericaDelta } - IReferenciaGenericaDelta = interface(IReferenciaGenerica) - ['{C8170A4A-6B29-465D-99F4-773795682573}'] - { Property getters and setters } - function GetOldNUMINFValue : String; - function GetOldCLAVE1Value : Float; - function GetOldCLAVE2Value : Integer; - function GetOldCLAVE3Value : Integer; - function GetOldNUMCONValue : Integer; - function GetOldFECHAValue : DateTime; - function GetOldCODCENTROValue : String; - function GetOldCENTROValue : String; - function GetOldCODVENDEDORValue : String; - function GetOldVENDEDORValue : String; - function GetOldNUMTALONValue : String; - function GetOldCODIGO_BARRAValue : String; - function GetOldCODIGOValue : String; - function GetOldPRODUCTOValue : String; - function GetOldCOLORValue : String; - function GetOldTALLAValue : String; - function GetOldVTAPROCESOValue : Float; - function GetOldVTAFINALValue : Float; - function GetOldVTATERMValue : Float; - function GetOldVALTOTValue : Float; - function GetOldESTADOValue : String; - function GetOldFECHACAMBIOValue : DateTime; - - { Properties } - property OldNUMINF : String read GetOldNUMINFValue; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property OldNUMCON : Integer read GetOldNUMCONValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldCODCENTRO : String read GetOldCODCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property OldCODVENDEDOR : String read GetOldCODVENDEDORValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property OldCODIGO_BARRA : String read GetOldCODIGO_BARRAValue; - property OldCODIGO : String read GetOldCODIGOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldTALLA : String read GetOldTALLAValue; - property OldVTAPROCESO : Float read GetOldVTAPROCESOValue; - property OldVTAFINAL : Float read GetOldVTAFINALValue; - property OldVTATERM : Float read GetOldVTATERMValue; - property OldVALTOT : Float read GetOldVALTOTValue; - property OldESTADO : String read GetOldESTADOValue; - property OldFECHACAMBIO : DateTime read GetOldFECHACAMBIOValue; - end; - - { TReferenciaGenericaBusinessProcessorRules } - TReferenciaGenericaBusinessProcessorRules = class(TDABusinessProcessorRules, IReferenciaGenerica, IReferenciaGenericaDelta) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - function GetOldNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetCLAVE1Value: Float; virtual; - function GetOldCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - function GetOldCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE3Value: Integer; virtual; - function GetOldCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetNUMCONValue: Integer; virtual; - function GetOldNUMCONValue: Integer; virtual; - procedure SetNUMCONValue(const aValue: Integer); virtual; - function GetFECHAValue: DateTime; virtual; - function GetOldFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetCODCENTROValue: String; virtual; - function GetOldCODCENTROValue: String; virtual; - procedure SetCODCENTROValue(const aValue: String); virtual; - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODVENDEDORValue: String; virtual; - function GetOldCODVENDEDORValue: String; virtual; - procedure SetCODVENDEDORValue(const aValue: String); virtual; - function GetVENDEDORValue: String; virtual; - function GetOldVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetNUMTALONValue: String; virtual; - function GetOldNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCODIGO_BARRAValue: String; virtual; - function GetOldCODIGO_BARRAValue: String; virtual; - procedure SetCODIGO_BARRAValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - function GetOldCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - function GetOldPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetTALLAValue: String; virtual; - function GetOldTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetVTAPROCESOValue: Float; virtual; - function GetOldVTAPROCESOValue: Float; virtual; - procedure SetVTAPROCESOValue(const aValue: Float); virtual; - function GetVTAFINALValue: Float; virtual; - function GetOldVTAFINALValue: Float; virtual; - procedure SetVTAFINALValue(const aValue: Float); virtual; - function GetVTATERMValue: Float; virtual; - function GetOldVTATERMValue: Float; virtual; - procedure SetVTATERMValue(const aValue: Float); virtual; - function GetVALTOTValue: Float; virtual; - function GetOldVALTOTValue: Float; virtual; - procedure SetVALTOTValue(const aValue: Float); virtual; - function GetESTADOValue: String; virtual; - function GetOldESTADOValue: String; virtual; - procedure SetESTADOValue(const aValue: String); virtual; - function GetFECHACAMBIOValue: DateTime; virtual; - function GetOldFECHACAMBIOValue: DateTime; virtual; - procedure SetFECHACAMBIOValue(const aValue: DateTime); virtual; - - { Properties } - property NUMINF : String read GetNUMINFValue write SetNUMINFValue; - property OldNUMINF : String read GetOldNUMINFValue; - property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property CLAVE3 : Integer read GetCLAVE3Value write SetCLAVE3Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property NUMCON : Integer read GetNUMCONValue write SetNUMCONValue; - property OldNUMCON : Integer read GetOldNUMCONValue; - property FECHA : DateTime read GetFECHAValue write SetFECHAValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property CODCENTRO : String read GetCODCENTROValue write SetCODCENTROValue; - property OldCODCENTRO : String read GetOldCODCENTROValue; - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property CODVENDEDOR : String read GetCODVENDEDORValue write SetCODVENDEDORValue; - property OldCODVENDEDOR : String read GetOldCODVENDEDORValue; - property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property CODIGO_BARRA : String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; - property OldCODIGO_BARRA : String read GetOldCODIGO_BARRAValue; - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property OldCODIGO : String read GetOldCODIGOValue; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property TALLA : String read GetTALLAValue write SetTALLAValue; - property OldTALLA : String read GetOldTALLAValue; - property VTAPROCESO : Float read GetVTAPROCESOValue write SetVTAPROCESOValue; - property OldVTAPROCESO : Float read GetOldVTAPROCESOValue; - property VTAFINAL : Float read GetVTAFINALValue write SetVTAFINALValue; - property OldVTAFINAL : Float read GetOldVTAFINALValue; - property VTATERM : Float read GetVTATERMValue write SetVTATERMValue; - property OldVTATERM : Float read GetOldVTATERMValue; - property VALTOT : Float read GetVALTOTValue write SetVALTOTValue; - property OldVALTOT : Float read GetOldVALTOTValue; - property ESTADO : String read GetESTADOValue write SetESTADOValue; - property OldESTADO : String read GetOldESTADOValue; - property FECHACAMBIO : DateTime read GetFECHACAMBIOValue write SetFECHACAMBIOValue; - property OldFECHACAMBIO : DateTime read GetOldFECHACAMBIOValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ T_ExisteFilaReferenciaGenericaBusinessProcessorRules } -constructor T_ExisteFilaReferenciaGenericaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor T_ExisteFilaReferenciaGenericaBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMINF]; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaNUMINF]; -end; - -procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetNUMINFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMINF] := aValue; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1]; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1]; -end; - -procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1] := aValue; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2]; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2]; -end; - -procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2] := aValue; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3]; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3]; -end; - -procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE3Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3] := aValue; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetNUMCONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMCON]; -end; - -function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldNUMCONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaNUMCON]; -end; - -procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetNUMCONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMCON] := aValue; -end; - - -{ TInformeRefGenericaBusinessProcessorRules } -constructor TInformeRefGenericaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TInformeRefGenericaBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetCODCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODCENTRO]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldCODCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCODCENTRO]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetCODCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODCENTRO] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCENTRO]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCENTRO]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCENTRO] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetCODVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODVENDEDOR]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldCODVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCODVENDEDOR]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetCODVENDEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODVENDEDOR] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVENDEDOR]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaVENDEDOR]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetVENDEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVENDEDOR] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaFECHA]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaFECHA]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaFECHA] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaNUMTALON]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaNUMTALON]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetNUMTALONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaNUMTALON] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetCANTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCANTIDAD]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldCANTIDADValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCANTIDAD]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetCANTIDADValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCANTIDAD] := aValue; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetVALTOTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVALTOT]; -end; - -function TInformeRefGenericaBusinessProcessorRules.GetOldVALTOTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaVALTOT]; -end; - -procedure TInformeRefGenericaBusinessProcessorRules.SetVALTOTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVALTOT] := aValue; -end; - - -{ TGetProductoBusinessProcessorRules } -constructor TGetProductoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TGetProductoBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TGetProductoBusinessProcessorRules.GetCODIGO_BARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCODIGO_BARRA]; -end; - -function TGetProductoBusinessProcessorRules.GetOldCODIGO_BARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoCODIGO_BARRA]; -end; - -procedure TGetProductoBusinessProcessorRules.SetCODIGO_BARRAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCODIGO_BARRA] := aValue; -end; - -function TGetProductoBusinessProcessorRules.GetCOR_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCOR_PRODUTO]; -end; - -function TGetProductoBusinessProcessorRules.GetOldCOR_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoCOR_PRODUTO]; -end; - -procedure TGetProductoBusinessProcessorRules.SetCOR_PRODUTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCOR_PRODUTO] := aValue; -end; - -function TGetProductoBusinessProcessorRules.GetDESC_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoDESC_PRODUTO]; -end; - -function TGetProductoBusinessProcessorRules.GetOldDESC_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoDESC_PRODUTO]; -end; - -procedure TGetProductoBusinessProcessorRules.SetDESC_PRODUTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoDESC_PRODUTO] := aValue; -end; - -function TGetProductoBusinessProcessorRules.GetPRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoPRODUTO]; -end; - -function TGetProductoBusinessProcessorRules.GetOldPRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoPRODUTO]; -end; - -procedure TGetProductoBusinessProcessorRules.SetPRODUTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoPRODUTO] := aValue; -end; - -function TGetProductoBusinessProcessorRules.GetGRADEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoGRADE]; -end; - -function TGetProductoBusinessProcessorRules.GetOldGRADEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoGRADE]; -end; - -procedure TGetProductoBusinessProcessorRules.SetGRADEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoGRADE] := aValue; -end; - - -{ TReferenciaGenericaBusinessProcessorRules } -constructor TReferenciaGenericaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TReferenciaGenericaBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMINF]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMINF]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetNUMINFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMINF] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE1]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE1]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE1] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE2]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE2]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE2] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE3]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE3]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE3Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE3] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetNUMCONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMCON]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldNUMCONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMCON]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetNUMCONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMCON] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHA]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaFECHA]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHA] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCODCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODCENTRO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCODCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODCENTRO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCODCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODCENTRO] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCENTRO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCENTRO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCENTRO] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCODVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODVENDEDOR]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCODVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODVENDEDOR]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCODVENDEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODVENDEDOR] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVENDEDOR]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVENDEDOR]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetVENDEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVENDEDOR] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMTALON]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMTALON]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetNUMTALONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMTALON] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCODIGO_BARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO_BARRA]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCODIGO_BARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODIGO_BARRA]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCODIGO_BARRAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO_BARRA] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODIGO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaPRODUCTO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaPRODUCTO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaPRODUCTO] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCOLOR]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCOLOR]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCOLOR] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaTALLA]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaTALLA]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetTALLAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaTALLA] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetVTAPROCESOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAPROCESO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldVTAPROCESOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTAPROCESO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetVTAPROCESOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAPROCESO] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetVTAFINALValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAFINAL]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldVTAFINALValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTAFINAL]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetVTAFINALValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAFINAL] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetVTATERMValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTATERM]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldVTATERMValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTATERM]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetVTATERMValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTATERM] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetVALTOTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVALTOT]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldVALTOTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVALTOT]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetVALTOTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVALTOT] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetESTADOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaESTADO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldESTADOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaESTADO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetESTADOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaESTADO] := aValue; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetFECHACAMBIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHACAMBIO]; -end; - -function TReferenciaGenericaBusinessProcessorRules.GetOldFECHACAMBIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaFECHACAMBIO]; -end; - -procedure TReferenciaGenericaBusinessProcessorRules.SetFECHACAMBIOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHACAMBIO] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID__ExisteFilaReferenciaGenericaDelta, T_ExisteFilaReferenciaGenericaBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_InformeRefGenericaDelta, TInformeRefGenericaBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_GetProductoDelta, TGetProductoBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_ReferenciaGenericaDelta, TReferenciaGenericaBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/uBizReferenciaGenerica.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/uBizReferenciaGenerica.pas deleted file mode 100644 index 811e49d..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/uBizReferenciaGenerica.pas +++ /dev/null @@ -1,317 +0,0 @@ -unit uBizReferenciaGenerica; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDBSelectionList, - schReferenciaGenericaClient_Intf; - -const - BIZ_REFERENCIAGENERICA = 'Client.ReferenciaGenerica'; - -type - TRefGenEstado = (rgPendiente, rgEnEspera, rgResuelto); - - IBizReferenciaGenerica = interface(IReferenciaGenerica) - ['{31C0DE0B-9B92-43A6-810D-7E94F5FF12FE}'] - procedure VerTodos; - procedure VerPendientes; - procedure VerEnEspera; - procedure VerResueltos; - procedure DesglosarReferencia; - procedure Show; - procedure Print (const Centro, Vendedor : string; const Estado : TRefGenEstado; const AFiltro : String = ''); - procedure Preview (const Centro, Vendedor : string; const Estado : TRefGenEstado; const AFiltro : String = ''); - procedure SetEstado(const AValue : TRefGenEstado); - function GetEstado : TRefGenEstado ; - property Estado : TRefGenEstado read GetEstado write SetEstado; - end; - - TBizReferenciaGenericaDataTableRules = class(TReferenciaGenericaDataTableRules, - IBizReferenciaGenerica, ISelectedRowList) - private - FSelectedRows : TSelectedRowList; - protected - procedure SetEstado(const AValue : TRefGenEstado); - function GetEstado : TRefGenEstado ; - function GetSelectedRows : TSelectedRowList; - procedure OnNewRecord(Sender: TDADataTable); override; - public - procedure VerTodos; - procedure VerPendientes; - procedure VerEnEspera; - procedure VerResueltos; - procedure DesglosarReferencia; - procedure Show; - procedure Print (const Centro, Vendedor : string; const Estado : TRefGenEstado; const AFiltro : String = ''); - procedure Preview (const Centro, Vendedor : string; const Estado : TRefGenEstado; const AFiltro : String = ''); - property Estado : TRefGenEstado read GetEstado write SetEstado; - property SelectedRows : TSelectedRowList read GetSelectedRows; - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - end; - -implementation - -uses - uEditorUtils, uDataModuleReferenciaGenerica, uDataTableUtils, uDACDSDataTable; - - -{ TBizReferenciaGenericaDataTableRules } - -constructor TBizReferenciaGenericaDataTableRules.Create( - aDataTable: TDADataTable); -begin - inherited; - FSelectedRows := TSelectedRowList.Create(aDataTable); -end; - -procedure TBizReferenciaGenericaDataTableRules.DesglosarReferencia; -var - ADataTable : TDACDSDataTable; - AEstado : TRefGenEstado; - i : integer; -begin - - if (Abs(VTAPROCESO) < 2) and - (Abs(VTAFINAL) < 2) and - (Abs(VTATERM) < 2) then - Exit; // No se puede desglosar si la cantidad es menor que 2. - - AEstado := Estado; - DataTable.Edit; - try - if (VTAPROCESO <> 0) then - begin - if (VTAPROCESO > 0) then - VTAPROCESO := VTAPROCESO - 1 - else - VTAPROCESO := VTAPROCESO + 1 - end - else begin - if (VTAFINAL <> 0) then - begin - if (VTAFINAL > 0) then - VTAFINAL := VTAFINAL - 1 - else - VTAFINAL := VTAFINAL + 1 - end - else begin - if (VTATERM <> 0) then - begin - if (VTATERM > 0) then - VTATERM := VTATERM - 1 - else - VTATERM := VTATERM + 1 - end - end; - end; - finally - DataTable.Post; - end; - - SelectedRows.Clear; - SelectedRows.CurrentRowSelected := True; - ADataTable := TDACDSDataTable.Create(nil); - try - ADataTable.RemoteFetchEnabled := False; - ADataTable.LogChanges := False; - CopyDataTable(DataTable, ADataTable, True); - - // Duplicar el registro - DataTable.Next; - if not DataTable.EOF then - DataTable.Insert - else - DataTable.Append; - for i := 0 to DataTable.FieldCount - 1 do - DataTable.Fields[i].Value := ADataTable.Fields[i].Value; - DataTable.Post; - - finally - ADataTable.Free; - end; - - DataTable.Edit; - Estado := AEstado; - FECHACAMBIO := Now; - - { Todavía no sé el valor que va a tener asi que le asigno uno cualquiera para - que en el cliente pueda diferenciar la fila nueva } - NUMCON := 99; - - - try - if (VTAPROCESO <> 0) then - begin - if (VTAPROCESO > 0) then - VTAPROCESO := 1 - else - VTAPROCESO := -1 - end - else begin - if (VTAFINAL <> 0) then - begin - if (VTAFINAL > 0) then - VTAFINAL := 1 - else - VTAFINAL := -1 - end - else begin - if (VTATERM <> 0) then - begin - if (VTATERM > 0) then - VTATERM := 1 - else - VTATERM := -1 - end - end; - end; - finally - DataTable.Post; - end; -end; - -destructor TBizReferenciaGenericaDataTableRules.Destroy; -begin - FreeAndNil(FSelectedRows); - inherited; -end; - -function TBizReferenciaGenericaDataTableRules.GetEstado: TRefGenEstado; -var - aux : String; -begin - aux := GetESTADOValue; - Result := rgPendiente; - if aux = 'E' then - Result := rgEnEspera - else - if aux = 'R' then - Result := rgResuelto; -end; - -function TBizReferenciaGenericaDataTableRules.GetSelectedRows: TSelectedRowList; -begin - Result := FSelectedRows; -end; - -procedure TBizReferenciaGenericaDataTableRules.OnNewRecord( - Sender: TDADataTable); -begin - inherited; - ESTADO := rgPendiente; - FECHACAMBIO := Now; -end; - -procedure TBizReferenciaGenericaDataTableRules.Preview(const Centro, - Vendedor: string; const Estado : TRefGenEstado; const AFiltro : String); -var - AEstado : String; -begin - case Estado of - rgPendiente : AEstado := 'P'; - rgEnEspera : AEstado := 'E'; - rgResuelto : AEstado := 'R'; - else - AEstado := ''; - end; - - dmReferenciaGenerica.Preview(Centro, Vendedor, AEstado, AFiltro); -end; - -procedure TBizReferenciaGenericaDataTableRules.Print(const Centro, - Vendedor: string; const Estado : TRefGenEstado; const AFiltro : String); -var - AEstado : String; -begin - case Estado of - rgPendiente : AEstado := 'P'; - rgEnEspera : AEstado := 'E'; - rgResuelto : AEstado := 'R'; - else - AEstado := ''; - end; - - dmReferenciaGenerica.Print(Centro, Vendedor, AEstado, AFiltro); -end; - -procedure TBizReferenciaGenericaDataTableRules.SetEstado( - const AValue: TRefGenEstado); -begin - case AValue of - rgPendiente : SetESTADOValue('P'); - rgEnEspera : SetESTADOValue('E'); - rgResuelto : SetESTADOValue('R'); - else - SetESTADOValue('P'); - end; -end; - -procedure TBizReferenciaGenericaDataTableRules.Show; -begin - ShowEditor(IBizReferenciaGenerica, Self, etItem); -end; - -procedure TBizReferenciaGenericaDataTableRules.VerEnEspera; -begin - with Self.DataTable do - begin - DisableControls; - DisableEventHandlers; - try - Filtered := False; - Filter := '(' + fld_ReferenciaGenericaESTADO + ' = ''E'')'; - Filtered := True; - finally - EnableEventHandlers; - EnableControls; - end; - end; -end; - -procedure TBizReferenciaGenericaDataTableRules.VerPendientes; -begin - with Self.DataTable do - begin - DisableControls; - DisableEventHandlers; - try - Filtered := False; - Filter := '(' + fld_ReferenciaGenericaESTADO + ' = ''P'') OR ' - + '(' + fld_ReferenciaGenericaESTADO + ' IS NULL)'; - Filtered := True; - finally - EnableEventHandlers; - EnableControls; - end; - end; -end; - -procedure TBizReferenciaGenericaDataTableRules.VerResueltos; -begin - with Self.DataTable do - begin - DisableControls; - DisableEventHandlers; - try - Filtered := False; - Filter := '(' + fld_ReferenciaGenericaESTADO + ' = ''R'')'; - Filtered := True; - finally - EnableEventHandlers; - EnableControls; - end; - end; -end; - -procedure TBizReferenciaGenericaDataTableRules.VerTodos; -begin - Self.DataTable.Filtered := False; -end; - -initialization - RegisterDataTableRules(BIZ_REFERENCIAGENERICA, TBizReferenciaGenericaDataTableRules); - -end. - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/uBizReferenciaGenericaServer.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/uBizReferenciaGenericaServer.pas deleted file mode 100644 index 0604d66..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Reglas/uBizReferenciaGenericaServer.pas +++ /dev/null @@ -1,145 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uBizReferenciaGenericaServer; - -interface - -uses - Classes, SysUtils, - uDADataTable, - uDAInterfaces, schReferenciaGenericaServer_Intf, - uDABusinessProcessor, uDADelta; - -const - BIZ_SERVER_REFERENCIA_GENERICA = 'Server.ReferenciaGenerica'; - -type - { TBizReferenciaGenericaServerRules } - TBizReferenciaGenericaServerRules = class(TReferenciaGenericaBusinessProcessorRules) - private - function GetConnection: IDAConnection; - function GetSchema: IDASchema; - function GetDataSet(const AName : String) : IDADataset; - function GetCommand(const AName : String) : IDASQLCommand; - protected - function ExisteFila: Boolean; - function InsertarFila: Boolean; - procedure BeforeProcessChange(Sender: TDABusinessProcessor; - aChangeType: TDAChangeType; aChange: TDADeltaChange; - var ProcessChange: Boolean); override; - end; - -implementation - -uses - Dialogs, Variants, uDAClasses; - - -{ TBizReferenciaGenericaServerRules } - -procedure TBizReferenciaGenericaServerRules.BeforeProcessChange( - Sender: TDABusinessProcessor; aChangeType: TDAChangeType; - aChange: TDADeltaChange; var ProcessChange: Boolean); -begin - inherited; - if aChangeType = ctUpdate then - begin - if not ExisteFila then - InsertarFila; - end; -end; - -function TBizReferenciaGenericaServerRules.ExisteFila: Boolean; -var - Connection : IDAConnection; - ADataSet: IDADataSet; -begin - Result := True; - Connection := GetConnection; - ADataSet := GetDataSet('_ExisteFilaReferenciaGenerica'); - with ADataSet do - begin - ParamByName('NUMINF').AsString := NUMINF; - ParamByName('CLAVE1').AsFloat := CLAVE1; - ParamByName('CLAVE2').AsInteger := CLAVE2; - ParamByName('CLAVE3').AsInteger := CLAVE3; - ParamByName('NUMCON').AsInteger := NUMCON; - end; - Connection.BeginTransaction; - try - ADataSet.Open; - Result := not ADataSet.IsEmpty; - ADataSet.Close; - finally - Connection.RollbackTransaction; - ADataSet := nil; - Connection := nil; - end; -end; - -function TBizReferenciaGenericaServerRules.GetCommand( - const AName: String): IDASQLCommand; -begin - Result := GetSchema.NewCommand(GetConnection, AName); -end; - -function TBizReferenciaGenericaServerRules.GetConnection: IDAConnection; -begin - Result := BusinessProcessor.Schema.ConnectionManager.NewConnection(BusinessProcessor.Schema.ConnectionManager.GetDefaultConnectionName); -end; - -function TBizReferenciaGenericaServerRules.GetDataSet( - const AName: String): IDADataset; -begin - Result := GetSchema.NewDataset(GetConnection, AName); -end; - -function TBizReferenciaGenericaServerRules.GetSchema: IDASchema; -begin - Result := BusinessProcessor.Schema; -end; - -function TBizReferenciaGenericaServerRules.InsertarFila: Boolean; -var - Connection : IDAConnection; - ACommand: IDASQLCommand; -begin - Result := False; - Connection := GetConnection; - ACommand := GetCommand(BusinessProcessor.InsertCommandName); - with ACommand do - begin - ParamByName('NUMINF').AsString := NUMINF; - ParamByName('CLAVE1').AsFloat := CLAVE1; - ParamByName('CLAVE2').AsInteger := CLAVE2; - ParamByName('CLAVE3').AsInteger := CLAVE3; - ParamByName('FECHACAMBIO').AsDateTime := Now; - ParamByName('ESTADO').AsString := 'P'; // Pendiente por defecto - ParamByName('VTATERM').AsVariant := Null; - ParamByName('VTAPROCESO').AsVariant := Null; - ParamByName('VTAFINAL').AsVariant := Null; - ParamByName('VALTOT').AsVariant := Null; - ParamByName('CODIGO_BARRA').AsVariant := Null; - end; - - Connection.BeginTransaction; - try - ACommand.Execute; - Connection.CommitTransaction; - Result := True; - except - Connection.RollbackTransaction; - end; -end; - -initialization - RegisterBusinessProcessorRules(BIZ_SERVER_REFERENCIA_GENERICA, TBizReferenciaGenericaServerRules); - -end. - diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.ddp b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm deleted file mode 100644 index 6095da5..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm +++ /dev/null @@ -1,1302 +0,0 @@ -object srvReferenciaGenerica: TsrvReferenciaGenerica - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schReferenciaGenerica - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 362 - Width = 469 - object schReferenciaGenerica: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = < - item - Name = 'NUMINF' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE1' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE2' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE3' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMCON' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT NUMINF, CLAVE1, CLAVE2, CLAVE3, NUMCON'#10'FROM RDX_REFERENCI' + - 'A_GENERICA'#10'WHERE NUMINF = :NUMINF AND'#10' CLAVE1 = :CLAVE1 AND' + - #10' CLAVE2 = :CLAVE2 AND'#10' CLAVE3 = :CLAVE3 AND'#10' NUM' + - 'CON = :NUMCON' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMINF' - TableField = 'NUMINF' - end - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'CLAVE2' - TableField = 'CLAVE2' - end - item - DatasetField = 'CLAVE3' - TableField = 'CLAVE3' - end - item - DatasetField = 'NUMCON' - TableField = 'NUMCON' - end> - end> - Name = '_ExisteFilaReferenciaGenerica' - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE2' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE3' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMCON' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT'#10' CODCENTRO,'#10' CENTRO = CASE WHEN (CODCENTRO = ' + - 'CENTRO) THEN'#10' CENTRO'#10' ELS' + - 'E'#10' CODCENTRO + '#39' - '#39' + CENTRO'#10' ' + - ' END,'#10' CODVENDEDOR,'#10' VENDEDOR = CASE WHEN (CODVE' + - 'NDEDOR = VENDEDOR) THEN'#10' VENDEDOR'#10' ' + - ' ELSE'#10' CODVENDEDOR + '#39' - '#39' + VENDE' + - 'DOR'#10' END,'#10' FECHA,'#10' NUMTALON,'#10' ' + - ' CANTIDAD ='#10' CASE WHEN (VTAPROCESO <> 0) THEN'#10' ' + - ' REPLACE(CAST(VTAPROCESO AS VARCHAR), '#39'.000'#39', '#39#39') + '#39' (ve' + - 'nta proceso)'#39#10' ELSE'#10' CASE WHEN (VTAFINAL' + - ' <> 0) THEN'#10' REPLACE(CAST(VTAFINAL AS VARCHAR' + - '), '#39'.000'#39', '#39#39') + '#39' (venta final/resc.)'#39#10' ELSE'#10' ' + - ' CASE WHEN (VTATERM <> 0) THEN'#10' ' + - ' REPLACE(CAST(VTATERM AS VARCHAR), '#39'.000'#39', '#39#39') + '#39' (venta te' + - 'rm./dev.)'#39#10' ELSE'#10' '#39'0'#39#10' ' + - ' END'#10' END'#10' END,'#10' VALTOT' + - #10'FROM RDX_V_REFERENCIA_GENERICA'#10'ORDER BY CENTRO, VENDEDOR, FECHA' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'VENDEDOR' - TableField = 'VENDEDOR' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'NUMTALON' - TableField = 'NUMTALON' - end - item - DatasetField = 'VALTOT' - TableField = 'VALTOT' - end - item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' - end - item - DatasetField = 'CODCENTRO' - TableField = 'CODCENTRO' - end - item - DatasetField = 'CODVENDEDOR' - TableField = 'CODVENDEDOR' - end> - end> - Name = 'InformeRefGenerica' - Fields = < - item - Name = 'CODCENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODVENDEDOR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANTIDAD' - DataType = datString - Size = 8000 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VALTOT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = < - item - Name = 'CODIGO' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TALLA' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT'#10' PRODUTOS_BARRA.CODIGO_BARRA,'#10' PRODUTOS_BARRA.COR_PRODU' + - 'TO,'#10' PRODUTOS.DESC_PRODUTO,'#10' PRODUTOS.PRODUTO,'#10' PRODUTOS_BARR' + - 'A.GRADE'#10'FROM'#10' PRODUTOS'#10' INNER JOIN PRODUTOS_BARRA ON (PRODUTOS' + - '.PRODUTO = PRODUTOS_BARRA.PRODUTO)'#10'WHERE PRODUTOS_BARRA.PRODUTO ' + - '= :CODIGO'#10'AND PRODUTOS_BARRA.GRADE = :TALLA'#10'AND PRODUTOS_BARRA.C' + - 'OR_PRODUTO = :COLOR' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CODIGO_BARRA' - TableField = 'CODIGO_BARRA' - end - item - DatasetField = 'COR_PRODUTO' - TableField = 'COR_PRODUTO' - end - item - DatasetField = 'DESC_PRODUTO' - TableField = 'DESC_PRODUTO' - end - item - DatasetField = 'PRODUTO' - TableField = 'PRODUTO' - end - item - DatasetField = 'GRADE' - TableField = 'GRADE' - end> - end> - Name = 'GetProducto' - Description = 'Datos de una prenda' - Fields = < - item - Name = 'CODIGO_BARRA' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COR_PRODUTO' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESC_PRODUTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUTO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRADE' - DataType = datString - Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_REFERENCIA_GENERICA' - SQL = - 'SELECT '#10' NUMINF, CLAVE1, CLAVE2, CLAVE3, NUMCON, FECHA,'#10' C' + - 'ODCENTRO,'#10' CENTRO = CASE WHEN (CODCENTRO = CENTRO) THEN'#10' ' + - ' CENTRO'#10' ELSE'#10' ' + - ' CODCENTRO + '#39' - '#39' + CENTRO'#10' END,'#10' C' + - 'ODVENDEDOR,'#10' VENDEDOR = CASE WHEN (CODVENDEDOR = VENDEDOR)' + - ' THEN'#10' VENDEDOR'#10' ELSE'#10' ' + - ' CODVENDEDOR + '#39' - '#39' + VENDEDOR'#10' ' + - ' END,'#10' NUMTALON, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TA' + - 'LLA, VTAPROCESO,'#10' VTAFINAL, VTATERM, VALTOT, ESTADO, FECHACAM' + - 'BIO'#10' FROM'#10' RDX_V_REFERENCIA_GENERICA'#10'ORDER BY CENTRO, VENDED' + - 'OR, FECHA' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMINF' - TableField = 'NUMINF' - end - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'CLAVE2' - TableField = 'CLAVE2' - end - item - DatasetField = 'CLAVE3' - TableField = 'CLAVE3' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'CODCENTRO' - TableField = 'CODCENTRO' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'CODVENDEDOR' - TableField = 'CODVENDEDOR' - end - item - DatasetField = 'VENDEDOR' - TableField = 'VENDEDOR' - end - item - DatasetField = 'NUMTALON' - TableField = 'NUMTALON' - end - item - DatasetField = 'CODIGO_BARRA' - TableField = 'CODIGO_BARRA' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'TALLA' - TableField = 'TALLA' - end - item - DatasetField = 'VTAPROCESO' - TableField = 'VTAPROCESO' - end - item - DatasetField = 'VTAFINAL' - TableField = 'VTAFINAL' - end - item - DatasetField = 'VTATERM' - TableField = 'VTATERM' - end - item - DatasetField = 'VALTOT' - TableField = 'VALTOT' - end - item - DatasetField = 'ESTADO' - TableField = 'ESTADO' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end - item - DatasetField = 'NUMCON' - TableField = 'NUMCON' - end> - end> - Name = 'ReferenciaGenerica' - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE2' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE3' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMCON' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODCENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 45 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODVENDEDOR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 86 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO_BARRA' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TALLA' - DataType = datString - Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VTAPROCESO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VTAFINAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VTATERM' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VALTOT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'ESTADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO_BARRA' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VTAPROCESO' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VTAFINAL' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VTATERM' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VALTOT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CLAVE2' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CLAVE3' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_NUMCON' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_REFERENCIA_GENERICA' - SQL = - 'UPDATE RDX_REFERENCIA_GENERICA'#10' SET '#10' ESTADO = :ESTADO,'#10' ' + - 'FECHACAMBIO = :FECHACAMBIO,'#10' CODIGO_BARRA = :CODIGO_BARRA,'#10' ' + - ' CANESP = :VTAPROCESO,'#10' CANVENNET = :VTAFINAL,'#10' CANVEN = ' + - ':VTATERM,'#10' VALVEN = :VALTOT'#10' WHERE'#10' (NUMINF = :OLD_NUMINF' + - ') AND'#10' (CLAVE1 = :OLD_CLAVE1) AND'#10' (CLAVE2 = :OLD_CLAVE2) ' + - 'AND'#10' (CLAVE3 = :OLD_CLAVE3) AND'#10' (NUMCON = :OLD_NUMCON)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_ReferenciaGenerica' - end - item - Params = < - item - Name = 'ESTADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_REFERENCIA_GENERICA' - SQL = - 'INSERT INTO RDX_REFERENCIA_GENERICA'#10'(NUMINF, CLAVE1, CLAVE2, CLA' + - 'VE3, ENESPERA, FECHACAMBIO)'#10'SELECT V.NUMINF, V.CLAVE1, V.CLAVE2,' + - ' V.CLAVE3, :ESTADO, CURRENT_TIMESTAMP'#10'FROM RDX_V_REFERENCIA_GENE' + - 'RICA V' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'CambiarEstado' - end - item - Params = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE2' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE3' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ESTADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO_BARRA' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VTATERM' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VTAPROCESO' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VTAFINAL' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VALTOT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_REFERENCIA_GENERICA' - SQL = - 'begin'#10' declare @NUMINF varchar(35)'#10' declare @CLAVE1 nume' + - 'ric(10, 0)'#10' declare @CLAVE2 numeric(5, 0)'#10' declare @CLAV' + - 'E3 numeric(5, 0)'#10' declare @ESTADO char(1)'#10' declare @FECH' + - 'ACAMBIO datetime'#10' declare @CODIGO_BARRA varchar(25)'#10' dec' + - 'lare @VTATERM numeric(15, 3)'#10' declare @VTAPROCESO numeric(15' + - ', 3)'#10' declare @VTAFINAL numeric(15, 3)'#10' declare @NUMCON ' + - 'smallint'#10' declare @VALTOT numeric(15, 3)'#10#10' set @NUMINF =' + - ' :NUMINF'#10' set @CLAVE1 = :CLAVE1'#10' set @CLAVE2 = :CLAVE2'#10' ' + - ' set @CLAVE3 = :CLAVE3'#10' set @ESTADO = :ESTADO'#10' set @F' + - 'ECHACAMBIO = :FECHACAMBIO'#10' set @CODIGO_BARRA = :CODIGO_BARRA' + - #10' set @VTATERM = :VTATERM'#10' set @VTAPROCESO = :VTAPROCESO' + - #10' set @VTAFINAL = :VTAFINAL'#10' set @VALTOT = :VALTOT'#10#10' ' + - ' set @NUMCON = 0'#10#10' select @NUMCON = isnull(max(NUMCON) + 1, ' + - '0)'#10' from RDX_REFERENCIA_GENERICA'#10' where (NUMINF = @NUMIN' + - 'F) and'#10' (CLAVE1 = @CLAVE1) and'#10' (CLAVE2 = @C' + - 'LAVE2) and'#10' (CLAVE3 = @CLAVE3)'#10#10' INSERT INTO RDX_R' + - 'EFERENCIA_GENERICA'#10' (NUMINF, CLAVE1, CLAVE2, CLAVE3,'#10' ' + - ' ESTADO, FECHACAMBIO, CODIGO_BARRA,'#10' CANVEN, CANESP, CANV' + - 'ENNET, VALVEN, NUMCON)'#10' VALUES'#10' (@NUMINF, @CLAVE1, @CLA' + - 'VE2, @CLAVE3,'#10' @ESTADO, @FECHACAMBIO, @CODIGO_BARRA,'#10' ' + - '@VTATERM, @VTAPROCESO, @VTAFINAL, @VALTOT, @NUMCON)'#10#10'end' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_ReferenciaGenerica' - end - item - Params = < - item - Name = 'OLD_NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CLAVE2' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CLAVE3' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_NUMCON' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_REFERENCIA_GENERICA' - SQL = - 'DELETE '#10' FROM'#10' RDX_REFERENCIA_GENERICA'#10' WHERE'#10' (NUMINF =' + - ' :OLD_NUMINF) AND '#10' (CLAVE1 = :OLD_CLAVE1) AND '#10' (CLAVE2 =' + - ' :OLD_CLAVE2) AND '#10' (CLAVE3 = :OLD_CLAVE3) AND'#10' (NUMCON = ' + - ':OLD_NUMCON)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Delete_ReferenciaGenerica' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 56 - Top = 32 - end - object bpReferenciaGenerica: TDABusinessProcessor - Schema = schReferenciaGenerica - InsertCommandName = 'Insert_ReferenciaGenerica' - DeleteCommandName = 'Delete_ReferenciaGenerica' - UpdateCommandName = 'Update_ReferenciaGenerica' - ReferencedDataset = 'ReferenciaGenerica' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] - UpdateMode = updWhereKeyOnly - Left = 208 - Top = 32 - end - object frxDBCabecera: TfrxDBDataset - UserName = 'frxReferenciasGenericas' - CloseDataSource = False - DataSource = dsReferenciasGenericas - Left = 120 - Top = 128 - end - object dsReferenciasGenericas: TDADataSource - DataSet = tbl_ReferenciasGenericas.Dataset - DataTable = tbl_ReferenciasGenericas - Left = 120 - Top = 176 - end - object frxReport1: TfrxReport - Version = '3.23.7' - DotMatrixReport = False - EngineOptions.DoublePass = True - IniFile = '\Software\Fast Reports' - PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator] - PreviewOptions.OutlineWidth = 180 - PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' - ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.Description.Strings = ( - 'Demonstrates how to create simple list report.') - ReportOptions.LastChange = 38902.414757476900000000 - ReportOptions.VersionBuild = '1' - ReportOptions.VersionMajor = '12' - ReportOptions.VersionMinor = '13' - ReportOptions.VersionRelease = '1' - ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'begin' - '' - 'end.') - StoreInDFM = False - Left = 40 - Top = 128 - Datasets = < - item - DataSet = frxDBCabecera - DataSetName = 'frxReferenciasGenericas' - end> - Variables = <> - Style = < - item - Name = 'Concepto normal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [] - end - item - Name = 'Concepto subtotal' - Color = 15790320 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end - item - Name = 'Cabecera de columna' - Color = 15790320 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] - end - item - Name = 'Concepto titulo' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end> - end - object tbl_ReferenciasGenericas: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteFetchEnabled = False - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - IndexDefs = <> - Left = 120 - Top = 232 - end - object ADOConnection1: TADOConnection - ConnectionString = - 'Provider=SQLNCLI.1;Password=123456;Persist Security Info=True;Us' + - 'er ID=usuario_gft;Initial Catalog=gft_varela;Data Source=localho' + - 'st' - Provider = 'SQLNCLI.1' - Left = 344 - Top = 136 - end - object ADOQuery1: TADOQuery - Connection = ADOConnection1 - CursorType = ctStatic - Parameters = <> - SQL.Strings = ( - 'SELECT' - ' CENTRO = CASE WHEN (CODCENTRO = CENTRO) THEN' - ' CENTRO' - ' ELSE' - ' CODCENTRO + '#39' - '#39' + CENTRO' - ' END,' - ' VENDEDOR = CASE WHEN (CODVENDEDOR = VENDEDOR) THEN' - ' VENDEDOR' - ' ELSE' - ' CODVENDEDOR + '#39' - '#39' + VENDEDOR' - ' END,' - ' FECHA,' - ' NUMTALON,' - ' CANTIDAD =' - ' CASE WHEN (VTAPROCESO <> 0) THEN' - - ' REPLACE(CAST(VTAPROCESO AS VARCHAR), '#39'.000'#39', '#39#39')' + - ' + '#39' (venta proceso)'#39 - ' ELSE' - ' CASE WHEN (VTAFINAL <> 0) THEN' - - ' REPLACE(CAST(VTAFINAL AS VARCHAR), '#39'.000'#39', '#39 + - #39') + '#39' (venta final/resc.)'#39 - ' ELSE' - ' CASE WHEN (VTATERM <> 0) THEN' - - ' REPLACE(CAST(VTATERM AS VARCHAR), '#39'.000'#39 + - ', '#39#39') + '#39' (venta term./dev.)'#39 - ' ELSE' - ' '#39'0'#39 - ' END' - ' END' - ' END,' - ' VALTOT' - 'FROM RDX_V_REFERENCIA_GENERICA' - 'ORDER BY CENTRO, VENDEDOR, FECHA') - Left = 344 - Top = 200 - end - object DataSource1: TDataSource - DataSet = ADOQuery1 - Left = 240 - Top = 144 - end - object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True - Left = 336 - Top = 32 - end -end diff --git a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.pas b/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.pas deleted file mode 100644 index 47b0d33..0000000 --- a/Varela/Varela/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.pas +++ /dev/null @@ -1,178 +0,0 @@ -unit srvReferenciaGenerica_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDAScriptingProvider, - uDABusinessProcessor, uDADataTable, uDACDSDataTable, frxClass, DB, - frxDBSet, ADODB, uDAInterfaces, uROClient, uROEventRepository, - uDABINAdapter, uDADataStreamer; - -type - { TsrvReferenciaGenerica } - TsrvReferenciaGenerica = class(TDARemoteService, IsrvReferenciaGenerica) - bpReferenciaGenerica: TDABusinessProcessor; - frxDBCabecera: TfrxDBDataset; - dsReferenciasGenericas: TDADataSource; - tbl_ReferenciasGenericas: TDACDSDataTable; - ADOConnection1: TADOConnection; - ADOQuery1: TADOQuery; - DataSource1: TDataSource; - frxReport1: TfrxReport; - DABINAdapter: TDABINAdapter; - schReferenciaGenerica: TDASchema; - procedure DARemoteServiceCreate(Sender: TObject); - private - protected - function GetProducto(const Codigo: String; const Talla: String; - const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; - function GenerateReport(const Centro: String; const Vendedor: String; - const Estado: String; const FiltroUsuario: String): Binary; - procedure PasarProductosAEspera(const Centro: String; const Vendedor: String); - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer, - schReferenciaGenericaClient_Intf, uBizReferenciaGenericaServer, Dialogs; - -procedure Create_srvReferenciaGenerica(out anInstance : IUnknown); -begin - anInstance := TsrvReferenciaGenerica.Create(NIL); -end; - -{ srvReferenciaGenerica } -{ TsrvReferenciaGenerica } - -function TsrvReferenciaGenerica.GenerateReport(const Centro, - Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary; -var - ds: IDADataset; - AStream: TMemoryStream; - AWhere : String; -begin - AStream := TMemoryStream.Create; - Result := Binary.Create; - AWhere := ''; - try - ds := schReferenciaGenerica.NewDataset(Connection, 'InformeRefGenerica'); - - if Length(Centro) > 0 then - begin - AWhere := 'CODCENTRO = ''' + Centro + ''''; - end; - - if Length(Vendedor) > 0 then - begin - if Length(AWhere) > 0 then - AWhere := AWhere + ' AND '; - AWhere := AWhere + 'CODVENDEDOR = ''' + Vendedor + ''''; - end; - - if Length(Estado) > 0 then - begin - if Length(AWhere) > 0 then - AWhere := AWhere + ' AND '; - AWhere := AWhere + '((ESTADO = ''' + Estado + ''') '; - if Estado = 'P' then - AWhere := AWhere + 'OR (ESTADO is null)'; - AWhere := AWhere + ')'; - end; - - if Length(FiltroUsuario) > 0 then - begin - if Length(AWhere) > 0 then - AWhere := AWhere + ' AND '; - AWhere := AWhere + '(' + FiltroUsuario + ')'; - end; - - ds.Where.AddText(AWhere); - - AStream.Clear; - ServiceAdapter.WriteDataset(AStream, ds, [woRows, woSchema], -1); - ServiceAdapter.ReadDataset(AStream, tbl_ReferenciasGenericas, TRUE, '', TRUE, TRUE); - - frxReport1.LoadFromFile(DarRutaInformes + 'InformeReferenciaGenerica.fr3', True); - frxReport1.PrepareReport; - frxReport1.PreviewPages.SaveToStream(Result); - finally - AStream.Free; - end; -end; - - -function TsrvReferenciaGenerica.GetProducto(const Codigo: String; const Talla: String; - const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; -var - ds : IDADataset; - conn : IDAConnection; -begin - conn := dmServer.ConnectionManager.NewConnection(ConnectionName); - ds := schReferenciaGenerica.NewDataset(conn, nme_GetProducto); - - ds.ParamByName('CODIGO').AsString := Codigo; - ds.ParamByName('TALLA').AsString := Talla; - ds.ParamByName('COLOR').AsString := Color; - try - ds.Open; - Result := not ds.IsEmpty; - if Result then - begin - Descripcion := ds.FieldValues[idx_GetProductoDESC_PRODUTO]; - CodigoBarras := ds.FieldValues[idx_GetProductoCODIGO_BARRA]; - end; - finally - ds.Close; - ds := nil; - conn := nil; - end; -end; - -procedure TsrvReferenciaGenerica.PasarProductosAEspera(const Centro, - Vendedor: String); -var - cmd : IDASQLCommand; - conn : IDAConnection; -begin - conn := dmServer.ConnectionManager.NewConnection(ConnectionName); - conn.BeginTransaction; - - cmd := schReferenciaGenerica.NewCommand(conn, 'CambiarEstado'); - try - if Length(Centro) > 0 then - begin - cmd.Where.AddText('V.CODCENTRO = ''' + Centro + ''''); - if Length(Vendedor) > 0 then - cmd.Where.AddText('AND V.CODVENDEDOR = ''' + Vendedor + ''''); - end; - cmd.Execute; - conn.CommitTransaction; - except - conn.RollbackTransaction; - end; -end; - -procedure TsrvReferenciaGenerica.DARemoteServiceCreate(Sender: TObject); -begin - bpReferenciaGenerica.BusinessRulesID := BIZ_SERVER_REFERENCIA_GENERICA; -end; - -initialization - TROClassFactory.Create('srvReferenciaGenerica', Create_srvReferenciaGenerica, TsrvReferenciaGenerica_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.bdsproj b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.bdsproj deleted file mode 100644 index 3e22257..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - Stock.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;PluginSDK_D7R;DJcl;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvDBD7R;JvDlgsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;qrpt;JvGlobusD7R;JvHMID7R;JvInspectorD7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvSystemD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;GUISDK_D7;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;DataAbstract_Core_D7;DataAbstract_IDE_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;dxBarD7;dxComnD7;cxLibraryVCLD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxPSLnksD7;dxPSTeeChartD7;EPCOTAUtils70;PNG_D7;PngComponentsD7;tb2k_d7;tbx_d7;UserControlD7_RT;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;dxPScxCommonD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7;TMSD7;FR7;FRIBX7;cxIntlSchedulerD7;dxLayoutControlD7;dxPScxScheduler2LnkD7;ComparerD7;dxPSdxLCLnkD7;dxLayoutControlcxEditAdaptersD7;cxVerticalGridVCLD7;vclShX_Generic_V3D7.bpl;vclShX_Namespace_V3D7.bpl - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 2 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.2.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.cfg b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.cfg deleted file mode 100644 index 53e7995..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.dof b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.dof deleted file mode 100644 index 326e1c7..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;PluginSDK_D7R;DJcl;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvDBD7R;JvDlgsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;qrpt;JvGlobusD7R;JvHMID7R;JvInspectorD7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvSystemD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;GUISDK_D7;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;DataAbstract_Core_D7;DataAbstract_IDE_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;dxBarD7;dxComnD7;cxLibraryVCLD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxPSLnksD7;dxPSTeeChartD7;EPCOTAUtils70;PNG_D7;PngComponentsD7;tb2k_d7;tbx_d7;UserControlD7_RT;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;dxPScxCommonD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7;TMSD7;FR7;FRIBX7;cxIntlSchedulerD7;dxLayoutControlD7;dxPScxScheduler2LnkD7;ComparerD7;dxPSdxLCLnkD7;dxLayoutControlcxEditAdaptersD7;cxVerticalGridVCLD7;vclShX_Generic_V3D7.bpl;vclShX_Namespace_V3D7.bpl -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=2 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.2.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=0 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=0 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=1 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.dpk b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.dpk deleted file mode 100644 index 1626dfe..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.dpk +++ /dev/null @@ -1,81 +0,0 @@ -package Stock; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - vcl, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - PluginSDK_D10R, - GUISDK_D10, - BaseD10, - ControlesBaseD10, - dbrtl, - dsnap, - adortl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - cxExportD10, - dxPSCoreD10, - dxComnD10, - dxPScxGridLnkD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - vclshlctrls, - dclcxLibraryD10, - tb2k_D10, - tbx_D10, - JvCoreD10R, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - Parametros; - -contains - uPluginControllerStock in 'uPluginControllerStock.pas' {ModuleStock: TModuleController}, - uDataModuleStock in 'uDataModuleStock.pas' {dmStock: TDAClientDataModule}, - uBizStock in '..\Reglas\uBizStock.pas', - uViewControGridStockPrendasCentros in 'uViewControGridStockPrendasCentros.pas' {frViewControlGridStockPrendasCentros: TCustomView}, - uViewControGridStockEDI in 'uViewControGridStockEDI.pas' {frViewControlGridStockEDI: TCustomView}, - uEditorControlStockEDI in 'uEditorControlStockEDI.pas' {fEditorControlStockEDI: TCustomEditor}, - uEditorControlStockVARELA in 'uEditorControlStockVARELA.pas' {fEditorControlStockVARELA: TCustomEditor}, - uViewFiltrosStock in 'uViewFiltrosStock.pas' {frViewFiltrosStock: TCustomView}, - uViewControGridStockVARELA in 'uViewControGridStockVARELA.pas' {frViewControlGridStockVARELA: TCustomView}, - uViewControGridStockEDIInventario in 'uViewControGridStockEDIInventario.pas' {frViewControlGridStockEDIInventario: TCustomView}; - -end. diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.drc b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.identcache b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.identcache deleted file mode 100644 index b248b7d..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.rc b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.rc deleted file mode 100644 index f4e84f6..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,2,0 -PRODUCTVERSION 1,0,2,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.2.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.res b/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.res deleted file mode 100644 index 31c891c..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Cliente/Stock.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/cxVerticalGridD10.drc b/Varela/Varela/Source/Modulos/Stock/Cliente/cxVerticalGridD10.drc deleted file mode 100644 index ae9acff..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/cxVerticalGridD10.drc +++ /dev/null @@ -1,22 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x43", "\x00", "\x6f", "\x00", "\x72", "\x00", /* 0020: .C.o.r. */ - "\x65", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0028: e. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0030: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0038: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/teedb.drc b/Varela/Varela/Source/Modulos/Stock/Cliente/teedb.drc deleted file mode 100644 index ae9acff..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/teedb.drc +++ /dev/null @@ -1,22 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x43", "\x00", "\x6f", "\x00", "\x72", "\x00", /* 0020: .C.o.r. */ - "\x65", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0028: e. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0030: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0038: y... */ -END - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.ddp b/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm deleted file mode 100644 index 2f888c3..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm +++ /dev/null @@ -1,1209 +0,0 @@ -object dmStock: TdmStock - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 322 - Width = 267 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvStock' - Left = 48 - Top = 20 - end - object tbl_StockEDI: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'CENTRO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TE' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TS' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'KT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'StockEDI' - IndexDefs = <> - Left = 184 - Top = 16 - end - object tbl_StockVARELA: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K38' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K40' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K42' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K44' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K46' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K48' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'KT' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'StockVARELA' - IndexDefs = <> - Left = 184 - Top = 72 - end - object tbl_StockPrendasCentros: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'digo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Producto' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Tipo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Grupo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Colecci'#243'n' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Color' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '38' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '40' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '42' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '44' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '46' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '48' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'StockPrendasCentros' - IndexDefs = <> - Left = 48 - Top = 176 - end - object ds_StockPrendasCentros: TDADataSource - DataSet = tbl_StockPrendasCentros.Dataset - DataTable = tbl_StockPrendasCentros - Left = 48 - Top = 232 - end - object tbl_StockEDIInventario: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'CENTRO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TI' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TK' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'StockEDIInventario' - IndexDefs = <> - Left = 185 - Top = 136 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 48 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.pas deleted file mode 100644 index 0e5ed7c..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uDataModuleStock.pas +++ /dev/null @@ -1,112 +0,0 @@ -unit uDataModuleStock; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter, - uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, - uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable, - uBizStock, uDARemoteDataAdapter, uDAInterfaces; - -type - TdmStock = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_StockEDI: TDACDSDataTable; - tbl_StockVARELA: TDACDSDataTable; - tbl_StockPrendasCentros: TDACDSDataTable; - ds_StockPrendasCentros: TDADataSource; - tbl_StockEDIInventario: TDACDSDataTable; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItemsStockVarela : IBizStockVARELA; - function GetItemsStockEDI : IBizStockEDI; - function GetItemsStockEDIInventario : IBizStockEDIInventario; - function GetItemsStockPrendasCentros : IBizStockPrendasCentros; - end; - -var - dmStock: TdmStock; - -implementation - -{$R *.DFM} - -uses - uDataModuleBase, Controls, Forms, cxControls, uDataTableUtils; - - -procedure TdmStock.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmStock.GetItemsStockEDI: IBizStockEDI; -var - dtItemsStockEDI: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtItemsStockEDI := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_StockEDI, dtItemsStockEDI); - dtItemsStockEDI.BusinessRulesID := BIZ_STOCK_EDI; - Result := (dtItemsStockEDI as IBizStockEDI); - finally - HideHourglassCursor; - end; -end; - -function TdmStock.GetItemsStockEDIInventario: IBizStockEDIInventario; -var - dtItemsStockEDIInventario: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtItemsStockEDIInventario := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_StockEDIInventario, dtItemsStockEDIInventario); - dtItemsStockEDIInventario.BusinessRulesID := BIZ_STOCK_EDIINVENTARIO; - Result := (dtItemsStockEDIInventario as IBizStockEDIInventario); - finally - HideHourglassCursor; - end; -end; - -function TdmStock.GetItemsStockPrendasCentros: IBizStockPrendasCentros; -var - dtItemsStock: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtItemsStock := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_StockPrendasCentros, dtItemsStock); - dtItemsStock.BusinessRulesID := BIZ_STOCK_PRENDAS_CENTROS; - Result := (dtItemsStock as IBizStockPrendasCentros); - finally - HideHourglassCursor; - end; -end; - -function TdmStock.GetItemsStockVarela: IBizStockVARELA; -var - dtItemsStockVARELA: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtItemsStockVARELA := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_StockVARELA, dtItemsStockVARELA); - dtItemsStockVARELA.BusinessRulesID := BIZ_STOCK_VARELA; - Result := (dtItemsStockVARELA as IBizStockVARELA); - finally - HideHourglassCursor; - end; -end; - -initialization - dmStock := TdmStock.Create(nil); - -finalization - FreeAndNil(dmStock); - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.ddp b/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm deleted file mode 100644 index ee5fffe..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm +++ /dev/null @@ -1,2230 +0,0 @@ -inherited fEditorControlStockEDI: TfEditorControlStockEDI - Left = 467 - Top = 265 - Width = 687 - Height = 607 - Caption = 'Control de stock de centros' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 679 - inherited Image1: TImage - Left = 652 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C - 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 - 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF - EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 - B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B - 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 - 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF - 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C - 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 - C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 - 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 - 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 - 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 - FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 - 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 - B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F - 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 - A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F - E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 - B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 - F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 - 3F01A44422D9EF203E7B0000000049454E44AE426082} - end - end - inherited TBXDock: TTBXDock - Width = 679 - inherited tbxMain: TTBXToolbar - inherited TBXItem33: TTBXItem - Visible = False - end - object TBXSeparatorItem16: TTBXSeparatorItem [13] - end - object TBXItem39: TTBXItem [14] - Action = actExpandir - end - object TBXItem38: TTBXItem [15] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [16] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem37: TTBXItem [0] - Action = actExpandir - end - object TBXItem36: TTBXItem [1] - Action = actContraer - end - object TBXItem35: TTBXItem [2] - Action = actAnchoAuto - end - object TBXSeparatorItem17: TTBXSeparatorItem [3] - end - end - end - inherited tbxFiltro: TTBXToolbar - Left = 350 - DockPos = 304 - end - end - inherited StatusBar: TStatusBar - Top = 554 - Width = 679 - end - object PageControl1: TPageControl [3] - Left = 0 - Top = 76 - Width = 679 - Height = 478 - ActivePage = tabResumen - Align = alClient - TabOrder = 3 - OnChange = PageControl1Change - object tabResumen: TTabSheet - Caption = 'Resumido por prendas' - inline frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros - Left = 0 - Top = 0 - Width = 671 - Height = 450 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 671 - Height = 407 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.FooterSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Column = frViewControlGridStockPrendasCentros1.cxGridViewPRODUCTO - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridView38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridView40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridView42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridView44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridView46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridView48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockPrendasCentros1.cxGridViewTOTAL - end> - end - end - inherited frViewFiltrosStock1: TfrViewFiltrosStock - Width = 671 - inherited dxLayoutControl1: TdxLayoutControl - Width = 671 - inherited cbColeccion: TcxComboBox - Width = 242 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 354 - Width = 249 - end - end - end - inherited dsDataSource: TDADataSource - Left = 16 - Top = 152 - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - ReportDocument.CreationDate = 38966.445252812500000000 - ReportDocument.IsCaptionAssigned = True - BuiltInReportLink = True - end - end - end - end - object tabDesglose: TTabSheet - Caption = 'Detallado por centros' - ImageIndex = 1 - inline frViewControlGridStockEDI1: TfrViewControlGridStockEDI - Left = 0 - Top = 0 - Width = 671 - Height = 450 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 671 - Height = 401 - inherited cxGridView: TcxGridDBTableView - PopupMenu = GridPopupMenu - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewE38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewE40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewE42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewE44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewE46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewE48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewTE - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewS38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewS40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewS42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewS44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewS46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewS48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewTS - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDI1.cxGridViewKT - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewE38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewE40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewE42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewE44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewE46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewE48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewTE - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewS38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewS40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewS42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewS44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewS46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewS48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewTS - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDI1.cxGridViewKT - end> - end - end - inherited frViewFiltrosStock1: TfrViewFiltrosStock - Width = 671 - inherited dxLayoutControl1: TdxLayoutControl - Width = 671 - inherited cbColeccion: TcxComboBox - Width = 242 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 354 - Width = 249 - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - ReportDocument.CreationDate = 38965.499016562500000000 - BuiltInReportLink = True - end - end - end - end - object tabInventario: TTabSheet - Caption = 'Diferencias con '#250'ltimo inventario' - ImageIndex = 2 - inline frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario - Left = 0 - Top = 0 - Width = 671 - Height = 450 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 671 - Height = 401 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewI38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewI40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewI42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewI44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewI46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewI48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewTI - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewTK - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewD38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewD40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewD42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewD44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewD46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewD48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockEDIInventario1.cxGridViewDT - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewI38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewI40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewI42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewI44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewI46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewI48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewTI - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewTK - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewD38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewD40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewD42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewD44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewD46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewD48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockEDIInventario1.cxGridViewDT - end> - end - end - inherited frViewFiltrosStock1: TfrViewFiltrosStock - Width = 671 - inherited dxLayoutControl1: TdxLayoutControl - Width = 671 - inherited cbColeccion: TcxComboBox - Width = 242 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 354 - Width = 65 - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - ReportDocument.CreationDate = 38993.574718599530000000 - BuiltInReportLink = True - end - end - end - end - end - inherited EditorActionList: TActionList - Top = 208 - inherited actNuevo: TAction - Visible = False - end - inherited actModificar: TAction - Visible = False - end - inherited actEliminar: TAction - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - end - end - inherited SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited dsDataTable: TDADataSource [8] - Left = 8 - Top = 208 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] - end - inherited GridPopupMenu: TPopupMenu - Left = 40 - Top = 208 - inherited Duplicar1: TMenuItem - Visible = False - end - end - object dsVentasTerminadas: TDADataSource - Left = 320 - Top = 232 - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas deleted file mode 100644 index 74a8780..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockEDI.pas +++ /dev/null @@ -1,242 +0,0 @@ -unit uEditorControlStockEDI; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlBase, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, - uCustomView, uViewBase, uViewControlBase, Grids, DBGrids, pngimage, StdCtrls, - uEditorGridBase, uViewGridBase, uViewGrid, Menus, TB2ExtItems, TBXExtItems, - - uBizStock,uViewControGridStockEDI, uViewControGridStockPrendasCentros, - uViewControGridStockEDIInventario; - -type - IEditorControlStockEDI = interface(IEditorGridBase) - ['{8CDABF14-FD43-48BF-8B33-B6B5A9B03CEB}'] -{ function GetItems: IBizStockEDI; - procedure SetItems(const Value: IBizStockEDI); - property Items: IBizStockEDI read GetItems write SetItems;} - end; - - TfEditorControlStockEDI = class(TfEditorGridBase, IEditorControlStockEDI) - dsVentasTerminadas: TDADataSource; - TBXSeparatorItem16: TTBXSeparatorItem; - tbxiAnchoAuto: TTBXItem; - actExpandir: TAction; - actContraer: TAction; - actAnchoAuto: TAction; - TBXItem37: TTBXItem; - TBXItem36: TTBXItem; - TBXItem35: TTBXItem; - TBXSeparatorItem17: TTBXSeparatorItem; - TBXItem38: TTBXItem; - TBXItem39: TTBXItem; - frViewControlGridStockEDI1: TfrViewControlGridStockEDI; - PageControl1: TPageControl; - tabResumen: TTabSheet; - tabDesglose: TTabSheet; - frViewControlGridStockPrendasCentros1: TfrViewControlGridStockPrendasCentros; - tabInventario: TTabSheet; - frViewControlGridStockEDIInventario1: TfrViewControlGridStockEDIInventario; - procedure actAnchoAutoExecute(Sender: TObject); - procedure FormShow(Sender: TObject); override; - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure PageControl1Change(Sender: TObject); - protected - FDesglose : IBizStockEDI; - FInventario : IBizStockEDIInventario; - FResumen : IBizStockPrendasCentros; - - function GetItemsDesglose: IBizStockEDI; - procedure SetItemsDesglose(const Value: IBizStockEDI); - - function GetItemsInventario: IBizStockEDIInventario; - procedure SetItemsInventario(const Value: IBizStockEDIInventario); - - function GetItemsResumen: IBizStockPrendasCentros; - procedure SetItemsResumen(const Value: IBizStockPrendasCentros); - public - property ItemsDesglose: IBizStockEDI read GetItemsDesglose write SetItemsDesglose; - property ItemsInventario: IBizStockEDIInventario read GetItemsInventario write SetItemsInventario; - property ItemsResumen: IBizStockPrendasCentros read GetItemsResumen write SetItemsResumen; - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -uses - cxControls, uEditorUtils, DateUtils, uCustomEditor, uEditorBase, - uDataModuleStock, uDAInterfaces; - -{$R *.dfm} - -{ TfEditorControlStockEDI } - -procedure TfEditorControlStockEDI.actAnchoAutoExecute(Sender: TObject); -begin - inherited; - case PageControl1.ActivePageIndex of - 0 : frViewControlGridStockPrendasCentros1.AjustarAncho; - 1 : frViewControlGridStockEDI1.AjustarAncho; - 2 : frViewControlGridStockEDIInventario1.AjustarAncho; - end; -end; - -procedure TfEditorControlStockEDI.FormShow(Sender: TObject); -begin -// inherited; <- No descomentar - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - case PageControl1.ActivePageIndex of - 0 : ViewGrid.ShowEmbedded(tabResumen); - 1 : ViewGrid.ShowEmbedded(tabDesglose); - 2 : ViewGrid.ShowEmbedded(tabInventario); - end; - - ViewGrid.ExpandirTodo; -end; - -constructor TfEditorControlStockEDI.Create(AOwner: TComponent); -begin - inherited; - FResumen := nil; - FDesglose := nil; - FInventario := nil; - - Self.Caption := 'Control de stock en centros'; - JvNavPanelHeader.Caption := Self.Caption; - PageControl1.ActivePageIndex := 0; - - if not Assigned(FResumen) then - ItemsResumen := dmStock.GetItemsStockPrendasCentros; - - ViewGrid := frViewControlGridStockPrendasCentros1; -end; - -procedure TfEditorControlStockEDI.actExpandirExecute(Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorControlStockEDI.actContraerExecute(Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -function TfEditorControlStockEDI.GetItemsDesglose: IBizStockEDI; -begin - Result := FDesglose; -end; - -function TfEditorControlStockEDI.GetItemsResumen: IBizStockPrendasCentros; -begin - Result := FResumen; -end; - -procedure TfEditorControlStockEDI.SetItemsDesglose(const Value: IBizStockEDI); -begin - FDesglose := Value; - if Assigned(FDesglose) then - begin - ShowHourglassCursor; - try - dsDataTable.DataTable := FDesglose.DataTable; - frViewControlGridStockEDI1.dsDataSource.DataTable := FDesglose.DataTable; - - if not FDesglose.DataTable.Active then - FDesglose.DataTable.Active := True; - - actAnchoAuto.Execute; - finally - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorControlStockEDI.SetItemsResumen( - const Value: IBizStockPrendasCentros); -begin - FResumen := Value; - if Assigned(FResumen) then - begin - ShowHourglassCursor; - try - dsDataTable.DataTable := FResumen.DataTable; - frViewControlGridStockPrendasCentros1.dsDataSource.DataTable := FResumen.DataTable; - - if not FResumen.DataTable.Active then - FResumen.DataTable.Active := True; - - actAnchoAuto.Execute; - finally - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorControlStockEDI.PageControl1Change(Sender: TObject); -begin - inherited; - Self.Update; - - //Quitamos el filtro que hubiera - actQuitarFiltro.Execute; - - case PageControl1.ActivePageIndex of - 0 : begin - ViewGrid := frViewControlGridStockPrendasCentros1; - if not Assigned(FResumen) then - ItemsResumen := dmStock.GetItemsStockPrendasCentros; - end; - 1 : begin - ViewGrid := frViewControlGridStockEDI1; - if not Assigned(FDesglose) then - ItemsDesglose := dmStock.GetItemsStockEDI; - end; - 2 : begin - ViewGrid := frViewControlGridStockEDIInventario1; - if not Assigned(FInventario) then - ItemsInventario := dmStock.GetItemsStockEDIInventario; - end; - end; - - ViewGrid.Refresh; -end; - -function TfEditorControlStockEDI.GetItemsInventario: IBizStockEDIInventario; -begin - Result := FInventario; -end; - -procedure TfEditorControlStockEDI.SetItemsInventario(const Value: IBizStockEDIInventario); -begin - FInventario := Value; - if Assigned(FInventario) then - begin - ShowHourglassCursor; - try - dsDataTable.DataTable := FInventario.DataTable; - frViewControlGridStockEDIInventario1.dsDataSource.DataTable := FInventario.DataTable; - - if not FInventario.DataTable.Active then - FInventario.DataTable.Active := True; - - actAnchoAuto.Execute; - finally - HideHourglassCursor; - end; - end; -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.ddp b/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm deleted file mode 100644 index 089709c..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm +++ /dev/null @@ -1,1716 +0,0 @@ -inherited fEditorControlStockVARELA: TfEditorControlStockVARELA - Left = 408 - Top = 342 - Width = 687 - Height = 607 - Caption = 'Stock VARELA' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 679 - Caption = 'Control de stock de almac'#233'n' - inherited Image1: TImage - Left = 652 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C - 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 - 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF - EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 - B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B - 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 - 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF - 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C - 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 - C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 - 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 - 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 - 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 - FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 - 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 - B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F - 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 - A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F - E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 - B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 - F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 - 3F01A44422D9EF203E7B0000000049454E44AE426082} - end - end - inherited TBXDock: TTBXDock - Width = 679 - inherited tbxMain: TTBXToolbar - inherited TBXItem33: TTBXItem - Visible = False - end - object TBXSeparatorItem16: TTBXSeparatorItem [13] - end - object tbxiExpandir: TTBXItem [14] - Action = actExpandir - end - object tbxiContraer: TTBXItem [15] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [16] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem37: TTBXItem [0] - Action = actExpandir - end - object TBXItem36: TTBXItem [1] - Action = actContraer - end - object TBXItem35: TTBXItem [2] - Action = actAnchoAuto - end - object TBXSeparatorItem17: TTBXSeparatorItem [3] - end - end - end - inherited tbxFiltro: TTBXToolbar - Left = 350 - DockPos = 350 - end - end - inherited StatusBar: TStatusBar - Top = 554 - Width = 679 - end - inline frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA [3] - Left = 0 - Top = 76 - Width = 679 - Height = 478 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 679 - Height = 435 - inherited cxGridView: TcxGridDBTableView - PopupMenu = GridPopupMenu - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewPRODUCTO - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = frViewControlGridStockVARELA1.cxGridViewKT - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Column = frViewControlGridStockVARELA1.cxGridViewPRODUCTO - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Column = frViewControlGridStockVARELA1.cxGridViewKT - end> - end - end - inherited frViewFiltrosStock1: TfrViewFiltrosStock - Width = 679 - inherited dxLayoutControl1: TdxLayoutControl - Width = 679 - inherited cbColeccion: TcxComboBox - Width = 242 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 354 - Width = 191 - end - end - end - inherited dsDataSource: TDADataSource - Top = 48 - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - ReportDocument.CreationDate = 38965.703007268520000000 - ReportDocument.IsCaptionAssigned = True - BuiltInReportLink = True - end - end - end - inherited EditorActionList: TActionList [4] - inherited actNuevo: TAction - Visible = False - end - inherited actModificar: TAction - Visible = False - end - inherited actEliminar: TAction - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - end - end - inherited SmallImages: TPngImageList [5] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited dsDataTable: TDADataSource - Left = 32 - Top = 136 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] - end - inherited GridPopupMenu: TPopupMenu - Left = 64 - Top = 152 - inherited Duplicar1: TMenuItem - Visible = False - end - inherited N2: TMenuItem - Visible = False - end - end - object dsVentasTerminadas: TDADataSource - Left = 320 - Top = 232 - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas deleted file mode 100644 index 13a247e..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas +++ /dev/null @@ -1,134 +0,0 @@ -unit uEditorControlStockVARELA; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlBase, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, - uCustomView, uViewBase, uViewControlBase, Grids, DBGrids, pngimage, StdCtrls, - uEditorGridBase, uViewGridBase, uViewGrid, Menus, TB2ExtItems, TBXExtItems, - uBizStock, uViewControGridStockVARELA, uViewControlGrid; - -type - IEditorControlStockVARELA = interface(IEditorGridBase) - ['{E73FFD61-E345-43EF-A3D1-56B8A5D3DA8B}'] - function GetItems: IBizStockVARELA; - procedure SetItems(const Value: IBizStockVARELA); - property Items: IBizStockVARELA read GetItems write SetItems; - end; - - TfEditorControlStockVARELA = class(TfEditorGridBase, IEditorControlStockVARELA) - dsVentasTerminadas: TDADataSource; - TBXSeparatorItem16: TTBXSeparatorItem; - tbxiExpandir: TTBXItem; - tbxiContraer: TTBXItem; - tbxiAnchoAuto: TTBXItem; - actExpandir: TAction; - actContraer: TAction; - actAnchoAuto: TAction; - TBXItem37: TTBXItem; - TBXItem36: TTBXItem; - TBXItem35: TTBXItem; - TBXSeparatorItem17: TTBXSeparatorItem; - frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA; - procedure actAnchoAutoExecute(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - private - property ViewGrid; - protected - FItems : IBizStockVARELA; - function GetItems: IBizStockVARELA; - procedure SetItems(const Value: IBizStockVARELA); - public - property Items: IBizStockVARELA read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -uses - cxControls, uEditorUtils, DateUtils, uCustomEditor, uEditorBase; - -{$R *.dfm} - -{ TfEditorControlStockEDI } - -procedure TfEditorControlStockVARELA.actAnchoAutoExecute(Sender: TObject); -begin - inherited; - frViewControlGridStockVARELA1.AjustarAncho; -end; - -procedure TfEditorControlStockVARELA.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorControlStockVARELA.actImprimirExecute(Sender: TObject); -begin - frViewControlGridStockVARELA1.Print; -end; - -constructor TfEditorControlStockVARELA.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewControlGridStockVARELA1; - Self.Caption := 'Control de stock de almacén'; - JvNavPanelHeader.Caption := Self.Caption; -end; - -function TfEditorControlStockVARELA.GetItems: IBizStockVARELA; -begin - Result := FItems; -end; - -procedure TfEditorControlStockVARELA.SetItems(const Value: IBizStockVARELA); -begin - FItems := Value; - if Assigned(FItems) then - begin - dsDataTable.DataTable := FItems.DataTable; - frViewControlGridStockVARELA1.dsDataSource.DataTable := FItems.DataTable; - - if not FItems.DataTable.Active then - FItems.DataTable.Active := True; - - actAnchoAuto.Execute; - end; -end; - -procedure TfEditorControlStockVARELA.actPrevisualizarExecute(Sender: TObject); -begin - frViewControlGridStockVARELA1.Preview; -end; - -procedure TfEditorControlStockVARELA.actExpandirExecute(Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorControlStockVARELA.actContraerExecute(Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uPluginControllerStock.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uPluginControllerStock.dfm deleted file mode 100644 index 467f3e3..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uPluginControllerStock.dfm +++ /dev/null @@ -1,126 +0,0 @@ -object ModuleStock: TModuleStock - OldCreateOrder = True - Description = 'Control de stock' - ModuleMenu = MainMenu - ModuleName = 'Control de stock' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.6' - Left = 701 - Top = 547 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002B14944415478DA - B5955B48145118C7FFB30B65F89219452F1148588AB60F5A5B123E58ED6E6896 - 1015DB4314515426B8043E54A25DB044D844CB2EB6661962B5586EE9166B6D58 - A829AE6D7941B3EC8658544850BA33679A736C366FEBCEAAFDE1F0CDF966CEEF - 370387399C288AA0E1380EBE52B40BE2D8DEFE12F85C203319579E349CE37452 - A919FB70BD4B82E5148EEAB596A7A2AC8AC098A41A0F07D1AF4A13ED130944CD - F6D1A0A28C830CFEB3AF13D9A67C6FFF78DE61BC7952C02439A566888207441A - B4DE3C99897D1691F329B036C7B279FFAD950CFEE5B51DBEF2D96D63126D7A23 - 9B877569D1E222FE053B36C6A2E07A0D845A03FC25D8E08031792DE292D35064 - B8A85C404325234337828A0E956AF85AC5317871850357CBEE052E982C3C4FE0 - 110456AF591FCFAC40860F3C7762C061833D5C3F7382218F00CFE010FACCD918 - ECEEC0BCB316DCB6D74F5F4088085E200CFE21D50822ADA370E96350F9689A82 - 91F0773BF510D56ACCBF606570DAB7D5364E5D30F6CD7FB7B76241F95390A060 - D6A7A3C6D914B8A0DF52888F678E62C9652B66C7C4A12F2F13DF8BCD5878C301 - 2E2CC20BF7F0021CCF5AA62028BB82DE237B1114B102A1A613F8B46713E69A4E - 618EF180173E38C43341DD0BB73241F456332A5D6BB04D1FC300BDE9BBF1E34E - 29D421A1502F5A8C909287E0A59F28DBA612581E0D2D6DCA045129B9B8EB8EC7 - E6040D83FCEAE942AF2E8ADD0FB954059566F538389D37BB3B940922934FA3AA - 6D1D12E3A3A5851240FA8AAF596998B57E8B4F38AD2FDBBB94092212B360EB34 - 401F17C9E0FC5F084F884F38DD65AF3ABB950996198EE141771212B4CB5171BF - CEEFFF68641409C23764A0FA6D0A72F32D01C1E5F8152C4D30FD3B9D08EF3DA5 - 862B3FEA5ABE479F93F3ED7DD3E482B0F843E8719E9FD2DBCB994CA073B9C61F - FA8146A3C1C487FEFFCA1F9AC3C3EF68FFCFAC0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actStockEdi: TAction - Category = 'Stock' - Caption = 'Control de stock de centros' - ImageIndex = 0 - OnExecute = actStockEdiExecute - end - object actStockVarela: TAction - Category = 'Stock' - Caption = 'Control de stock de almac'#233'n' - ImageIndex = 0 - OnExecute = actStockVarelaExecute - end - end - object MainMenu: TMainMenu - Tag = 1000 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 8000 - Caption = '&Stock' - GroupIndex = 1 - ImageIndex = 4 - OnClick = actStockEdiExecute - object Stock1: TMenuItem - Tag = 100 - Action = actStockEdi - end - object Stock2: TMenuItem - Tag = 500 - Action = actStockVarela - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001D34944415478DA - 63FCFFFF3F03232323033A9891C0F01F999FB180014311582F889835B92D58FF - 5FF51A64C90B171818123AA682D965D1D90C51BEA89A2F32B586A4E556AD051B - 707222E37F8388A970C90515D960CD208D2050D79BC7D0543C89A16BE954867F - 7F7E30FCFDFD93A13AA58A61E29EFF8C7003EEA99E022BFEB4DA0CACF9CB8B9B - 604D20CDDFDF3E607879632FC3A2755F192C8A4E3128DFB66058BAF91FA60191 - 5EA60C33131919AE3D66C00A84BF33306CE0CD6498E13913B701D8C0CF5F7F18 - 9E4DEF65F8F1E23943F4F95FA41900D2FCB0BE90E1F7E7CF0C7C351318FC13AA - 883700A6F9FB8DAB0C42535733FCFAF39F2134AD0EBB010FD44E33847B9A30DC - 2D4E65F87CF20883C68E330C2F96CC66783DBD87416CD521863F9C7C60036372 - 9AB01BF050FD0C43988731C3E7534719AE0639300804C5327C58BB984178F20A - 0626137BB0E61F409C52D486DD80479A671942DD8CC00AEF1526813573798731 - F0D44F856B06D1D9155DD80D78A2758EC1C75E17ACE8F3CDEB0CAF2734327097 - 7531FC063A1DA619848BEAFAB01BF054FB3C8383A91A5C21320619F0F7EF3F70 - C0E234E0B9CE0586A6EE990CC400AC06A8BB9533DCDAD54D9401208062002837 - 5EDD889A1B09016D7F486E0400CE5079F0BCD676180000000049454E44AE4260 - 82} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uPluginControllerStock.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uPluginControllerStock.pas deleted file mode 100644 index 17b42d8..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uPluginControllerStock.pas +++ /dev/null @@ -1,97 +0,0 @@ -unit uPluginControllerStock; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCStock = interface(IInterface) - ['{52C5C467-6FBE-476C-BE2A-A97D2752526C}'] - end; - - TModuleStock = class(TModuleController, IMCStock) - actStockEdi: TAction; - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - Stock1: TMenuItem; - SmallImages: TPngImageList; - actStockVarela: TAction; - Stock2: TMenuItem; - procedure actStockEdiExecute(Sender: TObject); - procedure actStockVarelaExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uEditorControlesBase, - uDataModuleStock, uEditorControlStockEDI, uBizStock, cxControls, - uEditorControlStockVARELA; - -function GetModule : TModuleController; -begin - Result := TModuleStock.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleStock.actStockEdiExecute(Sender: TObject); -var - aControl: IBizStockEDI; - aObj: IEditorControlStockEDI; -begin - //aControl := dmStock.GetItemsStockEDI; - aObj := TfEditorControlStockEDI.Create(Application); - - try - with aObj do - begin - //Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -procedure TModuleStock.actStockVarelaExecute(Sender: TObject); -var - aControl: IBizStockVARELA; - aObj: IEditorControlStockVARELA; -begin - aControl := dmStock.GetItemsStockVARELA; - aObj := TfEditorControlStockVARELA.Create(Application); - - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleStock); - -finalization - UnRegisterModuleClass(TModuleStock); - -end. diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm deleted file mode 100644 index 53bd0f2..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm +++ /dev/null @@ -1,609 +0,0 @@ -inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI - Width = 553 - Height = 477 - inherited cxGrid: TcxGrid - Top = 49 - Width = 553 - Height = 428 - inherited cxGridView: TcxGridDBTableView - FilterBox.Visible = fvNever - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewE38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewE40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewE42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewE44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewE46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewE48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewTE - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewS38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewS40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewS42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewS44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewS46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewS48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewTS - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewKT - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewE38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewE40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewE42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewE44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewE46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewE48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewTE - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewS38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewS40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewS42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewS44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewS46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewS48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewTS - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewKT - end> - OptionsView.CellAutoHeight = False - OptionsView.FooterAutoHeight = False - OptionsView.GridLineColor = clDefault - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.GroupRowStyle = grsOffice11 - Preview.AutoHeight = False - Styles.Footer = cxStyleEven - object cxGridViewRecID: TcxGridDBColumn - DataBinding.FieldName = 'RecID' - Visible = False - end - object cxGridViewCENTRO: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' - Visible = False - GroupIndex = 1 - end - object cxGridViewCOLECCION: TcxGridDBColumn - Caption = 'Colecci'#243'n' - DataBinding.FieldName = 'COLECCION' - Visible = False - GroupIndex = 0 - end - object cxGridViewCODIGO: TcxGridDBColumn - Caption = 'C'#243'digo' - DataBinding.FieldName = 'CODIGO' - end - object cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - end - object cxGridViewTIPO_PRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'TIPO_PRODUCTO' - Visible = False - end - object cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'GRUPO_PRODUCTO' - Visible = False - end - object cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - end - object cxGridViewE38: TcxGridDBColumn - DataBinding.FieldName = 'E38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewE40: TcxGridDBColumn - DataBinding.FieldName = 'E40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewE42: TcxGridDBColumn - DataBinding.FieldName = 'E42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewE44: TcxGridDBColumn - DataBinding.FieldName = 'E44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewE46: TcxGridDBColumn - DataBinding.FieldName = 'E46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewE48: TcxGridDBColumn - DataBinding.FieldName = 'E48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewTE: TcxGridDBColumn - DataBinding.FieldName = 'TE' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.OnGetContentStyle = cxGridViewTEStylesGetContentStyle - end - object cxGridViewS38: TcxGridDBColumn - DataBinding.FieldName = 'S38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewS40: TcxGridDBColumn - DataBinding.FieldName = 'S40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewS42: TcxGridDBColumn - DataBinding.FieldName = 'S42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewS44: TcxGridDBColumn - DataBinding.FieldName = 'S44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewS46: TcxGridDBColumn - DataBinding.FieldName = 'S46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewS48: TcxGridDBColumn - DataBinding.FieldName = 'S48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewTS: TcxGridDBColumn - DataBinding.FieldName = 'TS' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK38: TcxGridDBColumn - DataBinding.FieldName = 'K38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK40: TcxGridDBColumn - DataBinding.FieldName = 'K40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK42: TcxGridDBColumn - DataBinding.FieldName = 'K42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK44: TcxGridDBColumn - DataBinding.FieldName = 'K44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK46: TcxGridDBColumn - DataBinding.FieldName = 'K46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK48: TcxGridDBColumn - DataBinding.FieldName = 'K48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewKT: TcxGridDBColumn - DataBinding.FieldName = 'KT' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridViewE38GetDataText - HeaderAlignmentHorz = taRightJustify - end - end - end - inline frViewFiltrosStock1: TfrViewFiltrosStock [1] - Left = 0 - Top = 0 - Width = 553 - Height = 49 - Align = alTop - Color = clWindow - ParentBackground = False - ParentColor = False - TabOrder = 1 - inherited dxLayoutControl1: TdxLayoutControl - Width = 553 - inherited cbColeccion: TcxComboBox - Left = 64 - Properties.OnEditValueChanged = frViewFiltrosStock1cbColeccionPropertiesEditValueChanged - Width = 121 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 284 - Width = 191 - OnChange = frViewFiltrosStock1ccbCentroChange - end - end - end - inherited dsDataSource: TDADataSource [2] - Left = 72 - Top = 88 - end - inherited dxComponentPrinter: TdxComponentPrinter [3] - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.LeftTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.Caption = 'Venta mensual' - ReportDocument.CreationDate = 39129.445520289350000000 - ReportTitle.Text = 'Venta mensual' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = 10 - Font.Name = 'Tahoma' - Font.Style = [] - OptionsOnEveryPage.Footers = False - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.FilterBar = False - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - BuiltInReportLink = True - end - end - inherited dxPSEngineController1: TdxPSEngineController [4] - end - inherited cxStyleRepository1: TcxStyleRepository - inherited cxStyleEven: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - object cxStyleEntrada: TcxStyle - AssignedValues = [svTextColor] - TextColor = clNavy - end - object cxStyleSalida: TcxStyle - AssignedValues = [svTextColor] - TextColor = clGreen - end - object cxStyleTotales: TcxStyle - AssignedValues = [svColor, svFont] - Color = 13619151 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - end - object cxEditRepository1: TcxEditRepository - Left = 32 - Top = 88 - object cxEditDia: TcxEditRepositoryTextItem - Properties.Alignment.Horz = taRightJustify - end - object cxEditImporte: TcxEditRepositoryCurrencyItem - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = ',0.## '#8364';-,0.## '#8364 - Properties.UseThousandSeparator = True - end - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 296 - Top = 168 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas deleted file mode 100644 index cce71fc..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas +++ /dev/null @@ -1,220 +0,0 @@ -unit uViewControGridStockEDI; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls, cxSpinEdit, uViewGrid, cxMemo, - cxEditRepositoryItems, uDataModuleStock, uViewFiltrosStock; - -type - IViewControlGridStockEDI = interface(IViewGrid) - ['{9342442A-28CD-4EA9-95C3-79B1B5302BCE}'] - end; - - TfrViewControlGridStockEDI = class(TfrViewGrid, IViewControlGridStockEDI) - dxComponentPrinterLink1: TdxGridReportLink; - cxEditRepository1: TcxEditRepository; - cxEditDia: TcxEditRepositoryTextItem; - cxEditImporte: TcxEditRepositoryCurrencyItem; - cxGridViewRecID: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewTIPO_PRODUCTO: TcxGridDBColumn; - cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn; - cxGridViewCOLECCION: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewE38: TcxGridDBColumn; - cxGridViewE40: TcxGridDBColumn; - cxGridViewE42: TcxGridDBColumn; - cxGridViewE44: TcxGridDBColumn; - cxGridViewE46: TcxGridDBColumn; - cxGridViewE48: TcxGridDBColumn; - cxGridViewTE: TcxGridDBColumn; - cxGridViewS38: TcxGridDBColumn; - cxGridViewS40: TcxGridDBColumn; - cxGridViewS42: TcxGridDBColumn; - cxGridViewS44: TcxGridDBColumn; - cxGridViewS46: TcxGridDBColumn; - cxGridViewS48: TcxGridDBColumn; - cxGridViewTS: TcxGridDBColumn; - cxGridViewK38: TcxGridDBColumn; - cxGridViewK40: TcxGridDBColumn; - cxGridViewK42: TcxGridDBColumn; - cxGridViewK44: TcxGridDBColumn; - cxGridViewK46: TcxGridDBColumn; - cxGridViewK48: TcxGridDBColumn; - cxGridViewKT: TcxGridDBColumn; - frViewFiltrosStock1: TfrViewFiltrosStock; - cxStyleEntrada: TcxStyle; - cxStyleSalida: TcxStyle; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxStyleTotales: TcxStyle; - procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewE38GetDataText(Sender: TcxCustomGridTableItem; - ARecordIndex: Integer; var AText: String); - procedure cxGridViewTEStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); - procedure frViewFiltrosStock1ccbCentroChange(Sender: TObject); - protected - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - public - procedure Preview; override; - procedure Print; override; - constructor Create(AOwner: TComponent); override; - procedure ShowEmbedded(const AParent : TWinControl); override; - procedure Refresh; override; - end; - -implementation -{$R *.dfm} - -uses uViewGridBase; - -{ TfrViewControlGridResumenVentas } - -procedure TfrViewControlGridStockEDI.Preview; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewControlGridStockEDI.Print; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; - dxComponentPrinterLink1.Print(True, Nil); -end; - -procedure TfrViewControlGridStockEDI.cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - inherited; - if not VarIsNull(AViewInfo.Value) then - if Pos('-', AViewInfo.Value) > 0 then - ACanvas.Canvas.Font.Color := $000000CC; -end; - -constructor TfrViewControlGridStockEDI.Create(AOwner: TComponent); -begin - inherited; - frViewFiltrosStock1.FocusedView := cxGridView; - frViewFiltrosStock1.ColeccionColumnIndex := cxGridViewCOLECCION.Index; - frViewFiltrosStock1.CentroColumnIndex := cxGridViewCENTRO.Index; -end; - -procedure TfrViewControlGridStockEDI.ShowEmbedded( - const AParent: TWinControl); -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - -procedure TfrViewControlGridStockEDI.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - // - if Assigned(AItem) then - if (AItem.Index = cxGridViewTE.Index) or - (AItem.Index = cxGridViewTS.Index) or - (AItem.Index = cxGridViewKT.Index) then - AStyle := cxStyleTotales; -end; - -procedure TfrViewControlGridStockEDI.cxGridViewE38GetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -begin - inherited; - if AText = '0' then - AText := ''; -end; - -procedure TfrViewControlGridStockEDI.cxGridViewTEStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - AStyle := cxStyleTotales; -end; - -procedure TfrViewControlGridStockEDI.Refresh; -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - - -procedure TfrViewControlGridStockEDI.frViewFiltrosStock1cbColeccionPropertiesEditValueChanged( - Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewControlGridStockEDI.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; - i : integer; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - AItemList := cxGridView.DataController.Filter.Root; - FNivelFiltrado := AItemList.AddItemList(fboAnd); - - if (Length(frViewFiltrosStock1.cbColeccion.Text) > 0) and (frViewFiltrosStock1.cbColeccion.Text <> 'Todos') then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.ColeccionColumnIndex], foEqual, frViewFiltrosStock1.cbColeccion.Text, frViewFiltrosStock1.cbColeccion.Text); - - if (Length(frViewFiltrosStock1.ccbCentro.Text) > 0) and - (Pos('Todos', frViewFiltrosStock1.ccbCentro.Text) = 0) then - begin - FNivelFiltrado := FNivelFiltrado.AddItemList(fboOr); - for i := 0 to frViewFiltrosStock1.ccbCentro.Items.Count - 1 do - if frViewFiltrosStock1.ccbCentro.IsChecked(i) then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.CentroColumnIndex], foEqual, frViewFiltrosStock1.ccbCentro.Items[i], frViewFiltrosStock1.ccbCentro.Items[i]); - end; - - if cxGridView.DataController.Filter.IsEmpty then - cxGridView.DataController.Filter.Active := False - else - cxGridView.DataController.Filter.Active := True; - - cxGridView.DataController.Filter.EndUpdate; -end; - -procedure TfrViewControlGridStockEDI.frViewFiltrosStock1ccbCentroChange( - Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm deleted file mode 100644 index e5c482c..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm +++ /dev/null @@ -1,609 +0,0 @@ -inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventario - Width = 553 - Height = 477 - inherited cxGrid: TcxGrid - Top = 49 - Width = 553 - Height = 428 - inherited cxGridView: TcxGridDBTableView - FilterBox.Visible = fvNever - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewI38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewI40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewI42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewI44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewI46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewI48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewTI - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewTK - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewD38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewD40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewD42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewD44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewD46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewD48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewDT - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewI38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewI40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewI42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewI44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewI46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewI48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewTI - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewTK - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewD38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewD40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewD42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewD44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewD46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewD48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewDT - end> - OptionsView.CellAutoHeight = False - OptionsView.FooterAutoHeight = False - OptionsView.GridLineColor = clDefault - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.GroupRowStyle = grsOffice11 - Preview.AutoHeight = False - Styles.Footer = cxStyleEven - object cxGridViewRecID: TcxGridDBColumn - DataBinding.FieldName = 'RecID' - Visible = False - end - object cxGridViewCENTRO: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' - Visible = False - GroupIndex = 1 - end - object cxGridViewCOLECCION: TcxGridDBColumn - Caption = 'Colecci'#243'n' - DataBinding.FieldName = 'COLECCION' - Visible = False - GroupIndex = 0 - end - object cxGridViewCODIGO: TcxGridDBColumn - Caption = 'C'#243'digo' - DataBinding.FieldName = 'CODIGO' - end - object cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - end - object cxGridViewTIPO_PRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'TIPO_PRODUCTO' - Visible = False - end - object cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'GRUPO_PRODUCTO' - Visible = False - end - object cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - end - object cxGridViewI38: TcxGridDBColumn - DataBinding.FieldName = 'I38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewI40: TcxGridDBColumn - DataBinding.FieldName = 'I40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewI42: TcxGridDBColumn - DataBinding.FieldName = 'I42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewI44: TcxGridDBColumn - DataBinding.FieldName = 'I44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewI46: TcxGridDBColumn - DataBinding.FieldName = 'I46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewI48: TcxGridDBColumn - DataBinding.FieldName = 'I48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleEntrada - end - object cxGridViewTI: TcxGridDBColumn - DataBinding.FieldName = 'TI' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.OnGetContentStyle = cxGridViewTEStylesGetContentStyle - end - object cxGridViewK38: TcxGridDBColumn - DataBinding.FieldName = 'K38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewK40: TcxGridDBColumn - DataBinding.FieldName = 'K40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewK42: TcxGridDBColumn - DataBinding.FieldName = 'K42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewK44: TcxGridDBColumn - DataBinding.FieldName = 'K44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewK46: TcxGridDBColumn - DataBinding.FieldName = 'K46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewK48: TcxGridDBColumn - DataBinding.FieldName = 'K48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.Content = cxStyleSalida - end - object cxGridViewTK: TcxGridDBColumn - DataBinding.FieldName = 'TK' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewD38: TcxGridDBColumn - DataBinding.FieldName = 'D38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewD40: TcxGridDBColumn - DataBinding.FieldName = 'D40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewD42: TcxGridDBColumn - DataBinding.FieldName = 'D42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewD44: TcxGridDBColumn - DataBinding.FieldName = 'D44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewD46: TcxGridDBColumn - DataBinding.FieldName = 'D46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewD48: TcxGridDBColumn - DataBinding.FieldName = 'D48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewDT: TcxGridDBColumn - DataBinding.FieldName = 'DT' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - OnCustomDrawCell = cxGridViewDTCustomDrawCell - OnGetDataText = cxGridViewI38GetDataText - HeaderAlignmentHorz = taRightJustify - end - end - end - inline frViewFiltrosStock1: TfrViewFiltrosStock [1] - Left = 0 - Top = 0 - Width = 553 - Height = 49 - Align = alTop - Color = clWindow - ParentBackground = False - ParentColor = False - TabOrder = 1 - inherited dxLayoutControl1: TdxLayoutControl - Width = 553 - inherited cbColeccion: TcxComboBox - Left = 64 - Properties.OnEditValueChanged = frViewFiltrosStock1cbColeccionPropertiesEditValueChanged - Width = 145 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 257 - Width = 184 - OnChange = frViewFiltrosStock1ccbCentroChange - end - end - end - inherited dsDataSource: TDADataSource [2] - Left = 72 - Top = 88 - end - inherited dxComponentPrinter: TdxComponentPrinter [3] - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.LeftTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.Caption = 'Venta mensual' - ReportDocument.CreationDate = 39129.445522280090000000 - ReportTitle.Text = 'Venta mensual' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = 10 - Font.Name = 'Tahoma' - Font.Style = [] - OptionsOnEveryPage.Footers = False - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.FilterBar = False - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Selection = cxStyleSelectionInforme - BuiltInReportLink = True - end - end - inherited dxPSEngineController1: TdxPSEngineController [4] - end - inherited cxStyleRepository1: TcxStyleRepository - inherited cxStyleEven: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - object cxStyleEntrada: TcxStyle - AssignedValues = [svTextColor] - TextColor = clNavy - end - object cxStyleSalida: TcxStyle - AssignedValues = [svTextColor] - TextColor = clGreen - end - object cxStyleTotales: TcxStyle - AssignedValues = [svColor, svFont] - Color = 13619151 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - end - object cxEditRepository1: TcxEditRepository - Left = 32 - Top = 88 - object cxEditDia: TcxEditRepositoryTextItem - Properties.Alignment.Horz = taRightJustify - end - object cxEditImporte: TcxEditRepositoryCurrencyItem - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = ',0.## '#8364';-,0.## '#8364 - Properties.UseThousandSeparator = True - end - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 296 - Top = 168 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas deleted file mode 100644 index cb8e1b5..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas +++ /dev/null @@ -1,224 +0,0 @@ -unit uViewControGridStockEDIInventario; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls, cxSpinEdit, uViewGrid, cxMemo, - cxEditRepositoryItems, uDataModuleStock, uViewFiltrosStock; - -type - IViewControlGridStockEDIInventario = interface(IViewGrid) - ['{38BB8BB9-E15D-4D49-970E-14418C4EB1E4}'] - end; - - TfrViewControlGridStockEDIInventario = class(TfrViewGrid, IViewControlGridStockEDIInventario) - dxComponentPrinterLink1: TdxGridReportLink; - cxEditRepository1: TcxEditRepository; - cxEditDia: TcxEditRepositoryTextItem; - cxEditImporte: TcxEditRepositoryCurrencyItem; - cxGridViewRecID: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewTIPO_PRODUCTO: TcxGridDBColumn; - cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn; - cxGridViewCOLECCION: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewI38: TcxGridDBColumn; - cxGridViewI40: TcxGridDBColumn; - cxGridViewI42: TcxGridDBColumn; - cxGridViewI44: TcxGridDBColumn; - cxGridViewI46: TcxGridDBColumn; - cxGridViewI48: TcxGridDBColumn; - cxGridViewTI: TcxGridDBColumn; - cxGridViewK38: TcxGridDBColumn; - cxGridViewK40: TcxGridDBColumn; - cxGridViewK42: TcxGridDBColumn; - cxGridViewK44: TcxGridDBColumn; - cxGridViewK46: TcxGridDBColumn; - cxGridViewK48: TcxGridDBColumn; - cxGridViewTK: TcxGridDBColumn; - cxGridViewD38: TcxGridDBColumn; - cxGridViewD40: TcxGridDBColumn; - cxGridViewD42: TcxGridDBColumn; - cxGridViewD44: TcxGridDBColumn; - cxGridViewD46: TcxGridDBColumn; - cxGridViewD48: TcxGridDBColumn; - cxGridViewDT: TcxGridDBColumn; - frViewFiltrosStock1: TfrViewFiltrosStock; - cxStyleEntrada: TcxStyle; - cxStyleSalida: TcxStyle; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxStyleTotales: TcxStyle; - procedure cxGridViewDTCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewI38GetDataText(Sender: TcxCustomGridTableItem; - ARecordIndex: Integer; var AText: String); - procedure cxGridViewTEStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); - procedure frViewFiltrosStock1ccbCentroChange(Sender: TObject); - protected - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - public - procedure Preview; override; - procedure Print; override; - constructor Create(AOwner: TComponent); override; - procedure ShowEmbedded(const AParent : TWinControl); override; - procedure Refresh; override; - end; - -implementation -{$R *.dfm} - -uses - uViewGridBase; - -{ TfrViewControlGridResumenVentas } - -procedure TfrViewControlGridStockEDIInventario.Preview; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewControlGridStockEDIInventario.Print; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; - dxComponentPrinterLink1.Print(True, Nil); -end; - -procedure TfrViewControlGridStockEDIInventario.cxGridViewDTCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - inherited; - if not VarIsNull(AViewInfo.Value) then - if Pos('-', AViewInfo.Value) > 0 then - ACanvas.Canvas.Font.Color := $000000CC; -end; - -constructor TfrViewControlGridStockEDIInventario.Create(AOwner: TComponent); -begin - inherited; - frViewFiltrosStock1.FocusedView := cxGridView; - frViewFiltrosStock1.ColeccionColumnIndex := cxGridViewCOLECCION.Index; - frViewFiltrosStock1.CentroColumnIndex := cxGridViewCENTRO.Index; -end; - -procedure TfrViewControlGridStockEDIInventario.ShowEmbedded( - const AParent: TWinControl); -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - -procedure TfrViewControlGridStockEDIInventario.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - // - if Assigned(AItem) then - if (AItem.Index = cxGridViewTI.Index) or - (AItem.Index = cxGridViewTK.Index) or - (AItem.Index = cxGridViewDT.Index) then - AStyle := cxStyleTotales; -end; - -procedure TfrViewControlGridStockEDIInventario.cxGridViewI38GetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -begin - inherited; - if AText = '0' then - AText := ''; -end; - -procedure TfrViewControlGridStockEDIInventario.cxGridViewTEStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - AStyle := cxStyleTotales; -end; - -procedure TfrViewControlGridStockEDIInventario.Refresh; -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - -procedure TfrViewControlGridStockEDIInventario.frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewControlGridStockEDIInventario.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; - i : Integer; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - ShowHourglassCursor; - try - AItemList := cxGridView.DataController.Filter.Root; - AItemList.Clear; - FNivelFiltrado := AItemList.AddItemList(fboAnd); - - if (Length(frViewFiltrosStock1.cbColeccion.Text) > 0) and (frViewFiltrosStock1.cbColeccion.Text <> 'Todos') then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.ColeccionColumnIndex], foEqual, frViewFiltrosStock1.cbColeccion.Text, frViewFiltrosStock1.cbColeccion.Text); - - if (Length(frViewFiltrosStock1.ccbCentro.Text) > 0) and - (Pos('Todos', frViewFiltrosStock1.ccbCentro.Text) = 0) then - begin - FNivelFiltrado := FNivelFiltrado.AddItemList(fboOr); - for i := 0 to frViewFiltrosStock1.ccbCentro.Items.Count - 1 do - if frViewFiltrosStock1.ccbCentro.IsChecked(i) then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.CentroColumnIndex], foEqual, frViewFiltrosStock1.ccbCentro.Items[i], frViewFiltrosStock1.ccbCentro.Items[i]); - end; - - if cxGridView.DataController.Filter.IsEmpty then - cxGridView.DataController.Filter.Active := False - else - cxGridView.DataController.Filter.Active := True; - finally - cxGridView.DataController.Filter.EndUpdate; - HideHourglassCursor; - end; -end; - -procedure TfrViewControlGridStockEDIInventario.frViewFiltrosStock1ccbCentroChange( - Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm deleted file mode 100644 index 2f3e4dd..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm +++ /dev/null @@ -1,351 +0,0 @@ -inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCentros - Width = 621 - Height = 459 - inherited cxGrid: TcxGrid - Top = 43 - Width = 621 - Height = 416 - inherited cxGridView: TcxGridDBTableView - FilterBox.Visible = fvNever - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Column = cxGridViewPRODUCTO - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridView38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridView40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridView42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridView44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridView46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridView48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewTOTAL - end> - OptionsView.GridLineColor = clDefault - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.GroupRowStyle = grsOffice11 - Preview.AutoHeight = False - Styles.Footer = cxStyleEven - object cxGridViewCODIGO: TcxGridDBColumn - DataBinding.FieldName = 'CODIGO' - SortIndex = 0 - SortOrder = soAscending - end - object cxGridViewPRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'PRODUCTO' - end - object cxGridViewTIPO_PRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'TIPO_PRODUCTO' - Visible = False - end - object cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'GRUPO_PRODUCTO' - Visible = False - end - object cxGridViewCOLECCION: TcxGridDBColumn - DataBinding.FieldName = 'COLECCION' - Visible = False - end - object cxGridViewCOLOR: TcxGridDBColumn - DataBinding.FieldName = 'COLOR' - end - object cxGridView38: TcxGridDBColumn - DataBinding.FieldName = 'T38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridView40: TcxGridDBColumn - DataBinding.FieldName = 'T40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridView42: TcxGridDBColumn - DataBinding.FieldName = 'T42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridView44: TcxGridDBColumn - DataBinding.FieldName = 'T44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridView46: TcxGridDBColumn - DataBinding.FieldName = 'T46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridView48: TcxGridDBColumn - DataBinding.FieldName = 'T48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTOTAL: TcxGridDBColumn - DataBinding.FieldName = 'TOTAL' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,###' - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridView38GetDataText - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - Styles.OnGetContentStyle = cxGridViewCOLUMN7StylesGetContentStyle - end - end - end - inline frViewFiltrosStock1: TfrViewFiltrosStock [1] - Left = 0 - Top = 0 - Width = 621 - Height = 43 - Align = alTop - Color = clWindow - ParentBackground = False - ParentColor = False - TabOrder = 1 - inherited dxLayoutControl1: TdxLayoutControl - Width = 621 - inherited cbColeccion: TcxComboBox - Left = 64 - Properties.OnEditValueChanged = frViewFiltrosStock1cbColeccionPropertiesEditValueChanged - Width = 161 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 273 - OnChange = frViewFiltrosStock1ccbCentroChange - end - inherited dxLayoutControl1Group_Root: TdxLayoutGroup - inherited dxLayoutControl1Item3: TdxLayoutItem - Visible = False - end - end - end - end - inherited dsDataSource: TDADataSource [2] - Left = 24 - Top = 120 - end - inherited dxComponentPrinter: TdxComponentPrinter [3] - CurrentLink = dxComponentPrinterLink1 - PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint, peoReportDesign] - Left = 184 - Top = 120 - object dxComponentPrinterLink1: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.LeftTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 39129.445565682870000000 - ReportDocument.IsCaptionAssigned = True - ReportTitle.AdjustOnReportScale = True - ReportTitle.Text = 'Venta mensual' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = 10 - Font.Name = 'Tahoma' - Font.Style = [] - OptionsFormatting.UseNativeStyles = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.FilterBar = False - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - SupportedCustomDraw = True - BuiltInReportLink = True - end - end - inherited dxPSEngineController1: TdxPSEngineController [4] - Left = 96 - Top = 104 - end - inherited cxStyleRepository1: TcxStyleRepository - inherited cxStyleEven: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - object cxStyleEntrada: TcxStyle - AssignedValues = [svTextColor] - TextColor = clNavy - end - object cxStyleSalida: TcxStyle - AssignedValues = [svTextColor] - TextColor = clGreen - end - object cxStyleTotales: TcxStyle - AssignedValues = [svColor, svFont] - Color = 13619151 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 296 - Top = 168 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas deleted file mode 100644 index 3a06f07..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas +++ /dev/null @@ -1,199 +0,0 @@ -unit uViewControGridStockPrendasCentros; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls, cxSpinEdit, uViewGrid, cxMemo, - cxEditRepositoryItems, uDataModuleStock, uCustomView, uViewBase, - uViewParametrosControlGrid, uViewFiltrosStock, Grids, DBGrids; - -type - IViewControlGridStockPrendasCentros = interface(IViewGrid) - ['{E6251B25-10FE-4D0C-94CD-0E554F88B54D}'] - end; - - TfrViewControlGridStockPrendasCentros = class(TfrViewGrid, IViewControlGridStockPrendasCentros) - dxComponentPrinterLink1: TdxGridReportLink; - frViewFiltrosStock1: TfrViewFiltrosStock; - cxStyleEntrada: TcxStyle; - cxStyleSalida: TcxStyle; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxStyleTotales: TcxStyle; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewTIPO_PRODUCTO: TcxGridDBColumn; - cxGridViewGRUPO_PRODUCTO: TcxGridDBColumn; - cxGridViewCOLECCION: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridView38: TcxGridDBColumn; - cxGridView40: TcxGridDBColumn; - cxGridView42: TcxGridDBColumn; - cxGridView44: TcxGridDBColumn; - cxGridView46: TcxGridDBColumn; - cxGridView48: TcxGridDBColumn; - cxGridViewTOTAL: TcxGridDBColumn; - procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure cxGridViewCOLUMN7StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridView38GetDataText(Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: String); - procedure frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); - procedure frViewFiltrosStock1cbCentroPropertiesEditValueChanged(Sender: TObject); - procedure frViewFiltrosStock1ccbCentroChange(Sender: TObject); - protected - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - function GetFocusedView : TcxGridDBTableView; override; - public - procedure ShowEmbedded(const AParent : TWinControl); override; - procedure Preview; override; - procedure Print; override; - constructor Create(AOwner: TComponent); override; - procedure Refresh; override; - end; - -implementation -{$R *.dfm} - -uses uViewGridBase; - -{ TfrViewControlGridResumenVentas } - -procedure TfrViewControlGridStockPrendasCentros.Preview; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Resumen de stock por centros de colección: ' + frViewFiltrosStock1.cbColeccion.Text; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewControlGridStockPrendasCentros.Print; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Resumen de stock por centros de colección: ' + frViewFiltrosStock1.cbColeccion.Text; - dxComponentPrinterLink1.Print(True, Nil); -end; - -procedure TfrViewControlGridStockPrendasCentros.cxGridViewKTCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - inherited; - if not VarIsNull(AViewInfo.Value) then - if Pos('-', AViewInfo.Value) > 0 then - ACanvas.Canvas.Font.Color := $000000CC; -end; - -constructor TfrViewControlGridStockPrendasCentros.Create(AOwner: TComponent); -begin - inherited; - frViewFiltrosStock1.FocusedView := cxGridView; - frViewFiltrosStock1.CentroColumnIndex := -1; - frViewFiltrosStock1.ColeccionColumnIndex := cxGridViewCOLECCION.Index; -end; - -function TfrViewControlGridStockPrendasCentros.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -procedure TfrViewControlGridStockPrendasCentros.ShowEmbedded( - const AParent: TWinControl); -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - -procedure TfrViewControlGridStockPrendasCentros.cxGridViewCOLUMN7StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - AStyle := cxStyleTotales; -end; - -procedure TfrViewControlGridStockPrendasCentros.Refresh; -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - -procedure TfrViewControlGridStockPrendasCentros.cxGridView38GetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -begin - inherited; - if AText = '0' then - AText := ''; -end; - -procedure TfrViewControlGridStockPrendasCentros.frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewControlGridStockPrendasCentros.frViewFiltrosStock1cbCentroPropertiesEditValueChanged(Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewControlGridStockPrendasCentros.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; - i : Integer; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - AItemList := cxGridView.DataController.Filter.Root; - FNivelFiltrado := AItemList.AddItemList(fboAnd); - - if (Length(frViewFiltrosStock1.cbColeccion.Text) > 0) and (frViewFiltrosStock1.cbColeccion.Text <> 'Todos') then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.ColeccionColumnIndex], foEqual, frViewFiltrosStock1.cbColeccion.Text, frViewFiltrosStock1.cbColeccion.Text); - - - if (Length(frViewFiltrosStock1.ccbCentro.Text) > 0) and - (Pos('Todos', frViewFiltrosStock1.ccbCentro.Text) = 0) then - begin - FNivelFiltrado := FNivelFiltrado.AddItemList(fboOr); - for i := 0 to frViewFiltrosStock1.ccbCentro.Items.Count - 1 do - if frViewFiltrosStock1.ccbCentro.IsChecked(i) then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.CentroColumnIndex], foEqual, frViewFiltrosStock1.ccbCentro.Items[i], frViewFiltrosStock1.ccbCentro.Items[i]); - end; - - if cxGridView.DataController.Filter.IsEmpty then - cxGridView.DataController.Filter.Active := False - else - cxGridView.DataController.Filter.Active := True; - - cxGridView.DataController.Filter.EndUpdate; -end; - -procedure TfrViewControlGridStockPrendasCentros.frViewFiltrosStock1ccbCentroChange( - Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.ddp b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.dfm deleted file mode 100644 index bbfa397..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.dfm +++ /dev/null @@ -1,365 +0,0 @@ -inherited frViewControlGridStockVARELA: TfrViewControlGridStockVARELA - Width = 621 - Height = 459 - inherited cxGrid: TcxGrid - Top = 43 - Width = 621 - Height = 416 - inherited cxGridView: TcxGridDBTableView - FilterBox.Visible = fvNever - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Position = spFooter - Column = cxGridViewPRODUCTO - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Position = spFooter - Column = cxGridViewKT - end> - DataController.Summary.FooterSummaryItems = < - item - Format = '0 referencias' - Kind = skCount - Column = cxGridViewPRODUCTO - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK38 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK40 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK42 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK44 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK46 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewK48 - end - item - Format = '#,##0' - Kind = skSum - Column = cxGridViewKT - end> - OptionsView.GridLineColor = clDefault - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.GroupRowStyle = grsOffice11 - Preview.AutoHeight = False - Styles.Footer = cxStyleEven - object cxGridViewRecID: TcxGridDBColumn - DataBinding.FieldName = 'RecID' - Visible = False - end - object cxGridViewFILIAL: TcxGridDBColumn - DataBinding.FieldName = 'FILIAL' - Visible = False - end - object cxGridViewCODIGO: TcxGridDBColumn - Caption = 'C'#243'digo' - DataBinding.FieldName = 'CODIGO' - end - object cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - end - object cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - SortIndex = 0 - SortOrder = soAscending - end - object cxGridViewTIPO_PRODUTO: TcxGridDBColumn - DataBinding.FieldName = 'TIPO_PRODUTO' - Visible = False - end - object cxGridViewGRUPO_PRODUTO: TcxGridDBColumn - DataBinding.FieldName = 'GRUPO_PRODUTO' - Visible = False - end - object cxGridViewCOLECCION: TcxGridDBColumn - Caption = 'Colecci'#243'n' - DataBinding.FieldName = 'COLECCION' - Visible = False - GroupIndex = 0 - end - object cxGridViewK38: TcxGridDBColumn - DataBinding.FieldName = 'K38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK40: TcxGridDBColumn - DataBinding.FieldName = 'K40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK42: TcxGridDBColumn - DataBinding.FieldName = 'K42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK44: TcxGridDBColumn - DataBinding.FieldName = 'K44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK46: TcxGridDBColumn - DataBinding.FieldName = 'K46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewK48: TcxGridDBColumn - DataBinding.FieldName = 'K48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewKT: TcxGridDBColumn - DataBinding.FieldName = 'KT' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = '#,##0' - Properties.ValueType = vtInt - OnCustomDrawCell = cxGridViewKTCustomDrawCell - OnGetDataText = cxGridViewK38GetDataText - HeaderAlignmentHorz = taRightJustify - Styles.OnGetContentStyle = cxGridViewKTStylesGetContentStyle - end - end - end - inline frViewFiltrosStock1: TfrViewFiltrosStock [1] - Left = 0 - Top = 0 - Width = 621 - Height = 43 - Align = alTop - Color = clWindow - ParentBackground = False - ParentColor = False - TabOrder = 1 - inherited dxLayoutControl1: TdxLayoutControl - Width = 621 - inherited cbColeccion: TcxComboBox - Left = 64 - Properties.OnEditValueChanged = frViewFiltrosStock1cbColeccionPropertiesEditValueChanged - Width = 177 - end - inherited ccbCentro: TJvCheckedComboBox - Left = 289 - Width = 191 - OnChange = frViewFiltrosStock1ccbCentroChange - end - inherited dxLayoutControl1Group_Root: TdxLayoutGroup - inherited dxLayoutControl1Item3: TdxLayoutItem - Visible = False - end - end - end - end - inherited dsDataSource: TDADataSource [2] - end - inherited dxComponentPrinter: TdxComponentPrinter [3] - CurrentLink = dxComponentPrinterLink1 - PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint, peoReportDesign] - Left = 184 - Top = 120 - object dxComponentPrinterLink1: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.LeftTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 39141.797618263890000000 - ReportDocument.IsCaptionAssigned = True - ReportTitle.AdjustOnReportScale = True - ReportTitle.Text = 'Venta mensual' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = 10 - Font.Name = 'Tahoma' - Font.Style = [] - OptionsFormatting.UseNativeStyles = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.FilterBar = False - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - SupportedCustomDraw = True - BuiltInReportLink = True - end - end - inherited dxPSEngineController1: TdxPSEngineController [4] - Left = 96 - Top = 104 - end - inherited cxStyleRepository1: TcxStyleRepository - inherited cxStyleEven: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - object cxStyleEntrada: TcxStyle - AssignedValues = [svTextColor] - TextColor = clNavy - end - object cxStyleSalida: TcxStyle - AssignedValues = [svTextColor] - TextColor = clGreen - end - object cxStyleTotales: TcxStyle - AssignedValues = [svColor, svFont] - Color = 13619151 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 296 - Top = 168 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -9 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.pas deleted file mode 100644 index 26f5667..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewControGridStockVARELA.pas +++ /dev/null @@ -1,187 +0,0 @@ -unit uViewControGridStockVARELA; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls, cxSpinEdit, uViewGrid, cxMemo, - cxEditRepositoryItems, uDataModuleStock, uCustomView, uViewBase, - uViewParametrosControlGrid, uViewFiltrosStock; - -type - IViewControlGridStockVARELA = interface(IViewGrid) - ['{19831B1A-1D3B-4352-A848-52B00BFEF4EF}'] - end; - - TfrViewControlGridStockVARELA = class(TfrViewGrid, IViewControlGridStockVARELA) - dxComponentPrinterLink1: TdxGridReportLink; - cxGridViewRecID: TcxGridDBColumn; - cxGridViewFILIAL: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewTIPO_PRODUTO: TcxGridDBColumn; - cxGridViewGRUPO_PRODUTO: TcxGridDBColumn; - cxGridViewCOLECCION: TcxGridDBColumn; - cxGridViewK38: TcxGridDBColumn; - cxGridViewK40: TcxGridDBColumn; - cxGridViewK42: TcxGridDBColumn; - cxGridViewK44: TcxGridDBColumn; - cxGridViewK46: TcxGridDBColumn; - cxGridViewK48: TcxGridDBColumn; - cxGridViewKT: TcxGridDBColumn; - frViewFiltrosStock1: TfrViewFiltrosStock; - cxStyleEntrada: TcxStyle; - cxStyleSalida: TcxStyle; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxStyleTotales: TcxStyle; - procedure cxGridViewKTCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure cxGridViewK38GetDataText(Sender: TcxCustomGridTableItem; - ARecordIndex: Integer; var AText: String); - procedure cxGridViewKTStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); - procedure frViewFiltrosStock1ccbCentroChange(Sender: TObject); - protected - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - function GetFocusedView : TcxGridDBTableView; override; - public - procedure ShowEmbedded(const AParent : TWinControl); override; - procedure Preview; override; - procedure Print; override; - constructor Create(AOwner: TComponent); override; - end; - -implementation -{$R *.dfm} - -uses uViewGridBase; - -{ TfrViewControlGridResumenVentas } - -procedure TfrViewControlGridStockVARELA.Preview; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock en almacén'; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewControlGridStockVARELA.Print; -begin - inherited; - dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock en almacén'; - dxComponentPrinterLink1.Print(True, Nil); -end; - -procedure TfrViewControlGridStockVARELA.cxGridViewKTCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - inherited; - if not VarIsNull(AViewInfo.Value) then - if Pos('-', AViewInfo.Value) > 0 then - ACanvas.Canvas.Font.Color := $000000CC; -end; - -constructor TfrViewControlGridStockVARELA.Create(AOwner: TComponent); -begin - inherited; - frViewFiltrosStock1.FocusedView := cxGridView; - frViewFiltrosStock1.CentroColumnIndex := cxGridViewFILIAL.Index; - frViewFiltrosStock1.ColeccionColumnIndex := cxGridViewCOLECCION.Index; -end; - -function TfrViewControlGridStockVARELA.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -procedure TfrViewControlGridStockVARELA.ShowEmbedded( - const AParent: TWinControl); -begin - inherited; - frViewFiltrosStock1.Refresh; -end; - -procedure TfrViewControlGridStockVARELA.cxGridViewK38GetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -begin - inherited; - ShowMessage(AText); - if AText = '0' then - AText := ''; -end; - -procedure TfrViewControlGridStockVARELA.cxGridViewKTStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - AStyle := cxStyleTotales; -end; - -procedure TfrViewControlGridStockVARELA.frViewFiltrosStock1cbColeccionPropertiesEditValueChanged(Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewControlGridStockVARELA.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; - i : integer; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - AItemList := cxGridView.DataController.Filter.Root; - FNivelFiltrado := AItemList.AddItemList(fboAnd); - - if (Length(frViewFiltrosStock1.cbColeccion.Text) > 0) and (frViewFiltrosStock1.cbColeccion.Text <> 'Todos') then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.ColeccionColumnIndex], foEqual, frViewFiltrosStock1.cbColeccion.Text, frViewFiltrosStock1.cbColeccion.Text); - - if (Length(frViewFiltrosStock1.ccbCentro.Text) > 0) and - (Pos('Todos', frViewFiltrosStock1.ccbCentro.Text) = 0) then - begin - FNivelFiltrado := FNivelFiltrado.AddItemList(fboOr); - for i := 0 to frViewFiltrosStock1.ccbCentro.Items.Count - 1 do - if frViewFiltrosStock1.ccbCentro.IsChecked(i) then - FNivelFiltrado.AddItem(cxGridView.Columns[frViewFiltrosStock1.CentroColumnIndex], foEqual, frViewFiltrosStock1.ccbCentro.Items[i], frViewFiltrosStock1.ccbCentro.Items[i]); - end; - - if cxGridView.DataController.Filter.IsEmpty then - cxGridView.DataController.Filter.Active := False - else - cxGridView.DataController.Filter.Active := True; - - cxGridView.DataController.Filter.EndUpdate; -end; - -procedure TfrViewControlGridStockVARELA.frViewFiltrosStock1ccbCentroChange( - Sender: TObject); -begin - inherited; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewFiltrosStock.dfm b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewFiltrosStock.dfm deleted file mode 100644 index e2ead5c..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewFiltrosStock.dfm +++ /dev/null @@ -1,72 +0,0 @@ -object frViewFiltrosStock: TfrViewFiltrosStock - Left = 0 - Top = 0 - Width = 537 - Height = 105 - Color = clWindow - ParentBackground = False - ParentColor = False - TabOrder = 0 - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 0 - Width = 537 - Height = 41 - Align = alTop - ParentBackground = True - TabOrder = 0 - AutoContentSizes = [acsWidth, acsHeight] - object cbColeccion: TcxComboBox - Left = 64 - Top = 10 - Properties.DropDownListStyle = lsFixedList - Properties.DropDownRows = 18 - Properties.ReadOnly = False - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Width = 168 - end - object ccbCentro: TJvCheckedComboBox - Left = 280 - Top = 10 - Width = 191 - Height = 21 - CapSelectAll = '&Select all' - CapDeSelectAll = '&Deselect all' - NoFocusColor = clWindow - QuoteStyle = qsSingle - DropDownLines = 20 - TabOrder = 1 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item1: TdxLayoutItem - AutoAligns = [aaVertical] - Caption = 'Colecci'#243'n:' - Control = cbColeccion - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Centro:' - Control = ccbCentro - ControlOptions.ShowBorder = False - end - end - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewFiltrosStock.pas b/Varela/Varela/Source/Modulos/Stock/Cliente/uViewFiltrosStock.pas deleted file mode 100644 index c7f43ba..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Cliente/uViewFiltrosStock.pas +++ /dev/null @@ -1,111 +0,0 @@ -unit uViewFiltrosStock; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, dxLayoutControl, cxControls, uViewControlGrid, - cxGraphics, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, - cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, DB, cxDBData, - cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxGrid, cxCheckComboBox, StdCtrls, - Mask, JvExMask, JvToolEdit, JvCombobox; - -type - IViewFiltrosStock = interface - ['{ABC745C3-64F0-44E4-AF4B-118AE5060150}'] - procedure SetFocusedView (const Value : TcxGridDBTableView); - function GetFocusedView : TcxGridDBTableView; - property FocusedView : TcxGridDBTableView read GetFocusedView write SetFocusedView; - procedure Refresh; - end; - - TfrViewFiltrosStock = class(TFrame, IViewFiltrosStock) - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - cbColeccion: TcxComboBox; - dxLayoutControl1Item1: TdxLayoutItem; - dxLayoutControl1Item3: TdxLayoutItem; - ccbCentro: TJvCheckedComboBox; - private - FFocusedView : TcxGridDBTableView; - function GetFilterValueList(AColumnIndex: Integer): TStringList; - protected - procedure RellenarFiltros; - procedure SetFocusedView (const Value : TcxGridDBTableView); - function GetFocusedView : TcxGridDBTableView; - public - CentroColumnIndex : Integer; - ColeccionColumnIndex : Integer; - property FocusedView : TcxGridDBTableView read GetFocusedView write SetFocusedView; - procedure Refresh; - end; - - -implementation - -{$R *.dfm} - -{ TfrViewFiltrosStock } - -function TfrViewFiltrosStock.GetFilterValueList(AColumnIndex: Integer): TStringList; -var - AValueList : TcxDataFilterValueList; - i : Integer; -begin - Result := TStringList.Create; - - if AColumnIndex < 0 then - Exit; - - AValueList := TcxDataFilterValueList.Create(FFocusedView.DataController.Filter); - try - AValueList.Load(AColumnIndex); - for i := 0 to AValueList.Count - 1 do - Result.Add(AValueList[i].DisplayText); - finally - FreeAndNil(AValueList); - end; -end; - -function TfrViewFiltrosStock.GetFocusedView: TcxGridDBTableView; -begin - Result := FFocusedView; -end; - -procedure TfrViewFiltrosStock.Refresh; -begin - inherited; - RellenarFiltros; -end; - -procedure TfrViewFiltrosStock.RellenarFiltros; -begin - if ColeccionColumnIndex >= 0 then - with cbColeccion.Properties do - begin - Items.Clear; - Items.AddStrings(GetFilterValueList(ColeccionColumnIndex)); - Items.Delete(1); - Items.Strings[0] := 'Todos'; - cbColeccion.Text := 'Todos'; - end; - - if CentroColumnIndex >= 0 then - with ccbCentro do - begin - Items.Clear; - Items.AddStrings(GetFilterValueList(CentroColumnIndex)); - Items.Delete(1); - Items.Strings[0] := 'Todos'; - Checked[0] := True; - end; -end; - -procedure TfrViewFiltrosStock.SetFocusedView( - const Value: TcxGridDBTableView); -begin - FFocusedView := Value; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas b/Varela/Varela/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas deleted file mode 100644 index e984ff2..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas +++ /dev/null @@ -1,1684 +0,0 @@ -unit schStockClient_Intf; - -interface - -uses - Classes, DB, 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_StockPrendasCentros = '{A01C38D3-19DC-42D1-A0CB-6ABF3E9D5507}'; - RID_StockEDI = '{0CB949AB-F343-4ECF-9163-69234641CEB1}'; - RID_StockVARELA = '{DFB28AB8-F8C4-4AAD-AA73-8015541091D0}'; - RID_StockEDIInventario = '{5496215D-7A4A-43E1-929A-D0538C931177}'; - - { Data table names } - nme_StockPrendasCentros = 'StockPrendasCentros'; - nme_StockEDI = 'StockEDI'; - nme_StockVARELA = 'StockVARELA'; - nme_StockEDIInventario = 'StockEDIInventario'; - - { StockPrendasCentros fields } - fld_StockPrendasCentrosCODIGO = 'CODIGO'; - fld_StockPrendasCentrosPRODUCTO = 'PRODUCTO'; - fld_StockPrendasCentrosTIPO_PRODUCTO = 'TIPO_PRODUCTO'; - fld_StockPrendasCentrosGRUPO_PRODUCTO = 'GRUPO_PRODUCTO'; - fld_StockPrendasCentrosCOLECCION = 'COLECCION'; - fld_StockPrendasCentrosCOLOR = 'COLOR'; - fld_StockPrendasCentrosT38 = 'T38'; - fld_StockPrendasCentrosT40 = 'T40'; - fld_StockPrendasCentrosT42 = 'T42'; - fld_StockPrendasCentrosT44 = 'T44'; - fld_StockPrendasCentrosT46 = 'T46'; - fld_StockPrendasCentrosT48 = 'T48'; - fld_StockPrendasCentrosTOTAL = 'TOTAL'; - - { StockPrendasCentros field indexes } - idx_StockPrendasCentrosCODIGO = 0; - idx_StockPrendasCentrosPRODUCTO = 1; - idx_StockPrendasCentrosTIPO_PRODUCTO = 2; - idx_StockPrendasCentrosGRUPO_PRODUCTO = 3; - idx_StockPrendasCentrosCOLECCION = 4; - idx_StockPrendasCentrosCOLOR = 5; - idx_StockPrendasCentrosT38 = 6; - idx_StockPrendasCentrosT40 = 7; - idx_StockPrendasCentrosT42 = 8; - idx_StockPrendasCentrosT44 = 9; - idx_StockPrendasCentrosT46 = 10; - idx_StockPrendasCentrosT48 = 11; - idx_StockPrendasCentrosTOTAL = 12; - - { StockEDI fields } - fld_StockEDICENTRO = 'CENTRO'; - fld_StockEDICODIGO = 'CODIGO'; - fld_StockEDIPRODUCTO = 'PRODUCTO'; - fld_StockEDITIPO_PRODUCTO = 'TIPO_PRODUCTO'; - fld_StockEDIGRUPO_PRODUCTO = 'GRUPO_PRODUCTO'; - fld_StockEDICOLECCION = 'COLECCION'; - fld_StockEDICOLOR = 'COLOR'; - fld_StockEDIE38 = 'E38'; - fld_StockEDIE40 = 'E40'; - fld_StockEDIE42 = 'E42'; - fld_StockEDIE44 = 'E44'; - fld_StockEDIE46 = 'E46'; - fld_StockEDIE48 = 'E48'; - fld_StockEDITE = 'TE'; - fld_StockEDIS38 = 'S38'; - fld_StockEDIS40 = 'S40'; - fld_StockEDIS42 = 'S42'; - fld_StockEDIS44 = 'S44'; - fld_StockEDIS46 = 'S46'; - fld_StockEDIS48 = 'S48'; - fld_StockEDITS = 'TS'; - fld_StockEDIK38 = 'K38'; - fld_StockEDIK40 = 'K40'; - fld_StockEDIK42 = 'K42'; - fld_StockEDIK44 = 'K44'; - fld_StockEDIK46 = 'K46'; - fld_StockEDIK48 = 'K48'; - fld_StockEDIKT = 'KT'; - - { StockEDI field indexes } - idx_StockEDICENTRO = 0; - idx_StockEDICODIGO = 1; - idx_StockEDIPRODUCTO = 2; - idx_StockEDITIPO_PRODUCTO = 3; - idx_StockEDIGRUPO_PRODUCTO = 4; - idx_StockEDICOLECCION = 5; - idx_StockEDICOLOR = 6; - idx_StockEDIE38 = 7; - idx_StockEDIE40 = 8; - idx_StockEDIE42 = 9; - idx_StockEDIE44 = 10; - idx_StockEDIE46 = 11; - idx_StockEDIE48 = 12; - idx_StockEDITE = 13; - idx_StockEDIS38 = 14; - idx_StockEDIS40 = 15; - idx_StockEDIS42 = 16; - idx_StockEDIS44 = 17; - idx_StockEDIS46 = 18; - idx_StockEDIS48 = 19; - idx_StockEDITS = 20; - idx_StockEDIK38 = 21; - idx_StockEDIK40 = 22; - idx_StockEDIK42 = 23; - idx_StockEDIK44 = 24; - idx_StockEDIK46 = 25; - idx_StockEDIK48 = 26; - idx_StockEDIKT = 27; - - { StockVARELA fields } - fld_StockVARELAFILIAL = 'FILIAL'; - fld_StockVARELACODIGO = 'CODIGO'; - fld_StockVARELACOLOR = 'COLOR'; - fld_StockVARELAPRODUCTO = 'PRODUCTO'; - fld_StockVARELATIPO_PRODUTO = 'TIPO_PRODUTO'; - fld_StockVARELAGRUPO_PRODUTO = 'GRUPO_PRODUTO'; - fld_StockVARELACOLECCION = 'COLECCION'; - fld_StockVARELAK38 = 'K38'; - fld_StockVARELAK40 = 'K40'; - fld_StockVARELAK42 = 'K42'; - fld_StockVARELAK44 = 'K44'; - fld_StockVARELAK46 = 'K46'; - fld_StockVARELAK48 = 'K48'; - fld_StockVARELAKT = 'KT'; - - { StockVARELA field indexes } - idx_StockVARELAFILIAL = 0; - idx_StockVARELACODIGO = 1; - idx_StockVARELACOLOR = 2; - idx_StockVARELAPRODUCTO = 3; - idx_StockVARELATIPO_PRODUTO = 4; - idx_StockVARELAGRUPO_PRODUTO = 5; - idx_StockVARELACOLECCION = 6; - idx_StockVARELAK38 = 7; - idx_StockVARELAK40 = 8; - idx_StockVARELAK42 = 9; - idx_StockVARELAK44 = 10; - idx_StockVARELAK46 = 11; - idx_StockVARELAK48 = 12; - idx_StockVARELAKT = 13; - - { StockEDIInventario fields } - fld_StockEDIInventarioCENTRO = 'CENTRO'; - fld_StockEDIInventarioCODIGO = 'CODIGO'; - fld_StockEDIInventarioPRODUCTO = 'PRODUCTO'; - fld_StockEDIInventarioCOLOR = 'COLOR'; - fld_StockEDIInventarioTIPO_PRODUCTO = 'TIPO_PRODUCTO'; - fld_StockEDIInventarioGRUPO_PRODUCTO = 'GRUPO_PRODUCTO'; - fld_StockEDIInventarioCOLECCION = 'COLECCION'; - fld_StockEDIInventarioI38 = 'I38'; - fld_StockEDIInventarioI40 = 'I40'; - fld_StockEDIInventarioI42 = 'I42'; - fld_StockEDIInventarioI44 = 'I44'; - fld_StockEDIInventarioI46 = 'I46'; - fld_StockEDIInventarioI48 = 'I48'; - fld_StockEDIInventarioTI = 'TI'; - fld_StockEDIInventarioK38 = 'K38'; - fld_StockEDIInventarioK40 = 'K40'; - fld_StockEDIInventarioK42 = 'K42'; - fld_StockEDIInventarioK44 = 'K44'; - fld_StockEDIInventarioK46 = 'K46'; - fld_StockEDIInventarioK48 = 'K48'; - fld_StockEDIInventarioTK = 'TK'; - fld_StockEDIInventarioD38 = 'D38'; - fld_StockEDIInventarioD40 = 'D40'; - fld_StockEDIInventarioD42 = 'D42'; - fld_StockEDIInventarioD44 = 'D44'; - fld_StockEDIInventarioD46 = 'D46'; - fld_StockEDIInventarioD48 = 'D48'; - fld_StockEDIInventarioDT = 'DT'; - - { StockEDIInventario field indexes } - idx_StockEDIInventarioCENTRO = 0; - idx_StockEDIInventarioCODIGO = 1; - idx_StockEDIInventarioPRODUCTO = 2; - idx_StockEDIInventarioCOLOR = 3; - idx_StockEDIInventarioTIPO_PRODUCTO = 4; - idx_StockEDIInventarioGRUPO_PRODUCTO = 5; - idx_StockEDIInventarioCOLECCION = 6; - idx_StockEDIInventarioI38 = 7; - idx_StockEDIInventarioI40 = 8; - idx_StockEDIInventarioI42 = 9; - idx_StockEDIInventarioI44 = 10; - idx_StockEDIInventarioI46 = 11; - idx_StockEDIInventarioI48 = 12; - idx_StockEDIInventarioTI = 13; - idx_StockEDIInventarioK38 = 14; - idx_StockEDIInventarioK40 = 15; - idx_StockEDIInventarioK42 = 16; - idx_StockEDIInventarioK44 = 17; - idx_StockEDIInventarioK46 = 18; - idx_StockEDIInventarioK48 = 19; - idx_StockEDIInventarioTK = 20; - idx_StockEDIInventarioD38 = 21; - idx_StockEDIInventarioD40 = 22; - idx_StockEDIInventarioD42 = 23; - idx_StockEDIInventarioD44 = 24; - idx_StockEDIInventarioD46 = 25; - idx_StockEDIInventarioD48 = 26; - idx_StockEDIInventarioDT = 27; - -type - { IStockPrendasCentros } - IStockPrendasCentros = interface(IDAStronglyTypedDataTable) - ['{9147A7A9-8562-4C08-8D0F-4E08050ED78D}'] - { Property getters and setters } - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetTIPO_PRODUCTOValue: String; - procedure SetTIPO_PRODUCTOValue(const aValue: String); - function GetGRUPO_PRODUCTOValue: String; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); - function GetCOLECCIONValue: String; - procedure SetCOLECCIONValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetT38Value: Float; - procedure SetT38Value(const aValue: Float); - function GetT40Value: Float; - procedure SetT40Value(const aValue: Float); - function GetT42Value: Float; - procedure SetT42Value(const aValue: Float); - function GetT44Value: Float; - procedure SetT44Value(const aValue: Float); - function GetT46Value: Float; - procedure SetT46Value(const aValue: Float); - function GetT48Value: Float; - procedure SetT48Value(const aValue: Float); - function GetTOTALValue: Float; - procedure SetTOTALValue(const aValue: Float); - - - { Properties } - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property T38: Float read GetT38Value write SetT38Value; - property T40: Float read GetT40Value write SetT40Value; - property T42: Float read GetT42Value write SetT42Value; - property T44: Float read GetT44Value write SetT44Value; - property T46: Float read GetT46Value write SetT46Value; - property T48: Float read GetT48Value write SetT48Value; - property TOTAL: Float read GetTOTALValue write SetTOTALValue; - end; - - { TStockPrendasCentrosDataTableRules } - TStockPrendasCentrosDataTableRules = class(TDADataTableRules, IStockPrendasCentros) - private - protected - { Property getters and setters } - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetTIPO_PRODUCTOValue: String; virtual; - procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUCTOValue: String; virtual; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetT38Value: Float; virtual; - procedure SetT38Value(const aValue: Float); virtual; - function GetT40Value: Float; virtual; - procedure SetT40Value(const aValue: Float); virtual; - function GetT42Value: Float; virtual; - procedure SetT42Value(const aValue: Float); virtual; - function GetT44Value: Float; virtual; - procedure SetT44Value(const aValue: Float); virtual; - function GetT46Value: Float; virtual; - procedure SetT46Value(const aValue: Float); virtual; - function GetT48Value: Float; virtual; - procedure SetT48Value(const aValue: Float); virtual; - function GetTOTALValue: Float; virtual; - procedure SetTOTALValue(const aValue: Float); virtual; - - { Properties } - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property T38: Float read GetT38Value write SetT38Value; - property T40: Float read GetT40Value write SetT40Value; - property T42: Float read GetT42Value write SetT42Value; - property T44: Float read GetT44Value write SetT44Value; - property T46: Float read GetT46Value write SetT46Value; - property T48: Float read GetT48Value write SetT48Value; - property TOTAL: Float read GetTOTALValue write SetTOTALValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IStockEDI } - IStockEDI = interface(IDAStronglyTypedDataTable) - ['{759266B9-20F4-4F29-9B8B-96F6E62E2560}'] - { Property getters and setters } - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetTIPO_PRODUCTOValue: String; - procedure SetTIPO_PRODUCTOValue(const aValue: String); - function GetGRUPO_PRODUCTOValue: String; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); - function GetCOLECCIONValue: String; - procedure SetCOLECCIONValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetE38Value: Float; - procedure SetE38Value(const aValue: Float); - function GetE40Value: Float; - procedure SetE40Value(const aValue: Float); - function GetE42Value: Float; - procedure SetE42Value(const aValue: Float); - function GetE44Value: Float; - procedure SetE44Value(const aValue: Float); - function GetE46Value: Float; - procedure SetE46Value(const aValue: Float); - function GetE48Value: Float; - procedure SetE48Value(const aValue: Float); - function GetTEValue: Float; - procedure SetTEValue(const aValue: Float); - function GetS38Value: Float; - procedure SetS38Value(const aValue: Float); - function GetS40Value: Float; - procedure SetS40Value(const aValue: Float); - function GetS42Value: Float; - procedure SetS42Value(const aValue: Float); - function GetS44Value: Float; - procedure SetS44Value(const aValue: Float); - function GetS46Value: Float; - procedure SetS46Value(const aValue: Float); - function GetS48Value: Float; - procedure SetS48Value(const aValue: Float); - function GetTSValue: Float; - procedure SetTSValue(const aValue: Float); - function GetK38Value: Float; - procedure SetK38Value(const aValue: Float); - function GetK40Value: Float; - procedure SetK40Value(const aValue: Float); - function GetK42Value: Float; - procedure SetK42Value(const aValue: Float); - function GetK44Value: Float; - procedure SetK44Value(const aValue: Float); - function GetK46Value: Float; - procedure SetK46Value(const aValue: Float); - function GetK48Value: Float; - procedure SetK48Value(const aValue: Float); - function GetKTValue: Float; - procedure SetKTValue(const aValue: Float); - - - { Properties } - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property E38: Float read GetE38Value write SetE38Value; - property E40: Float read GetE40Value write SetE40Value; - property E42: Float read GetE42Value write SetE42Value; - property E44: Float read GetE44Value write SetE44Value; - property E46: Float read GetE46Value write SetE46Value; - property E48: Float read GetE48Value write SetE48Value; - property TE: Float read GetTEValue write SetTEValue; - property S38: Float read GetS38Value write SetS38Value; - property S40: Float read GetS40Value write SetS40Value; - property S42: Float read GetS42Value write SetS42Value; - property S44: Float read GetS44Value write SetS44Value; - property S46: Float read GetS46Value write SetS46Value; - property S48: Float read GetS48Value write SetS48Value; - property TS: Float read GetTSValue write SetTSValue; - property K38: Float read GetK38Value write SetK38Value; - property K40: Float read GetK40Value write SetK40Value; - property K42: Float read GetK42Value write SetK42Value; - property K44: Float read GetK44Value write SetK44Value; - property K46: Float read GetK46Value write SetK46Value; - property K48: Float read GetK48Value write SetK48Value; - property KT: Float read GetKTValue write SetKTValue; - end; - - { TStockEDIDataTableRules } - TStockEDIDataTableRules = class(TDADataTableRules, IStockEDI) - private - protected - { Property getters and setters } - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetTIPO_PRODUCTOValue: String; virtual; - procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUCTOValue: String; virtual; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetE38Value: Float; virtual; - procedure SetE38Value(const aValue: Float); virtual; - function GetE40Value: Float; virtual; - procedure SetE40Value(const aValue: Float); virtual; - function GetE42Value: Float; virtual; - procedure SetE42Value(const aValue: Float); virtual; - function GetE44Value: Float; virtual; - procedure SetE44Value(const aValue: Float); virtual; - function GetE46Value: Float; virtual; - procedure SetE46Value(const aValue: Float); virtual; - function GetE48Value: Float; virtual; - procedure SetE48Value(const aValue: Float); virtual; - function GetTEValue: Float; virtual; - procedure SetTEValue(const aValue: Float); virtual; - function GetS38Value: Float; virtual; - procedure SetS38Value(const aValue: Float); virtual; - function GetS40Value: Float; virtual; - procedure SetS40Value(const aValue: Float); virtual; - function GetS42Value: Float; virtual; - procedure SetS42Value(const aValue: Float); virtual; - function GetS44Value: Float; virtual; - procedure SetS44Value(const aValue: Float); virtual; - function GetS46Value: Float; virtual; - procedure SetS46Value(const aValue: Float); virtual; - function GetS48Value: Float; virtual; - procedure SetS48Value(const aValue: Float); virtual; - function GetTSValue: Float; virtual; - procedure SetTSValue(const aValue: Float); virtual; - function GetK38Value: Float; virtual; - procedure SetK38Value(const aValue: Float); virtual; - function GetK40Value: Float; virtual; - procedure SetK40Value(const aValue: Float); virtual; - function GetK42Value: Float; virtual; - procedure SetK42Value(const aValue: Float); virtual; - function GetK44Value: Float; virtual; - procedure SetK44Value(const aValue: Float); virtual; - function GetK46Value: Float; virtual; - procedure SetK46Value(const aValue: Float); virtual; - function GetK48Value: Float; virtual; - procedure SetK48Value(const aValue: Float); virtual; - function GetKTValue: Float; virtual; - procedure SetKTValue(const aValue: Float); virtual; - - { Properties } - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property E38: Float read GetE38Value write SetE38Value; - property E40: Float read GetE40Value write SetE40Value; - property E42: Float read GetE42Value write SetE42Value; - property E44: Float read GetE44Value write SetE44Value; - property E46: Float read GetE46Value write SetE46Value; - property E48: Float read GetE48Value write SetE48Value; - property TE: Float read GetTEValue write SetTEValue; - property S38: Float read GetS38Value write SetS38Value; - property S40: Float read GetS40Value write SetS40Value; - property S42: Float read GetS42Value write SetS42Value; - property S44: Float read GetS44Value write SetS44Value; - property S46: Float read GetS46Value write SetS46Value; - property S48: Float read GetS48Value write SetS48Value; - property TS: Float read GetTSValue write SetTSValue; - property K38: Float read GetK38Value write SetK38Value; - property K40: Float read GetK40Value write SetK40Value; - property K42: Float read GetK42Value write SetK42Value; - property K44: Float read GetK44Value write SetK44Value; - property K46: Float read GetK46Value write SetK46Value; - property K48: Float read GetK48Value write SetK48Value; - property KT: Float read GetKTValue write SetKTValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IStockVARELA } - IStockVARELA = interface(IDAStronglyTypedDataTable) - ['{29240A98-CF0E-4E1C-AE1B-17DE8E33837F}'] - { Property getters and setters } - function GetFILIALValue: String; - procedure SetFILIALValue(const aValue: String); - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetTIPO_PRODUTOValue: String; - procedure SetTIPO_PRODUTOValue(const aValue: String); - function GetGRUPO_PRODUTOValue: String; - procedure SetGRUPO_PRODUTOValue(const aValue: String); - function GetCOLECCIONValue: String; - procedure SetCOLECCIONValue(const aValue: String); - function GetK38Value: Integer; - procedure SetK38Value(const aValue: Integer); - function GetK40Value: Integer; - procedure SetK40Value(const aValue: Integer); - function GetK42Value: Integer; - procedure SetK42Value(const aValue: Integer); - function GetK44Value: Integer; - procedure SetK44Value(const aValue: Integer); - function GetK46Value: Integer; - procedure SetK46Value(const aValue: Integer); - function GetK48Value: Integer; - procedure SetK48Value(const aValue: Integer); - function GetKTValue: Integer; - procedure SetKTValue(const aValue: Integer); - - - { Properties } - property FILIAL: String read GetFILIALValue write SetFILIALValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property TIPO_PRODUTO: String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; - property GRUPO_PRODUTO: String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property K38: Integer read GetK38Value write SetK38Value; - property K40: Integer read GetK40Value write SetK40Value; - property K42: Integer read GetK42Value write SetK42Value; - property K44: Integer read GetK44Value write SetK44Value; - property K46: Integer read GetK46Value write SetK46Value; - property K48: Integer read GetK48Value write SetK48Value; - property KT: Integer read GetKTValue write SetKTValue; - end; - - { TStockVARELADataTableRules } - TStockVARELADataTableRules = class(TDADataTableRules, IStockVARELA) - private - protected - { Property getters and setters } - function GetFILIALValue: String; virtual; - procedure SetFILIALValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetTIPO_PRODUTOValue: String; virtual; - procedure SetTIPO_PRODUTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUTOValue: String; virtual; - procedure SetGRUPO_PRODUTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetK38Value: Integer; virtual; - procedure SetK38Value(const aValue: Integer); virtual; - function GetK40Value: Integer; virtual; - procedure SetK40Value(const aValue: Integer); virtual; - function GetK42Value: Integer; virtual; - procedure SetK42Value(const aValue: Integer); virtual; - function GetK44Value: Integer; virtual; - procedure SetK44Value(const aValue: Integer); virtual; - function GetK46Value: Integer; virtual; - procedure SetK46Value(const aValue: Integer); virtual; - function GetK48Value: Integer; virtual; - procedure SetK48Value(const aValue: Integer); virtual; - function GetKTValue: Integer; virtual; - procedure SetKTValue(const aValue: Integer); virtual; - - { Properties } - property FILIAL: String read GetFILIALValue write SetFILIALValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property TIPO_PRODUTO: String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; - property GRUPO_PRODUTO: String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property K38: Integer read GetK38Value write SetK38Value; - property K40: Integer read GetK40Value write SetK40Value; - property K42: Integer read GetK42Value write SetK42Value; - property K44: Integer read GetK44Value write SetK44Value; - property K46: Integer read GetK46Value write SetK46Value; - property K48: Integer read GetK48Value write SetK48Value; - property KT: Integer read GetKTValue write SetKTValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IStockEDIInventario } - IStockEDIInventario = interface(IDAStronglyTypedDataTable) - ['{ECFA34AB-357B-4817-BB85-10D0BF34884F}'] - { Property getters and setters } - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetTIPO_PRODUCTOValue: String; - procedure SetTIPO_PRODUCTOValue(const aValue: String); - function GetGRUPO_PRODUCTOValue: String; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); - function GetCOLECCIONValue: String; - procedure SetCOLECCIONValue(const aValue: String); - function GetI38Value: Float; - procedure SetI38Value(const aValue: Float); - function GetI40Value: Float; - procedure SetI40Value(const aValue: Float); - function GetI42Value: Float; - procedure SetI42Value(const aValue: Float); - function GetI44Value: Float; - procedure SetI44Value(const aValue: Float); - function GetI46Value: Float; - procedure SetI46Value(const aValue: Float); - function GetI48Value: Float; - procedure SetI48Value(const aValue: Float); - function GetTIValue: Float; - procedure SetTIValue(const aValue: Float); - function GetK38Value: Float; - procedure SetK38Value(const aValue: Float); - function GetK40Value: Float; - procedure SetK40Value(const aValue: Float); - function GetK42Value: Float; - procedure SetK42Value(const aValue: Float); - function GetK44Value: Float; - procedure SetK44Value(const aValue: Float); - function GetK46Value: Float; - procedure SetK46Value(const aValue: Float); - function GetK48Value: Float; - procedure SetK48Value(const aValue: Float); - function GetTKValue: Float; - procedure SetTKValue(const aValue: Float); - function GetD38Value: Float; - procedure SetD38Value(const aValue: Float); - function GetD40Value: Float; - procedure SetD40Value(const aValue: Float); - function GetD42Value: Float; - procedure SetD42Value(const aValue: Float); - function GetD44Value: Float; - procedure SetD44Value(const aValue: Float); - function GetD46Value: Float; - procedure SetD46Value(const aValue: Float); - function GetD48Value: Float; - procedure SetD48Value(const aValue: Float); - function GetDTValue: Float; - procedure SetDTValue(const aValue: Float); - - - { Properties } - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property I38: Float read GetI38Value write SetI38Value; - property I40: Float read GetI40Value write SetI40Value; - property I42: Float read GetI42Value write SetI42Value; - property I44: Float read GetI44Value write SetI44Value; - property I46: Float read GetI46Value write SetI46Value; - property I48: Float read GetI48Value write SetI48Value; - property TI: Float read GetTIValue write SetTIValue; - property K38: Float read GetK38Value write SetK38Value; - property K40: Float read GetK40Value write SetK40Value; - property K42: Float read GetK42Value write SetK42Value; - property K44: Float read GetK44Value write SetK44Value; - property K46: Float read GetK46Value write SetK46Value; - property K48: Float read GetK48Value write SetK48Value; - property TK: Float read GetTKValue write SetTKValue; - property D38: Float read GetD38Value write SetD38Value; - property D40: Float read GetD40Value write SetD40Value; - property D42: Float read GetD42Value write SetD42Value; - property D44: Float read GetD44Value write SetD44Value; - property D46: Float read GetD46Value write SetD46Value; - property D48: Float read GetD48Value write SetD48Value; - property DT: Float read GetDTValue write SetDTValue; - end; - - { TStockEDIInventarioDataTableRules } - TStockEDIInventarioDataTableRules = class(TDADataTableRules, IStockEDIInventario) - private - protected - { Property getters and setters } - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetTIPO_PRODUCTOValue: String; virtual; - procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUCTOValue: String; virtual; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetI38Value: Float; virtual; - procedure SetI38Value(const aValue: Float); virtual; - function GetI40Value: Float; virtual; - procedure SetI40Value(const aValue: Float); virtual; - function GetI42Value: Float; virtual; - procedure SetI42Value(const aValue: Float); virtual; - function GetI44Value: Float; virtual; - procedure SetI44Value(const aValue: Float); virtual; - function GetI46Value: Float; virtual; - procedure SetI46Value(const aValue: Float); virtual; - function GetI48Value: Float; virtual; - procedure SetI48Value(const aValue: Float); virtual; - function GetTIValue: Float; virtual; - procedure SetTIValue(const aValue: Float); virtual; - function GetK38Value: Float; virtual; - procedure SetK38Value(const aValue: Float); virtual; - function GetK40Value: Float; virtual; - procedure SetK40Value(const aValue: Float); virtual; - function GetK42Value: Float; virtual; - procedure SetK42Value(const aValue: Float); virtual; - function GetK44Value: Float; virtual; - procedure SetK44Value(const aValue: Float); virtual; - function GetK46Value: Float; virtual; - procedure SetK46Value(const aValue: Float); virtual; - function GetK48Value: Float; virtual; - procedure SetK48Value(const aValue: Float); virtual; - function GetTKValue: Float; virtual; - procedure SetTKValue(const aValue: Float); virtual; - function GetD38Value: Float; virtual; - procedure SetD38Value(const aValue: Float); virtual; - function GetD40Value: Float; virtual; - procedure SetD40Value(const aValue: Float); virtual; - function GetD42Value: Float; virtual; - procedure SetD42Value(const aValue: Float); virtual; - function GetD44Value: Float; virtual; - procedure SetD44Value(const aValue: Float); virtual; - function GetD46Value: Float; virtual; - procedure SetD46Value(const aValue: Float); virtual; - function GetD48Value: Float; virtual; - procedure SetD48Value(const aValue: Float); virtual; - function GetDTValue: Float; virtual; - procedure SetDTValue(const aValue: Float); virtual; - - { Properties } - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property I38: Float read GetI38Value write SetI38Value; - property I40: Float read GetI40Value write SetI40Value; - property I42: Float read GetI42Value write SetI42Value; - property I44: Float read GetI44Value write SetI44Value; - property I46: Float read GetI46Value write SetI46Value; - property I48: Float read GetI48Value write SetI48Value; - property TI: Float read GetTIValue write SetTIValue; - property K38: Float read GetK38Value write SetK38Value; - property K40: Float read GetK40Value write SetK40Value; - property K42: Float read GetK42Value write SetK42Value; - property K44: Float read GetK44Value write SetK44Value; - property K46: Float read GetK46Value write SetK46Value; - property K48: Float read GetK48Value write SetK48Value; - property TK: Float read GetTKValue write SetTKValue; - property D38: Float read GetD38Value write SetD38Value; - property D40: Float read GetD40Value write SetD40Value; - property D42: Float read GetD42Value write SetD42Value; - property D44: Float read GetD44Value write SetD44Value; - property D46: Float read GetD46Value write SetD46Value; - property D48: Float read GetD48Value write SetD48Value; - property DT: Float read GetDTValue write SetDTValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TStockPrendasCentrosDataTableRules } -constructor TStockPrendasCentrosDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TStockPrendasCentrosDataTableRules.Destroy; -begin - inherited; -end; - -function TStockPrendasCentrosDataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsString; -end; - -procedure TStockPrendasCentrosDataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsString := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsString; -end; - -procedure TStockPrendasCentrosDataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsString := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetTIPO_PRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsString; -end; - -procedure TStockPrendasCentrosDataTableRules.SetTIPO_PRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsString := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetGRUPO_PRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsString; -end; - -procedure TStockPrendasCentrosDataTableRules.SetGRUPO_PRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsString := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetCOLECCIONValue: String; -begin - result := DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsString; -end; - -procedure TStockPrendasCentrosDataTableRules.SetCOLECCIONValue(const aValue: String); -begin - DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsString := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsString; -end; - -procedure TStockPrendasCentrosDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsString := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetT38Value: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosT38].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetT38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosT38].AsFloat := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetT40Value: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosT40].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetT40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosT40].AsFloat := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetT42Value: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosT42].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetT42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosT42].AsFloat := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetT44Value: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosT44].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetT44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosT44].AsFloat := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetT46Value: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosT46].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetT46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosT46].AsFloat := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetT48Value: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosT48].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetT48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosT48].AsFloat := aValue; -end; - -function TStockPrendasCentrosDataTableRules.GetTOTALValue: Float; -begin - result := DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsFloat; -end; - -procedure TStockPrendasCentrosDataTableRules.SetTOTALValue(const aValue: Float); -begin - DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsFloat := aValue; -end; - - -{ TStockEDIDataTableRules } -constructor TStockEDIDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TStockEDIDataTableRules.Destroy; -begin - inherited; -end; - -function TStockEDIDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_StockEDICENTRO].AsString; -end; - -procedure TStockEDIDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDICENTRO].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_StockEDICODIGO].AsString; -end; - -procedure TStockEDIDataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDICODIGO].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockEDIPRODUCTO].AsString; -end; - -procedure TStockEDIDataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIPRODUCTO].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetTIPO_PRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsString; -end; - -procedure TStockEDIDataTableRules.SetTIPO_PRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetGRUPO_PRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsString; -end; - -procedure TStockEDIDataTableRules.SetGRUPO_PRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetCOLECCIONValue: String; -begin - result := DataTable.Fields[idx_StockEDICOLECCION].AsString; -end; - -procedure TStockEDIDataTableRules.SetCOLECCIONValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDICOLECCION].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_StockEDICOLOR].AsString; -end; - -procedure TStockEDIDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDICOLOR].AsString := aValue; -end; - -function TStockEDIDataTableRules.GetE38Value: Float; -begin - result := DataTable.Fields[idx_StockEDIE38].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetE38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIE38].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetE40Value: Float; -begin - result := DataTable.Fields[idx_StockEDIE40].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetE40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIE40].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetE42Value: Float; -begin - result := DataTable.Fields[idx_StockEDIE42].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetE42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIE42].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetE44Value: Float; -begin - result := DataTable.Fields[idx_StockEDIE44].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetE44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIE44].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetE46Value: Float; -begin - result := DataTable.Fields[idx_StockEDIE46].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetE46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIE46].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetE48Value: Float; -begin - result := DataTable.Fields[idx_StockEDIE48].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetE48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIE48].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetTEValue: Float; -begin - result := DataTable.Fields[idx_StockEDITE].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetTEValue(const aValue: Float); -begin - DataTable.Fields[idx_StockEDITE].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetS38Value: Float; -begin - result := DataTable.Fields[idx_StockEDIS38].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetS38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIS38].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetS40Value: Float; -begin - result := DataTable.Fields[idx_StockEDIS40].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetS40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIS40].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetS42Value: Float; -begin - result := DataTable.Fields[idx_StockEDIS42].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetS42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIS42].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetS44Value: Float; -begin - result := DataTable.Fields[idx_StockEDIS44].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetS44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIS44].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetS46Value: Float; -begin - result := DataTable.Fields[idx_StockEDIS46].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetS46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIS46].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetS48Value: Float; -begin - result := DataTable.Fields[idx_StockEDIS48].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetS48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIS48].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetTSValue: Float; -begin - result := DataTable.Fields[idx_StockEDITS].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetTSValue(const aValue: Float); -begin - DataTable.Fields[idx_StockEDITS].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetK38Value: Float; -begin - result := DataTable.Fields[idx_StockEDIK38].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetK38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIK38].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetK40Value: Float; -begin - result := DataTable.Fields[idx_StockEDIK40].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetK40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIK40].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetK42Value: Float; -begin - result := DataTable.Fields[idx_StockEDIK42].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetK42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIK42].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetK44Value: Float; -begin - result := DataTable.Fields[idx_StockEDIK44].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetK44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIK44].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetK46Value: Float; -begin - result := DataTable.Fields[idx_StockEDIK46].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetK46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIK46].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetK48Value: Float; -begin - result := DataTable.Fields[idx_StockEDIK48].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetK48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIK48].AsFloat := aValue; -end; - -function TStockEDIDataTableRules.GetKTValue: Float; -begin - result := DataTable.Fields[idx_StockEDIKT].AsFloat; -end; - -procedure TStockEDIDataTableRules.SetKTValue(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIKT].AsFloat := aValue; -end; - - -{ TStockVARELADataTableRules } -constructor TStockVARELADataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TStockVARELADataTableRules.Destroy; -begin - inherited; -end; - -function TStockVARELADataTableRules.GetFILIALValue: String; -begin - result := DataTable.Fields[idx_StockVARELAFILIAL].AsString; -end; - -procedure TStockVARELADataTableRules.SetFILIALValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELAFILIAL].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_StockVARELACODIGO].AsString; -end; - -procedure TStockVARELADataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELACODIGO].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_StockVARELACOLOR].AsString; -end; - -procedure TStockVARELADataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELACOLOR].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockVARELAPRODUCTO].AsString; -end; - -procedure TStockVARELADataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELAPRODUCTO].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetTIPO_PRODUTOValue: String; -begin - result := DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsString; -end; - -procedure TStockVARELADataTableRules.SetTIPO_PRODUTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetGRUPO_PRODUTOValue: String; -begin - result := DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsString; -end; - -procedure TStockVARELADataTableRules.SetGRUPO_PRODUTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetCOLECCIONValue: String; -begin - result := DataTable.Fields[idx_StockVARELACOLECCION].AsString; -end; - -procedure TStockVARELADataTableRules.SetCOLECCIONValue(const aValue: String); -begin - DataTable.Fields[idx_StockVARELACOLECCION].AsString := aValue; -end; - -function TStockVARELADataTableRules.GetK38Value: Integer; -begin - result := DataTable.Fields[idx_StockVARELAK38].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetK38Value(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAK38].AsInteger := aValue; -end; - -function TStockVARELADataTableRules.GetK40Value: Integer; -begin - result := DataTable.Fields[idx_StockVARELAK40].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetK40Value(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAK40].AsInteger := aValue; -end; - -function TStockVARELADataTableRules.GetK42Value: Integer; -begin - result := DataTable.Fields[idx_StockVARELAK42].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetK42Value(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAK42].AsInteger := aValue; -end; - -function TStockVARELADataTableRules.GetK44Value: Integer; -begin - result := DataTable.Fields[idx_StockVARELAK44].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetK44Value(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAK44].AsInteger := aValue; -end; - -function TStockVARELADataTableRules.GetK46Value: Integer; -begin - result := DataTable.Fields[idx_StockVARELAK46].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetK46Value(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAK46].AsInteger := aValue; -end; - -function TStockVARELADataTableRules.GetK48Value: Integer; -begin - result := DataTable.Fields[idx_StockVARELAK48].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetK48Value(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAK48].AsInteger := aValue; -end; - -function TStockVARELADataTableRules.GetKTValue: Integer; -begin - result := DataTable.Fields[idx_StockVARELAKT].AsInteger; -end; - -procedure TStockVARELADataTableRules.SetKTValue(const aValue: Integer); -begin - DataTable.Fields[idx_StockVARELAKT].AsInteger := aValue; -end; - - -{ TStockEDIInventarioDataTableRules } -constructor TStockEDIInventarioDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TStockEDIInventarioDataTableRules.Destroy; -begin - inherited; -end; - -function TStockEDIInventarioDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioCENTRO].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioCENTRO].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioCODIGO].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioCODIGO].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioCOLOR].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioCOLOR].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetTIPO_PRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetTIPO_PRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetGRUPO_PRODUCTOValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetGRUPO_PRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetCOLECCIONValue: String; -begin - result := DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsString; -end; - -procedure TStockEDIInventarioDataTableRules.SetCOLECCIONValue(const aValue: String); -begin - DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsString := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetI38Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioI38].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetI38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioI38].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetI40Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioI40].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetI40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioI40].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetI42Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioI42].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetI42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioI42].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetI44Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioI44].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetI44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioI44].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetI46Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioI46].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetI46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioI46].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetI48Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioI48].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetI48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioI48].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetTIValue: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioTI].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetTIValue(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioTI].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetK38Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioK38].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetK38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioK38].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetK40Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioK40].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetK40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioK40].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetK42Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioK42].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetK42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioK42].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetK44Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioK44].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetK44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioK44].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetK46Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioK46].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetK46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioK46].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetK48Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioK48].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetK48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioK48].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetTKValue: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioTK].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetTKValue(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioTK].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetD38Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioD38].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetD38Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioD38].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetD40Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioD40].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetD40Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioD40].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetD42Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioD42].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetD42Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioD42].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetD44Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioD44].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetD44Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioD44].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetD46Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioD46].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetD46Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioD46].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetD48Value: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioD48].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetD48Value(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioD48].AsFloat := aValue; -end; - -function TStockEDIInventarioDataTableRules.GetDTValue: Float; -begin - result := DataTable.Fields[idx_StockEDIInventarioDT].AsFloat; -end; - -procedure TStockEDIInventarioDataTableRules.SetDTValue(const aValue: Float); -begin - DataTable.Fields[idx_StockEDIInventarioDT].AsFloat := aValue; -end; - - -initialization - RegisterDataTableRules(RID_StockPrendasCentros, TStockPrendasCentrosDataTableRules); - RegisterDataTableRules(RID_StockEDI, TStockEDIDataTableRules); - RegisterDataTableRules(RID_StockVARELA, TStockVARELADataTableRules); - RegisterDataTableRules(RID_StockEDIInventario, TStockEDIInventarioDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas b/Varela/Varela/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas deleted file mode 100644 index a732519..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas +++ /dev/null @@ -1,1991 +0,0 @@ -unit schStockServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schStockClient_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_StockPrendasCentrosDelta = '{161451C4-A2CF-4468-A880-DBA417307512}'; - RID_StockEDIDelta = '{F20A87B8-0277-4819-B7A6-667A9904EFA9}'; - RID_StockVARELADelta = '{B999E959-A4E5-4C5F-B87A-9CFB862CF28A}'; - RID_StockEDIInventarioDelta = '{11EC9F46-F7DD-486E-ACD2-5873746C963D}'; - -type - { IStockPrendasCentrosDelta } - IStockPrendasCentrosDelta = interface(IStockPrendasCentros) - ['{161451C4-A2CF-4468-A880-DBA417307512}'] - { Property getters and setters } - function GetOldCODIGOValue : String; - function GetOldPRODUCTOValue : String; - function GetOldTIPO_PRODUCTOValue : String; - function GetOldGRUPO_PRODUCTOValue : String; - function GetOldCOLECCIONValue : String; - function GetOldCOLORValue : String; - function GetOldT38Value : Float; - function GetOldT40Value : Float; - function GetOldT42Value : Float; - function GetOldT44Value : Float; - function GetOldT46Value : Float; - function GetOldT48Value : Float; - function GetOldTOTALValue : Float; - - { Properties } - property OldCODIGO : String read GetOldCODIGOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; - property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldT38 : Float read GetOldT38Value; - property OldT40 : Float read GetOldT40Value; - property OldT42 : Float read GetOldT42Value; - property OldT44 : Float read GetOldT44Value; - property OldT46 : Float read GetOldT46Value; - property OldT48 : Float read GetOldT48Value; - property OldTOTAL : Float read GetOldTOTALValue; - end; - - { TStockPrendasCentrosBusinessProcessorRules } - TStockPrendasCentrosBusinessProcessorRules = class(TDABusinessProcessorRules, IStockPrendasCentros, IStockPrendasCentrosDelta) - private - protected - { Property getters and setters } - function GetCODIGOValue: String; virtual; - function GetOldCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - function GetOldPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetTIPO_PRODUCTOValue: String; virtual; - function GetOldTIPO_PRODUCTOValue: String; virtual; - procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUCTOValue: String; virtual; - function GetOldGRUPO_PRODUCTOValue: String; virtual; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - function GetOldCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetT38Value: Float; virtual; - function GetOldT38Value: Float; virtual; - procedure SetT38Value(const aValue: Float); virtual; - function GetT40Value: Float; virtual; - function GetOldT40Value: Float; virtual; - procedure SetT40Value(const aValue: Float); virtual; - function GetT42Value: Float; virtual; - function GetOldT42Value: Float; virtual; - procedure SetT42Value(const aValue: Float); virtual; - function GetT44Value: Float; virtual; - function GetOldT44Value: Float; virtual; - procedure SetT44Value(const aValue: Float); virtual; - function GetT46Value: Float; virtual; - function GetOldT46Value: Float; virtual; - procedure SetT46Value(const aValue: Float); virtual; - function GetT48Value: Float; virtual; - function GetOldT48Value: Float; virtual; - procedure SetT48Value(const aValue: Float); virtual; - function GetTOTALValue: Float; virtual; - function GetOldTOTALValue: Float; virtual; - procedure SetTOTALValue(const aValue: Float); virtual; - - { Properties } - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property OldCODIGO : String read GetOldCODIGOValue; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; - property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property T38 : Float read GetT38Value write SetT38Value; - property OldT38 : Float read GetOldT38Value; - property T40 : Float read GetT40Value write SetT40Value; - property OldT40 : Float read GetOldT40Value; - property T42 : Float read GetT42Value write SetT42Value; - property OldT42 : Float read GetOldT42Value; - property T44 : Float read GetT44Value write SetT44Value; - property OldT44 : Float read GetOldT44Value; - property T46 : Float read GetT46Value write SetT46Value; - property OldT46 : Float read GetOldT46Value; - property T48 : Float read GetT48Value write SetT48Value; - property OldT48 : Float read GetOldT48Value; - property TOTAL : Float read GetTOTALValue write SetTOTALValue; - property OldTOTAL : Float read GetOldTOTALValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IStockEDIDelta } - IStockEDIDelta = interface(IStockEDI) - ['{F20A87B8-0277-4819-B7A6-667A9904EFA9}'] - { Property getters and setters } - function GetOldCENTROValue : String; - function GetOldCODIGOValue : String; - function GetOldPRODUCTOValue : String; - function GetOldTIPO_PRODUCTOValue : String; - function GetOldGRUPO_PRODUCTOValue : String; - function GetOldCOLECCIONValue : String; - function GetOldCOLORValue : String; - function GetOldE38Value : Float; - function GetOldE40Value : Float; - function GetOldE42Value : Float; - function GetOldE44Value : Float; - function GetOldE46Value : Float; - function GetOldE48Value : Float; - function GetOldTEValue : Float; - function GetOldS38Value : Float; - function GetOldS40Value : Float; - function GetOldS42Value : Float; - function GetOldS44Value : Float; - function GetOldS46Value : Float; - function GetOldS48Value : Float; - function GetOldTSValue : Float; - function GetOldK38Value : Float; - function GetOldK40Value : Float; - function GetOldK42Value : Float; - function GetOldK44Value : Float; - function GetOldK46Value : Float; - function GetOldK48Value : Float; - function GetOldKTValue : Float; - - { Properties } - property OldCENTRO : String read GetOldCENTROValue; - property OldCODIGO : String read GetOldCODIGOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; - property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldE38 : Float read GetOldE38Value; - property OldE40 : Float read GetOldE40Value; - property OldE42 : Float read GetOldE42Value; - property OldE44 : Float read GetOldE44Value; - property OldE46 : Float read GetOldE46Value; - property OldE48 : Float read GetOldE48Value; - property OldTE : Float read GetOldTEValue; - property OldS38 : Float read GetOldS38Value; - property OldS40 : Float read GetOldS40Value; - property OldS42 : Float read GetOldS42Value; - property OldS44 : Float read GetOldS44Value; - property OldS46 : Float read GetOldS46Value; - property OldS48 : Float read GetOldS48Value; - property OldTS : Float read GetOldTSValue; - property OldK38 : Float read GetOldK38Value; - property OldK40 : Float read GetOldK40Value; - property OldK42 : Float read GetOldK42Value; - property OldK44 : Float read GetOldK44Value; - property OldK46 : Float read GetOldK46Value; - property OldK48 : Float read GetOldK48Value; - property OldKT : Float read GetOldKTValue; - end; - - { TStockEDIBusinessProcessorRules } - TStockEDIBusinessProcessorRules = class(TDABusinessProcessorRules, IStockEDI, IStockEDIDelta) - private - protected - { Property getters and setters } - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - function GetOldCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - function GetOldPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetTIPO_PRODUCTOValue: String; virtual; - function GetOldTIPO_PRODUCTOValue: String; virtual; - procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUCTOValue: String; virtual; - function GetOldGRUPO_PRODUCTOValue: String; virtual; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - function GetOldCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetE38Value: Float; virtual; - function GetOldE38Value: Float; virtual; - procedure SetE38Value(const aValue: Float); virtual; - function GetE40Value: Float; virtual; - function GetOldE40Value: Float; virtual; - procedure SetE40Value(const aValue: Float); virtual; - function GetE42Value: Float; virtual; - function GetOldE42Value: Float; virtual; - procedure SetE42Value(const aValue: Float); virtual; - function GetE44Value: Float; virtual; - function GetOldE44Value: Float; virtual; - procedure SetE44Value(const aValue: Float); virtual; - function GetE46Value: Float; virtual; - function GetOldE46Value: Float; virtual; - procedure SetE46Value(const aValue: Float); virtual; - function GetE48Value: Float; virtual; - function GetOldE48Value: Float; virtual; - procedure SetE48Value(const aValue: Float); virtual; - function GetTEValue: Float; virtual; - function GetOldTEValue: Float; virtual; - procedure SetTEValue(const aValue: Float); virtual; - function GetS38Value: Float; virtual; - function GetOldS38Value: Float; virtual; - procedure SetS38Value(const aValue: Float); virtual; - function GetS40Value: Float; virtual; - function GetOldS40Value: Float; virtual; - procedure SetS40Value(const aValue: Float); virtual; - function GetS42Value: Float; virtual; - function GetOldS42Value: Float; virtual; - procedure SetS42Value(const aValue: Float); virtual; - function GetS44Value: Float; virtual; - function GetOldS44Value: Float; virtual; - procedure SetS44Value(const aValue: Float); virtual; - function GetS46Value: Float; virtual; - function GetOldS46Value: Float; virtual; - procedure SetS46Value(const aValue: Float); virtual; - function GetS48Value: Float; virtual; - function GetOldS48Value: Float; virtual; - procedure SetS48Value(const aValue: Float); virtual; - function GetTSValue: Float; virtual; - function GetOldTSValue: Float; virtual; - procedure SetTSValue(const aValue: Float); virtual; - function GetK38Value: Float; virtual; - function GetOldK38Value: Float; virtual; - procedure SetK38Value(const aValue: Float); virtual; - function GetK40Value: Float; virtual; - function GetOldK40Value: Float; virtual; - procedure SetK40Value(const aValue: Float); virtual; - function GetK42Value: Float; virtual; - function GetOldK42Value: Float; virtual; - procedure SetK42Value(const aValue: Float); virtual; - function GetK44Value: Float; virtual; - function GetOldK44Value: Float; virtual; - procedure SetK44Value(const aValue: Float); virtual; - function GetK46Value: Float; virtual; - function GetOldK46Value: Float; virtual; - procedure SetK46Value(const aValue: Float); virtual; - function GetK48Value: Float; virtual; - function GetOldK48Value: Float; virtual; - procedure SetK48Value(const aValue: Float); virtual; - function GetKTValue: Float; virtual; - function GetOldKTValue: Float; virtual; - procedure SetKTValue(const aValue: Float); virtual; - - { Properties } - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property OldCODIGO : String read GetOldCODIGOValue; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; - property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property E38 : Float read GetE38Value write SetE38Value; - property OldE38 : Float read GetOldE38Value; - property E40 : Float read GetE40Value write SetE40Value; - property OldE40 : Float read GetOldE40Value; - property E42 : Float read GetE42Value write SetE42Value; - property OldE42 : Float read GetOldE42Value; - property E44 : Float read GetE44Value write SetE44Value; - property OldE44 : Float read GetOldE44Value; - property E46 : Float read GetE46Value write SetE46Value; - property OldE46 : Float read GetOldE46Value; - property E48 : Float read GetE48Value write SetE48Value; - property OldE48 : Float read GetOldE48Value; - property TE : Float read GetTEValue write SetTEValue; - property OldTE : Float read GetOldTEValue; - property S38 : Float read GetS38Value write SetS38Value; - property OldS38 : Float read GetOldS38Value; - property S40 : Float read GetS40Value write SetS40Value; - property OldS40 : Float read GetOldS40Value; - property S42 : Float read GetS42Value write SetS42Value; - property OldS42 : Float read GetOldS42Value; - property S44 : Float read GetS44Value write SetS44Value; - property OldS44 : Float read GetOldS44Value; - property S46 : Float read GetS46Value write SetS46Value; - property OldS46 : Float read GetOldS46Value; - property S48 : Float read GetS48Value write SetS48Value; - property OldS48 : Float read GetOldS48Value; - property TS : Float read GetTSValue write SetTSValue; - property OldTS : Float read GetOldTSValue; - property K38 : Float read GetK38Value write SetK38Value; - property OldK38 : Float read GetOldK38Value; - property K40 : Float read GetK40Value write SetK40Value; - property OldK40 : Float read GetOldK40Value; - property K42 : Float read GetK42Value write SetK42Value; - property OldK42 : Float read GetOldK42Value; - property K44 : Float read GetK44Value write SetK44Value; - property OldK44 : Float read GetOldK44Value; - property K46 : Float read GetK46Value write SetK46Value; - property OldK46 : Float read GetOldK46Value; - property K48 : Float read GetK48Value write SetK48Value; - property OldK48 : Float read GetOldK48Value; - property KT : Float read GetKTValue write SetKTValue; - property OldKT : Float read GetOldKTValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IStockVARELADelta } - IStockVARELADelta = interface(IStockVARELA) - ['{B999E959-A4E5-4C5F-B87A-9CFB862CF28A}'] - { Property getters and setters } - function GetOldFILIALValue : String; - function GetOldCODIGOValue : String; - function GetOldCOLORValue : String; - function GetOldPRODUCTOValue : String; - function GetOldTIPO_PRODUTOValue : String; - function GetOldGRUPO_PRODUTOValue : String; - function GetOldCOLECCIONValue : String; - function GetOldK38Value : Integer; - function GetOldK40Value : Integer; - function GetOldK42Value : Integer; - function GetOldK44Value : Integer; - function GetOldK46Value : Integer; - function GetOldK48Value : Integer; - function GetOldKTValue : Integer; - - { Properties } - property OldFILIAL : String read GetOldFILIALValue; - property OldCODIGO : String read GetOldCODIGOValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldTIPO_PRODUTO : String read GetOldTIPO_PRODUTOValue; - property OldGRUPO_PRODUTO : String read GetOldGRUPO_PRODUTOValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldK38 : Integer read GetOldK38Value; - property OldK40 : Integer read GetOldK40Value; - property OldK42 : Integer read GetOldK42Value; - property OldK44 : Integer read GetOldK44Value; - property OldK46 : Integer read GetOldK46Value; - property OldK48 : Integer read GetOldK48Value; - property OldKT : Integer read GetOldKTValue; - end; - - { TStockVARELABusinessProcessorRules } - TStockVARELABusinessProcessorRules = class(TDABusinessProcessorRules, IStockVARELA, IStockVARELADelta) - private - protected - { Property getters and setters } - function GetFILIALValue: String; virtual; - function GetOldFILIALValue: String; virtual; - procedure SetFILIALValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - function GetOldCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - function GetOldPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetTIPO_PRODUTOValue: String; virtual; - function GetOldTIPO_PRODUTOValue: String; virtual; - procedure SetTIPO_PRODUTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUTOValue: String; virtual; - function GetOldGRUPO_PRODUTOValue: String; virtual; - procedure SetGRUPO_PRODUTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - function GetOldCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetK38Value: Integer; virtual; - function GetOldK38Value: Integer; virtual; - procedure SetK38Value(const aValue: Integer); virtual; - function GetK40Value: Integer; virtual; - function GetOldK40Value: Integer; virtual; - procedure SetK40Value(const aValue: Integer); virtual; - function GetK42Value: Integer; virtual; - function GetOldK42Value: Integer; virtual; - procedure SetK42Value(const aValue: Integer); virtual; - function GetK44Value: Integer; virtual; - function GetOldK44Value: Integer; virtual; - procedure SetK44Value(const aValue: Integer); virtual; - function GetK46Value: Integer; virtual; - function GetOldK46Value: Integer; virtual; - procedure SetK46Value(const aValue: Integer); virtual; - function GetK48Value: Integer; virtual; - function GetOldK48Value: Integer; virtual; - procedure SetK48Value(const aValue: Integer); virtual; - function GetKTValue: Integer; virtual; - function GetOldKTValue: Integer; virtual; - procedure SetKTValue(const aValue: Integer); virtual; - - { Properties } - property FILIAL : String read GetFILIALValue write SetFILIALValue; - property OldFILIAL : String read GetOldFILIALValue; - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property OldCODIGO : String read GetOldCODIGOValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property TIPO_PRODUTO : String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; - property OldTIPO_PRODUTO : String read GetOldTIPO_PRODUTOValue; - property GRUPO_PRODUTO : String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; - property OldGRUPO_PRODUTO : String read GetOldGRUPO_PRODUTOValue; - property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property K38 : Integer read GetK38Value write SetK38Value; - property OldK38 : Integer read GetOldK38Value; - property K40 : Integer read GetK40Value write SetK40Value; - property OldK40 : Integer read GetOldK40Value; - property K42 : Integer read GetK42Value write SetK42Value; - property OldK42 : Integer read GetOldK42Value; - property K44 : Integer read GetK44Value write SetK44Value; - property OldK44 : Integer read GetOldK44Value; - property K46 : Integer read GetK46Value write SetK46Value; - property OldK46 : Integer read GetOldK46Value; - property K48 : Integer read GetK48Value write SetK48Value; - property OldK48 : Integer read GetOldK48Value; - property KT : Integer read GetKTValue write SetKTValue; - property OldKT : Integer read GetOldKTValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IStockEDIInventarioDelta } - IStockEDIInventarioDelta = interface(IStockEDIInventario) - ['{11EC9F46-F7DD-486E-ACD2-5873746C963D}'] - { Property getters and setters } - function GetOldCENTROValue : String; - function GetOldCODIGOValue : String; - function GetOldPRODUCTOValue : String; - function GetOldCOLORValue : String; - function GetOldTIPO_PRODUCTOValue : String; - function GetOldGRUPO_PRODUCTOValue : String; - function GetOldCOLECCIONValue : String; - function GetOldI38Value : Float; - function GetOldI40Value : Float; - function GetOldI42Value : Float; - function GetOldI44Value : Float; - function GetOldI46Value : Float; - function GetOldI48Value : Float; - function GetOldTIValue : Float; - function GetOldK38Value : Float; - function GetOldK40Value : Float; - function GetOldK42Value : Float; - function GetOldK44Value : Float; - function GetOldK46Value : Float; - function GetOldK48Value : Float; - function GetOldTKValue : Float; - function GetOldD38Value : Float; - function GetOldD40Value : Float; - function GetOldD42Value : Float; - function GetOldD44Value : Float; - function GetOldD46Value : Float; - function GetOldD48Value : Float; - function GetOldDTValue : Float; - - { Properties } - property OldCENTRO : String read GetOldCENTROValue; - property OldCODIGO : String read GetOldCODIGOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; - property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldI38 : Float read GetOldI38Value; - property OldI40 : Float read GetOldI40Value; - property OldI42 : Float read GetOldI42Value; - property OldI44 : Float read GetOldI44Value; - property OldI46 : Float read GetOldI46Value; - property OldI48 : Float read GetOldI48Value; - property OldTI : Float read GetOldTIValue; - property OldK38 : Float read GetOldK38Value; - property OldK40 : Float read GetOldK40Value; - property OldK42 : Float read GetOldK42Value; - property OldK44 : Float read GetOldK44Value; - property OldK46 : Float read GetOldK46Value; - property OldK48 : Float read GetOldK48Value; - property OldTK : Float read GetOldTKValue; - property OldD38 : Float read GetOldD38Value; - property OldD40 : Float read GetOldD40Value; - property OldD42 : Float read GetOldD42Value; - property OldD44 : Float read GetOldD44Value; - property OldD46 : Float read GetOldD46Value; - property OldD48 : Float read GetOldD48Value; - property OldDT : Float read GetOldDTValue; - end; - - { TStockEDIInventarioBusinessProcessorRules } - TStockEDIInventarioBusinessProcessorRules = class(TDABusinessProcessorRules, IStockEDIInventario, IStockEDIInventarioDelta) - private - protected - { Property getters and setters } - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - function GetOldCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - function GetOldPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetTIPO_PRODUCTOValue: String; virtual; - function GetOldTIPO_PRODUCTOValue: String; virtual; - procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; - function GetGRUPO_PRODUCTOValue: String; virtual; - function GetOldGRUPO_PRODUCTOValue: String; virtual; - procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - function GetOldCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetI38Value: Float; virtual; - function GetOldI38Value: Float; virtual; - procedure SetI38Value(const aValue: Float); virtual; - function GetI40Value: Float; virtual; - function GetOldI40Value: Float; virtual; - procedure SetI40Value(const aValue: Float); virtual; - function GetI42Value: Float; virtual; - function GetOldI42Value: Float; virtual; - procedure SetI42Value(const aValue: Float); virtual; - function GetI44Value: Float; virtual; - function GetOldI44Value: Float; virtual; - procedure SetI44Value(const aValue: Float); virtual; - function GetI46Value: Float; virtual; - function GetOldI46Value: Float; virtual; - procedure SetI46Value(const aValue: Float); virtual; - function GetI48Value: Float; virtual; - function GetOldI48Value: Float; virtual; - procedure SetI48Value(const aValue: Float); virtual; - function GetTIValue: Float; virtual; - function GetOldTIValue: Float; virtual; - procedure SetTIValue(const aValue: Float); virtual; - function GetK38Value: Float; virtual; - function GetOldK38Value: Float; virtual; - procedure SetK38Value(const aValue: Float); virtual; - function GetK40Value: Float; virtual; - function GetOldK40Value: Float; virtual; - procedure SetK40Value(const aValue: Float); virtual; - function GetK42Value: Float; virtual; - function GetOldK42Value: Float; virtual; - procedure SetK42Value(const aValue: Float); virtual; - function GetK44Value: Float; virtual; - function GetOldK44Value: Float; virtual; - procedure SetK44Value(const aValue: Float); virtual; - function GetK46Value: Float; virtual; - function GetOldK46Value: Float; virtual; - procedure SetK46Value(const aValue: Float); virtual; - function GetK48Value: Float; virtual; - function GetOldK48Value: Float; virtual; - procedure SetK48Value(const aValue: Float); virtual; - function GetTKValue: Float; virtual; - function GetOldTKValue: Float; virtual; - procedure SetTKValue(const aValue: Float); virtual; - function GetD38Value: Float; virtual; - function GetOldD38Value: Float; virtual; - procedure SetD38Value(const aValue: Float); virtual; - function GetD40Value: Float; virtual; - function GetOldD40Value: Float; virtual; - procedure SetD40Value(const aValue: Float); virtual; - function GetD42Value: Float; virtual; - function GetOldD42Value: Float; virtual; - procedure SetD42Value(const aValue: Float); virtual; - function GetD44Value: Float; virtual; - function GetOldD44Value: Float; virtual; - procedure SetD44Value(const aValue: Float); virtual; - function GetD46Value: Float; virtual; - function GetOldD46Value: Float; virtual; - procedure SetD46Value(const aValue: Float); virtual; - function GetD48Value: Float; virtual; - function GetOldD48Value: Float; virtual; - procedure SetD48Value(const aValue: Float); virtual; - function GetDTValue: Float; virtual; - function GetOldDTValue: Float; virtual; - procedure SetDTValue(const aValue: Float); virtual; - - { Properties } - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property OldCODIGO : String read GetOldCODIGOValue; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; - property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; - property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; - property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; - property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property I38 : Float read GetI38Value write SetI38Value; - property OldI38 : Float read GetOldI38Value; - property I40 : Float read GetI40Value write SetI40Value; - property OldI40 : Float read GetOldI40Value; - property I42 : Float read GetI42Value write SetI42Value; - property OldI42 : Float read GetOldI42Value; - property I44 : Float read GetI44Value write SetI44Value; - property OldI44 : Float read GetOldI44Value; - property I46 : Float read GetI46Value write SetI46Value; - property OldI46 : Float read GetOldI46Value; - property I48 : Float read GetI48Value write SetI48Value; - property OldI48 : Float read GetOldI48Value; - property TI : Float read GetTIValue write SetTIValue; - property OldTI : Float read GetOldTIValue; - property K38 : Float read GetK38Value write SetK38Value; - property OldK38 : Float read GetOldK38Value; - property K40 : Float read GetK40Value write SetK40Value; - property OldK40 : Float read GetOldK40Value; - property K42 : Float read GetK42Value write SetK42Value; - property OldK42 : Float read GetOldK42Value; - property K44 : Float read GetK44Value write SetK44Value; - property OldK44 : Float read GetOldK44Value; - property K46 : Float read GetK46Value write SetK46Value; - property OldK46 : Float read GetOldK46Value; - property K48 : Float read GetK48Value write SetK48Value; - property OldK48 : Float read GetOldK48Value; - property TK : Float read GetTKValue write SetTKValue; - property OldTK : Float read GetOldTKValue; - property D38 : Float read GetD38Value write SetD38Value; - property OldD38 : Float read GetOldD38Value; - property D40 : Float read GetD40Value write SetD40Value; - property OldD40 : Float read GetOldD40Value; - property D42 : Float read GetD42Value write SetD42Value; - property OldD42 : Float read GetOldD42Value; - property D44 : Float read GetD44Value write SetD44Value; - property OldD44 : Float read GetOldD44Value; - property D46 : Float read GetD46Value write SetD46Value; - property OldD46 : Float read GetOldD46Value; - property D48 : Float read GetD48Value write SetD48Value; - property OldD48 : Float read GetOldD48Value; - property DT : Float read GetDTValue write SetDTValue; - property OldDT : Float read GetOldDTValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TStockPrendasCentrosBusinessProcessorRules } -constructor TStockPrendasCentrosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TStockPrendasCentrosBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCODIGO]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosPRODUCTO]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLECCION]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLOR]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetT38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldT38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT38]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetT38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetT40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldT40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT40]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetT40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetT42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldT42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT42]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetT42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetT44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldT44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT44]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetT44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetT46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldT46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT46]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetT46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetT48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldT48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT48]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetT48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48] := aValue; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetTOTALValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL]; -end; - -function TStockPrendasCentrosBusinessProcessorRules.GetOldTOTALValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTOTAL]; -end; - -procedure TStockPrendasCentrosBusinessProcessorRules.SetTOTALValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL] := aValue; -end; - - -{ TStockEDIBusinessProcessorRules } -constructor TStockEDIBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TStockEDIBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TStockEDIBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO]; -end; - -function TStockEDIBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICENTRO]; -end; - -procedure TStockEDIBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO]; -end; - -function TStockEDIBusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICODIGO]; -end; - -procedure TStockEDIBusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO]; -end; - -function TStockEDIBusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIPRODUCTO]; -end; - -procedure TStockEDIBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO]; -end; - -function TStockEDIBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITIPO_PRODUCTO]; -end; - -procedure TStockEDIBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO]; -end; - -function TStockEDIBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIGRUPO_PRODUCTO]; -end; - -procedure TStockEDIBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION]; -end; - -function TStockEDIBusinessProcessorRules.GetOldCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLECCION]; -end; - -procedure TStockEDIBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR]; -end; - -function TStockEDIBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLOR]; -end; - -procedure TStockEDIBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetE38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38]; -end; - -function TStockEDIBusinessProcessorRules.GetOldE38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE38]; -end; - -procedure TStockEDIBusinessProcessorRules.SetE38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetE40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40]; -end; - -function TStockEDIBusinessProcessorRules.GetOldE40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE40]; -end; - -procedure TStockEDIBusinessProcessorRules.SetE40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetE42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42]; -end; - -function TStockEDIBusinessProcessorRules.GetOldE42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE42]; -end; - -procedure TStockEDIBusinessProcessorRules.SetE42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetE44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44]; -end; - -function TStockEDIBusinessProcessorRules.GetOldE44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE44]; -end; - -procedure TStockEDIBusinessProcessorRules.SetE44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetE46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46]; -end; - -function TStockEDIBusinessProcessorRules.GetOldE46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE46]; -end; - -procedure TStockEDIBusinessProcessorRules.SetE46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetE48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48]; -end; - -function TStockEDIBusinessProcessorRules.GetOldE48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE48]; -end; - -procedure TStockEDIBusinessProcessorRules.SetE48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetTEValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE]; -end; - -function TStockEDIBusinessProcessorRules.GetOldTEValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITE]; -end; - -procedure TStockEDIBusinessProcessorRules.SetTEValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetS38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38]; -end; - -function TStockEDIBusinessProcessorRules.GetOldS38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS38]; -end; - -procedure TStockEDIBusinessProcessorRules.SetS38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetS40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40]; -end; - -function TStockEDIBusinessProcessorRules.GetOldS40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS40]; -end; - -procedure TStockEDIBusinessProcessorRules.SetS40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetS42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42]; -end; - -function TStockEDIBusinessProcessorRules.GetOldS42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS42]; -end; - -procedure TStockEDIBusinessProcessorRules.SetS42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetS44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44]; -end; - -function TStockEDIBusinessProcessorRules.GetOldS44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS44]; -end; - -procedure TStockEDIBusinessProcessorRules.SetS44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetS46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46]; -end; - -function TStockEDIBusinessProcessorRules.GetOldS46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS46]; -end; - -procedure TStockEDIBusinessProcessorRules.SetS46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetS48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48]; -end; - -function TStockEDIBusinessProcessorRules.GetOldS48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS48]; -end; - -procedure TStockEDIBusinessProcessorRules.SetS48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetTSValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS]; -end; - -function TStockEDIBusinessProcessorRules.GetOldTSValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITS]; -end; - -procedure TStockEDIBusinessProcessorRules.SetTSValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetK38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38]; -end; - -function TStockEDIBusinessProcessorRules.GetOldK38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK38]; -end; - -procedure TStockEDIBusinessProcessorRules.SetK38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetK40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40]; -end; - -function TStockEDIBusinessProcessorRules.GetOldK40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK40]; -end; - -procedure TStockEDIBusinessProcessorRules.SetK40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetK42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42]; -end; - -function TStockEDIBusinessProcessorRules.GetOldK42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK42]; -end; - -procedure TStockEDIBusinessProcessorRules.SetK42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetK44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44]; -end; - -function TStockEDIBusinessProcessorRules.GetOldK44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK44]; -end; - -procedure TStockEDIBusinessProcessorRules.SetK44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetK46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46]; -end; - -function TStockEDIBusinessProcessorRules.GetOldK46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK46]; -end; - -procedure TStockEDIBusinessProcessorRules.SetK46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetK48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48]; -end; - -function TStockEDIBusinessProcessorRules.GetOldK48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK48]; -end; - -procedure TStockEDIBusinessProcessorRules.SetK48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48] := aValue; -end; - -function TStockEDIBusinessProcessorRules.GetKTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT]; -end; - -function TStockEDIBusinessProcessorRules.GetOldKTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIKT]; -end; - -procedure TStockEDIBusinessProcessorRules.SetKTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT] := aValue; -end; - - -{ TStockVARELABusinessProcessorRules } -constructor TStockVARELABusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TStockVARELABusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TStockVARELABusinessProcessorRules.GetFILIALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL]; -end; - -function TStockVARELABusinessProcessorRules.GetOldFILIALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAFILIAL]; -end; - -procedure TStockVARELABusinessProcessorRules.SetFILIALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO]; -end; - -function TStockVARELABusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACODIGO]; -end; - -procedure TStockVARELABusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR]; -end; - -function TStockVARELABusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLOR]; -end; - -procedure TStockVARELABusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO]; -end; - -function TStockVARELABusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAPRODUCTO]; -end; - -procedure TStockVARELABusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetTIPO_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO]; -end; - -function TStockVARELABusinessProcessorRules.GetOldTIPO_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELATIPO_PRODUTO]; -end; - -procedure TStockVARELABusinessProcessorRules.SetTIPO_PRODUTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetGRUPO_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO]; -end; - -function TStockVARELABusinessProcessorRules.GetOldGRUPO_PRODUTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAGRUPO_PRODUTO]; -end; - -procedure TStockVARELABusinessProcessorRules.SetGRUPO_PRODUTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION]; -end; - -function TStockVARELABusinessProcessorRules.GetOldCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLECCION]; -end; - -procedure TStockVARELABusinessProcessorRules.SetCOLECCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetK38Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38]; -end; - -function TStockVARELABusinessProcessorRules.GetOldK38Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK38]; -end; - -procedure TStockVARELABusinessProcessorRules.SetK38Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetK40Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40]; -end; - -function TStockVARELABusinessProcessorRules.GetOldK40Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK40]; -end; - -procedure TStockVARELABusinessProcessorRules.SetK40Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetK42Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42]; -end; - -function TStockVARELABusinessProcessorRules.GetOldK42Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK42]; -end; - -procedure TStockVARELABusinessProcessorRules.SetK42Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetK44Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44]; -end; - -function TStockVARELABusinessProcessorRules.GetOldK44Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK44]; -end; - -procedure TStockVARELABusinessProcessorRules.SetK44Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetK46Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46]; -end; - -function TStockVARELABusinessProcessorRules.GetOldK46Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK46]; -end; - -procedure TStockVARELABusinessProcessorRules.SetK46Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetK48Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48]; -end; - -function TStockVARELABusinessProcessorRules.GetOldK48Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK48]; -end; - -procedure TStockVARELABusinessProcessorRules.SetK48Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48] := aValue; -end; - -function TStockVARELABusinessProcessorRules.GetKTValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT]; -end; - -function TStockVARELABusinessProcessorRules.GetOldKTValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAKT]; -end; - -procedure TStockVARELABusinessProcessorRules.SetKTValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT] := aValue; -end; - - -{ TStockEDIInventarioBusinessProcessorRules } -constructor TStockEDIInventarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TStockEDIInventarioBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCENTRO]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCODIGO]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioPRODUCTO]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLOR]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLECCION]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetI38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldI38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI38]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetI38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetI40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldI40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI40]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetI40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetI42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldI42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI42]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetI42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetI44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldI44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI44]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetI44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetI46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldI46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI46]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetI46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetI48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldI48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI48]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetI48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetTIValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldTIValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTI]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetTIValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetK38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldK38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK38]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetK38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetK40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldK40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK40]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetK40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetK42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldK42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK42]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetK42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetK44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldK44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK44]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetK44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetK46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldK46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK46]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetK46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetK48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldK48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK48]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetK48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetTKValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldTKValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTK]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetTKValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetD38Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldD38Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD38]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetD38Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetD40Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldD40Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD40]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetD40Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetD42Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldD42Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD42]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetD42Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetD44Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldD44Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD44]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetD44Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetD46Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldD46Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD46]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetD46Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetD48Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldD48Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD48]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetD48Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48] := aValue; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetDTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT]; -end; - -function TStockEDIInventarioBusinessProcessorRules.GetOldDTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioDT]; -end; - -procedure TStockEDIInventarioBusinessProcessorRules.SetDTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID_StockPrendasCentrosDelta, TStockPrendasCentrosBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_StockEDIDelta, TStockEDIBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_StockVARELADelta, TStockVARELABusinessProcessorRules); - RegisterBusinessProcessorRules(RID_StockEDIInventarioDelta, TStockEDIInventarioBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Modulos/Stock/Reglas/uBizStock.pas b/Varela/Varela/Source/Modulos/Stock/Reglas/uBizStock.pas deleted file mode 100644 index 9f0ff64..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Reglas/uBizStock.pas +++ /dev/null @@ -1,58 +0,0 @@ -unit uBizStock; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces, - DataAbstract3_Intf, uROTypes, schStockClient_Intf; - -const - BIZ_STOCK_EDI = 'Client.StockEDI'; - BIZ_STOCK_EDIINVENTARIO = 'Client.StockEDIInventario'; - BIZ_STOCK_VARELA = 'Client.StockVARELA'; - BIZ_STOCK_PRENDAS_CENTROS = 'Client.StockPrendasCentros'; - -type - IBizStockEDI = interface(IStockEDI) - ['{01767388-AF6D-4EF0-A2A4-092D698ECD19}'] - end; - - IBizStockEDIInventario = interface(IStockEDIInventario) - ['{156E243C-7B4D-4223-8FAF-A965E8C5A94D}'] - end; - - IBizStockVARELA = interface(IStockVARELA) - ['{2DC85C8D-E7CA-4B13-A7CE-46E412D05D76}'] - end; - - IBizStockPrendasCentros = interface(IStockPrendasCentros) - ['{F17984D3-1262-4D0B-94F3-E86DA3B1357E}'] - end; - - TBizStockEDIDataTableRules = class(TStockEDIDataTableRules, IBizStockEDI) - end; - - TBizStockEDIInventarioDataTableRules = class(TStockEDIInventarioDataTableRules, IBizStockEDIInventario) - end; - - TBizStockVARELADataTableRules = class(TStockVARELADataTableRules, IBizStockVARELA) - end; - - TBizStockPrendasCentrosDataTableRules = class(TStockPrendasCentrosDataTableRules, IBizStockPrendasCentros) - end; - - -implementation - -{uses - Dialogs, uEditorUtils, uDataModuleVentasTerminadas;} - -initialization - RegisterDataTableRules(BIZ_STOCK_EDI, TBizStockEDIDataTableRules); - RegisterDataTableRules(BIZ_STOCK_EDIINVENTARIO, TBizStockEDIInventarioDataTableRules); - RegisterDataTableRules(BIZ_STOCK_VARELA, TBizStockVarelaDataTableRules); - RegisterDataTableRules(BIZ_STOCK_PRENDAS_CENTROS, TBizStockPrendasCentrosDataTableRules); -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.ddp b/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm b/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm deleted file mode 100644 index 4fce771..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm +++ /dev/null @@ -1,1389 +0,0 @@ -object srvStock: TsrvStock - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schStock - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnAfterAcquireConnection = DARemoteServiceAfterAcquireConnection - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 300 - Width = 300 - object DABINAdapter: TDABINAdapter - Left = 56 - Top = 96 - end - object schStock: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT'#10' CODIGO,'#10' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' ' + - 'GRUPO_PRODUCTO,'#10' COLECCION,'#10' COLOR,'#10' SUM(K38) AS ' + - 'T38,'#10' SUM(K40) AS T40,'#10' SUM(K42) AS T42,'#10' SUM(K44' + - ') AS T44,'#10' SUM(K46) AS T46,'#10' SUM(K48) AS T48,'#10' SU' + - 'M(KT) AS TOTAL'#10'FROM RDX_V_STOCK_CALCULADO'#10'GROUP BY CODIGO,'#10' ' + - ' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' GRUPO_PRODUCTO,'#10' COLE' + - 'CCION,'#10' COLOR' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'TIPO_PRODUCTO' - TableField = 'TIPO_PRODUCTO' - end - item - DatasetField = 'GRUPO_PRODUCTO' - TableField = 'GRUPO_PRODUCTO' - end - item - DatasetField = 'COLECCION' - TableField = 'COLECCION' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'T38' - TableField = 'T38' - end - item - DatasetField = 'T40' - TableField = 'T40' - end - item - DatasetField = 'T42' - TableField = 'T42' - end - item - DatasetField = 'T44' - TableField = 'T44' - end - item - DatasetField = 'T46' - TableField = 'T46' - end - item - DatasetField = 'T48' - TableField = 'T48' - end - item - DatasetField = 'TOTAL' - TableField = 'TOTAL' - end> - end> - Name = 'StockPrendasCentros' - Fields = < - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'digo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Producto' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Tipo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Grupo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Colecci'#243'n' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Color' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '38' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '40' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '42' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '44' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '46' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = '48' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT CENTRO, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRUPO_PRODUCTO, ' + - 'COLECCION, COLOR,'#10' E38, E40, E42, E44, E46, E48, TE,'#10' ' + - 'S38, S40, S42, S44, S46, S48, TS,'#10' K38, K40, K42, K44, K46,' + - ' K48, KT'#10' '#10'FROM RDX_V_STOCK_CALCULADO' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'COLECCION' - TableField = 'COLECCION' - end - item - DatasetField = 'TIPO_PRODUCTO' - TableField = 'TIPO_PRODUCTO' - end - item - DatasetField = 'GRUPO_PRODUCTO' - TableField = 'GRUPO_PRODUCTO' - end - item - DatasetField = 'E38' - TableField = 'E38' - end - item - DatasetField = 'E40' - TableField = 'E40' - end - item - DatasetField = 'E42' - TableField = 'E42' - end - item - DatasetField = 'E44' - TableField = 'E44' - end - item - DatasetField = 'E46' - TableField = 'E46' - end - item - DatasetField = 'E48' - TableField = 'E48' - end - item - DatasetField = 'TE' - TableField = 'TE' - end - item - DatasetField = 'S38' - TableField = 'S38' - end - item - DatasetField = 'S40' - TableField = 'S40' - end - item - DatasetField = 'S42' - TableField = 'S42' - end - item - DatasetField = 'S44' - TableField = 'S44' - end - item - DatasetField = 'S46' - TableField = 'S46' - end - item - DatasetField = 'S48' - TableField = 'S48' - end - item - DatasetField = 'TS' - TableField = 'TS' - end - item - DatasetField = 'K38' - TableField = 'K38' - end - item - DatasetField = 'K40' - TableField = 'K40' - end - item - DatasetField = 'K42' - TableField = 'K42' - end - item - DatasetField = 'K44' - TableField = 'K44' - end - item - DatasetField = 'K46' - TableField = 'K46' - end - item - DatasetField = 'K48' - TableField = 'K48' - end - item - DatasetField = 'KT' - TableField = 'KT' - end> - end> - Name = 'StockEDI' - Fields = < - item - Name = 'CENTRO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'E48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TE' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'S48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TS' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'KT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT FILIAL, CODIGO, COLOR, PRODUCTO, TIPO_PRODUTO, GRUPO_PROD' + - 'UTO,'#10' COLECCION, K38, K40, K42, K44, K46, K48, KT'#10' '#10'F' + - 'ROM RDX_V_STOCK_VARELA' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'COLECCION' - TableField = 'COLECCION' - end - item - DatasetField = 'K38' - TableField = 'K38' - end - item - DatasetField = 'K40' - TableField = 'K40' - end - item - DatasetField = 'K42' - TableField = 'K42' - end - item - DatasetField = 'K44' - TableField = 'K44' - end - item - DatasetField = 'K46' - TableField = 'K46' - end - item - DatasetField = 'K48' - TableField = 'K48' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'TIPO_PRODUTO' - TableField = 'TIPO_PRODUTO' - end - item - DatasetField = 'GRUPO_PRODUTO' - TableField = 'GRUPO_PRODUTO' - end - item - DatasetField = 'KT' - TableField = 'KT' - end> - end> - Name = 'StockVARELA' - Fields = < - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K38' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K40' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K42' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K44' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K46' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K48' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'KT' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_INVENTARIO' - SQL = - 'SELECT '#10' CENTRO, CODIGO, PRODUCTO, COLOR, TIPO_PRODUCTO, GRUP' + - 'O_PRODUCTO, '#10' COLECCION, I38, I40, I42, I44, I46, I48, TI, K3' + - '8, K40, '#10' K42, K44, K46, K48, TK, D38, D40, D42, D44, D46, D4' + - '8, '#10' DT'#10' FROM'#10' RDX_V_CONTROL_INVENTARIO' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'TIPO_PRODUCTO' - TableField = 'TIPO_PRODUCTO' - end - item - DatasetField = 'GRUPO_PRODUCTO' - TableField = 'GRUPO_PRODUCTO' - end - item - DatasetField = 'COLECCION' - TableField = 'COLECCION' - end - item - DatasetField = 'I38' - TableField = 'I38' - end - item - DatasetField = 'I40' - TableField = 'I40' - end - item - DatasetField = 'I42' - TableField = 'I42' - end - item - DatasetField = 'I44' - TableField = 'I44' - end - item - DatasetField = 'I46' - TableField = 'I46' - end - item - DatasetField = 'I48' - TableField = 'I48' - end - item - DatasetField = 'TI' - TableField = 'TI' - end - item - DatasetField = 'K38' - TableField = 'K38' - end - item - DatasetField = 'K40' - TableField = 'K40' - end - item - DatasetField = 'K42' - TableField = 'K42' - end - item - DatasetField = 'K44' - TableField = 'K44' - end - item - DatasetField = 'K46' - TableField = 'K46' - end - item - DatasetField = 'K48' - TableField = 'K48' - end - item - DatasetField = 'TK' - TableField = 'TK' - end - item - DatasetField = 'D38' - TableField = 'D38' - end - item - DatasetField = 'D40' - TableField = 'D40' - end - item - DatasetField = 'D42' - TableField = 'D42' - end - item - DatasetField = 'D44' - TableField = 'D44' - end - item - DatasetField = 'D46' - TableField = 'D46' - end - item - DatasetField = 'D48' - TableField = 'D48' - end - item - DatasetField = 'DT' - TableField = 'DT' - end> - end> - Name = 'StockEDIInventario' - Fields = < - item - Name = 'CENTRO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'GRUPO_PRODUCTO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLECCION' - DataType = datString - Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'I48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TI' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'K48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TK' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'D48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - Commands = <> - RelationShips = <> - UpdateRules = <> - Left = 56 - Top = 32 - end -end diff --git a/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.pas b/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.pas deleted file mode 100644 index fc27fcc..0000000 --- a/Varela/Varela/Source/Modulos/Stock/Servidor/srvStock_Impl.pas +++ /dev/null @@ -1,59 +0,0 @@ -unit srvStock_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDADataTable, uDABINAdapter, - uDAInterfaces, uDADataStreamer; - -type - { TsrvStock } - TsrvStock = class(TDARemoteService, IsrvStock) - DABINAdapter: TDABINAdapter; - schStock: TDASchema; - procedure DARemoteServiceAfterAcquireConnection( - Sender: TDARemoteService; const ConnectionName: String; - const AcquiredConnection: IDAConnection); - private - protected - { IsrvStock methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, ADODB; - -procedure Create_srvStock(out anInstance : IUnknown); -begin - anInstance := TsrvStock.Create(NIL); -end; - -{ srvStock } -procedure TsrvStock.DARemoteServiceAfterAcquireConnection( - Sender: TDARemoteService; const ConnectionName: String; - const AcquiredConnection: IDAConnection); -begin -{ with (Connection as IDAConnectionObjectAccess) do - if ConnectionObject is TADOConnection then - TADOConnection(ConnectionObject).CommandTimeout:= 0;} -end; - -initialization - TROClassFactory.Create('srvStock', Create_srvStock, TsrvStock_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.bdsproj b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.bdsproj deleted file mode 100644 index 89713a6..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - Traspasos.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.cfg b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.cfg deleted file mode 100644 index a34a309..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$Y- --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.dof b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.dof deleted file mode 100644 index f5bd34e..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=0 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Servidor -Item1=..\..\Output\Cliente -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.dpk b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.dpk deleted file mode 100644 index f3b8eae..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.dpk +++ /dev/null @@ -1,82 +0,0 @@ -package Traspasos; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO OFF} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - dbrtl, - dsnap, - BaseD10, - vcl, - adortl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - GUISDK_D10, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - cxTreeListD10, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - JvGlobusD10R, - ControlesBaseD10, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - dxPSCoreD10, - dxComnD10, - JvCustomD10R, - bdertl, - VclSmp, - dxPScxCommonD10, - dxPSLnksD10, - designide, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - dxLayoutControlD10; - -contains - uDataModuleTraspasos in 'uDataModuleTraspasos.pas' {dmTraspasos: TDAClientDataModule}, - uBizTraspasos in '..\Reglas\uBizTraspasos.pas', - uPluginControllerTraspasos in 'uPluginControllerTraspasos.pas' {ModuleTraspasos: TModuleController}, - uViewListaTraspasos in 'uViewListaTraspasos.pas' {frViewListaTraspasos: TCustomView}, - uEditorListaTraspasos in 'uEditorListaTraspasos.pas' {fEditorListaTraspasos: TCustomEditor}, - uEditorAjustarTraspasos in 'uEditorAjustarTraspasos.pas' {fEditorAjustarTraspasos}; - -end. diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.drc b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.rc b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.res b/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Cliente/Traspasos.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.ddp b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm deleted file mode 100644 index a407ef1..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm +++ /dev/null @@ -1,1406 +0,0 @@ -object dmTraspasos: TdmTraspasos - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 297 - Width = 620 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvTraspasos' - Left = 40 - Top = 32 - end - object tbl_Traspasos: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'TIPO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'Tipo' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TIPO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FECHA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Centro' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CENTRO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Filial' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Centro2' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CENTRO2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL2' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Filial2' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FILIAL2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Aprobado' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_TRASPASO' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Estado' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Observaciones' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Contabilizar' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CONTABILIZAR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha cambio' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'digo' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CODIGO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'Producto' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Color' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_COLOR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TOTAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - Alignment = taLeftJustify - ServerAutoRefresh = True - DictionaryEntry = 'Traspasos_TOTAL_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Traspasos' - IndexDefs = <> - Left = 136 - Top = 32 - end - object ds_Traspasos: TDADataSource - DataSet = tbl_Traspasos.Dataset - DataTable = tbl_Traspasos - Left = 136 - Top = 88 - end - object tbl_TraspasosAprobados: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'TIPO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'Tipo' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TIPO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FECHA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Centro' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CENTRO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Filial' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Centro2' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CENTRO2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL2' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Filial2' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FILIAL2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Aprobado' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_TRASPASO' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Estado' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Observaciones' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Contabilizar' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CONTABILIZAR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha cambio' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'digo' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CODIGO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'Producto' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Color' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_COLOR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TOTAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - Alignment = taLeftJustify - ServerAutoRefresh = True - DictionaryEntry = 'Traspasos_TOTAL_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'TraspasosAprobados' - IndexDefs = <> - Left = 272 - Top = 32 - end - object ds_TraspasosAprobados: TDADataSource - DataSet = tbl_TraspasosAprobados.Dataset - DataTable = tbl_TraspasosAprobados - Left = 272 - Top = 88 - end - object tbl_TraspasosPendientes: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'TIPO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'Tipo' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TIPO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FECHA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Centro' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CENTRO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Filial' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Centro2' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CENTRO2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FILIAL2' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Filial2' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FILIAL2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Aprobado' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESTADO_TRASPASO' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Estado' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Observaciones' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Contabilizar' - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CONTABILIZAR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha cambio' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'digo' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_CODIGO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'Producto' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Color' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_COLOR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'T48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_T48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - ReadOnly = True - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TOTAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR38' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR40' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR42' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR44' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR46' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TR48' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - DictionaryEntry = 'Traspasos_TR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TOTAL_RECT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Total' - Alignment = taLeftJustify - ServerAutoRefresh = True - DictionaryEntry = 'Traspasos_TOTAL_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'TraspasosPendientes' - IndexDefs = <> - Left = 408 - Top = 32 - end - object ds_TraspasosPendientes: TDADataSource - DataSet = tbl_TraspasosPendientes.Dataset - DataTable = tbl_TraspasosPendientes - Left = 408 - Top = 88 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas deleted file mode 100644 index b24c908..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas +++ /dev/null @@ -1,87 +0,0 @@ -unit uDataModuleTraspasos; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider, - uDACDSDataTable, uDABINAdapter, uDataModuleBase, uROClient, - uROServiceComponent, uRORemoteService, uBizTraspasos, uDARemoteDataAdapter, - uDAInterfaces; - -type - TdmTraspasos = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_Traspasos: TDACDSDataTable; - ds_Traspasos: TDADataSource; - tbl_TraspasosAprobados: TDACDSDataTable; - ds_TraspasosAprobados: TDADataSource; - tbl_TraspasosPendientes: TDACDSDataTable; - ds_TraspasosPendientes: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - public - function GetItems : IBizTraspasos; overload; - function GetItems(const AEstado : TInvTraspasoEstado) : IBizTraspasos; overload; - end; - -var - dmTraspasos: TdmTraspasos; - -implementation - -{$R *.DFM} - -uses - Forms, Windows, Controls, VARELA_Intf, uEditorPreview, - uDataTableUtils, uROTypes, cxControls; - -procedure TdmTraspasos.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmTraspasos.GetItems: IBizTraspasos; -var - dtLista: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_Traspasos, dtLista); - dtLista.BusinessRulesID := BIZ_TRASPASOS; - Result := (dtLista as IBizTraspasos); - finally - HideHourglassCursor; - end; -end; - -function TdmTraspasos.GetItems( - const AEstado: TInvTraspasoEstado): IBizTraspasos; -var - dtLista: TDACDSDataTable; - AStr : String; -begin - ShowHourglassCursor; - try - dtLista := TDACDSDataTable.Create(NIL); - - case AEstado of - titPendiente : CloneDataTable(tbl_TraspasosPendientes, dtLista); - titAprobado : CloneDataTable(tbl_TraspasosAprobados, dtLista); - end; - - dtLista.BusinessRulesID := BIZ_TRASPASOS; - Result := (dtLista as IBizTraspasos); - finally - HideHourglassCursor; - end; -end; - -initialization - dmTraspasos := TdmTraspasos.Create(nil); - -finalization - FreeAndNil(dmTraspasos); - -end. diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.ddp b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.dfm b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.dfm deleted file mode 100644 index 6b1235d..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.dfm +++ /dev/null @@ -1,725 +0,0 @@ -object fEditorAjustarTraspasos: TfEditorAjustarTraspasos - Left = 344 - Top = 312 - BorderStyle = bsDialog - Caption = 'Modificaci'#243'n de recepciones de productos' - ClientHeight = 536 - ClientWidth = 752 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poMainFormCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object JvgWizardHeader1: TJvgWizardHeader - Left = 0 - Top = 0 - Width = 752 - Height = 73 - CaptionFont.Charset = DEFAULT_CHARSET - CaptionFont.Color = clWindowText - CaptionFont.Height = -11 - CaptionFont.Name = 'MS Sans Serif' - CaptionFont.Style = [fsBold] - CommentFont.Charset = DEFAULT_CHARSET - CommentFont.Color = clWindowText - CommentFont.Height = -11 - CommentFont.Name = 'MS Sans Serif' - CommentFont.Style = [] - SymbolFont.Charset = DEFAULT_CHARSET - SymbolFont.Color = clHighlightText - SymbolFont.Height = -35 - SymbolFont.Name = 'Wingdings' - SymbolFont.Style = [fsBold] - Captions.Strings = ( - 'Modificaci'#243'n de recepciones de productos') - Comments.Strings = ( - '') - Gradient.FromColor = clHighlight - Gradient.ToColor = clWindow - Gradient.Active = True - Gradient.Orientation = fgdVertical - BufferedDraw = False - end - object Bevel1: TBevel - Left = 11 - Top = 483 - Width = 730 - Height = 4 - Shape = bsBottomLine - end - object bAceptar: TButton - Left = 572 - Top = 496 - Width = 75 - Height = 25 - Caption = '&Aceptar' - ModalResult = 1 - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 666 - Top = 496 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object dxLayoutControl1: TdxLayoutControl - Left = 0 - Top = 73 - Width = 753 - Height = 403 - ParentBackground = True - TabOrder = 2 - AutoContentSizes = [acsWidth, acsHeight] - object Bevel2: TBevel - Left = 22 - Top = 130 - Width = 50 - Height = 10 - Shape = bsBottomLine - end - object Label2: TLabel - Left = 22 - Top = 335 - Width = 84 - Height = 13 - Caption = 'Cantidad por EDI:' - end - object Label3: TLabel - Left = 61 - Top = 364 - Width = 45 - Height = 13 - Caption = 'Cantidad:' - end - object Bevel3: TBevel - Left = 22 - Top = 74 - Width = 734 - Height = 10 - Shape = bsBottomLine - end - object lblCentroOrigen: TLabel - Left = 133 - Top = 90 - Width = 31 - Height = 13 - Caption = 'Centro' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - end - object lblCentroDestino: TLabel - Left = 133 - Top = 110 - Width = 31 - Height = 13 - Caption = 'Centro' - Font.Charset = DEFAULT_CHARSET - Font.Color = clActiveCaption - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - end - object edtRec38: TcxDBMaskEdit - Left = 112 - Top = 333 - DataBinding.DataField = 'T38' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 - Width = 98 - end - object edtRec40: TcxDBMaskEdit - Left = 216 - Top = 333 - DataBinding.DataField = 'T40' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 - Width = 98 - end - object edtRec42: TcxDBMaskEdit - Left = 320 - Top = 333 - DataBinding.DataField = 'T42' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 - Width = 98 - end - object edtRec44: TcxDBMaskEdit - Left = 424 - Top = 333 - DataBinding.DataField = 'T44' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 - Width = 98 - end - object edtRec46: TcxDBMaskEdit - Left = 528 - Top = 333 - DataBinding.DataField = 'T46' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 - Width = 98 - end - object edtRec48: TcxDBMaskEdit - Left = 632 - Top = 333 - DataBinding.DataField = 'T48' - DataBinding.DataSource = dsDataSource - Enabled = False - Properties.Alignment.Horz = taRightJustify - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 - Width = 98 - end - object edtRecR48: TcxCurrencyEdit - Left = 632 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 - Width = 98 - end - object edtRecR46: TcxCurrencyEdit - Left = 528 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 - Width = 98 - end - object edtRecR44: TcxCurrencyEdit - Left = 424 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 - Width = 98 - end - object edtRecR42: TcxCurrencyEdit - Left = 320 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Width = 98 - end - object edtRecR40: TcxCurrencyEdit - Left = 216 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 - Width = 98 - end - object edtRecR38: TcxCurrencyEdit - Left = 112 - Top = 360 - Properties.Alignment.Horz = taRightJustify - Properties.DecimalPlaces = 0 - Properties.DisplayFormat = ',0;-,0' - Properties.UseThousandSeparator = True - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clActiveCaption - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 - Width = 98 - end - object edtFecha: TcxDBLabel - Left = 133 - Top = 28 - DataBinding.DataField = 'FECHA' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 420 - end - object edtProducto: TcxDBLabel - Left = 133 - Top = 51 - DataBinding.DataField = 'PRODUCTO' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 460 - end - object edtColor: TcxDBLabel - Left = 655 - Top = 51 - DataBinding.DataField = 'COLOR' - DataBinding.DataSource = dsDataSource - ParentColor = False - ParentFont = False - Style.Font.Charset = DEFAULT_CHARSET - Style.Font.Color = clActiveCaption - Style.Font.Height = -11 - Style.Font.Name = 'MS Sans Serif' - Style.Font.Style = [] - Style.IsFontAssigned = True - Height = 17 - Width = 76 - end - object cbEstado: TcxComboBox - Left = 133 - Top = 146 - Properties.Items.Strings = ( - 'Ninguna' - 'Env'#237'o perdido' - 'Env'#237'o retrasado' - 'Env'#237'o devuelto' - 'Otros') - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 - Text = 'cbEstado' - Width = 156 - end - object memObservaciones: TcxMemo - Left = 22 - Top = 191 - Lines.Strings = ( - 'memEstadoAlbaran') - 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 = 5 - Height = 88 - Width = 333 - end - object cbContabilizar: TcxCheckBox - Left = 348 - Top = 146 - Caption = 'Contabilizar este traspaso' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 'S' - Properties.ValueUnchecked = 'N' - State = cbsGrayed - 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 = 4 - Width = 319 - end - object dxLayoutControl1Group_Root: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group1: TdxLayoutGroup - Caption = 'Datos generales del traspaso' - object dxLayoutControl1Item31: TdxLayoutItem - Caption = 'Fecha del movimiento:' - Control = edtFecha - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group3: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group17: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item32: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Producto:' - Control = edtProducto - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item33: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'Color:' - Control = edtColor - ControlOptions.MinWidth = 50 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group7: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item7: TdxLayoutItem - Control = Bevel3 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item1: TdxLayoutItem - Caption = 'Centro de origen:' - Control = lblCentroOrigen - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item10: TdxLayoutItem - Caption = 'Centro de destino:' - Control = lblCentroDestino - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item9: TdxLayoutItem - Control = Bevel2 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group6: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group2: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item5: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Estado del env'#237'o:' - Control = cbEstado - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item8: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'cxCheckBox1' - ShowCaption = False - Control = cbContabilizar - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item6: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Observaciones:' - CaptionOptions.AlignVert = tavTop - CaptionOptions.Layout = clTop - Control = memObservaciones - ControlOptions.ShowBorder = False - end - end - end - end - end - object dxLayoutControl1Group5: TdxLayoutGroup - Caption = 'Cantidades' - LayoutDirection = ldHorizontal - object dxLayoutControl1Group16: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item23: TdxLayoutItem - Caption = 'Tallas:' - CaptionOptions.AlignHorz = taRightJustify - CaptionOptions.Layout = clTop - Offsets.Top = 2 - Control = Label2 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item30: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - CaptionOptions.Layout = clTop - Offsets.Top = 10 - ShowCaption = False - Control = Label3 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group10: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item2: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '38' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec38 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item29: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR38 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group11: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '40' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec40 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item28: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR40 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group12: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item4: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '42' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec42 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item27: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR42 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group13: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item20: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '44' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec44 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item26: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR44 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group14: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item21: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '46' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec46 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item25: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR46 - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group15: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Item22: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = '48' - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRec48 - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item24: TdxLayoutItem - CaptionOptions.AlignHorz = taCenter - CaptionOptions.Layout = clTop - Control = edtRecR48 - ControlOptions.ShowBorder = False - end - end - end - end - end - object dsDataSource: TDADataSource - DataTable = dmTraspasos.tbl_Traspasos - Left = 200 - Top = 496 - end -end diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.pas b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.pas deleted file mode 100644 index 6093469..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorAjustarTraspasos.pas +++ /dev/null @@ -1,288 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorAjustarTraspasos; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, JvExControls, JvComponent, - JvgWizardHeader, ExtCtrls, cxStyles, cxCustomData, uBizTraspasos, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, - cxCurrencyEdit, uDADataTable, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, - cxClasses, cxControls, cxGridCustomView, cxGrid, dxLayoutControl, - cxContainer, cxTextEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, - cxCheckBox, cxCalendar, cxLabel, cxDBLabel; - -type - IEditorAjustarTraspasos = interface - ['{40E4185E-595B-48DF-AFA8-E86509F7354F}'] - function GetItems : IBizTraspasos; - procedure SetItems (const AValue : IBizTraspasos); - property Items : IBizTraspasos read GetItems write SetItems; - end; - - TfEditorAjustarTraspasos = class(TForm, IEditorAjustarTraspasos) - bAceptar: TButton; - bCancelar: TButton; - JvgWizardHeader1: TJvgWizardHeader; - Bevel1: TBevel; - dsDataSource: TDADataSource; - dxLayoutControl1Group_Root: TdxLayoutGroup; - dxLayoutControl1: TdxLayoutControl; - dxLayoutControl1Group1: TdxLayoutGroup; - dxLayoutControl1Group3: TdxLayoutGroup; - dxLayoutControl1Group5: TdxLayoutGroup; - dxLayoutControl1Item9: TdxLayoutItem; - Bevel2: TBevel; - dxLayoutControl1Item2: TdxLayoutItem; - edtRec38: TcxDBMaskEdit; - dxLayoutControl1Item3: TdxLayoutItem; - edtRec40: TcxDBMaskEdit; - dxLayoutControl1Item4: TdxLayoutItem; - edtRec42: TcxDBMaskEdit; - dxLayoutControl1Item20: TdxLayoutItem; - edtRec44: TcxDBMaskEdit; - dxLayoutControl1Item21: TdxLayoutItem; - edtRec46: TcxDBMaskEdit; - dxLayoutControl1Item22: TdxLayoutItem; - edtRec48: TcxDBMaskEdit; - dxLayoutControl1Item23: TdxLayoutItem; - Label2: TLabel; - dxLayoutControl1Item24: TdxLayoutItem; - edtRecR48: TcxCurrencyEdit; - dxLayoutControl1Item25: TdxLayoutItem; - edtRecR46: TcxCurrencyEdit; - dxLayoutControl1Item26: TdxLayoutItem; - edtRecR44: TcxCurrencyEdit; - dxLayoutControl1Item27: TdxLayoutItem; - edtRecR42: TcxCurrencyEdit; - dxLayoutControl1Item28: TdxLayoutItem; - edtRecR40: TcxCurrencyEdit; - dxLayoutControl1Item29: TdxLayoutItem; - edtRecR38: TcxCurrencyEdit; - dxLayoutControl1Group10: TdxLayoutGroup; - dxLayoutControl1Group11: TdxLayoutGroup; - dxLayoutControl1Group12: TdxLayoutGroup; - dxLayoutControl1Group13: TdxLayoutGroup; - dxLayoutControl1Group14: TdxLayoutGroup; - dxLayoutControl1Group15: TdxLayoutGroup; - dxLayoutControl1Item30: TdxLayoutItem; - Label3: TLabel; - dxLayoutControl1Group16: TdxLayoutGroup; - edtFecha: TcxDBLabel; - dxLayoutControl1Item31: TdxLayoutItem; - edtProducto: TcxDBLabel; - dxLayoutControl1Item32: TdxLayoutItem; - edtColor: TcxDBLabel; - dxLayoutControl1Item33: TdxLayoutItem; - cbEstado: TcxComboBox; - dxLayoutControl1Item5: TdxLayoutItem; - memObservaciones: TcxMemo; - dxLayoutControl1Item6: TdxLayoutItem; - cbContabilizar: TcxCheckBox; - dxLayoutControl1Item8: TdxLayoutItem; - dxLayoutControl1Group17: TdxLayoutGroup; - dxLayoutControl1Group7: TdxLayoutGroup; - dxLayoutControl1Group6: TdxLayoutGroup; - dxLayoutControl1Item7: TdxLayoutItem; - Bevel3: TBevel; - dxLayoutControl1Item1: TdxLayoutItem; - lblCentroOrigen: TLabel; - dxLayoutControl1Item10: TdxLayoutItem; - lblCentroDestino: TLabel; - dxLayoutControl1Group2: TdxLayoutGroup; - procedure FormShow(Sender: TObject); - procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure bAceptarClick(Sender: TObject); - private - FItems : IBizTraspasos; - FHayErrores : Boolean; - procedure CargarValores; - procedure SalvarValores; - protected - function GetItems : IBizTraspasos; - procedure SetItems (const AValue : IBizTraspasos); - public - property Items : IBizTraspasos read GetItems write SetItems; - end; - - -implementation - -uses - uEditorUtils, uDataModuleTraspasos; - -{$R *.dfm} - -function ShowEditorAjustarTraspasos (ABizObject : TDADataTableRules) : TModalResult; -var - AEditor: TfEditorAjustarTraspasos; -begin - AEditor := TfEditorAjustarTraspasos.Create(Application); - try - AEditor.Items := (ABizObject as IBizTraspasos); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - - -{ TfEditorCambioReferenciaGenerica } - -procedure TfEditorAjustarTraspasos.FormShow(Sender: TObject); -begin - FHayErrores := False; - FItems.DataTable.Open; - - CargarValores; -end; - -function TfEditorAjustarTraspasos.GetItems: IBizTraspasos; -begin - Result := FItems; -end; - -procedure TfEditorAjustarTraspasos.SetItems( - const AValue: IBizTraspasos); -begin - FItems := AValue; - if Assigned(FItems) then - dsDataSource.DataTable := FItems.DataTable; -end; - -procedure TfEditorAjustarTraspasos.cxGridViewCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if ((AViewInfo.Item as TcxGridDBBandedColumn).Position.RowIndex = 1) then - begin - ADone := True; - with AViewInfo do begin - ACanvas.FillRect(Bounds); - ACanvas.DrawTexT(Text, TextAreaBounds, 0); - ACanvas.FrameRect(Bounds, BorderColor[bBottom], 1, [bBottom]); - end; - end; -end; - -procedure TfEditorAjustarTraspasos.bAceptarClick(Sender: TObject); -begin - ShowHourglassCursor; - try - SalvarValores; - FItems.DataTable.ApplyUpdates; - finally - HideHourglassCursor; - end; - Close; -end; - -procedure TfEditorAjustarTraspasos.CargarValores; -begin - with FItems.DataTable do - begin - if FieldByName('T38').AsInteger <> FieldByName('TR38').AsInteger then - edtRecR38.Value := FieldByName('TR38').AsInteger - else - edtRecR38.Value := FieldByName('T38').AsInteger; - - if FieldByName('T40').AsInteger <> FieldByName('TR40').AsInteger then - edtRecR40.Value := FieldByName('TR40').AsInteger - else - edtRecR40.Value := FieldByName('T40').AsInteger; - - if FieldByName('T42').AsInteger <> FieldByName('TR42').AsInteger then - edtRecR42.Value := FieldByName('TR42').AsInteger - else - edtRecR42.Value := FieldByName('T42').AsInteger; - - if FieldByName('T44').AsInteger <> FieldByName('TR44').AsInteger then - edtRecR44.Value := FieldByName('TR44').AsInteger - else - edtRecR44.Value := FieldByName('T44').AsInteger; - - if FieldByName('T46').AsInteger <> FieldByName('TR46').AsInteger then - edtRecR46.Value := FieldByName('TR46').AsInteger - else - edtRecR46.Value := FieldByName('T46').AsInteger; - - if FieldByName('T48').AsInteger <> FieldByName('TR48').AsInteger then - edtRecR48.Value := FieldByName('TR48').AsInteger - else - edtRecR48.Value := FieldByName('T48').AsInteger; - - if Length(FieldByName('ESTADO_TRASPASO').AsString) = 0 then - cbEstado.Text := cbEstado.Properties.Items[0] - else - cbEstado.Text := FieldByName('ESTADO_TRASPASO').AsString; - - if FieldByName('TIPO').AsString = 'S' then - begin - lblCentroOrigen.Caption := FieldByName('CENTRO').AsString; - lblCentroDestino.Caption := FieldByName('CENTRO2').AsString; - end - else begin - lblCentroOrigen.Caption := FieldByName('CENTRO2').AsString; - lblCentroDestino.Caption := FieldByName('CENTRO').AsString; - end; - - cbContabilizar.Checked := (FieldByName('CONTABILIZAR').AsString = 'S'); - memObservaciones.Lines.Clear; - if Length(FieldByName('OBSERVACIONES').AsString) > 0 then - memObservaciones.Lines.Add(FieldByName('OBSERVACIONES').AsString) - end; -end; - -procedure TfEditorAjustarTraspasos.SalvarValores; -var - aux : String; -begin - with FItems.DataTable do - begin - Edit; - FieldByName('TR38').AsVariant := edtRecR38.Value; - FieldByName('TR40').AsVariant := edtRecR40.Value; - FieldByName('TR42').AsVariant := edtRecR42.Value; - FieldByName('TR44').AsVariant := edtRecR44.Value; - FieldByName('TR46').AsVariant := edtRecR46.Value; - FieldByName('TR48').AsVariant := edtRecR48.Value; - - if Length(memObservaciones.Lines.Text) > 0 then - FieldByName('OBSERVACIONES').AsString := memObservaciones.Lines.Text - else - FieldByName('OBSERVACIONES').AsVariant := null; - - if cbContabilizar.Checked then - FieldByName('CONTABILIZAR').AsString := 'S' - else - FieldByName('CONTABILIZAR').AsString := 'N'; - - - if cbEstado.Text = cbEstado.Properties.Items[0] then - FieldByName('ESTADO_TRASPASO').AsVariant := null - else - FieldByName('ESTADO_TRASPASO').AsString := cbEstado.Text; - - Post; - end; -end; - - -initialization - RegisterEditor(IBizTraspasos, ShowEditorAjustarTraspasos, etItem); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.ddp b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm deleted file mode 100644 index 98db9b3..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm +++ /dev/null @@ -1,1607 +0,0 @@ -inherited fEditorListaTraspasos: TfEditorListaTraspasos - Left = 271 - Top = 250 - Width = 909 - Height = 659 - Caption = 'Control de traspasos' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 901 - Caption = 'Control de traspasos' - inherited Image1: TImage - Left = 874 - end - end - inherited TBXDock: TTBXDock - Width = 901 - inherited tbxMain: TTBXToolbar - object TBXSubmenuItem2: TTBXSubmenuItem [5] - Caption = 'Cambiar el estado' - DropdownCombo = True - object TBXItem37: TTBXItem - Action = actPendiente - end - object TBXItem36: TTBXItem - Action = actAprobado - end - end - object TBXSeparatorItem16: TTBXSeparatorItem [8] - end - object tbxiExpandir: TTBXItem [16] - Action = actExpandir - end - object tbxiContraer: TTBXItem [17] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [18] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxFiltro: TTBXToolbar - Left = 571 - end - end - inherited StatusBar: TStatusBar - Top = 606 - Width = 901 - end - object JvTabBar1: TJvTabBar [3] - Left = 0 - Top = 76 - Width = 901 - Height = 29 - Cursor = crHandPoint - CloseButton = False - Painter = JvModernTabBarPainter1 - Images = SmallImages - Tabs = < - item - Caption = 'Pendientes' - Selected = True - ImageIndex = 26 - end - item - Caption = 'Aprobados' - ImageIndex = 25 - end - item - Caption = 'Todos' - end> - OnTabSelected = JvTabBar1TabSelected - end - inline frViewListaTraspasos1: TfrViewListaTraspasos [4] - Left = 0 - Top = 105 - Width = 901 - Height = 501 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 901 - Height = 501 - inherited cxGridView: TcxGridDBTableView - inherited cxGridViewAPROBADO: TcxGridDBColumn - IsCaptionAssigned = True - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - BuiltInReportLink = True - end - end - end - inherited EditorActionList: TActionList [5] - inherited actNuevo: TAction - Enabled = False - Visible = False - end - inherited actModificar: TAction - Caption = 'Modificar traslado' - OnExecute = actModificarExecute - end - inherited actEliminar: TAction - Enabled = False - Visible = False - end - inherited actDuplicar: TAction - Enabled = False - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - OnUpdate = actAnchoAutoUpdate - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - OnUpdate = actAnchoAutoUpdate - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - OnUpdate = actAnchoAutoUpdate - end - object actPendiente: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Pendiente' - GroupIndex = 1 - ImageIndex = 26 - OnExecute = actPendienteExecute - OnUpdate = actPendienteUpdate - end - object actAprobado: TAction - Category = 'Estado' - AutoCheck = True - Caption = 'Aprobado' - GroupIndex = 1 - ImageIndex = 25 - OnExecute = actAprobadoExecute - OnUpdate = actAprobadoUpdate - end - end - inherited SmallImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001034944415478DA - 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 - 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D - 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A - 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 - 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 - 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE - B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 - F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A - 7A68BA98860000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001D94944415478DA9D9321781B310C859F59580CCB66B6B21886CDF0A0 - 61A061E19595CD6585375678B0D030D0B0D065851E2B74589827E9B26CFDF205 - 6C427767E9E9D7934FE114F5A3F5522AB0A29723D08E0DC61858A3A1B556B812 - EA77717EADF0C3E67CD0DA01F5BDA23612D21A766BA0579742F2813AF74CDDC3 - EE1BC6F1510EA6E9FB22F471E006A8B50A91DB1A7549505B8FCFB3A01B423637 - 1A4CD41A533978EFE8591AD1382011AB2E04D26B41182CD6AB350EC703E6974C - 9DAB14C518606F37C8E5A734F1EE0F85E2F9D3BE301A9B859412AC7554A02539 - E50C7281881A0A7B42E330A11F0CA6D12935CDB93B67C9209A9BC6F08397E238 - 9D9E69A4F09449A82D2D4F5BC2AA61DC39A8E92577460F63447C88D87C5DE3FE - F1C7B938BF37F8872CB561D098A35736A45EE8BBDB6AA8382521E0644922A110 - 02DCAD11FC4CDEF89D472153E3E889B8F4712A923B060B353ECD9D67276701FD - 05561F04719A9398C8778123EF67159F738FF3F23EEE2C796095E20D945208B5 - 8A89764B2B23A3E6294AA2730E4CC8AB7377A9B399DC998BCF6B5C2ECCB24A46 - AE24686804BE038BC1CB0D34C3DCD9CAB60F9FEFC1DFD18EBDD7F2263424F2E9 - 9C572E4237FABAC0B5E062332459634DFE2CF21F02F45FA4F0EF02D7E217D845 - 051D2C6D56E60000000049454E44AE426082} - Name = 'PngImage24' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [7] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [8] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] - end - inherited dsDataTable: TDADataSource [10] - Top = 136 - end - inherited GridPopupMenu: TPopupMenu - Left = 112 - Top = 128 - object Cambiarelestado1: TMenuItem [3] - Caption = 'Cambiar el estado a...' - object Pendiente1: TMenuItem - Action = actPendiente - AutoCheck = True - GroupIndex = 1 - end - object Enespera1: TMenuItem - Action = actAprobado - AutoCheck = True - GroupIndex = 1 - end - end - end - object JvModernTabBarPainter1: TJvModernTabBarPainter - BorderColor = clWindow - ControlDivideColor = cl3DDkShadow - DividerColor = clBtnShadow - Font.Charset = DEFAULT_CHARSET - Font.Color = clHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - DisabledFont.Charset = DEFAULT_CHARSET - DisabledFont.Color = clGrayText - DisabledFont.Height = -11 - DisabledFont.Name = 'MS Sans Serif' - DisabledFont.Style = [] - SelectedFont.Charset = DEFAULT_CHARSET - SelectedFont.Color = clHighlight - SelectedFont.Height = -11 - SelectedFont.Name = 'MS Sans Serif' - SelectedFont.Style = [fsBold] - Left = 320 - Top = 128 - end -end diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas deleted file mode 100644 index 0f6e376..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas +++ /dev/null @@ -1,308 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uEditorListaTraspasos; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorGridBase, - JvTabBar, uCustomView, uViewBase, uViewGridBase, uViewGrid, Menus, DB, - uDADataTable, JvAppStorage, JvAppRegistryStorage, JvComponentBase, - JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, - TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, - JvExControls, JvComponent, JvNavigationPane, StdCtrls, - uViewListaTraspasos, uBizTraspasos; - - -type - IEditorListaTraspasos = interface(IEditorGridBase) - ['{729D3CD7-88E7-4D97-A9A0-8E0E1CF74716}'] - function GetItems: IBizTraspasos; - procedure SetItems(const Value: IBizTraspasos); - property Items: IBizTraspasos read GetItems - write SetItems; - end; - - TfEditorListaTraspasos = class(TfEditorGridBase, IEditorListaTraspasos) - JvTabBar1: TJvTabBar; - JvModernTabBarPainter1: TJvModernTabBarPainter; - actPendiente: TAction; - Cambiarelestado1: TMenuItem; - Pendiente1: TMenuItem; - Enespera1: TMenuItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXSeparatorItem16: TTBXSeparatorItem; - TBXItem36: TTBXItem; - TBXItem37: TTBXItem; - actAprobado: TAction; - frViewListaTraspasos1: TfrViewListaTraspasos; - procedure FormShow(Sender: TObject); - procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); - procedure actModificarExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure actAnchoAutoUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actPendienteExecute(Sender: TObject); - procedure actPendienteUpdate(Sender: TObject); - procedure actAprobadoExecute(Sender: TObject); - procedure actAprobadoUpdate(Sender: TObject); - procedure actEliminarExecute(Sender: TObject); - protected - FItems : IBizTraspasos; - function GetItems: IBizTraspasos; - procedure SetItems(const Value: IBizTraspasos); - procedure CambiarEstado(const NuevoEstado: TInvTraspasoEstado); - function GetModified: Boolean; override; - public - property Items: IBizTraspasos read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses uEditorBase, cxGridTableView, cxGridCustomTableView, cxControls, - uDBSelectionList, cxGridDBTableView, cxGridDBDataDefinitions, - uDataModuleTraspasos, uEditorDBBase; - - -{$R *.dfm} - -constructor TfEditorListaTraspasos.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewListaTraspasos1; -end; - -function TfEditorListaTraspasos.GetItems: IBizTraspasos; -begin - Result := FItems; -end; - -procedure TfEditorListaTraspasos.SetItems( - const Value: IBizTraspasos); -begin - FItems := Value; - if Assigned(FItems) then - begin - dsDataTable.DataTable := FItems.DataTable; - frViewListaTraspasos1.dsDataSource.DataTable := FItems.DataTable; - end; -end; - -procedure TfEditorListaTraspasos.FormShow(Sender: TObject); -begin - inherited; - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - FItems.DataTable.Active := True; - - with (ViewGrid as IViewListaTraspasos) do - begin - VerPendientes; - ContraerTodo; - GotoFirst; - end; -end; - -procedure TfEditorListaTraspasos.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); -begin - inherited; - ShowHourglassCursor; - Items.DataTable.Active := False; - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmTraspasos.GetItems(titPendiente); - (ViewGrid as IViewListaTraspasos).VerPendientes; - end; - - 1 : begin - Items := dmTraspasos.GetItems(titAprobado); - (ViewGrid as IViewListaTraspasos).VerAprobados; - end; - - 2 : begin - Items := dmTraspasos.GetItems; - (ViewGrid as IViewListaTraspasos).VerTodos; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - ViewGrid._FocusedView.EndUpdate; - Items.DataTable.Active := True; - ViewGrid.ContraerTodo; - ViewGrid.GotoFirst; - HideHourglassCursor; - end; -end; - -procedure TfEditorListaTraspasos.actModificarExecute( - Sender: TObject); -begin - ViewGrid._FocusedView.BeginUpdate; - ViewGrid.SaveGridStatus; - try - FItems.Show; - finally - // Que salga el reloj de espera mientras el grid refresca datos y restaura la posición - ShowHourglassCursor; - Application.ProcessMessages; - try - ViewGrid._FocusedView.EndUpdate; - ViewGrid.RestoreGridStatus; - finally - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaTraspasos.actExpandirExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ExpandirTodo; -end; - -procedure TfEditorListaTraspasos.actContraerExecute( - Sender: TObject); -begin - inherited; - ViewGrid.ContraerTodo; -end; - -procedure TfEditorListaTraspasos.actAnchoAutoExecute( - Sender: TObject); -begin - inherited; - ViewGrid.AjustarAncho; -end; - -procedure TfEditorListaTraspasos.actAnchoAutoUpdate( - Sender: TObject); -begin - inherited; - if Assigned(dsDataTable.DataTable) then - (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty) - and Assigned(ViewGrid) - else - (Sender as TAction).Enabled := False; -end; - -procedure TfEditorListaTraspasos.actModificarUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Sender as TAction).Enabled and - (ViewGrid._FocusedView.Controller.SelectedRecordCount < 2) and - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)) -end; - -procedure TfEditorListaTraspasos.actRefrescarExecute( - Sender: TObject); -begin - inherited; - ViewGrid.GotoFirst; -end; - -procedure TfEditorListaTraspasos.actPendienteExecute( - Sender: TObject); -begin - CambiarEstado(titPendiente); -end; - -procedure TfEditorListaTraspasos.actPendienteUpdate( - Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)); - - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = titPendiente); -end; - -procedure TfEditorListaTraspasos.actAprobadoExecute( - Sender: TObject); -begin - CambiarEstado(titAprobado); -end; - -procedure TfEditorListaTraspasos.actAprobadoUpdate(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := - (Assigned(ViewGrid._FocusedView.Controller.FocusedRow) and - not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)); - - (Sender as TAction).Checked := Assigned(FItems) and - (FItems.Estado = titAprobado); -end; - -procedure TfEditorListaTraspasos.CambiarEstado( - const NuevoEstado: TInvTraspasoEstado); -var - ARecord: TcxCustomGridRecord; - i : Integer; - bm : TBookMark ; -begin - if Assigned(FItems) and Assigned(ViewGrid) and (ViewGrid.MultiSelect) then - begin - ShowHourglassCursor; - bm := FItems.DataTable.GetBookMark; - FItems.DataTable.DisableControls; - try - for i := 0 to ViewGrid._FocusedView.Controller.SelectedRecordCount-1 do - begin - ARecord := ViewGrid._FocusedView.Controller.SelectedRecords[i]; - if (ARecord is TcxGridDataRow) then - begin - (ARecord as TcxGridDataRow).Focused := True; - FItems.Edit; - FItems.Estado := NuevoEstado; - FItems.Post; - end; - end; - FItems.DataTable.ApplyUpdates; - FItems.DataTable.GotoBookMark(bm); - finally - FItems.DataTable.FreeBookMark(BM); - FItems.DataTable.EnableControls; - ViewGrid._FocusedView.Controller.ClearSelection; - HideHourglassCursor; - end; - end; -end; - -procedure TfEditorListaTraspasos.actEliminarExecute( - Sender: TObject); -begin -// inherited; -end; - - -function TfEditorListaTraspasos.GetModified: Boolean; -begin - Result := False; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.ddp b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.dfm b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.dfm deleted file mode 100644 index d56401d..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.dfm +++ /dev/null @@ -1,126 +0,0 @@ -object ModuleTraspasos: TModuleTraspasos - OldCreateOrder = True - DefaultAction = actTraspasos - Description = 'Control de traspasos entre centros' - ModuleMenu = MainMenu - ModuleName = 'Control de traspasos entre centros' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.3' - Left = 779 - Top = 651 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001A44944415478DA - 63FCFFFF3F032D0123C8822BA552254076371E75A584E475BA9FF5E0B3E0BF6A - 4B0D033B7B1686829F3FA731CC8E6D61485D8C5F3E67D53346BC16005D00560C - 07DFBF3330FCF8CE307D872103CBB654900184E449B000A4F9C33B303DFDA433 - A605D8E589B400A6F93D10FFF8C930FD6630AA05B8E589B0E0432F42F3870F10 - 17BE4A4558805F9E080B1E542334835D0834E05739C202FCF2F82D00A5A2E9CB - E5B1A6419001A054844F9E900525071EE24EE70EF20CA584E447F3C130C90786 - 29D7184ED42CC5990F18F5A6FDFF7F298B11B70578D2F95CBE3D600D27B227E3 - CC074007FCBF70EA0003B22544E58385471419F2E2D518262DBC85221E6F731F - 2C870C9C9D85187ADBD7C12D8159E00C4CE77BB0190E7239C8F0AB4FDE3068CB - 88C0C593B267314CD66881CB2383E92B8E309C3E7C0D6C0923BE1A0D14A6F3A6 - A6810D7FF9F93B58ECCDE75F0C6FEF3D871B000A169803406A40F2200053C348 - A8CA0459E211EF0CD70403E816ECBBFE18C370823E40B6C4D4560BAC0919C02C - 00452C0CC0D4A1C40131006409CC5052D4106D01CC00421660CD07B404001FE5 - 4BB30B8819120000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actTraspasos: TAction - Category = 'Inventario' - Caption = 'Control de traspasos' - ImageIndex = 0 - OnExecute = actTraspasosExecute - end - end - object MainMenu: TMainMenu - Tag = 500 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 100 - Caption = '&Inventario' - GroupIndex = 1 - ImageIndex = 4 - object Controldeventasenproceso1: TMenuItem - Tag = 310 - Action = actTraspasos - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000013A4944415478DA - 63BC5C22F99F8148A0D3FD8C115D8C1164806A4B0D84F7FD3B03C3FD3B0CB3DB - 3732A42EC614CB5985CF00A8C2E9177D1858B6A5420C4013C36D4075315821C3 - F5AB0CD37F95430C98852986DB80287FB02D300036A012530CA701071E121788 - F8C360D00422474704C3648D169C81C8A837EDFFFF4B598CA8064003B1B0EF21 - 8381990343F227179C81689872EDFF855307186086800DD8A33D1BACB9BB359A - 4158809B61D2C25B708D20C3E6F2ED81F3F3E2D518DE7EF8CA505ABD94A1BF48 - 9E81F1FFFFFF0C20678547DA320801352BC908830D01019041E7E768816D0569 - 040190E67B4FDE32BC03D22B971F861800760AD010376F630665395186E9D377 - 80C540DE81190072360864667A30DC7DF49A61D7D6B3606FC00D801902A29103 - 0923D4D1D4A018005340C8009458403780540000D999FD8911DCCCCA00000000 - 49454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF - 940000000970485973000017120000171201679FD252000001B84944415478DA - 63FCFFFF3F033D0123C8C22BA552CE40F61E026A5D8851A3D3FD6C2F3116FE57 - 6DA9616067CFC2AAE8E7CF690CB3635B185217135693B3EA19235116025D06D6 - 84023E7F6260F8F29961FA012B06966DA920C3885143A6855083183E030D3BEB - 8EDD42EC6AC8B010C920B0EB6F86605A885B0D8916A219C4F0F50BC3F42709A8 - 16E2574382856F3A300C62F8F29561FA876C848584D59060E1CD1206865FBF50 - 0C62F80674FDAF72848584D5106721285B4C5F2E8F5321C83050B620A486580B - 9D0F3CC49FA91DE4195C8851339AF14733FE08CEF8161333184E44D4E3CCF88C - 7AD3FEFFBF94C588D3425232FEC2238A60B1789BFB186A60161AA65CFB7FE1D4 - 0106744B49C9F8A54035DD73F9F630E4C5AB314C5A780B453EF9930B03480E19 - 383B0B31F4B6AF43B1949194360DC8D520CBAE3E79C3A02D2302174FCA9E0536 - 14268F0CA6AF38C270FAF035B8A5445B088A937953D3C096BDFCFC1D2CF6E6F3 - 2F86B7F79EC30D447610480D481E0490D590E44390A51EF1CE70436000DDC27D - D71F63B58CE42085596A6AAB05360419C02C0425141880A9233B0E912D855942 - AA1AB22C841948C8429CF9909E80EE16020010A9C8E7BBF6D9B3000000004945 - 4E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 80 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.pas b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.pas deleted file mode 100644 index cb6aed3..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uPluginControllerTraspasos.pas +++ /dev/null @@ -1,72 +0,0 @@ -unit uPluginControllerTraspasos; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList, uBizTraspasos; - -type - IMCTraspasos = interface(IInterface) - ['{FF27B168-B706-414A-B584-1A6E4C984BDC}'] - end; - - TModuleTraspasos = class(TModuleController, IMCTraspasos) - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - actTraspasos: TAction; - Controldeventasenproceso1: TMenuItem; - procedure actTraspasosExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uDataModuleTraspasos, - uEditorListaTraspasos; - -function GetModule : TModuleController; -begin - Result := TModuleTraspasos.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleTraspasos.actTraspasosExecute(Sender: TObject); -var - aControl: IBizTraspasos; - aObj: IEditorListaTraspasos; -begin - aControl := dmTraspasos.GetItems(titPendiente); - aObj := TfEditorListaTraspasos.Create(Application); - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleTraspasos); - -finalization - UnRegisterModuleClass(TModuleTraspasos); - -end. diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.ddp b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm deleted file mode 100644 index db977c5..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm +++ /dev/null @@ -1,514 +0,0 @@ -inherited frViewListaTraspasos: TfrViewListaTraspasos - Width = 676 - Height = 486 - inherited cxGrid: TcxGrid - Width = 676 - Height = 486 - inherited cxGridView: TcxGridDBTableView - OnMouseDown = cxGridViewMouseDown - FilterBox.Visible = fvNever - OnCellDblClick = cxGridViewCellDblClick - DataController.KeyFieldNames = 'Fecha;Centro;Centro2;Codigo;Color;Tipo;' - OptionsCustomize.ColumnGrouping = True - OptionsSelection.MultiSelect = True - OptionsView.Footer = False - OptionsView.GridLines = glHorizontal - OptionsView.GroupFooters = gfVisibleWhenExpanded - OptionsView.GroupRowStyle = grsOffice11 - Preview.Column = cxGridViewObservaciones - Preview.Visible = True - Styles.Footer = cxStyleFooter - object cxGridViewAPROBADO: TcxGridDBColumn - DataBinding.FieldName = 'APROBADO' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Alignment.Horz = taLeftJustify - Properties.Images = SmallImages - Properties.Items = < - item - Description = 'Aprobado' - ImageIndex = 0 - Value = 'S' - end - item - Description = 'Pendiente' - ImageIndex = 1 - Value = 'N' - end> - Properties.ReadOnly = True - Properties.ShowDescriptions = False - MinWidth = 15 - Width = 34 - IsCaptionAssigned = True - end - object cxGridViewFECHA: TcxGridDBColumn - DataBinding.FieldName = 'FECHA' - SortIndex = 1 - SortOrder = soAscending - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 87 - end - object cxGridViewCENTRO: TcxGridDBColumn - DataBinding.FieldName = 'CENTRO' - Visible = False - end - object cxGridViewESTADO_TRASPASO: TcxGridDBColumn - DataBinding.FieldName = 'ESTADO_TRASPASO' - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 59 - end - object cxGridViewFILIAL: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'FILIAL' - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 296 - end - object cxGridViewCENTRO2: TcxGridDBColumn - DataBinding.FieldName = 'CENTRO2' - Visible = False - end - object cxGridViewTIPO: TcxGridDBColumn - Caption = 'E/S' - DataBinding.FieldName = 'TIPO' - PropertiesClassName = 'TcxImageComboBoxProperties' - Properties.Images = PngImageListTipo - Properties.Items = < - item - Description = 'Entrada' - ImageIndex = 0 - Value = 'E' - end - item - Description = 'Salida' - ImageIndex = 1 - Tag = 1 - Value = 'S' - end> - Properties.Revertable = True - Properties.ShowDescriptions = False - Width = 51 - end - object cxGridViewFILIAL2: TcxGridDBColumn - Caption = 'Centro 2' - DataBinding.FieldName = 'FILIAL2' - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 328 - end - object cxGridViewCONTABILIZAR: TcxGridDBColumn - DataBinding.FieldName = 'CONTABILIZAR' - Visible = False - Width = 72 - end - object cxGridViewCODIGO: TcxGridDBColumn - DataBinding.FieldName = 'CODIGO' - Visible = False - OnGetDataText = cxGridViewCODIGOGetDataText - OnGetDisplayText = cxGridViewCODIGOGetDisplayText - GroupIndex = 0 - Width = 53 - end - object cxGridViewPRODUCTO: TcxGridDBColumn - DataBinding.FieldName = 'PRODUCTO' - Visible = False - SortIndex = 0 - SortOrder = soAscending - end - object cxGridViewCOLOR: TcxGridDBColumn - DataBinding.FieldName = 'COLOR' - Visible = False - end - object cxGridViewT38: TcxGridDBColumn - DataBinding.FieldName = 'T38' - Visible = False - end - object cxGridViewT40: TcxGridDBColumn - DataBinding.FieldName = 'T40' - Visible = False - end - object cxGridViewT42: TcxGridDBColumn - DataBinding.FieldName = 'T42' - Visible = False - end - object cxGridViewT44: TcxGridDBColumn - DataBinding.FieldName = 'T44' - Visible = False - end - object cxGridViewT46: TcxGridDBColumn - DataBinding.FieldName = 'T46' - Visible = False - end - object cxGridViewT48: TcxGridDBColumn - DataBinding.FieldName = 'T48' - Visible = False - end - object cxGridViewTOTAL: TcxGridDBColumn - DataBinding.FieldName = 'TOTAL' - Visible = False - end - object cxGridViewTR38: TcxGridDBColumn - Caption = '38' - DataBinding.FieldName = 'TR38' - OnGetDisplayText = cxGridViewTR38GetDisplayText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 59 - end - object cxGridViewTR40: TcxGridDBColumn - Caption = '40' - DataBinding.FieldName = 'TR40' - OnGetDisplayText = cxGridViewTR40GetDisplayText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 57 - end - object cxGridViewTR42: TcxGridDBColumn - Caption = '42' - DataBinding.FieldName = 'TR42' - OnGetDisplayText = cxGridViewTR42GetDisplayText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 59 - end - object cxGridViewTR44: TcxGridDBColumn - Caption = '44' - DataBinding.FieldName = 'TR44' - OnGetDisplayText = cxGridViewTR44GetDisplayText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 55 - end - object cxGridViewTR46: TcxGridDBColumn - Caption = '46' - DataBinding.FieldName = 'TR46' - OnGetDisplayText = cxGridViewTR46GetDisplayText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 60 - end - object cxGridViewTR48: TcxGridDBColumn - Caption = '48' - DataBinding.FieldName = 'TR48' - OnGetDisplayText = cxGridViewTR48GetDisplayText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 57 - end - object cxGridViewTOTAL_RECT: TcxGridDBColumn - DataBinding.FieldName = 'TOTAL_RECT' - OnGetDataText = cxGridViewTOTAL_RECTGetDataText - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - Width = 59 - end - object cxGridViewObservaciones: TcxGridDBColumn - DataBinding.FieldName = 'OBSERVACIONES' - PropertiesClassName = 'TcxMemoProperties' - Styles.OnGetContentStyle = cxGridViewFECHAStylesGetContentStyle - end - end - end - inherited dsDataSource: TDADataSource - DataTable = dmTraspasos.tbl_TraspasosPendientes - Top = 120 - end - inherited dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink1 - PreviewOptions.EnableOptions = [peoCanChangeMargins, peoPageBackground, peoPageSetup, peoPreferences, peoPrint, peoReportDesign] - object dxComponentPrinterLink1: TdxGridReportLink - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageFooter.Font.Color = clBlack - PrinterPage.PageFooter.Font.Height = -12 - PrinterPage.PageFooter.Font.Name = 'Tahoma' - PrinterPage.PageFooter.Font.Style = [] - PrinterPage.PageFooter.LeftTitle.Strings = ( - 'VARELA IMAGEN Y DISE'#209'O S.L.') - PrinterPage.PageFooter.RightTitle.Strings = ( - '[Page #] de [Total Pages]') - PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET - PrinterPage.PageHeader.Font.Color = clBlack - PrinterPage.PageHeader.Font.Height = -15 - PrinterPage.PageHeader.Font.Name = 'Tahoma' - PrinterPage.PageHeader.Font.Style = [] - PrinterPage.PageHeader.LeftTitle.Strings = ( - 'CONTROL DE TRASPASOS') - PrinterPage.PageHeader.RightTitle.Strings = ( - '[Date & Time Printed]') - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage.ScaleMode = smFit - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 38877.461868113420000000 - ShrinkToPageWidth = True - OptionsCards.Shadow.Depth = 0 - OptionsExpanding.ExpandGroupRows = True - OptionsFormatting.SuppressBackgroundBitmaps = True - OptionsFormatting.UseNativeStyles = True - OptionsFormatting.ConsumeSelectionStyle = True - OptionsLevels.Unwrap = True - OptionsRefinements.TransparentGraphics = True - OptionsSize.AutoWidth = True - OptionsView.Caption = False - OptionsView.ExpandButtons = False - OptionsView.FilterBar = False - StyleRepository = cxStyleRepositoryInforme - Styles.Content = cxStyleContentInforme - Styles.Footer = cxStyleFooterInforme - Styles.Group = cxStyleGroupInforme - Styles.Header = cxStyleHeaderInforme - Styles.Preview = cxStyleObservacionesInforme - Styles.Selection = cxStyleSelectionInforme - OnInitializeCell = dxComponentPrinterLink1InitializeCell - BuiltInReportLink = True - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleSubtotal: TcxStyle - AssignedValues = [svColor] - Color = 14803425 - end - object cxStyleCantidadRectificada: TcxStyle - AssignedValues = [svTextColor] - TextColor = 2129152 - end - object cxStyleNoContabilizar: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsStrikeOut] - TextColor = clGray - end - object cxStyleFooter: TcxStyle - AssignedValues = [svColor] - Color = clWindow - end - object cxStyleCentro2: TcxStyle - AssignedValues = [svTextColor] - TextColor = 6579300 - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000001004944415478DACD92A152C4301086FF3A1C7BAE8E3C427095952757 - D611890C4F401E216F4025F22432B232F2E4CA3AB6AEEE480F8368872908F867 - 32BB93C97EBBF9930ABF54F5BF00FC18856A7B676FF4701A32816CA69A6E69D6 - FB3E72FE1ED0C50B3B872C0A390B8808B631902C5045590A9D15A9E76A1DE07B - 87192FDC3D94C3136454989A50784B35D290C0C91DC208DDF4A0ED4299C2A380 - 3EBB96B88044D2C46FCE7C2D5E07B818689467C3E13A723EA72B2CBFBA55C357 - 375B0E17D33072CE13275FBAAA6243EB8063E88B5DECF464FC209BC59B007B0C - 54EEFE5ED2274921EE062C32AD0FCBC3488AF66780C69B1296CF636488FB3CD8 - A3BF077C00CC5678110543289A0000000049454E44AE426082} - Name = 'PngImage25' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000FE4944415478DAA5D22157C3301007F07FDD1CFD060D0EB7E270544E - 866F10399939DC8AAB5B71C87E8448E4E1E6086EF27091899B2B5734F4A5DBBD - 1793E4FD7277B9025746F1D72675B656C0678C119816E26DFD469C0D7067C752 - 29DC9C2312331CD1B72156D9807F36E35A001C9D3CCEF80848CD3196F9C0568F - EB3B016840920A5C88C99C900FD056932AF15879429232EC092F4340BB04B06A - 8543E51DBE248336E0DE05F86CE01769D4589F1983F4D1FE93FE2CD03F286BC0 - 07CBD849FAFD62600AA79B513B9ABD337B38349205717F11E03BDB4AE17BFFEE - 9E34B15B0C4CD358C91CBC32E41B63B118701BD532C77DB9C2CEF878591373E2 - 6AE007B3FF721173EAE95F0000000049454E44AE426082} - Name = 'PngImage26' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 395 - Top = 80 - Bitmap = {} - end - object cxStyleRepositoryInforme: TcxStyleRepository - Left = 112 - Top = 48 - object cxStyleContentInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleFooterInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleGroupInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleHeaderInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 14803425 - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - TextColor = clBlack - end - object cxStyleSelectionInforme: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clWhite - Font.Charset = ANSI_CHARSET - Font.Color = clBlack - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - object cxStyleObservacionesInforme: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - TextColor = clBlack - end - end - object PngImageListTipo: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000000FD4944415478DA63FCFFFF3F0325 - 8091AA06585A5A622860156DFAFFFB751D23B2D8F1E3C7893300A499E1FF1F86 - DF6F9A483700A439BDC49C6166D72186DF6F5B493300A6F9DBD79F0C8BA71C65 - F8FFFF2F501488FFFD01D38777C432E2340059F3D72F3F18BE7D01D25F7F307C - F9F483E1F3A7EF0CB72EDC6138B22311BB01767EBBF16A7EF3EA13C3BB27CF18 - 8EEC4AC5E302E1EAFF02628C0C16B6EA0C270EDFC48895B74F1E311CDD9589DB - 001060112CF92F28C10166BF7FF68EE13FC31FB0FFC13430568EEECEC56F00D8 - 10FEDCFF8252FC0CEF9EBD62F8FB711679E980993FED3FC8E6BF9FE791670008 - 30F1C6FDFFF779117106900306DE00006A32C2E1ABAC85280000000049454E44 - AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000FE4944415478DA - 63FCFFFF3F03258091AA06303232A248F2ACE2F8FF25EC0723BA26143DF80CE0 - 5EC2FEFFFFAFFF0CDF927E31926500D73CB6FFED4E450CE51B7B197EE4FF6624 - 6800EF5ACEFF0CFF800A80B682F14F06860ABB6486F7DF3F314CDFB992E167F5 - 1F46FC06ACE6FCBFCCBB8FE1C3D78F0CEFBF7D84D040CD6F3EBF6778F3E51DC3 - DE6367187EB7FF61C46900CF528EFFD3DD1AB06A06E12F3FBE32DC3EF39CE1CF - 94BF8C580DE09ECF0EF6F3F4FD8B516383831BAEF9EFD47FB85DC0350312EA0C - E03000FAF537038392BC38580EA699A45860AD64F9AFAC268EA2992403588A98 - FFFFFFF91F45334906306733FD47D78CD70072C0C01B0000F574D6E150544812 - 0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 451 - Top = 80 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas b/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas deleted file mode 100644 index 6c05e5e..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas +++ /dev/null @@ -1,554 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uViewListaTraspasos; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, DBTables, cxGridLevel, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid, uBizTraspasos, dxPSGlbl, - dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, - dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, - cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, - cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo; - -type - IViewListaTraspasos = interface(IViewGrid) - ['{E4401ABB-E95D-43AC-9155-BA57DC2B88C2}'] - procedure VerPendientes; - procedure VerAprobados; - procedure VerTodos; - end; - - TfrViewListaTraspasos = class(TfrViewGrid, IViewListaTraspasos) - cxStyleSubtotal: TcxStyle; - SmallImages: TPngImageList; - cxStyleCantidadRectificada: TcxStyle; - cxStyleNoContabilizar: TcxStyle; - cxStyleFooter: TcxStyle; - dxComponentPrinterLink1: TdxGridReportLink; - cxStyleRepositoryInforme: TcxStyleRepository; - cxStyleContentInforme: TcxStyle; - cxStyleFooterInforme: TcxStyle; - cxStyleGroupInforme: TcxStyle; - cxStyleHeaderInforme: TcxStyle; - cxStyleSelectionInforme: TcxStyle; - cxGridViewTIPO: TcxGridDBColumn; - cxGridViewFECHA: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewFILIAL: TcxGridDBColumn; - cxGridViewCENTRO2: TcxGridDBColumn; - cxGridViewFILIAL2: TcxGridDBColumn; - cxGridViewAPROBADO: TcxGridDBColumn; - cxGridViewESTADO_TRASPASO: TcxGridDBColumn; - cxGridViewCONTABILIZAR: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewTR38: TcxGridDBColumn; - cxGridViewTR40: TcxGridDBColumn; - cxGridViewTR42: TcxGridDBColumn; - cxGridViewTR44: TcxGridDBColumn; - cxGridViewTR46: TcxGridDBColumn; - cxGridViewTR48: TcxGridDBColumn; - cxGridViewTOTAL_RECT: TcxGridDBColumn; - cxGridViewT38: TcxGridDBColumn; - cxGridViewT40: TcxGridDBColumn; - cxGridViewT42: TcxGridDBColumn; - cxGridViewT44: TcxGridDBColumn; - cxGridViewT46: TcxGridDBColumn; - cxGridViewT48: TcxGridDBColumn; - cxGridViewTOTAL: TcxGridDBColumn; - PngImageListTipo: TPngImageList; - cxStyleCentro2: TcxStyle; - cxGridViewObservaciones: TcxGridDBColumn; - cxStyleObservacionesInforme: TcxStyle; - procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure cxGridBandedViewRR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); - procedure cxGridBandedViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridViewTR38GetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - procedure cxGridViewTR40GetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - procedure cxGridViewTR42GetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - procedure cxGridViewTR44GetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - procedure cxGridViewTR46GetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - procedure cxGridViewTR48GetDisplayText(Sender: TcxCustomGridTableItem; - ARecord: TcxCustomGridRecord; var AText: String); - procedure cxGridViewTR38StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewTR40StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewTR42StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewTR44StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewTR46StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewTR48StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewCODIGOGetDataText(Sender: TcxCustomGridTableItem; - ARecordIndex: Integer; var AText: String); - procedure cxGridViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); - procedure cxGridViewTOTAL_RECTGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); - procedure cxGridViewFECHAStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure dxComponentPrinterLink1InitializeCell( - Sender: TdxGridReportLink; AView: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; - AnItem: TAbstractdxReportCellData); - protected - FTipo : String; - FNivelFiltrado : TcxFilterCriteriaItemList; - procedure FilterChanged(Sender: TObject); override; - public - procedure Preview; override; - procedure Print; override; - procedure PrintSetup; override; - procedure VerPendientes; - procedure VerAprobados; - procedure VerTodos; - end; - - -implementation - -uses - uDataModuleTraspasos, DateUtils, cxGridDBDataDefinitions, - uViewGridBase, cxGridRows; - -{$R *.dfm} - -procedure TfrViewListaTraspasos.cxGridViewMouseDown( - Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, - Y: Integer); -var - HT: TcxCustomGridHitTest; - ALevelIndex, AGroupIndex, I, AIndex: Integer; - AList: TList; - DC: TcxGridDBDataController; -begin - inherited; - HT := TcxGridSite(Sender).GridView.ViewInfo.GetHitTest(X, Y); - if (HT is TcxGridRecordHitTest) and not (HT is TcxGridRecordCellHitTest) - and not (HT is TcxGridExpandButtonHitTest) then - begin - DC := TcxGridDBTableView(TcxGridSite(Sender).GridView).DataController; - AList := TList.Create; - ALevelIndex := TcxGridRecordHitTest(HT).GridRecord.Level; - if ALevelIndex > 0 then - begin - ShowHourglassCursor; - TcxGridDBTableView(TcxGridSite(Sender).GridView).BeginUpdate; - try - AGroupIndex := DC.Groups.DataGroupIndexByRowIndex[TcxGridRecordHitTest(HT).GridRecord.Index]; - DC.Groups.LoadRecordIndexes(AList, AGroupIndex); - for I := 0 to AList.Count - 1 do - begin - AIndex := DC.GetRowIndexByRecordIndex(Integer(AList[I]), True); - DC.SelectRows(AIndex, AIndex); - end; - finally - FreeAndNil(AList); - TcxGridDBTableView(TcxGridSite(Sender).GridView).EndUpdate; - HideHourglassCursor; - end; - end; - end; -end; - -procedure TfrViewListaTraspasos.VerAprobados; -begin - FTipo := 'S'; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewListaTraspasos.VerPendientes; -begin - FTipo := 'N'; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); -end; - -procedure TfrViewListaTraspasos.VerTodos; -begin - FTipo := ''; - FreeAndNil(FNivelFiltrado); - FilterChanged(self); - cxGridViewAPROBADO.Visible := True; -end; - -procedure TfrViewListaTraspasos.cxGridBandedViewRR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT38.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewCellDblClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); -begin - inherited; - if Assigned(FOnDblClick) then - FOnDblClick(Sender); -end; - -procedure TfrViewListaTraspasos.Preview; -begin - inherited; -// dxComponentPrinterLink1.OnInitializeCell := dxComponentPrinterLink1InitializeCell; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewListaTraspasos.Print; -begin - inherited; - dxComponentPrinterLink1.Print(True, nil); -end; - -procedure TfrViewListaTraspasos.PrintSetup; -begin - inherited; - dxComponentPrinterLink1.PageSetup; -end; - -procedure TfrViewListaTraspasos.cxGridBandedViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -begin - inherited; - AText := StringReplace(AText, 'CODIGO : ', '', [rfReplaceAll, rfIgnoreCase]) -end; - -procedure TfrViewListaTraspasos.cxGridViewTR38GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT38.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR40GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT40.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR42GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT42.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR44GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT44.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR46GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT46.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR48GetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -var - AStr : String; -begin - inherited; - if not Assigned( ARecord ) then - Exit; - - AStr := VarToStrDef(ARecord.Values[cxGridViewT48.Index], ''); - if not ((AStr = '') and (AText = '0')) and (AStr <> AText) then - begin - if Length(AStr) = 0 then - AStr := '0'; - AText := AText + ' (' + AStr + ')'; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR38StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewT38.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR40StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewT40.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR42StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewT42.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR44StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewT44.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR46StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewT46.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewTR48StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -begin - inherited; - if Assigned(ARecord) and Assigned(AItem) then - begin - if ARecord.Values[AItem.Index] <> ARecord.Values[cxGridViewT48.Index] then - AStyle := cxStyleCantidadRectificada; - end; -end; - -procedure TfrViewListaTraspasos.cxGridViewCODIGOGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Val1, Val2: string; -begin - inherited; - - Val1 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewPRODUCTO.Index]; - Val2 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewCOLOR.Index]; - AText := 'Producto: ' + Val1 + ' - Color: ' + Val2; -end; - -procedure TfrViewListaTraspasos.cxGridViewCODIGOGetDisplayText( - Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; - var AText: String); -begin - inherited; - AText := StringReplace(AText, 'Código : ', '', [rfReplaceAll, rfIgnoreCase]) -end; - -procedure TfrViewListaTraspasos.cxGridViewTOTAL_RECTGetDataText( - Sender: TcxCustomGridTableItem; ARecordIndex: Integer; - var AText: String); -var - Total : Double; -begin - inherited; - - Total := 0; - with Sender.GridView.DataController do - begin - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewTR38.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewTR40.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewTR42.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewTR44.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewTR46.Index], 0); - Total := Total + StrToFloatDef(DisplayTexts[ARecordIndex, cxGridViewTR48.Index], 0); - end; - AText := FloatToStr(Total); -end; - -procedure TfrViewListaTraspasos.cxGridViewFECHAStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - aux : string; -begin - inherited; - if Assigned(ARecord) then - begin - aux := ARecord.Values[cxGridViewCONTABILIZAR.Index]; - if aux = 'N' then - AStyle := cxStyleNoContabilizar - end; -end; - -procedure TfrViewListaTraspasos.dxComponentPrinterLink1InitializeCell( - Sender: TdxGridReportLink; AView: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; - AnItem: TAbstractdxReportCellData); -var - aux : string; -begin - inherited; - if Assigned(ARecord) then - begin - aux := ARecord.Values[cxGridViewCONTABILIZAR.Index]; - if aux = 'N' then - begin - AnItem.Font.Style := cxStyleNoContabilizar.Font.Style; - AnItem.Font.Color := cxStyleNoContabilizar.Font.Color; - end; - end; -end; - -procedure TfrViewListaTraspasos.FilterChanged(Sender: TObject); -var - AItemList: TcxFilterCriteriaItemList; -begin - inherited; - - cxGridView.DataController.Filter.BeginUpdate; - AItemList := cxGridView.DataController.Filter.Root; - - if (Length(FTIPO) > 0) then - begin - FNivelFiltrado := AItemList.AddItemList(fboAnd); - FNivelFiltrado.AddItem(cxGridViewAPROBADO, foEqual, FTIPO, FTIPO); - end; - - if cxGridView.DataController.Filter.IsEmpty - then cxGridView.DataController.Filter.Active := False - else cxGridView.DataController.Filter.Active := True; - - cxGridView.DataController.Filter.EndUpdate; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/Traspasos/Reglas/uBizTraspasos.pas b/Varela/Varela/Source/Modulos/Traspasos/Reglas/uBizTraspasos.pas deleted file mode 100644 index cd4df37..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Reglas/uBizTraspasos.pas +++ /dev/null @@ -1,77 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uBizTraspasos; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDBSelectionList; - - -const - BIZ_TRASPASOS = 'Client.Traspasos'; - -type - TInvTraspasoEstado = (titPendiente, titAprobado); - - IBizTraspasos = interface(IDAStronglyTypedDataTable) //ITraspasos) - ['{91E16E44-2A50-4459-A758-B14948E0A134}'] - procedure Show; - procedure SetEstado(const AValue : TInvTraspasoEstado); - function GetEstado : TInvTraspasoEstado ; - property Estado : TInvTraspasoEstado read GetEstado write SetEstado; - end; - - - TBizTraspasosDataTableRules = class(TDADataTableRules, IBizTraspasos) //TTraspasosDataTableRules, IBizTraspasos, - protected - procedure SetEstado(const AValue : TInvTraspasoEstado); - function GetEstado : TInvTraspasoEstado ; - public - procedure Show; - property Estado : TInvTraspasoEstado read GetEstado write SetEstado; - end; - - -implementation - -uses - uEditorUtils, uDataModuleTraspasos; - -{ TBizRecepcionDataTableRules } - -function TBizTraspasosDataTableRules.GetEstado: TInvTraspasoEstado; -begin - if DataTable.FieldByName('APROBADO').AsString = 'S' then - Result := titAprobado - else - Result := titPendiente -end; - -procedure TBizTraspasosDataTableRules.SetEstado( - const AValue: TInvTraspasoEstado); -begin - case AValue of - titPendiente : DataTable.FieldByName('APROBADO').AsString := 'N'; - titAprobado : DataTable.FieldByName('APROBADO').AsString := 'S'; - else - DataTable.FieldByName('APROBADO').AsString := 'N'; - end; -end; - -procedure TBizTraspasosDataTableRules.Show; -begin - ShowEditor(IBizTraspasos, Self, etItem); -end; - -initialization - RegisterDataTableRules(BIZ_TRASPASOS, TBizTraspasosDataTableRules); - -end. - diff --git a/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.ddp b/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.dfm b/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.dfm deleted file mode 100644 index 8e32c08..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.dfm +++ /dev/null @@ -1,1293 +0,0 @@ -object srvTraspasos: TsrvTraspasos - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schTraspasos - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 300 - Width = 300 - object DABINAdapter: TDABINAdapter - Left = 40 - Top = 96 - end - object schTraspasos: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DADataDictionary1 - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_TRASPASOS' - SQL = - 'SELECT '#10' TIPO, FECHA, CENTRO, FILIAL, CENTRO2, FILIAL2, APROB' + - 'ADO, '#10' ESTADO_TRASPASO, OBSERVACIONES, CONTABILIZAR, FECHACAM' + - 'BIO, '#10' CODIGO, PRODUCTO, COLOR, T38, T40, T42, T44, T46, T48,' + - ' '#10' TOTAL, TR38, TR40, TR42, TR44, TR46, TR48, TOTAL_RECT'#10' FR' + - 'OM'#10' RDX_V_CONTROL_TRASPASOS' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CENTRO2' - TableField = 'CENTRO2' - end - item - DatasetField = 'FILIAL2' - TableField = 'FILIAL2' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'T38' - TableField = 'T38' - end - item - DatasetField = 'T40' - TableField = 'T40' - end - item - DatasetField = 'T42' - TableField = 'T42' - end - item - DatasetField = 'T44' - TableField = 'T44' - end - item - DatasetField = 'T46' - TableField = 'T46' - end - item - DatasetField = 'T48' - TableField = 'T48' - end - item - DatasetField = 'TOTAL' - TableField = 'TOTAL' - end - item - DatasetField = 'TR38' - TableField = 'TR38' - end - item - DatasetField = 'TR40' - TableField = 'TR40' - end - item - DatasetField = 'TR42' - TableField = 'TR42' - end - item - DatasetField = 'TR44' - TableField = 'TR44' - end - item - DatasetField = 'TR46' - TableField = 'TR46' - end - item - DatasetField = 'TR48' - TableField = 'TR48' - end - item - DatasetField = 'TOTAL_RECT' - TableField = 'TOTAL_RECT' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'ESTADO_TRASPASO' - TableField = 'ESTADO_TRASPASO' - end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end - item - DatasetField = 'CONTABILIZAR' - TableField = 'CONTABILIZAR' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end> - end> - Name = 'Traspasos' - Fields = < - item - Name = 'TIPO' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_TIPO' - end - item - Name = 'FECHA' - DataType = datDateTime - DictionaryEntry = 'Traspasos_FECHA' - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - DictionaryEntry = 'Traspasos_CENTRO' - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - DictionaryEntry = 'Traspasos_FILIAL' - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - DictionaryEntry = 'Traspasos_CENTRO2' - end - item - Name = 'FILIAL2' - DataType = datString - Size = 25 - DictionaryEntry = 'Traspasos_FILIAL2' - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_APROBADO' - end - item - Name = 'ESTADO_TRASPASO' - DataType = datString - Size = 20 - DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - DictionaryEntry = 'Traspasos_OBSERVACIONES' - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_CONTABILIZAR' - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - DictionaryEntry = 'Traspasos_FECHACAMBIO' - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DictionaryEntry = 'Traspasos_CODIGO' - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DictionaryEntry = 'Traspasos_PRODUCTO' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DictionaryEntry = 'Traspasos_COLOR' - end - item - Name = 'T38' - DataType = datFloat - DictionaryEntry = 'Traspasos_T38' - end - item - Name = 'T40' - DataType = datFloat - DictionaryEntry = 'Traspasos_T40' - end - item - Name = 'T42' - DataType = datFloat - DictionaryEntry = 'Traspasos_T42' - end - item - Name = 'T44' - DataType = datFloat - DictionaryEntry = 'Traspasos_T44' - end - item - Name = 'T46' - DataType = datFloat - DictionaryEntry = 'Traspasos_T46' - end - item - Name = 'T48' - DataType = datFloat - DictionaryEntry = 'Traspasos_T48' - end - item - Name = 'TOTAL' - DataType = datFloat - DictionaryEntry = 'Traspasos_TOTAL' - end - item - Name = 'TR38' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR38' - end - item - Name = 'TR40' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR40' - end - item - Name = 'TR42' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR42' - end - item - Name = 'TR44' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR44' - end - item - Name = 'TR46' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR46' - end - item - Name = 'TR48' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR48' - end - item - Name = 'TOTAL_RECT' - DataType = datFloat - DictionaryEntry = 'Traspasos_TOTAL_RECT' - end> - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_TRASPASOS' - SQL = - 'SELECT '#10' TIPO, FECHA, CENTRO, FILIAL, CENTRO2, FILIAL2, APROB' + - 'ADO, '#10' ESTADO_TRASPASO, OBSERVACIONES, CONTABILIZAR, FECHACAM' + - 'BIO, '#10' CODIGO, PRODUCTO, COLOR, T38, T40, T42, T44, T46, T48,' + - ' '#10' TOTAL, TR38, TR40, TR42, TR44, TR46, TR48, TOTAL_RECT'#10' FR' + - 'OM'#10' RDX_V_CONTROL_TRASPASOS'#10' WHERE APROBADO = '#39'N'#39 - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CENTRO2' - TableField = 'CENTRO2' - end - item - DatasetField = 'FILIAL2' - TableField = 'FILIAL2' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'T38' - TableField = 'T38' - end - item - DatasetField = 'T40' - TableField = 'T40' - end - item - DatasetField = 'T42' - TableField = 'T42' - end - item - DatasetField = 'T44' - TableField = 'T44' - end - item - DatasetField = 'T46' - TableField = 'T46' - end - item - DatasetField = 'T48' - TableField = 'T48' - end - item - DatasetField = 'TOTAL' - TableField = 'TOTAL' - end - item - DatasetField = 'TR38' - TableField = 'TR38' - end - item - DatasetField = 'TR40' - TableField = 'TR40' - end - item - DatasetField = 'TR42' - TableField = 'TR42' - end - item - DatasetField = 'TR44' - TableField = 'TR44' - end - item - DatasetField = 'TR46' - TableField = 'TR46' - end - item - DatasetField = 'TR48' - TableField = 'TR48' - end - item - DatasetField = 'TOTAL_RECT' - TableField = 'TOTAL_RECT' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'ESTADO_TRASPASO' - TableField = 'ESTADO_TRASPASO' - end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end - item - DatasetField = 'CONTABILIZAR' - TableField = 'CONTABILIZAR' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end> - end> - Name = 'TraspasosPendientes' - Fields = < - item - Name = 'TIPO' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_TIPO' - end - item - Name = 'FECHA' - DataType = datDateTime - DictionaryEntry = 'Traspasos_FECHA' - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - DictionaryEntry = 'Traspasos_CENTRO' - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - DictionaryEntry = 'Traspasos_FILIAL' - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - DictionaryEntry = 'Traspasos_CENTRO2' - end - item - Name = 'FILIAL2' - DataType = datString - Size = 25 - DictionaryEntry = 'Traspasos_FILIAL2' - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_APROBADO' - end - item - Name = 'ESTADO_TRASPASO' - DataType = datString - Size = 20 - DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - DictionaryEntry = 'Traspasos_OBSERVACIONES' - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_CONTABILIZAR' - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - DictionaryEntry = 'Traspasos_FECHACAMBIO' - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DictionaryEntry = 'Traspasos_CODIGO' - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DictionaryEntry = 'Traspasos_PRODUCTO' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DictionaryEntry = 'Traspasos_COLOR' - end - item - Name = 'T38' - DataType = datFloat - DictionaryEntry = 'Traspasos_T38' - end - item - Name = 'T40' - DataType = datFloat - DictionaryEntry = 'Traspasos_T40' - end - item - Name = 'T42' - DataType = datFloat - DictionaryEntry = 'Traspasos_T42' - end - item - Name = 'T44' - DataType = datFloat - DictionaryEntry = 'Traspasos_T44' - end - item - Name = 'T46' - DataType = datFloat - DictionaryEntry = 'Traspasos_T46' - end - item - Name = 'T48' - DataType = datFloat - DictionaryEntry = 'Traspasos_T48' - end - item - Name = 'TOTAL' - DataType = datFloat - DictionaryEntry = 'Traspasos_TOTAL' - end - item - Name = 'TR38' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR38' - end - item - Name = 'TR40' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR40' - end - item - Name = 'TR42' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR42' - end - item - Name = 'TR44' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR44' - end - item - Name = 'TR46' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR46' - end - item - Name = 'TR48' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR48' - end - item - Name = 'TOTAL_RECT' - DataType = datFloat - DictionaryEntry = 'Traspasos_TOTAL_RECT' - end> - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_TRASPASOS' - SQL = - 'SELECT '#10' TIPO, FECHA, CENTRO, FILIAL, CENTRO2, FILIAL2, APROB' + - 'ADO, '#10' ESTADO_TRASPASO, OBSERVACIONES, CONTABILIZAR, FECHACAM' + - 'BIO, '#10' CODIGO, PRODUCTO, COLOR, T38, T40, T42, T44, T46, T48,' + - ' '#10' TOTAL, TR38, TR40, TR42, TR44, TR46, TR48, TOTAL_RECT'#10' FR' + - 'OM'#10' RDX_V_CONTROL_TRASPASOS'#10' WHERE APROBADO = '#39'S'#39 - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FILIAL' - TableField = 'FILIAL' - end - item - DatasetField = 'CENTRO2' - TableField = 'CENTRO2' - end - item - DatasetField = 'FILIAL2' - TableField = 'FILIAL2' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'T38' - TableField = 'T38' - end - item - DatasetField = 'T40' - TableField = 'T40' - end - item - DatasetField = 'T42' - TableField = 'T42' - end - item - DatasetField = 'T44' - TableField = 'T44' - end - item - DatasetField = 'T46' - TableField = 'T46' - end - item - DatasetField = 'T48' - TableField = 'T48' - end - item - DatasetField = 'TOTAL' - TableField = 'TOTAL' - end - item - DatasetField = 'TR38' - TableField = 'TR38' - end - item - DatasetField = 'TR40' - TableField = 'TR40' - end - item - DatasetField = 'TR42' - TableField = 'TR42' - end - item - DatasetField = 'TR44' - TableField = 'TR44' - end - item - DatasetField = 'TR46' - TableField = 'TR46' - end - item - DatasetField = 'TR48' - TableField = 'TR48' - end - item - DatasetField = 'TOTAL_RECT' - TableField = 'TOTAL_RECT' - end - item - DatasetField = 'APROBADO' - TableField = 'APROBADO' - end - item - DatasetField = 'ESTADO_TRASPASO' - TableField = 'ESTADO_TRASPASO' - end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end - item - DatasetField = 'CONTABILIZAR' - TableField = 'CONTABILIZAR' - end - item - DatasetField = 'FECHACAMBIO' - TableField = 'FECHACAMBIO' - end> - end> - Name = 'TraspasosAprobados' - Fields = < - item - Name = 'TIPO' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_TIPO' - end - item - Name = 'FECHA' - DataType = datDateTime - DictionaryEntry = 'Traspasos_FECHA' - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - DictionaryEntry = 'Traspasos_CENTRO' - end - item - Name = 'FILIAL' - DataType = datString - Size = 25 - DictionaryEntry = 'Traspasos_FILIAL' - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - DictionaryEntry = 'Traspasos_CENTRO2' - end - item - Name = 'FILIAL2' - DataType = datString - Size = 25 - DictionaryEntry = 'Traspasos_FILIAL2' - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_APROBADO' - end - item - Name = 'ESTADO_TRASPASO' - DataType = datString - Size = 20 - DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - DictionaryEntry = 'Traspasos_OBSERVACIONES' - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - DictionaryEntry = 'Traspasos_CONTABILIZAR' - end - item - Name = 'FECHACAMBIO' - DataType = datDateTime - DictionaryEntry = 'Traspasos_FECHACAMBIO' - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DictionaryEntry = 'Traspasos_CODIGO' - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DictionaryEntry = 'Traspasos_PRODUCTO' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DictionaryEntry = 'Traspasos_COLOR' - end - item - Name = 'T38' - DataType = datFloat - DictionaryEntry = 'Traspasos_T38' - end - item - Name = 'T40' - DataType = datFloat - DictionaryEntry = 'Traspasos_T40' - end - item - Name = 'T42' - DataType = datFloat - DictionaryEntry = 'Traspasos_T42' - end - item - Name = 'T44' - DataType = datFloat - DictionaryEntry = 'Traspasos_T44' - end - item - Name = 'T46' - DataType = datFloat - DictionaryEntry = 'Traspasos_T46' - end - item - Name = 'T48' - DataType = datFloat - DictionaryEntry = 'Traspasos_T48' - end - item - Name = 'TOTAL' - DataType = datFloat - DictionaryEntry = 'Traspasos_TOTAL' - end - item - Name = 'TR38' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR38' - end - item - Name = 'TR40' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR40' - end - item - Name = 'TR42' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR42' - end - item - Name = 'TR44' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR44' - end - item - Name = 'TR46' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR46' - end - item - Name = 'TR48' - DataType = datFloat - DictionaryEntry = 'Traspasos_TR48' - end - item - Name = 'TOTAL_RECT' - DataType = datFloat - DictionaryEntry = 'Traspasos_TOTAL_RECT' - end> - end - item - Params = < - item - Name = 'FECHA' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_TRASPASOS' - SQL = - 'SELECT '#10' TOTAL_RECT'#10' FROM'#10' RDX_V_CONTROL_TRASPASOS'#10' WHER' + - 'E'#10' FECHA = :FECHA AND'#10' CENTRO = :CENTRO AND'#10' C' + - 'ENTRO2 = :CENTRO2 AND'#10' CODIGO = :CODIGO AND'#10' COLOR =' + - ' :COLOR' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'TOTAL_RECT' - TableField = 'TOTAL_RECT' - end> - end> - Name = 'RefreshTraspasos' - Fields = < - item - Name = 'TOTAL_RECT' - DataType = datFloat - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'ESTADO' - Value = '' - end - item - Name = 'OBSERVACIONES' - DataType = datString - Size = 255 - Value = '' - ParamType = daptInput - end - item - Name = 'CONTABILIZAR' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end - item - Name = 'TR38' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'TR40' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'TR42' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'TR44' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'TR46' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'TR48' - DataType = datFloat - Value = '' - ParamType = daptInput - end - item - Name = 'APROBADO' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO2' - DataType = datString - Size = 17 - Value = '' - ParamType = daptInput - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - Value = '' - ParamType = daptInput - end - item - Name = 'TIPO' - DataType = datString - Size = 1 - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_CONTROL_TRASPASOS' - SQL = - 'begin'#10' declare @rowcount_var int'#10' declare @ESTADO varchar(' + - '20)'#10' declare @OBSERVACIONES varchar(255)'#10' declare @CONTABI' + - 'LIZAR char(1)'#10#10' declare @TR38 numeric(15,0)'#10' declare @TR40' + - ' numeric(15,0)'#10' declare @TR42 numeric(15,0)'#10' declare @TR44' + - ' numeric(15,0)'#10' declare @TR46 numeric(15,0)'#10' declare @TR48' + - ' numeric(15,0)'#10#10' declare @APROBADO char(1)'#10' declare @FECHA' + - ' datetime'#10' declare @CENTRO varchar(17)'#10' declare @CENTRO2 v' + - 'archar(17)'#10' declare @CODIGO varchar(12)'#10' declare @COLOR va' + - 'rchar(10)'#10' declare @TIPOCANT varchar(3)'#10#10' set @ESTADO = :E' + - 'STADO'#10' set @OBSERVACIONES = :OBSERVACIONES'#10' set @CONTABILI' + - 'ZAR = :CONTABILIZAR'#10#10' set @TR38 = :TR38'#10' set @TR40 = :TR40' + - #10' set @TR42 = :TR42'#10' set @TR44 = :TR44'#10' set @TR46 = :TR' + - '46'#10' set @TR48 = :TR48'#10#10' set @APROBADO = :APROBADO'#10' set ' + - '@FECHA = :FECHA'#10' set @CENTRO = :CENTRO'#10' set @CENTRO2 = :CE' + - 'NTRO2'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10' set ' + - '@TIPOCANT = :TIPO'#10#10' /* *********************************** */' + - #10#9'update RDX_TRASPASOS_AJUSTES set'#10#9' CANT38 = @TR38,'#10#9 + - ' CANT40 = @TR40,'#10#9' CANT42 = @TR42,'#10#9' ' + - ' CANT44 = @TR44,'#10#9' CANT46 = @TR46,'#10#9' CANT4' + - '8 = @TR48,'#10' APROBADO = @APROBADO,'#10' E' + - 'STADO = @ESTADO,'#10' TIPOCANT = @TIPOCANT,'#10' ' + - ' OBSERVACIONES = @OBSERVACIONES,'#10' CONTABILIZAR' + - ' = @CONTABILIZAR,'#10' FECHACAMBIO = CURRENT_TIMESTAMP' + - #10#9'where'#10' (RDX_TRASPASOS_AJUSTES.CENTRO = @CENTRO and' + - #10' RDX_TRASPASOS_AJUSTES.CENTRO2 = @CENTRO2 and'#10#9' ' + - ' RDX_TRASPASOS_AJUSTES.CODIGO = @CODIGO and'#10#9' RDX_TRASPAS' + - 'OS_AJUSTES.COLOR = @COLOR and'#10#9' RDX_TRASPASOS_AJUSTES.FECHA' + - ' = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9'if @ROWCOUNT_VA' + - 'R = 0'#10' begin'#10' insert into RDX_TRASPASOS_AJUSTES'#10' ' + - ' (FECHA, CENTRO, CENTRO2, CODIGO, COLOR,'#10' ' + - ' APROBADO, FECHACAMBIO, TIPOCANT,'#10' ESTADO, OB' + - 'SERVACIONES, CONTABILIZAR,'#10' CANT38, CANT40, CANT' + - '42,'#10' CANT44, CANT46, CANT48)'#10' values ('#10' ' + - ' @FECHA, @CENTRO, @CENTRO2, @CODIGO,'#10' ' + - ' @COLOR, @APROBADO, CURRENT_TIMESTAMP, @TIPOCANT,'#10' ' + - ' @ESTADO, @OBSERVACIONES, @CONTABILIZAR,'#10' ' + - '@TR38, @TR40, @TR42,'#10' @TR44, @TR46, @TR48)'#10' e' + - 'nd'#10'end' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_Estado_Traspasos' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object DADataDictionary1: TDADataDictionary - Fields = < - item - Name = 'Traspasos_TIPO' - DataType = datString - Size = 1 - Required = True - DisplayLabel = 'Tipo' - ReadOnly = True - end - item - Name = 'Traspasos_FECHA' - DataType = datDateTime - DisplayLabel = 'Fecha' - ReadOnly = True - end - item - Name = 'Traspasos_CENTRO' - DataType = datString - Size = 17 - DisplayLabel = 'Centro' - ReadOnly = True - end - item - Name = 'Traspasos_FILIAL' - DataType = datString - Size = 25 - DisplayLabel = 'Filial' - ReadOnly = True - end - item - Name = 'Traspasos_CENTRO2' - DataType = datString - Size = 17 - DisplayLabel = 'Centro2' - ReadOnly = True - end - item - Name = 'Traspasos_FILIAL2' - DataType = datString - Size = 25 - DisplayLabel = 'Filial2' - ReadOnly = True - end - item - Name = 'Traspasos_CODIGO' - DataType = datString - Size = 12 - DisplayLabel = 'C'#243'digo' - ReadOnly = True - end - item - Name = 'Traspasos_PRODUCTO' - DataType = datString - Size = 40 - Required = True - DisplayLabel = 'Producto' - ReadOnly = True - end - item - Name = 'Traspasos_COLOR' - DataType = datString - Size = 10 - DisplayLabel = 'Color' - ReadOnly = True - end - item - Name = 'Traspasos_T38' - DataType = datFloat - DisplayLabel = 'T38' - ReadOnly = True - end - item - Name = 'Traspasos_T40' - DataType = datFloat - DisplayLabel = 'T40' - ReadOnly = True - end - item - Name = 'Traspasos_T42' - DataType = datFloat - DisplayLabel = 'T42' - ReadOnly = True - end - item - Name = 'Traspasos_T44' - DataType = datFloat - DisplayLabel = 'T44' - ReadOnly = True - end - item - Name = 'Traspasos_T46' - DataType = datFloat - DisplayLabel = 'T46' - ReadOnly = True - end - item - Name = 'Traspasos_T48' - DataType = datFloat - DisplayLabel = 'T48' - ReadOnly = True - end - item - Name = 'Traspasos_TOTAL' - DataType = datFloat - DisplayLabel = 'Total' - ReadOnly = True - end - item - Name = 'Traspasos_TR38' - DataType = datFloat - DisplayLabel = 'TR38' - end - item - Name = 'Traspasos_TR40' - DataType = datFloat - DisplayLabel = 'TR40' - end - item - Name = 'Traspasos_TR42' - DataType = datFloat - DisplayLabel = 'TR42' - end - item - Name = 'Traspasos_TR44' - DataType = datFloat - DisplayLabel = 'TR44' - end - item - Name = 'Traspasos_TR46' - DataType = datFloat - DisplayLabel = 'TR46' - end - item - Name = 'Traspasos_TR48' - DataType = datFloat - DisplayLabel = 'TR48' - end - item - Name = 'Traspasos_TOTAL_RECT' - DataType = datFloat - DisplayLabel = 'Total' - end - item - Name = 'Traspasos_APROBADO' - DataType = datString - Size = 1 - DisplayLabel = 'Aprobado' - end - item - Name = 'Traspasos_ESTADO_TRASPASO' - DataType = datString - Size = 20 - DisplayLabel = 'Estado' - end - item - Name = 'Traspasos_OBSERVACIONES' - DataType = datString - Size = 255 - DisplayLabel = 'Observaciones' - end - item - Name = 'Traspasos_CONTABILIZAR' - DataType = datString - Size = 1 - DisplayLabel = 'Contabilizar' - end - item - Name = 'Traspasos_FECHACAMBIO' - DataType = datDateTime - DisplayLabel = 'Fecha cambio' - ReadOnly = True - end> - Left = 40 - Top = 168 - end - object bpTraspasos: TDABusinessProcessor - Schema = schTraspasos - UpdateCommandName = 'Update_Estado_Traspasos' - RefreshDatasetName = 'RefreshTraspasos' - ReferencedDataset = 'Traspasos' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 32 - end - object bpTraspasosAprobadas: TDABusinessProcessor - Schema = schTraspasos - UpdateCommandName = 'Update_Estado_Traspasos' - RefreshDatasetName = 'RefreshTraspasos' - ReferencedDataset = 'TraspasosAprobados' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 88 - end - object bpTraspasosPendientes: TDABusinessProcessor - Schema = schTraspasos - UpdateCommandName = 'Update_Estado_Traspasos' - RefreshDatasetName = 'RefreshTraspasos' - ReferencedDataset = 'TraspasosPendientes' - ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] - UpdateMode = updWhereKeyOnly - Left = 192 - Top = 152 - end -end diff --git a/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.pas b/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.pas deleted file mode 100644 index bfd4368..0000000 --- a/Varela/Varela/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.pas +++ /dev/null @@ -1,51 +0,0 @@ -unit srvTraspasos_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer; - -type - { TsrvTraspasos } - TsrvTraspasos = class(TDARemoteService, IsrvTraspasos) - DABINAdapter: TDABINAdapter; - bpTraspasos: TDABusinessProcessor; - bpTraspasosAprobadas: TDABusinessProcessor; - bpTraspasosPendientes: TDABusinessProcessor; - schTraspasos: TDASchema; - DADataDictionary1: TDADataDictionary; - private - protected - { IsrvTraspasos methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer; - -procedure Create_srvTraspasos(out anInstance : IUnknown); -begin - anInstance := TsrvTraspasos.Create(NIL); -end; - -{ srvTraspasos } -initialization - TROClassFactory.Create('srvTraspasos', Create_srvTraspasos, TsrvTraspasos_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.bdsproj b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.bdsproj deleted file mode 100644 index 72aa031..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - VentasProceso.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.cfg b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.cfg deleted file mode 100644 index a34a309..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$Y- --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.dof b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.dof deleted file mode 100644 index f5bd34e..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.dof +++ /dev/null @@ -1,479 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=0 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Servidor -Item1=..\..\Output\Cliente -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.dpk b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.dpk deleted file mode 100644 index e1e3ec7..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.dpk +++ /dev/null @@ -1,74 +0,0 @@ -package VentasProceso; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO OFF} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - rtl, - dbrtl, - dsnap, - BaseD10, - vcl, - adortl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - GUISDK_D10, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - cxTreeListD10, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - JvGlobusD10R, - ControlesBaseD10, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10; - -contains - uDataModuleVentasProceso in 'uDataModuleVentasProceso.pas' {dmVentasEnProceso: TDAClientDataModule}, - uPluginControllerVentasProceso in 'uPluginControllerVentasProceso.pas' {ModuleVentasProceso: TModuleController}, - uEditorControlesVentaProceso in 'uEditorControlesVentaProceso.pas' {fEditorControlesVentasProceso: TCustomEditor}, - uViewControlesVentaProceso in 'uViewControlesVentaProceso.pas' {frViewControlesVentaProceso: TCustomView}, - uBizControlVentasProceso in '..\Reglas\uBizControlVentasProceso.pas', - uEditorControlVentaProceso in 'uEditorControlVentaProceso.pas' {fEditorControlVentaProceso: TCustomEditor}, - uViewControlVentaProceso in 'uViewControlVentaProceso.pas' {frViewControlVentaProceso: TCustomView}, - schVentasEnProcesoClient_Intf in '..\Reglas\schVentasEnProcesoClient_Intf.pas', - uBizVentasProceso in '..\Reglas\uBizVentasProceso.pas', - uViewControGridlVentaProceso in 'uViewControGridlVentaProceso.pas' {frViewControlGridVentaProceso: TCustomView}; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.drc b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.identcache b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.identcache deleted file mode 100644 index 8b7a0ee..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.rc b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.res b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/VentasProceso.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.ddp b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.dfm deleted file mode 100644 index ccb41df..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.dfm +++ /dev/null @@ -1,364 +0,0 @@ -object dmVentasEnProceso: TdmVentasEnProceso - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 300 - Width = 306 - object RemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvVentasEnProceso' - Left = 56 - Top = 16 - end - object tbl_VentasEnProcesoPendientes: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - InPrimaryKey = True - end - item - Name = 'CLAVE1' - DataType = datFloat - InPrimaryKey = True - end - item - Name = 'CLAVE2' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'CLAVE3' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - end - item - Name = 'DIA' - DataType = datInteger - end - item - Name = 'DIASEMANA' - DataType = datString - Size = 30 - end - item - Name = 'MES' - DataType = datString - Size = 30 - end - item - Name = 'ANO' - DataType = datInteger - end - item - Name = 'CENTRO' - DataType = datString - Size = 25 - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 66 - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - end - item - Name = 'GRUPOPRODUCTO' - DataType = datString - Size = 25 - end - item - Name = 'TIPOPRODUCTO' - DataType = datString - Size = 25 - end - item - Name = 'COLECCION' - DataType = datString - Size = 6 - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - end - item - Name = 'TALLA' - DataType = datString - Size = 8 - end - item - Name = 'INICIO' - DataType = datFloat - Alignment = taRightJustify - end - item - Name = 'FINAL' - DataType = datFloat - Alignment = taRightJustify - end - item - Name = 'IMPORTE' - DataType = datFloat - Alignment = taRightJustify - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'VentasEnProcesoPendientes' - IndexDefs = <> - Left = 200 - Top = 16 - end - object tbl_VentasEnProcesoPendientes2: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = < - item - Name = 'FECHAINI' - DataType = datDateTime - Value = '' - ParamType = daptInput - end - item - Name = 'FECHAFIN' - DataType = datDateTime - Value = '' - ParamType = daptInput - end> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter2 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'VentasEnProcesoPendientes' - IndexDefs = <> - Left = 200 - Top = 96 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - Value = Null - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'VentasEnProcesoPendientes' - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - Value = False - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - Value = -1 - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RemoteService - DataStreamer = DABinDataStreamer2 - Left = 56 - Top = 96 - end - object DARemoteDataAdapter2: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RemoteService - GetSchemaCall.MethodName = 'GetSchema' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'VentasEnProcesoPendientes' - end - item - Name = 'Columns' - DataType = rtString - Flag = fIn - Value = Null - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetDataCall.RemoteService = RemoteService - GetDataCall.MethodName = 'GetData' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'VentasEnProcesoPendientes' - end - item - Name = 'Columns' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'Params' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - Value = -1 - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RemoteService - DataStreamer = DABinDataStreamer2 - Left = 56 - Top = 168 - end - object DABinDataStreamer2: TDABinDataStreamer - IsCompatibleV4 = False - Left = 56 - Top = 248 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.pas deleted file mode 100644 index cd41a85..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uDataModuleVentasProceso.pas +++ /dev/null @@ -1,113 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit uDataModuleVentasProceso; - -interface - -uses {vcl:} SysUtils, Classes, DB, uDataModuleBase, - {RemObjects:} uDAClientDataModule, uROClient, uROServiceComponent, - uRORemoteService, uDADataTable, uDAScriptingProvider, uDACDSDataTable, - uBizControlVentasProceso, uBizVentasProceso, uDARemoteDataAdapter, - uDADataStreamer, uDABinAdapter; - -const - CATEGORIA_VENTAS_PROCESO = 'VENTAPROCESO'; - -type - TdmVentasEnProceso = class(TDAClientDataModule) - RemoteService: TRORemoteService; - tbl_VentasEnProcesoPendientes: TDACDSDataTable; - tbl_VentasEnProcesoPendientes2: TDACDSDataTable; - DARemoteDataAdapter: TDARemoteDataAdapter; - DARemoteDataAdapter2: TDARemoteDataAdapter; - DABinDataStreamer2: TDABinDataStreamer; - procedure DAClientDataModuleCreate(Sender: TObject); - protected - function GetItems : IBizVentasProceso; - public - function GetNameColumns: String; - function GetControl: IBizControlVentasProceso; - end; - -var - dmVentasEnProceso: TdmVentasEnProceso; - -implementation - -{$R *.DFM} - -uses - Controls, Forms, uDataTableUtils, - uDataModuleControles, schVentasEnProcesoClient_Intf, Dialogs, cxControls; - -procedure TdmVentasEnProceso.DAClientDataModuleCreate(Sender: TObject); -begin - RemoteService.Channel := dmBase.Channel; - RemoteService.Message := dmBase.Message; -end; - -function TdmVentasEnProceso.GetControl: IBizControlVentasProceso; -var - aDataTable : TDACDSDataTable; -begin - aDataTable := dmControles.GetItems(CATEGORIA_VENTAS_PROCESO); - aDataTable.BusinessRulesID := BIZ_CONTROL_VENTASPROCESO; - - (aDataTable as IBizControlVentasProceso).Items := GetItems; - Result := (aDataTable as IBizControlVentasProceso); -end; - -function TdmVentasEnProceso.GetItems: IBizVentasProceso; -var - dtVentas: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtVentas := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_VentasEnProcesoPendientes2, dtVentas); - dtVentas.Fields.AssignFieldCollection(tbl_VentasEnProcesoPendientes.Fields); - dtVentas.BusinessRulesID := BIZ_VENTASPROCESO; - - dtVentas.FieldByName(fld_VentasEnProcesoPendientesNUMINF).Visible := False; - dtVentas.FieldByName(fld_VentasEnProcesoPendientesCLAVE1).Visible := False; - dtVentas.FieldByName(fld_VentasEnProcesoPendientesCLAVE2).Visible := False; - dtVentas.FieldByName(fld_VentasEnProcesoPendientesCLAVE3).Visible := False; - - dtVentas.LoadSchema; - Result := (dtVentas as IBizVentasProceso); - finally - HideHourglassCursor; - end; -end; - -function TdmVentasEnProceso.GetNameColumns: String; -var - AList : TStringList; - i : integer; -begin - AList := TStringList.Create; - try - for i := 0 to tbl_VentasEnProcesoPendientes.FieldCount - 1 do - if tbl_VentasEnProcesoPendientes.Fields[i].Visible then - AList.Add(tbl_VentasEnProcesoPendientes.Fields[i].Name); - Result := AList.CommaText; - finally - FreeAndNil(AList); - end; -end; - - -initialization - dmVentasEnProceso := TdmVentasEnProceso.Create(nil); - -finalization - FreeAndNil(dmVentasEnProceso); - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.ddp b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.dfm deleted file mode 100644 index 037ce6c..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.dfm +++ /dev/null @@ -1,1716 +0,0 @@ -inherited fEditorControlVentaProceso: TfEditorControlVentaProceso - Left = 231 - Top = 105 - Width = 687 - Height = 607 - ActiveControl = frViewControlVentaProceso1.bRefrescar - Caption = 'fEditorControlVentaProceso' - OnCreate = CustomEditorCreate - OnGetModified = CustomEditorGetModified - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 679 - inherited Image1: TImage - Left = 652 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB51930000029C4944415478DAB5955D48145114C7FFB32B7D - 083DD8832D0559F420F950C950E1530F421F083D4451422CD88B940829591229 - A460500886AD4464064B4A0F21C94A3E043D8E5ACE6AEAD256B042E64E9A1F51 - 664E7367BAF74E33CDE4C7EE2A7BE070EF9D3B7B7E73CEFDDFB382611848A709 - EDA1FEB4108A8B0E0A1C60A49882460C10A26351D5F8A8E93A1FF99CBAFA9BE0 - 6C692DE49E967F8092BEFC848109FD0E9510A89AC6C71FAA6AAE995388B557A9 - 76E0D1932E37A0A3FB75FACEC002D09AA5F4C3644BE502A4A3544B006D87C32E - D08EE922D49DA8B7D7DE8677093F22FF59232E549C5E19C08CCD9DC1078530C4 - 3E117819017C7B31767E11830AD0FA946068721E4C8A9FE6C64D801C581DE00C - EEEDF7801CD2F9882830E01FC0297F1C5B473A57CCE0437910B7329E2F0FF8BF - 34DE0E0A28A680A0870717DB45E40C4CA1B74A83CFE783A22888C562989D9D45 - 3C1E47202061F4D263346E0C25097066304A37362121205CDA8AE6CC17AB039C - 104295319CF1D63C832160E7FB49F45D21D8DFA4F3F7B2A5167CCF2940CD1125 - 31C0A92226B9DD732771A3B0864374AE75C25DBC2CA1F7B688A3679A9031FF15 - 6565057670663620FFD845A3AABC644906B6B6A9CF2C2CB8D6966B721475B921 - E4E5E55140AB1DDC0560BD8E6660386FB2754BB5BF37F3E72FD5B1A67BBA392F - BCAFA33EB7DB06DC7D709DEF311B897E5C0AB817EC49BA55340C1F805C69CED9 - 214722115E22A67FCB5C803BCD6D490757F6D5F2E04C459224F1674E15217B83 - FDAEB0967FB4ED5715C3026CAB9EC0E689305ACE093640961F0AEB02F8AEC58D - C10A81CB3473FC0DB2225DFCB9A5A4F503AA278C2F5BBE2DBBC71ADDBA002CF8 - F13D59B8E9F7F066177AA5A3F33360CC4F636672CA84D06667415206ECF2771B - AB353ACBD60C48D5FE0066D96D9CD7814D110000000049454E44AE426082} - end - end - inherited TBXDock: TTBXDock - Width = 679 - inherited tbxMain: TTBXToolbar - object TBXSeparatorItem16: TTBXSeparatorItem [13] - end - object tbxiExpandir: TTBXItem [14] - Action = actExpandir - end - object tbxiContraer: TTBXItem [15] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [16] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem37: TTBXItem [0] - Action = actExpandir - end - object TBXItem36: TTBXItem [1] - Action = actContraer - end - object TBXItem35: TTBXItem [2] - Action = actAnchoAuto - end - object TBXSeparatorItem17: TTBXSeparatorItem [3] - end - end - end - end - inherited StatusBar: TStatusBar - Top = 554 - Width = 679 - end - inline frViewControlVentaProceso1: TfrViewControlVentaProceso [3] - Left = 0 - Top = 76 - Width = 679 - Height = 478 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - inherited TBXMultiDock1: TTBXMultiDock - Width = 238 - Height = 478 - inherited pnlParametros: TTBXDockablePanel - DockedWidth = 234 - SplitHeight = 240 - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 234 - inherited TBXLink1: TTBXLink - Width = 226 - end - inherited TBXLink5: TTBXLink - Width = 226 - end - inherited TBXLink2: TTBXLink - Width = 226 - end - end - inherited pcParametros: TPageControl - Width = 234 - Height = 121 - inherited tsColumnas: TTabSheet - inherited frViewColumnas1: TfrViewColumnas - Height = 0 - inherited lbColumnas: TcxCheckListBox - Height = 0 - end - end - end - inherited tsAgrupacion: TTabSheet - inherited frViewAgrupaciones1: TfrViewAgrupaciones - Width = 226 - Height = 111 - inherited TBXLabel1: TTBXLabel - Width = 226 - end - inherited pnlAgrupaciones: TTBXAlignmentPanel - Width = 226 - inherited TBXButton1: TTBXButton - Width = 114 - end - inherited TBXButton3: TTBXButton - Width = 114 - end - inherited TBXButton2: TTBXButton - Width = 114 - end - end - end - end - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 188 - Width = 234 - inherited bRefrescar: TButton - OnClick = frViewControlVentaProceso1bRefrescarClick - end - end - end - inherited pnlTareas: TTBXDockablePanel - Top = 240 - DockedWidth = 234 - DockPos = 240 - SplitHeight = 222 - inherited TBXPageScroller1: TTBXPageScroller - Width = 234 - Height = 200 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 234 - inherited bFiltros: TTBXLink - Width = 226 - end - inherited bSumarios: TTBXLink - Width = 226 - end - end - inherited pcTareas: TPageControl - Width = 234 - Height = 152 - inherited tsSumarios: TTabSheet - inherited frViewSumarios1: TfrViewSumarios - Height = 48 - inherited vgSumarios: TcxVerticalGrid - Height = 19 - end - end - end - inherited tsFiltros: TTabSheet - inherited frViewFiltros1: TfrViewFiltros - Width = 226 - Height = 142 - inherited vgFiltros: TcxVerticalGrid - Height = 130 - end - inherited TBXLabel1: TTBXLabel - Width = 226 - end - inherited cxFilterControl1: TcxFilterControl - Width = 226 - Height = 83 - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 112 - Width = 226 - end - inherited cxStyleRepository1: TcxStyleRepository - Left = 24 - Top = 48 - end - end - end - end - end - end - end - inherited frViewControlGridVentaProceso1: TfrViewControlGridVentaProceso - Left = 238 - Width = 441 - Height = 478 - inherited cxGrid: TcxGrid - Width = 441 - Height = 478 - inherited cxGridView: TcxGridDBTableView - DataController.DataSource = dsVentasProceso - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxPrinterLinkcxGrid: TdxGridReportLink - BuiltInReportLink = True - end - end - end - inherited SmallImages: TPngImageList - Left = 216 - Top = 176 - end - inherited LargeImages: TPngImageList - Left = 192 - Top = 176 - end - end - inherited EditorActionList: TActionList [4] - inherited actConfPagina: TAction - OnExecute = actConfPaginaExecute - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - end - end - inherited SmallImages: TPngImageList [5] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [8] - end - object dsVentasProceso: TDADataSource - Left = 320 - Top = 232 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.pas deleted file mode 100644 index b35e453..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlVentaProceso.pas +++ /dev/null @@ -1,241 +0,0 @@ -unit uEditorControlVentaProceso; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlBase, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uBizControlesBase, - uCustomView, uViewBase, uViewControlBase, uViewControlVentaProceso, - Grids, DBGrids, pngimage; - -type - IEditorControlVentaProceso = interface(IEditorControlBase) - ['{7F768AD2-1FF0-41E0-9157-4AB2E2CD7D32}'] - end; - - TfEditorControlVentaProceso = class(TfEditorControlBase, IEditorControlVentaProceso) - frViewControlVentaProceso1: TfrViewControlVentaProceso; - dsVentasProceso: TDADataSource; - TBXSeparatorItem16: TTBXSeparatorItem; - tbxiExpandir: TTBXItem; - tbxiContraer: TTBXItem; - tbxiAnchoAuto: TTBXItem; - actExpandir: TAction; - actContraer: TAction; - actAnchoAuto: TAction; - TBXItem37: TTBXItem; - TBXItem36: TTBXItem; - TBXItem35: TTBXItem; - TBXSeparatorItem17: TTBXSeparatorItem; - procedure actRefrescarExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure CustomEditorCreate(Sender: TObject); - procedure CustomEditorGetModified(Sender: TObject; - var Modified: Boolean); - procedure actGuardarExecute(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actConfPaginaExecute(Sender: TObject); - procedure frViewControlVentaProceso1bRefrescarClick(Sender: TObject); - private - procedure RestaurarConfiguracion; - procedure GuardarConfiguracion; - protected - FModificado : Boolean; - procedure OnViewControlChanged(Sender: TObject); - procedure SetControl(const Value: IBizControlBase); override; - procedure RellenarCabeceraInforme; - public - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -uses - uEditorUtils, uBizControlVentasProceso, uROClasses, - cxGridTableView; - -{$R *.dfm} - -function ShowEditorVentasProceso (ABizObject : TDADataTableRules): TModalResult; -var - AEditor: IEditorControlVentaProceso; //TfEditorInformeVentas; -begin - AEditor := TfEditorControlVentaProceso.Create(Application); - try - AEditor.Control := (ABizObject as IBizControlVentasProceso); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - - -{ TfEditorControlVentaProceso } - -procedure TfEditorControlVentaProceso.SetControl( - const Value: IBizControlBase); -begin - inherited; - RefrescarTituloEditor; - if Assigned(FControl) then - begin - frViewControlVentaProceso1.Control := FControl; - frViewControlVentaProceso1.OnViewChanged := OnViewControlChanged; - dsDataTable.DataTable := FControl.DataTable; - with (FControl as IBizControlVentasProceso) do - begin - Items.DataTable.Active := False; // No se abre la tabla hasta que no se pulse en 'Refrescar' - dsVentasProceso.DataTable := Items.DataTable; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.DataController.DataSource := dsVentasProceso; - end; - end; -end; - -procedure TfEditorControlVentaProceso.actRefrescarExecute(Sender: TObject); -begin - inherited; - frViewControlVentaProceso1.Refresh; - - while (frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.Controller.FocusedRecord is TcxGridGroupRow) do - begin - frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.Controller.FocusedRecord.Expand(True); - if (frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.Controller.FocusedRecordIndex < - frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.DataController.RowCount - 1) then - frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.Controller.GoToNext(False, True) - else - Exit; - end; -end; - -procedure TfEditorControlVentaProceso.actExpandirExecute(Sender: TObject); -begin - inherited; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.ExpandirTodo; -end; - -procedure TfEditorControlVentaProceso.actContraerExecute(Sender: TObject); -begin - inherited; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.ContraerTodo; -end; - -procedure TfEditorControlVentaProceso.actAnchoAutoExecute(Sender: TObject); -begin - inherited; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.AjustarAncho; -end; - -procedure TfEditorControlVentaProceso.OnViewControlChanged( - Sender: TObject); -begin - FModificado := True; -end; - -procedure TfEditorControlVentaProceso.CustomEditorCreate(Sender: TObject); -begin - inherited; - FModificado := False; -end; - -procedure TfEditorControlVentaProceso.CustomEditorGetModified( - Sender: TObject; var Modified: Boolean); -begin - inherited; - Modified := FModificado; -end; - -procedure TfEditorControlVentaProceso.actGuardarExecute(Sender: TObject); -begin - GuardarConfiguracion; - inherited; - FModificado := False; -end; - -procedure TfEditorControlVentaProceso.GuardarConfiguracion; -var - Aux : IROStrings; -begin - Aux := NewROStrings(); - Aux.Add(frViewControlVentaProceso1.frViewControlGridVentaProceso1.ViewProperties); - if not (FControl.DataTable.State in dsEditModes) then - FControl.Edit; - FControl.VISTA := Aux; -end; - -procedure TfEditorControlVentaProceso.RestaurarConfiguracion; -begin - frViewControlVentaProceso1.frViewControlGridVentaProceso1.ViewProperties := FControl.VISTA.Text; -end; - -procedure TfEditorControlVentaProceso.FormShow(Sender: TObject); -begin - inherited; - if FControl.DataTable.State <> dsInsert then // No restaurar si estamos insertando - RestaurarConfiguracion; - frViewControlVentaProceso1.frViewColumnas1.Refresh; - frViewControlVentaProceso1.frViewAgrupaciones1.Refresh; -end; - -procedure TfEditorControlVentaProceso.actPrevisualizarExecute( - Sender: TObject); -begin - inherited; - RellenarCabeceraInforme; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.Preview; -end; - -procedure TfEditorControlVentaProceso.actImprimirExecute(Sender: TObject); -begin - inherited; - RellenarCabeceraInforme; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.Print; -end; - -procedure TfEditorControlVentaProceso.actConfPaginaExecute( - Sender: TObject); -begin - inherited; - RellenarCabeceraInforme; - frViewControlVentaProceso1.frViewControlGridVentaProceso1.PrintSetup; -end; - -procedure TfEditorControlVentaProceso.RellenarCabeceraInforme; -begin - with frViewControlVentaProceso1.frViewControlGridVentaProceso1.dxPrintStyleManager1Style1.PrinterPage.PageHeader do - begin - LeftTitle.Clear; - LeftTitle.Add(FControl.NOMBRE); - RightTitle.Clear; - RightTitle.Add(frViewControlVentaProceso1.frViewControlGridVentaProceso1.FocusedView.DataController.Filter.FilterText); - end; -end; - -constructor TfEditorControlVentaProceso.Create(AOwner: TComponent); -begin - inherited; - FViewControl := frViewControlVentaProceso1; - Self.Caption := 'Nueva consulta de ventas en proceso'; - JvNavPanelHeader.Caption := Self.Caption; -end; - -procedure TfEditorControlVentaProceso.frViewControlVentaProceso1bRefrescarClick( - Sender: TObject); -begin - inherited; - frViewControlVentaProceso1.actRefrescarExecute(Sender); - -end; - -initialization - RegisterEditor(IBizControlVentasProceso, ShowEditorVentasProceso, etItem); - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlesVentaProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlesVentaProceso.dfm deleted file mode 100644 index 4100cc7..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlesVentaProceso.dfm +++ /dev/null @@ -1,154 +0,0 @@ -inherited fEditorControlesVentasProceso: TfEditorControlesVentasProceso - Left = 499 - Top = 346 - ActiveControl = frViewControlesVentaProceso1.EasyListview - Caption = 'fEditorControlesVentasProceso' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Caption = 'Control de ventas en proceso' - inherited Image1: TImage - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB51930000029C4944415478DAB5955D48145114C7FFB32B7D - 083DD8832D0559F420F950C950E1530F421F083D4451422CD88B940829591229 - A460500886AD4464064B4A0F21C94A3E043D8E5ACE6AEAD256B042E64E9A1F51 - 664E7367BAF74E33CDE4C7EE2A7BE070EF9D3B7B7E73CEFDDFB382611848A709 - EDA1FEB4108A8B0E0A1C60A49882460C10A26351D5F8A8E93A1FF99CBAFA9BE0 - 6C692DE49E967F8092BEFC848109FD0E9510A89AC6C71FAA6AAE995388B557A9 - 76E0D1932E37A0A3FB75FACEC002D09AA5F4C3644BE502A4A3544B006D87C32E - D08EE922D49DA8B7D7DE8677093F22FF59232E549C5E19C08CCD9DC1078530C4 - 3E117819017C7B31767E11830AD0FA946068721E4C8A9FE6C64D801C581DE00C - EEEDF7801CD2F9882830E01FC0297F1C5B473A57CCE0437910B7329E2F0FF8BF - 34DE0E0A28A680A0870717DB45E40C4CA1B74A83CFE783A22888C562989D9D45 - 3C1E47202061F4D263346E0C25097066304A37362121205CDA8AE6CC17AB039C - 104295319CF1D63C832160E7FB49F45D21D8DFA4F3F7B2A5167CCF2940CD1125 - 31C0A92226B9DD732771A3B0864374AE75C25DBC2CA1F7B688A3679A9031FF15 - 6565057670663620FFD845A3AABC644906B6B6A9CF2C2CB8D6966B721475B921 - E4E5E55140AB1DDC0560BD8E6660386FB2754BB5BF37F3E72FD5B1A67BBA392F - BCAFA33EB7DB06DC7D709DEF311B897E5C0AB817EC49BA55340C1F805C69CED9 - 214722115E22A67FCB5C803BCD6D490757F6D5F2E04C459224F1674E15217B83 - FDAEB0967FB4ED5715C3026CAB9EC0E689305ACE093640961F0AEB02F8AEC58D - C10A81CB3473FC0DB2225DFCB9A5A4F503AA278C2F5BBE2DBBC71ADDBA002CF8 - F13D59B8E9F7F066177AA5A3F33360CC4F636672CA84D06667415206ECF2771B - AB353ACBD60C48D5FE0066D96D9CD7814D110000000049454E44AE426082} - end - end - inline frViewControlesVentaProceso1: TfrViewControlesVentaProceso [3] - Left = 0 - Top = 76 - Width = 654 - Height = 368 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - inherited EasyListview: TEasyListview - Width = 654 - Height = 368 - end - end - inherited EditorActionList: TActionList [4] - end - inherited SmallImages: TPngImageList [5] - end - inherited LargeImages: TPngImageList [6] - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [8] - end - inherited dsDataTable: TDADataSource [9] - end - inherited ViewPopupMenu: TPopupMenu [10] - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlesVentaProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlesVentaProceso.pas deleted file mode 100644 index 8a30a92..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uEditorControlesVentaProceso.pas +++ /dev/null @@ -1,40 +0,0 @@ -unit uEditorControlesVentaProceso; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlesBase, JvAppStorage, JvAppRegistryStorage, - JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, - ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, - ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uCustomView, - uViewBase, uViewControlesBase, uViewControlesVentaProceso, Menus, DB, - uDADataTable; - -type - IEditorControlesVentasProceso = interface(IEditorControlesBase) - ['{691E2C4E-32EF-4F86-9DDE-036A6BCCEF0E}'] - end; - - TfEditorControlesVentasProceso = class(TfEditorControlesBase, IEditorControlesVentasProceso) - frViewControlesVentaProceso1: TfrViewControlesVentaProceso; - private - { Private declarations } - public - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -{$R *.dfm} - -{ TfEditorControlVentaProceso } - -constructor TfEditorControlesVentasProceso.Create(AOwner: TComponent); -begin - inherited; - FViewControl := frViewControlesVentaProceso1; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.ddp b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.dfm deleted file mode 100644 index ac4c156..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.dfm +++ /dev/null @@ -1,284 +0,0 @@ -object ModuleVentasProceso: TModuleVentasProceso - OldCreateOrder = True - Description = 'Controles de ventas en proceso' - ModuleMenu = MainMenu - ModuleName = 'Controles de ventas en proceso' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.4' - Left = 779 - Top = 651 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F330000029C4944415478DAB5955D48145114 - C7FFB32B7D083DD8832D0559F420F950C950E1530F421F083D4451422CD88B94 - 0829591229A460500886AD4464064B4A0F21C94A3E043D8E5ACE6AEAD256B042 - E64E9A1F51664E7367BAF74E33CDE4C7EE2A7BE070EF9D3B7B7E73CEFDDFB382 - 611848A709EDA1FEB4108A8B0E0A1C60A49882460C10A26351D5F8A8E93A1FF9 - 9CBAFA9BE06C692DE49E967F8092BEFC848109FD0E9510A89AC6C71FAA6AAE99 - 5388B557A976E0D1932E37A0A3FB75FACEC002D09AA5F4C3644BE502A4A3544B - 006D87C32ED08EE922D49DA8B7D7DE8677093F22FF59232E549C5E19C08CCD9D - C1078530C43E117819017C7B31767E11830AD0FA946068721E4C8A9FE6C64D80 - 1C581DE00CEEEDF7801CD2F9882830E01FC0297F1C5B473A57CCE0437910B732 - 9E2F0FF8BF34DE0E0A28A680A0870717DB45E40C4CA1B74A83CFE783A22888C5 - 62989D9D453C1E47202061F4D263346E0C25097066304A37362121205CDA8AE6 - CC17AB039C104295319CF1D63C832160E7FB49F45D21D8DFA4F3F7B2A5167CCF - 2940CD112531C0A92226B9DD732771A3B0864374AE75C25DBC2CA1F7B688A367 - 9A9031FF156565057670663620FFD845A3AABC644906B6B6A9CF2C2CB8D6966B - 721475B921E4E5E55140AB1DDC0560BD8E6660386FB2754BB5BF37F3E72FD5B1 - A67BBA392FBCAFA33EB7DB06DC7D709DEF311B897E5C0AB817EC49BA55340C1F - 805C69CED9214722115E22A67FCB5C803BCD6D490757F6D5F2E04C459224F167 - 4E15217B83FDAEB0967FB4ED5715C3026CAB9EC0E689305ACE093640961F0AEB - 02F8AEC58DC10A81CB3473FC0DB2225DFCB9A5A4F503AA278C2F5BBE2DBBC71A - DDBA002CF8F13D59B8E9F7F066177AA5A3F33360CC4F636672CA84D066674152 - 06ECF2771BAB353ACBD60C48D5FE0066D96D9CD7814D110000000049454E44AE - 426082} - Name = 'PngImage0' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actVentasProceso: TAction - Category = 'Ventas' - Caption = 'Control de ventas en proceso' - ImageIndex = 0 - OnExecute = actVentasProcesoExecute - end - end - object MainMenu: TMainMenu - Tag = 1000 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 100 - Caption = '&Ventas' - GroupIndex = 1 - ImageIndex = 4 - object Controldeventasenproceso1: TMenuItem - Tag = 101 - Action = actVentasProceso - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F330000023F4944415478DAA5936B48536118 - C7FFE76CF3D26C2859D14DC106899452D9C0CABE84945DC8A23E7841A2A612E5 - B7A02F4151F929FC9262810EA1C0465B0BA2584BB34FE939D636D7D29439626E - BAD96DDAEE97734E9D236B2E7444FDE185079EE7FD3DEFF37F78098EE3F03F22 - FA9E8DFC33A1EE98821000DB8E8AD0419F5FB628C63008C5E308C66258088785 - 5875E23994877B6036DC4D027825202A8509D96D36E46D5A8303F255A0C719B8 - BC0C589201E9FF8EED6F541049169280E53A5F9B944116F2A131CB0A2D2582FD - 3381081106290A614FEE3C1ACE55A77AF0E7181EF72EF8069BD05EFD03322909 - C78C139ED939A87563709F34A1F7F203618C14C0D231EAA434D4541477943918 - 7632F058DE214BE2834EA54755EB7E945516A6025EE637FFEECE7BC0B24079FB - 2B349716E1668F05511B8DFA53C5301BF570D4BE104C2DE83BBB3280976884C4 - E6C78FD05AC04216746190FA0AEA4C9770993FC59A26107C210F590AE0930FF7 - 598558D1F60DB70ECE20C73F8DFAABF710B8F85AC8F3EBDCF9E4421290305148 - 0A1D1838E8FB5037EEC0EE8D7ED8A65CD00F98D0FD74001F4E6B616C312E7A90 - 00DCEEE84D59A32FB30865476AA16D5907659713F31334AED710B8D149E3E397 - 002452F1E21A57FA0B924BEEAA4A79DC90BF9620343A3BB2A70DA8392E47C462 - E5264CAE43639F34FD6901EBAF7887CA4BA4155B4BA3783B29063597F1EB5901 - E459FA5138A51F369BBBF7A6056C6930442A309E51B281E1461D24EC5E16B170 - 0011B184581D9C8DBEA73B33D302FE563F01DC582D540042BC50000000004945 - 4E44AE426082} - Name = 'PngImage0' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.pas deleted file mode 100644 index 1cd6e41..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uPluginControllerVentasProceso.pas +++ /dev/null @@ -1,73 +0,0 @@ -unit uPluginControllerVentasProceso; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCVentas = interface(IInterface) - ['{D058419C-2EFC-41A6-99DD-76E5B7FC4361}'] - end; - - TModuleVentasProceso = class(TModuleController, IMCVentas) - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - SmallImages: TPngImageList; - actVentasProceso: TAction; - Controldeventasenproceso1: TMenuItem; - procedure actVentasProcesoExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uDataModuleVentasProceso, - uEditorControlesVentaProceso, uDataModuleControles, - uBizControlVentasProceso, uEditorControlesBase; - -function GetModule : TModuleController; -begin - Result := TModuleVentasProceso.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleVentasProceso.actVentasProcesoExecute(Sender: TObject); -var - aControl: IBizControlVentasProceso; - aObj: IEditorControlesVentasProceso; -begin - aControl := dmVentasEnProceso.GetControl; - aObj := TfEditorControlesVentasProceso.Create(Application); - try - with aObj do - begin - Control := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleVentasProceso); - -finalization - UnRegisterModuleClass(TModuleVentasProceso); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.ddp b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.dfm deleted file mode 100644 index 8004f66..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.dfm +++ /dev/null @@ -1,194 +0,0 @@ -inherited frViewControlGridVentaProceso: TfrViewControlGridVentaProceso - Width = 632 - Height = 419 - object cxGrid: TcxGrid [0] - Left = 0 - Top = 0 - Width = 632 - Height = 419 - Align = alClient - TabOrder = 0 - LookAndFeel.Kind = lfStandard - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - FilterBox.CustomizeDialog = False - FilterBox.Visible = fvAlways - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.Filter.OnChanged = cxGridViewDataControllerFilterChanged - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - DataController.Summary.OnAfterSummary = cxGridViewDataControllerSummaryAfterSummary - DataController.OnGroupingChanged = cxGridViewDataControllerGroupingChanged - DataController.OnSortingChanged = cxGridViewDataControllerSortingChanged - OptionsBehavior.CellHints = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsCustomize.DataRowSizing = True - OptionsCustomize.GroupRowSizing = True - OptionsData.Deleting = False - OptionsData.DeletingConfirmation = False - OptionsData.Editing = False - OptionsData.Inserting = False - OptionsSelection.CellSelect = False - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.Footer = True - OptionsView.FooterAutoHeight = True - OptionsView.GridLineColor = cl3DLight - OptionsView.GroupByBox = False - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.HeaderEndEllipsis = True - OptionsView.NewItemRowInfoText = 'Click here to add a new row' - Styles.FilterBox = cxStyleFilterBox - Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle - OnColumnPosChanged = cxGridViewColumnPosChanged - OnColumnSizeChanged = cxGridViewColumnSizeChanged - object cxGridViewFECHA: TcxGridDBColumn - Caption = 'Fecha' - DataBinding.FieldName = 'FECHA' - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - end - object cxGridViewDIA: TcxGridDBColumn - Caption = 'Dia' - DataBinding.FieldName = 'DIA' - end - object cxGridViewDIASEMANA: TcxGridDBColumn - Caption = 'Dia de la semana' - DataBinding.FieldName = 'DIASEMANA' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewDIASEMANAPropertiesInitPopup - end - object cxGridViewMES: TcxGridDBColumn - Caption = 'Mes' - DataBinding.FieldName = 'MES' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewMESPropertiesInitPopup - end - object cxGridViewANO: TcxGridDBColumn - Caption = 'A'#241'o' - DataBinding.FieldName = 'ANO' - end - object cxGridViewCENTRO: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewCENTROPropertiesInitPopup - end - object cxGridViewVENDEDOR: TcxGridDBColumn - Caption = 'Vendedor' - DataBinding.FieldName = 'VENDEDOR' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewVENDEDORPropertiesInitPopup - end - object cxGridViewNUMTALON: TcxGridDBColumn - Caption = 'Talon' - DataBinding.FieldName = 'NUMTALON' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewNUMTALONPropertiesInitPopup - end - object cxGridViewCODIGO: TcxGridDBColumn - Caption = 'Codigo' - DataBinding.FieldName = 'CODIGO' - PropertiesClassName = 'TcxTextEditProperties' - end - object cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewPRODUCTOPropertiesInitPopup - end - object cxGridViewGRUPOPRODUCTO: TcxGridDBColumn - Caption = 'Grupo' - DataBinding.FieldName = 'GRUPOPRODUCTO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewGRUPOPRODUCTOPropertiesInitPopup - end - object cxGridViewTIPOPRODUCTO: TcxGridDBColumn - Caption = 'Tipo' - DataBinding.FieldName = 'TIPOPRODUCTO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewTIPOPRODUCTOPropertiesInitPopup - end - object cxGridViewCOLECCION: TcxGridDBColumn - Caption = 'Coleccion' - DataBinding.FieldName = 'COLECCION' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewCOLECCIONPropertiesInitPopup - end - object cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taLeftJustify - end - object cxGridViewTALLA: TcxGridDBColumn - Caption = 'Talla' - DataBinding.FieldName = 'TALLA' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taLeftJustify - end - object cxGridViewINICIO: TcxGridDBColumn - Caption = 'Inicio' - DataBinding.FieldName = 'INICIO' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewFINAL: TcxGridDBColumn - Caption = 'Final' - DataBinding.FieldName = 'FINAL' - PropertiesClassName = 'TcxTextEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewIMPORTE: TcxGridDBColumn - Caption = 'Importe' - DataBinding.FieldName = 'IMPORTE' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxPrinterLinkcxGrid: TdxGridReportLink - Component = cxGrid - BuiltInReportLink = True - end - end - object cxStyleRepository1: TcxStyleRepository - Left = 16 - Top = 48 - object cxStyleRed: TcxStyle - AssignedValues = [svTextColor] - TextColor = clRed - end - object cxStyleBlue: TcxStyle - AssignedValues = [svTextColor] - TextColor = clBlue - end - object cxStyleFilterBox: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clInfoBk - TextColor = clWindowText - end - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.pas deleted file mode 100644 index b4637dd..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControGridlVentaProceso.pas +++ /dev/null @@ -1,351 +0,0 @@ -unit uViewControGridlVentaProceso; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls; - -type - IViewControlGridVentaProceso = interface(IViewControlGrid) - ['{537E8507-695E-4345-AAEE-F573C113A2CF}'] - end; - - TfrViewControlGridVentaProceso = class(TfrViewControlGrid, IViewControlGridVentaProceso) - cxGrid: TcxGrid; - cxGridView: TcxGridDBTableView; - cxGridViewFECHA: TcxGridDBColumn; - cxGridViewDIA: TcxGridDBColumn; - cxGridViewDIASEMANA: TcxGridDBColumn; - cxGridViewMES: TcxGridDBColumn; - cxGridViewANO: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewVENDEDOR: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewGRUPOPRODUCTO: TcxGridDBColumn; - cxGridViewTIPOPRODUCTO: TcxGridDBColumn; - cxGridViewCOLECCION: TcxGridDBColumn; - cxGridViewNUMTALON: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewTALLA: TcxGridDBColumn; - cxGridViewIMPORTE: TcxGridDBColumn; - cxGridViewINICIO: TcxGridDBColumn; - cxGridViewFINAL: TcxGridDBColumn; - cxGridLevel: TcxGridLevel; - cxStyleRepository1: TcxStyleRepository; - cxStyleRed: TcxStyle; - cxStyleBlue: TcxStyle; - cxStyleFilterBox: TcxStyle; - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewColumnPosChanged(Sender: TcxGridTableView; - AColumn: TcxGridColumn); - procedure cxGridViewColumnSizeChanged(Sender: TcxGridTableView; - AColumn: TcxGridColumn); - procedure cxGridViewDataControllerGroupingChanged(Sender: TObject); - procedure cxGridViewDataControllerSortingChanged(Sender: TObject); - procedure cxGridViewDataControllerSummaryAfterSummary( - ASender: TcxDataSummary); - procedure cxGridViewCENTROPropertiesInitPopup(Sender: TObject); - procedure cxGridViewVENDEDORPropertiesInitPopup(Sender: TObject); - procedure cxGridViewNUMTALONPropertiesInitPopup(Sender: TObject); - procedure cxGridViewPRODUCTOPropertiesInitPopup(Sender: TObject); - procedure cxGridViewDataControllerFilterChanged(Sender: TObject); - procedure cxGridViewDIASEMANAPropertiesInitPopup(Sender: TObject); - procedure cxGridViewMESPropertiesInitPopup(Sender: TObject); - procedure cxGridViewGRUPOPRODUCTOPropertiesInitPopup(Sender: TObject); - procedure cxGridViewTIPOPRODUCTOPropertiesInitPopup(Sender: TObject); - procedure cxGridViewCOLECCIONPropertiesInitPopup(Sender: TObject); - protected - procedure ActivarEventos; override; - procedure DesactivarEventos; override; - function GetFocusedView : TcxGridDBTableView; override; - public - procedure Refresh; override; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses - cxVariants, DateUtils, uDataModuleVentasProceso; - -{$R *.dfm} - -{ TfrViewControlGridVentaProceso } - -function TfrViewControlGridVentaProceso.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -procedure TfrViewControlGridVentaProceso.Refresh; -var - FocusedRow, TopRow : Integer; -begin - inherited; - { Refrescar las filas del grid a partir del dataset y colocar la fila - seleccionada donde estaba } - if FocusedView.DataController.DataSource.DataSet.State = dsBrowse then - begin - TopRow := FocusedView.Controller.TopRowIndex; - FocusedRow := FocusedView.DataController.FocusedRowIndex; - - FocusedView.DataController.UpdateItems(False); // <- Refresco - - FocusedView.DataController.FocusedRowIndex := FocusedRow; - FocusedView.Controller.TopRowIndex := TopRow; - - { Esta chapuzilla es para que se rellenen los combobox de los filtros - por que el cxFilterControl no coge los valores la 1ª vez si los - combos están vacíos. } - TcxComboBoxProperties(cxGridViewPRODUCTO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewCENTRO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewVENDEDOR.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewNUMTALON.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewDIASEMANA.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewMES.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewGRUPOPRODUCTO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewTIPOPRODUCTO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewCOLECCION.Properties).OnInitPopup(nil); - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - AColumn : TcxGridDBColumn; - AFecha : TDateTime; -begin - inherited; - - // La fila es la cabecera de un grupo - if ARecord.Expandable then - Exit; - - AColumn := FocusedView.GetColumnByFieldName('FECHA'); - if Assigned(AColumn) and (AColumn.Visible) then - begin - try - AFecha := VarToDateTime(ARecord.Values[AColumn.Index]); - except - on Exception do - ShowMessage(VarToStr(ARecord.Values[AColumn.Index])); - end; - - if DaysBetween(Now, AFecha) > 14 then - AStyle := cxStyleRed - else - if DaysBetween(Now, AFecha) > 7 then - AStyle := cxStyleBlue - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewColumnPosChanged( - Sender: TcxGridTableView; AColumn: TcxGridColumn); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewColumnSizeChanged( - Sender: TcxGridTableView; AColumn: TcxGridColumn); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewDataControllerGroupingChanged( - Sender: TObject); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewDataControllerSortingChanged( - Sender: TObject); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewDataControllerSummaryAfterSummary( - ASender: TcxDataSummary); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewCENTROPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewCENTRO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewCENTRO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewVENDEDORPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewVENDEDOR.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewVENDEDOR.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewNUMTALONPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewNUMTALON.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewNUMTALON.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewPRODUCTOPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewPRODUCTO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewPRODUCTO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewDataControllerFilterChanged( - Sender: TObject); -begin - if Assigned(FOnFilterChanged) then - FOnFilterChanged(Self); -end; - -constructor TfrViewControlGridVentaProceso.Create(AOwner: TComponent); -begin - inherited; -end; - -procedure TfrViewControlGridVentaProceso.ActivarEventos; -begin - inherited; - with cxGridView do - begin - DataController.Filter.OnChanged := cxGridViewDataControllerFilterChanged; - DataController.Summary.OnAfterSummary := cxGridViewDataControllerSummaryAfterSummary; - DataController.OnGroupingChanged := cxGridViewDataControllerGroupingChanged; - DataController.OnSortingChanged := cxGridViewDataControllerSortingChanged; - OnColumnPosChanged := cxGridViewColumnPosChanged; - OnColumnSizeChanged := cxGridViewColumnSizeChanged; - end; -end; - -procedure TfrViewControlGridVentaProceso.DesactivarEventos; -begin - inherited; - with cxGridView do - begin - DataController.Filter.OnChanged := nil; - DataController.Summary.OnAfterSummary := nil; - DataController.OnGroupingChanged := nil; - DataController.OnSortingChanged := nil; - OnColumnPosChanged := nil; - OnColumnSizeChanged := nil; - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewDIASEMANAPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewDIASEMANA.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewDIASEMANA.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewMESPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewMES.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewMES.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewGRUPOPRODUCTOPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewGRUPOPRODUCTO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewGRUPOPRODUCTO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewTIPOPRODUCTOPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewTIPOPRODUCTO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewTIPOPRODUCTO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentaProceso.cxGridViewCOLECCIONPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewCOLECCION.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewCOLECCION.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.ddp b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.dfm deleted file mode 100644 index e3b4ec4..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.dfm +++ /dev/null @@ -1,148 +0,0 @@ -inherited frViewControlVentaProceso: TfrViewControlVentaProceso - Height = 608 - inherited TBXMultiDock1: TTBXMultiDock - Width = 232 - Height = 608 - inherited pnlParametros: TTBXDockablePanel - DockedWidth = 228 - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 228 - inherited TBXLink1: TTBXLink - Width = 220 - Visible = False - end - inherited TBXLink5: TTBXLink - Width = 220 - end - inherited TBXLink2: TTBXLink - Width = 220 - end - end - inherited pcParametros: TPageControl - Width = 228 - Height = 170 - inherited tsColumnas: TTabSheet - inherited frViewColumnas1: TfrViewColumnas - Width = 220 - Height = 160 - inherited TBXLabel1: TTBXLabel - Width = 220 - end - inherited lbColumnas: TcxCheckListBox - Width = 220 - Height = 131 - end - end - end - inherited tsAgrupacion: TTabSheet - inherited frViewAgrupaciones1: TfrViewAgrupaciones - Width = 220 - Height = 160 - inherited TBXLabel1: TTBXLabel - Width = 220 - end - inherited pnlAgrupaciones: TTBXAlignmentPanel - Width = 220 - DesignSize = ( - 220 - 77) - end - end - end - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 237 - Width = 228 - end - end - inherited pnlTareas: TTBXDockablePanel - Top = 289 - DockedWidth = 228 - DockPos = 289 - Visible = False - inherited TBXPageScroller1: TTBXPageScroller - Width = 228 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 228 - inherited bFiltros: TTBXLink - Width = 220 - end - inherited bSumarios: TTBXLink - Width = 220 - end - end - inherited pcTareas: TPageControl - Width = 228 - inherited tsSumarios: TTabSheet - inherited frViewSumarios1: TfrViewSumarios - Width = 220 - inherited TBXLabel1: TTBXLabel - Width = 220 - end - inherited vgSumarios: TcxVerticalGrid - Width = 220 - end - end - end - inherited tsFiltros: TTabSheet - inherited frViewFiltros1: TfrViewFiltros - Width = 220 - inherited TBXLabel1: TTBXLabel - Width = 220 - end - inherited cxFilterControl1: TcxFilterControl - Width = 220 - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Width = 220 - end - end - end - end - end - end - end - inline frViewControlGridVentaProceso1: TfrViewControlGridVentaProceso [1] - Left = 232 - Top = 0 - Width = 467 - Height = 608 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 1 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 467 - Height = 608 - inherited cxGridView: TcxGridDBTableView - FilterBox.Visible = fvNever - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxPrinterLinkcxGrid: TdxGridReportLink - BuiltInReportLink = True - end - end - end - inherited SmallImages: TPngImageList [2] - end - inherited LargeImages: TPngImageList [3] - end - inherited EditorActionList: TActionList - Left = 248 - Top = 72 - inherited actRefrescar: TAction - OnExecute = actRefrescarExecute - end - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.pas deleted file mode 100644 index 97f4633..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlVentaProceso.pas +++ /dev/null @@ -1,120 +0,0 @@ -unit uViewControlVentaProceso; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlBase, ActnList, ImgList, PngImageList, uViewGrid, - uViewControlGrid, uViewSumarios, TBXDkPanels, StdCtrls, - uViewAgrupaciones, uCustomView, uViewBase, uViewColumnas, ComCtrls, - TB2Dock, uViewParametrosControlGrid, uBizControlesBase, cxStyles, - cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, - cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, - cxTextEdit, uViewControGridlVentaProceso, uViewFiltros; - -type - IViewControlVentaProceso = interface(IViewControlBase) - ['{C3433C18-BB61-4046-BC0B-CE783A6F7189}'] - end; - - TfrViewControlVentaProceso = class(TfrViewControlBase, IViewControlVentaProceso) - frViewControlGridVentaProceso1: TfrViewControlGridVentaProceso; - procedure actRefrescarExecute(Sender: TObject); - protected - FModificado : Boolean; - procedure OnViewControlGridChanged(Sender : TObject); - procedure OnFilterChanged(Sender : TObject); - public - constructor Create(AOwner: TComponent); override; - procedure Refresh; override; - end; - -implementation - -uses uDataModuleVentasProceso, uBizControlVentasProceso, uBizVentasProceso; - -{$R *.dfm} - -{ TfrViewControlVentaProceso } - -constructor TfrViewControlVentaProceso.Create(AOwner: TComponent); -begin - inherited; - frViewControlGridVentaProceso1.OnViewChanged := OnViewControlGridChanged; - frViewControlGridVentaProceso1.OnFilterChanged := OnFilterChanged; - frViewColumnas1.ViewControlGrid := frViewControlGridVentaProceso1; - frViewAgrupaciones1.ViewControlGrid := frViewControlGridVentaProceso1; - frViewSumarios1.ViewControlGrid := frViewControlGridVentaProceso1; - frViewFiltros1.ViewControlGrid := frViewControlGridVentaProceso1; -end; - -procedure TfrViewControlVentaProceso.Refresh; -var - AColumns : TStringList; -begin - inherited; - ShowHourglassCursor; - actRefrescar.Enabled := False; - - frViewControlGridVentaProceso1.OnViewChanged := nil; - frViewControlGridVentaProceso1.OnFilterChanged := nil; - - try - // Calcular las columnas a pedir al servidor - AColumns := frViewColumnas1.GetCheckedColumns; - AColumns.Duplicates := dupIgnore; - AColumns.AddStrings(frViewAgrupaciones1.GetAgrupaciones); - - (Control as IBizControlVentasProceso).Items.VisibleColumns := AColumns.CommaText; - with (Control as IBizControlVentasProceso).Items.DataTable do - begin - DisableControls; - try - Active := False; - LoadSchema; - Active := True; - - frViewColumnas1.Execute; - frViewAgrupaciones1.Execute; - frViewSumarios1.Refresh; - frViewFiltros1.Refresh; - pnlTareas.Visible := True; - - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); - finally - EnableControls; - frViewControlGridVentaProceso1.Refresh; - frViewControlGridVentaProceso1.ExpandirTodo; - frViewControlGridVentaProceso1.GotoFirst; - end; - end; - finally - FreeAndNil(AColumns); - frViewControlGridVentaProceso1.OnViewChanged := OnViewControlGridChanged; - frViewControlGridVentaProceso1.OnFilterChanged := OnFilterChanged; - actRefrescar.Enabled := True; - HideHourglassCursor; - end; -end; - -procedure TfrViewControlVentaProceso.actRefrescarExecute(Sender: TObject); -begin - inherited; - Refresh; -end; - -procedure TfrViewControlVentaProceso.OnViewControlGridChanged( - Sender: TObject); -begin - if Assigned(Self.OnViewChanged) then - Self.OnViewChanged(Self); -end; - -procedure TfrViewControlVentaProceso.OnFilterChanged(Sender: TObject); -begin - frViewFiltros1.Refresh; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlesVentaProceso.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlesVentaProceso.dfm deleted file mode 100644 index 1c5d52e..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlesVentaProceso.dfm +++ /dev/null @@ -1,2 +0,0 @@ -inherited frViewControlesVentaProceso: TfrViewControlesVentaProceso -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlesVentaProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlesVentaProceso.pas deleted file mode 100644 index 637f1e4..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Cliente/uViewControlesVentaProceso.pas +++ /dev/null @@ -1,24 +0,0 @@ -unit uViewControlesVentaProceso; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlesBase, cxGraphics, cxCustomData, cxStyles, cxTL, - cxImageComboBox, cxMaskEdit, cxTextEdit, DB, uDADataTable, ImgList, - PngImageList, cxInplaceContainer, cxDBTL, cxControls, cxTLData, - MPCommonObjects, MPCommonUtilities, EasyListview; - -type - IViewControlesVentaProceso = interface(IViewControlesBase) - ['{FEC70D50-494A-477A-B907-A5752223ABF1}'] - end; - - TfrViewControlesVentaProceso = class(TfrViewControlesBase, IViewControlesVentaProceso) - end; - -implementation - -{$R *.dfm} - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/schVentasEnProcesoClient_Intf.pas b/Varela/Varela/Source/Modulos/VentasProceso/Reglas/schVentasEnProcesoClient_Intf.pas deleted file mode 100644 index c0cc047..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/schVentasEnProcesoClient_Intf.pas +++ /dev/null @@ -1,460 +0,0 @@ -unit schVentasEnProcesoClient_Intf; - -interface - -uses - Classes, DB, 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_VentasEnProcesoPendientes = '{6A914050-F90B-4E27-992C-A010950CC420}'; - - { Data table names } - nme_VentasEnProcesoPendientes = 'VentasEnProcesoPendientes'; - - { VentasEnProcesoPendientes fields } - fld_VentasEnProcesoPendientesNUMINF = 'NUMINF'; - fld_VentasEnProcesoPendientesCLAVE1 = 'CLAVE1'; - fld_VentasEnProcesoPendientesCLAVE2 = 'CLAVE2'; - fld_VentasEnProcesoPendientesCLAVE3 = 'CLAVE3'; - fld_VentasEnProcesoPendientesFECHA = 'FECHA'; - fld_VentasEnProcesoPendientesDIA = 'DIA'; - fld_VentasEnProcesoPendientesDIASEMANA = 'DIASEMANA'; - fld_VentasEnProcesoPendientesMES = 'MES'; - fld_VentasEnProcesoPendientesANO = 'ANO'; - fld_VentasEnProcesoPendientesCENTRO = 'CENTRO'; - fld_VentasEnProcesoPendientesVENDEDOR = 'VENDEDOR'; - fld_VentasEnProcesoPendientesNUMTALON = 'NUMTALON'; - fld_VentasEnProcesoPendientesCODIGO = 'CODIGO'; - fld_VentasEnProcesoPendientesPRODUCTO = 'PRODUCTO'; - fld_VentasEnProcesoPendientesGRUPOPRODUCTO = 'GRUPOPRODUCTO'; - fld_VentasEnProcesoPendientesTIPOPRODUCTO = 'TIPOPRODUCTO'; - fld_VentasEnProcesoPendientesCOLECCION = 'COLECCION'; - fld_VentasEnProcesoPendientesCOLOR = 'COLOR'; - fld_VentasEnProcesoPendientesTALLA = 'TALLA'; - fld_VentasEnProcesoPendientesINICIO = 'INICIO'; - fld_VentasEnProcesoPendientesFINAL = 'FINAL'; - fld_VentasEnProcesoPendientesIMPORTE = 'IMPORTE'; - - { VentasEnProcesoPendientes field indexes } - idx_VentasEnProcesoPendientesNUMINF = 0; - idx_VentasEnProcesoPendientesCLAVE1 = 1; - idx_VentasEnProcesoPendientesCLAVE2 = 2; - idx_VentasEnProcesoPendientesCLAVE3 = 3; - idx_VentasEnProcesoPendientesFECHA = 4; - idx_VentasEnProcesoPendientesDIA = 5; - idx_VentasEnProcesoPendientesDIASEMANA = 6; - idx_VentasEnProcesoPendientesMES = 7; - idx_VentasEnProcesoPendientesANO = 8; - idx_VentasEnProcesoPendientesCENTRO = 9; - idx_VentasEnProcesoPendientesVENDEDOR = 10; - idx_VentasEnProcesoPendientesNUMTALON = 11; - idx_VentasEnProcesoPendientesCODIGO = 12; - idx_VentasEnProcesoPendientesPRODUCTO = 13; - idx_VentasEnProcesoPendientesGRUPOPRODUCTO = 14; - idx_VentasEnProcesoPendientesTIPOPRODUCTO = 15; - idx_VentasEnProcesoPendientesCOLECCION = 16; - idx_VentasEnProcesoPendientesCOLOR = 17; - idx_VentasEnProcesoPendientesTALLA = 18; - idx_VentasEnProcesoPendientesINICIO = 19; - idx_VentasEnProcesoPendientesFINAL = 20; - idx_VentasEnProcesoPendientesIMPORTE = 21; - -type - { IVentasEnProcesoPendientes } - IVentasEnProcesoPendientes = interface(IDAStronglyTypedDataTable) - ['{75EFCBF2-47FD-4655-A865-27703C29C80D}'] - { Property getters and setters } - function GetNUMINFValue: String; - procedure SetNUMINFValue(const aValue: String); - function GetCLAVE1Value: Float; - procedure SetCLAVE1Value(const aValue: Float); - function GetCLAVE2Value: Integer; - procedure SetCLAVE2Value(const aValue: Integer); - function GetCLAVE3Value: Integer; - procedure SetCLAVE3Value(const aValue: Integer); - function GetFECHAValue: DateTime; - procedure SetFECHAValue(const aValue: DateTime); - function GetDIAValue: Integer; - procedure SetDIAValue(const aValue: Integer); - function GetDIASEMANAValue: String; - procedure SetDIASEMANAValue(const aValue: String); - function GetMESValue: String; - procedure SetMESValue(const aValue: String); - function GetANOValue: Integer; - procedure SetANOValue(const aValue: Integer); - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetVENDEDORValue: String; - procedure SetVENDEDORValue(const aValue: String); - function GetNUMTALONValue: String; - procedure SetNUMTALONValue(const aValue: String); - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetGRUPOPRODUCTOValue: String; - procedure SetGRUPOPRODUCTOValue(const aValue: String); - function GetTIPOPRODUCTOValue: String; - procedure SetTIPOPRODUCTOValue(const aValue: String); - function GetCOLECCIONValue: String; - procedure SetCOLECCIONValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetTALLAValue: String; - procedure SetTALLAValue(const aValue: String); - function GetINICIOValue: Float; - procedure SetINICIOValue(const aValue: Float); - function GetFINALValue: Float; - procedure SetFINALValue(const aValue: Float); - function GetIMPORTEValue: Float; - procedure SetIMPORTEValue(const aValue: Float); - - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property DIA: Integer read GetDIAValue write SetDIAValue; - property DIASEMANA: String read GetDIASEMANAValue write SetDIASEMANAValue; - property MES: String read GetMESValue write SetMESValue; - property ANO: Integer read GetANOValue write SetANOValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property GRUPOPRODUCTO: String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue; - property TIPOPRODUCTO: String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property INICIO: Float read GetINICIOValue write SetINICIOValue; - property FINAL: Float read GetFINALValue write SetFINALValue; - property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue; - end; - - { TVentasEnProcesoPendientesDataTableRules } - TVentasEnProcesoPendientesDataTableRules = class(TDADataTableRules, IVentasEnProcesoPendientes) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetDIAValue: Integer; virtual; - procedure SetDIAValue(const aValue: Integer); virtual; - function GetDIASEMANAValue: String; virtual; - procedure SetDIASEMANAValue(const aValue: String); virtual; - function GetMESValue: String; virtual; - procedure SetMESValue(const aValue: String); virtual; - function GetANOValue: Integer; virtual; - procedure SetANOValue(const aValue: Integer); virtual; - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetGRUPOPRODUCTOValue: String; virtual; - procedure SetGRUPOPRODUCTOValue(const aValue: String); virtual; - function GetTIPOPRODUCTOValue: String; virtual; - procedure SetTIPOPRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetINICIOValue: Float; virtual; - procedure SetINICIOValue(const aValue: Float); virtual; - function GetFINALValue: Float; virtual; - procedure SetFINALValue(const aValue: Float); virtual; - function GetIMPORTEValue: Float; virtual; - procedure SetIMPORTEValue(const aValue: Float); virtual; - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property DIA: Integer read GetDIAValue write SetDIAValue; - property DIASEMANA: String read GetDIASEMANAValue write SetDIASEMANAValue; - property MES: String read GetMESValue write SetMESValue; - property ANO: Integer read GetANOValue write SetANOValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property GRUPOPRODUCTO: String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue; - property TIPOPRODUCTO: String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property INICIO: Float read GetINICIOValue write SetINICIOValue; - property FINAL: Float read GetFINALValue write SetFINALValue; - property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TVentasEnProcesoPendientesDataTableRules } -constructor TVentasEnProcesoPendientesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TVentasEnProcesoPendientesDataTableRules.Destroy; -begin - inherited; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetNUMINFValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesNUMINF].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetNUMINFValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesNUMINF].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCLAVE1Value: Float; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCLAVE1].AsFloat; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCLAVE1Value(const aValue: Float); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCLAVE1].AsFloat := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCLAVE2Value: Integer; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCLAVE2].AsInteger; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCLAVE2Value(const aValue: Integer); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCLAVE2].AsInteger := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCLAVE3Value: Integer; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCLAVE3].AsInteger; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCLAVE3Value(const aValue: Integer); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCLAVE3].AsInteger := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetFECHAValue: DateTime; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesFECHA].AsDateTime; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetFECHAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesFECHA].AsDateTime := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetDIAValue: Integer; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesDIA].AsInteger; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetDIAValue(const aValue: Integer); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesDIA].AsInteger := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetDIASEMANAValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesDIASEMANA].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetDIASEMANAValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesDIASEMANA].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetMESValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesMES].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetMESValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesMES].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetANOValue: Integer; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesANO].AsInteger; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetANOValue(const aValue: Integer); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesANO].AsInteger := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCENTRO].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCENTRO].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetVENDEDORValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesVENDEDOR].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetVENDEDORValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesVENDEDOR].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetNUMTALONValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesNUMTALON].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetNUMTALONValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesNUMTALON].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCODIGO].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCODIGO].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesPRODUCTO].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesPRODUCTO].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetGRUPOPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesGRUPOPRODUCTO].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetGRUPOPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesGRUPOPRODUCTO].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetTIPOPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesTIPOPRODUCTO].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetTIPOPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesTIPOPRODUCTO].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCOLECCIONValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCOLECCION].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCOLECCIONValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCOLECCION].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesCOLOR].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesCOLOR].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetTALLAValue: String; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesTALLA].AsString; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetTALLAValue(const aValue: String); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesTALLA].AsString := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetINICIOValue: Float; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesINICIO].AsFloat; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetINICIOValue(const aValue: Float); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesINICIO].AsFloat := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetFINALValue: Float; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesFINAL].AsFloat; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetFINALValue(const aValue: Float); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesFINAL].AsFloat := aValue; -end; - -function TVentasEnProcesoPendientesDataTableRules.GetIMPORTEValue: Float; -begin - result := DataTable.Fields[idx_VentasEnProcesoPendientesIMPORTE].AsFloat; -end; - -procedure TVentasEnProcesoPendientesDataTableRules.SetIMPORTEValue(const aValue: Float); -begin - DataTable.Fields[idx_VentasEnProcesoPendientesIMPORTE].AsFloat := aValue; -end; - - -initialization - RegisterDataTableRules(RID_VentasEnProcesoPendientes, TVentasEnProcesoPendientesDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/schVentasEnProcesoServer_Intf.pas b/Varela/Varela/Source/Modulos/VentasProceso/Reglas/schVentasEnProcesoServer_Intf.pas deleted file mode 100644 index 62901ca..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/schVentasEnProcesoServer_Intf.pas +++ /dev/null @@ -1,541 +0,0 @@ -unit schVentasEnProcesoServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schVentasEnProcesoClient_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_VentasEnProcesoPendientesDelta = '{D3A9D8FB-B84C-4FD7-9DC6-FBBBA04E7878}'; - -type - { IVentasEnProcesoPendientesDelta } - IVentasEnProcesoPendientesDelta = interface(IVentasEnProcesoPendientes) - ['{D3A9D8FB-B84C-4FD7-9DC6-FBBBA04E7878}'] - { Property getters and setters } - function GetOldNUMINFValue : String; - function GetOldCLAVE1Value : Float; - function GetOldCLAVE2Value : Integer; - function GetOldCLAVE3Value : Integer; - function GetOldFECHAValue : DateTime; - function GetOldDIAValue : Integer; - function GetOldDIASEMANAValue : String; - function GetOldMESValue : String; - function GetOldANOValue : Integer; - function GetOldCENTROValue : String; - function GetOldVENDEDORValue : String; - function GetOldNUMTALONValue : String; - function GetOldCODIGOValue : String; - function GetOldPRODUCTOValue : String; - function GetOldGRUPOPRODUCTOValue : String; - function GetOldTIPOPRODUCTOValue : String; - function GetOldCOLECCIONValue : String; - function GetOldCOLORValue : String; - function GetOldTALLAValue : String; - function GetOldINICIOValue : Float; - function GetOldFINALValue : Float; - function GetOldIMPORTEValue : Float; - - { Properties } - property OldNUMINF : String read GetOldNUMINFValue; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldDIA : Integer read GetOldDIAValue; - property OldDIASEMANA : String read GetOldDIASEMANAValue; - property OldMES : String read GetOldMESValue; - property OldANO : Integer read GetOldANOValue; - property OldCENTRO : String read GetOldCENTROValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property OldCODIGO : String read GetOldCODIGOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldGRUPOPRODUCTO : String read GetOldGRUPOPRODUCTOValue; - property OldTIPOPRODUCTO : String read GetOldTIPOPRODUCTOValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldTALLA : String read GetOldTALLAValue; - property OldINICIO : Float read GetOldINICIOValue; - property OldFINAL : Float read GetOldFINALValue; - property OldIMPORTE : Float read GetOldIMPORTEValue; - end; - - { TVentasEnProcesoPendientesBusinessProcessorRules } - TVentasEnProcesoPendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IVentasEnProcesoPendientes, IVentasEnProcesoPendientesDelta) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - function GetOldNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetCLAVE1Value: Float; virtual; - function GetOldCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - function GetOldCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE3Value: Integer; virtual; - function GetOldCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetFECHAValue: DateTime; virtual; - function GetOldFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetDIAValue: Integer; virtual; - function GetOldDIAValue: Integer; virtual; - procedure SetDIAValue(const aValue: Integer); virtual; - function GetDIASEMANAValue: String; virtual; - function GetOldDIASEMANAValue: String; virtual; - procedure SetDIASEMANAValue(const aValue: String); virtual; - function GetMESValue: String; virtual; - function GetOldMESValue: String; virtual; - procedure SetMESValue(const aValue: String); virtual; - function GetANOValue: Integer; virtual; - function GetOldANOValue: Integer; virtual; - procedure SetANOValue(const aValue: Integer); virtual; - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetVENDEDORValue: String; virtual; - function GetOldVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetNUMTALONValue: String; virtual; - function GetOldNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCODIGOValue: String; virtual; - function GetOldCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetPRODUCTOValue: String; virtual; - function GetOldPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetGRUPOPRODUCTOValue: String; virtual; - function GetOldGRUPOPRODUCTOValue: String; virtual; - procedure SetGRUPOPRODUCTOValue(const aValue: String); virtual; - function GetTIPOPRODUCTOValue: String; virtual; - function GetOldTIPOPRODUCTOValue: String; virtual; - procedure SetTIPOPRODUCTOValue(const aValue: String); virtual; - function GetCOLECCIONValue: String; virtual; - function GetOldCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetTALLAValue: String; virtual; - function GetOldTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetINICIOValue: Float; virtual; - function GetOldINICIOValue: Float; virtual; - procedure SetINICIOValue(const aValue: Float); virtual; - function GetFINALValue: Float; virtual; - function GetOldFINALValue: Float; virtual; - procedure SetFINALValue(const aValue: Float); virtual; - function GetIMPORTEValue: Float; virtual; - function GetOldIMPORTEValue: Float; virtual; - procedure SetIMPORTEValue(const aValue: Float); virtual; - - { Properties } - property NUMINF : String read GetNUMINFValue write SetNUMINFValue; - property OldNUMINF : String read GetOldNUMINFValue; - property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property CLAVE3 : Integer read GetCLAVE3Value write SetCLAVE3Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property FECHA : DateTime read GetFECHAValue write SetFECHAValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property DIA : Integer read GetDIAValue write SetDIAValue; - property OldDIA : Integer read GetOldDIAValue; - property DIASEMANA : String read GetDIASEMANAValue write SetDIASEMANAValue; - property OldDIASEMANA : String read GetOldDIASEMANAValue; - property MES : String read GetMESValue write SetMESValue; - property OldMES : String read GetOldMESValue; - property ANO : Integer read GetANOValue write SetANOValue; - property OldANO : Integer read GetOldANOValue; - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property OldCODIGO : String read GetOldCODIGOValue; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property GRUPOPRODUCTO : String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue; - property OldGRUPOPRODUCTO : String read GetOldGRUPOPRODUCTOValue; - property TIPOPRODUCTO : String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue; - property OldTIPOPRODUCTO : String read GetOldTIPOPRODUCTOValue; - property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property TALLA : String read GetTALLAValue write SetTALLAValue; - property OldTALLA : String read GetOldTALLAValue; - property INICIO : Float read GetINICIOValue write SetINICIOValue; - property OldINICIO : Float read GetOldINICIOValue; - property FINAL : Float read GetFINALValue write SetFINALValue; - property OldFINAL : Float read GetOldFINALValue; - property IMPORTE : Float read GetIMPORTEValue write SetIMPORTEValue; - property OldIMPORTE : Float read GetOldIMPORTEValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TVentasEnProcesoPendientesBusinessProcessorRules } -constructor TVentasEnProcesoPendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TVentasEnProcesoPendientesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesNUMINF]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesNUMINF]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetNUMINFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesNUMINF] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCLAVE1]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCLAVE1]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCLAVE1] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCLAVE2]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCLAVE2]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCLAVE2] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCLAVE3]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCLAVE3]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCLAVE3Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCLAVE3] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesFECHA]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesFECHA]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesFECHA] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetDIAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesDIA]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldDIAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesDIA]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetDIAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesDIA] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetDIASEMANAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesDIASEMANA]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldDIASEMANAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesDIASEMANA]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetDIASEMANAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesDIASEMANA] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetMESValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesMES]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldMESValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesMES]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetMESValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesMES] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetANOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesANO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldANOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesANO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetANOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesANO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCENTRO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCENTRO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCENTRO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesVENDEDOR]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesVENDEDOR]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetVENDEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesVENDEDOR] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesNUMTALON]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesNUMTALON]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetNUMTALONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesNUMTALON] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCODIGO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCODIGO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCODIGO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesPRODUCTO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesPRODUCTO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesPRODUCTO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetGRUPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesGRUPOPRODUCTO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldGRUPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesGRUPOPRODUCTO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetGRUPOPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesGRUPOPRODUCTO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetTIPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesTIPOPRODUCTO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldTIPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesTIPOPRODUCTO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetTIPOPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesTIPOPRODUCTO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCOLECCION]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCOLECCION]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCOLECCION] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCOLOR]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesCOLOR]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesCOLOR] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesTALLA]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesTALLA]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetTALLAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesTALLA] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetINICIOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesINICIO]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldINICIOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesINICIO]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetINICIOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesINICIO] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetFINALValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesFINAL]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldFINALValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesFINAL]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetFINALValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesFINAL] := aValue; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetIMPORTEValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesIMPORTE]; -end; - -function TVentasEnProcesoPendientesBusinessProcessorRules.GetOldIMPORTEValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasEnProcesoPendientesIMPORTE]; -end; - -procedure TVentasEnProcesoPendientesBusinessProcessorRules.SetIMPORTEValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasEnProcesoPendientesIMPORTE] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID_VentasEnProcesoPendientesDelta, TVentasEnProcesoPendientesBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/uBizControlVentasProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Reglas/uBizControlVentasProceso.pas deleted file mode 100644 index ba8031f..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/uBizControlVentasProceso.pas +++ /dev/null @@ -1,69 +0,0 @@ -unit uBizControlVentasProceso; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uBizControlesBase, - uBizVentasProceso; - -const - BIZ_CONTROL_VENTASPROCESO = 'Client.Control_VentasProceso'; - -type - IBizControlVentasProceso = interface(IBizControlBase) - ['{3D515579-7374-444F-8983-8FFE1C7A38C4}'] - procedure SetItems(const Value : IBizVentasProceso); - function GetItems : IBizVentasProceso; - property Items : IBizVentasProceso read GetItems write SetItems; - end; - - TBizControlVentasProcesoTableRules = class(TBizControlBaseDataTableRules, IBizControlVentasProceso) - protected - FItems : IBizVentasProceso; - procedure OnNewRecord(Sender: TDADataTable); override; - procedure SetItems(const Value : IBizVentasProceso); virtual; - function GetItems : IBizVentasProceso; virtual; - public - procedure Show; override; - property Items : IBizVentasProceso read GetItems write SetItems; - end; - - -implementation - -uses - uEditorUtils, uDataModuleVentasProceso; - -{ TBizControlVentasProcesoTableRules } - -function TBizControlVentasProcesoTableRules.GetItems: IBizVentasProceso; -begin - Result := FItems; -end; - -procedure TBizControlVentasProcesoTableRules.OnNewRecord( - Sender: TDADataTable); -begin - inherited; - CATEGORIA := CATEGORIA_VENTAS_PROCESO -end; - -procedure TBizControlVentasProcesoTableRules.SetItems( - const Value: IBizVentasProceso); -begin - FItems := Value; -end; - -procedure TBizControlVentasProcesoTableRules.Show; -begin - inherited; - ShowEditor(IBizControlVentasProceso, Self, etItem); -end; - -initialization - RegisterDataTableRules(BIZ_CONTROL_VENTASPROCESO, TBizControlVentasProcesoTableRules); - -finalization -end. - - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/uBizVentasProceso.pas b/Varela/Varela/Source/Modulos/VentasProceso/Reglas/uBizVentasProceso.pas deleted file mode 100644 index fe6e9eb..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Reglas/uBizVentasProceso.pas +++ /dev/null @@ -1,88 +0,0 @@ -unit uBizVentasProceso; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces, - DataAbstract3_Intf, uROTypes, schVentasEnProcesoClient_Intf; - -const - BIZ_VENTASPROCESO = 'Client.VentasProceso'; - -type - IBizVentasProceso = interface(IVentasEnProcesoPendientes) - ['{FA9EC0B7-D12E-4088-8406-D9A86441C3B3}'] - function GetVisibleColumns: String; - procedure SetVisibleColumns(const Value: String); - property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; - end; - - TBizVentasProcesoDataTableRules = class(TVentasEnProcesoPendientesDataTableRules, IBizVentasProceso) - private - FVisibleColumns : String; - protected - function GetVisibleColumns: String; - procedure SetVisibleColumns(const Value: String); - procedure OnBeforeDataRequestCall(DataTable: TDADataTable; - Request: TDARemoteRequest); - procedure OnBeforeSchemaCall(DataTable: TDADataTable; - Request: TDARemoteRequest); - public - constructor Create(aDataTable: TDADataTable); override; - property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; - end; - - -implementation - -uses - uDataModuleVentasProceso; - -{ TBizVentasProcesoDataTableRules } - -constructor TBizVentasProcesoDataTableRules.Create( - aDataTable: TDADataTable); -begin - inherited; - if Assigned(DataTable) then - begin - DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall; - DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall; - end; -end; - -function TBizVentasProcesoDataTableRules.GetVisibleColumns: String; -begin - if Length(FVisibleColumns) = 0 then - FVisibleColumns := dmVentasEnProceso.GetNameColumns; - Result := FVisibleColumns -end; - -procedure TBizVentasProcesoDataTableRules.OnBeforeDataRequestCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('Columns').AsString := VisibleColumns; -end; - -procedure TBizVentasProcesoDataTableRules.OnBeforeSchemaCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('Columns').AsString := VisibleColumns; -end; - -procedure TBizVentasProcesoDataTableRules.SetVisibleColumns( - const Value: String); -begin - if Length(Value) > 0 then - FVisibleColumns := Value - else - FVisibleColumns := dmVentasEnProceso.GetNameColumns; -end; - -initialization - RegisterDataTableRules(BIZ_VENTASPROCESO, TBizVentasProcesoDataTableRules); - -finalization -end. - - diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.ddp b/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.dfm b/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.dfm deleted file mode 100644 index c54e5ac..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.dfm +++ /dev/null @@ -1,249 +0,0 @@ -object srvVentasEnProceso: TsrvVentasEnProceso - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schVentasEnProceso - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object schVentasEnProceso: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'SELECT '#10' TODAS.NUMINF, TODAS.CLAVE1, TODAS.CLAVE2, TODAS.CLAV' + - 'E3,'#10' TODAS.FECHA, TODAS.DIA, TODAS.DIASEMANA, TODAS.MES, TODA' + - 'S.ANO,'#10' TODAS.CENTRO, TODAS.VENDEDOR, TODAS.NUMTALON, TODAS.C' + - 'ODIGO,'#10' TODAS.PRODUCTO, TODAS.GRUPOPRODUCTO, TODAS.TIPOPRODUC' + - 'TO, TODAS.COLECCION,'#10' TODAS.COLOR, TODAS.TALLA, TODAS.INICIO,' + - ' TODAS.FINAL, TODAS.IMPORTE'#10' FROM'#10' RDX_V_VENTASPROCESOPEND' + - 'IENTES PENDIENTES LEFT JOIN RDX_V_VENTASPROCESO TODAS'#10'ON (TODAS.' + - 'NUMTALON = PENDIENTES.NUMTALON AND TODAS.CODIGO = PENDIENTES.COD' + - 'IGO AND'#10'TODAS.COLOR = PENDIENTES.COLOR AND TODAS.TALLA = PENDIEN' + - 'TES.TALLA)' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMINF' - TableField = 'NUMINF' - end - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'CLAVE2' - TableField = 'CLAVE2' - end - item - DatasetField = 'CLAVE3' - TableField = 'CLAVE3' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'VENDEDOR' - TableField = 'VENDEDOR' - end - item - DatasetField = 'NUMTALON' - TableField = 'NUMTALON' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'TALLA' - TableField = 'TALLA' - end - item - DatasetField = 'IMPORTE' - TableField = 'IMPORTE' - end - item - DatasetField = 'INICIO' - TableField = 'INICIO' - end - item - DatasetField = 'FINAL' - TableField = 'FINAL' - end - item - DatasetField = 'DIA' - TableField = 'DIA' - end - item - DatasetField = 'DIASEMANA' - TableField = 'DIASEMANA' - end - item - DatasetField = 'MES' - TableField = 'MES' - end - item - DatasetField = 'ANO' - TableField = 'ANO' - end - item - DatasetField = 'GRUPOPRODUCTO' - TableField = 'GRUPOPRODUCTO' - end - item - DatasetField = 'TIPOPRODUCTO' - TableField = 'TIPOPRODUCTO' - end - item - DatasetField = 'COLECCION' - TableField = 'COLECCION' - end> - end> - Name = 'VentasEnProcesoPendientes' - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - InPrimaryKey = True - end - item - Name = 'CLAVE1' - DataType = datFloat - InPrimaryKey = True - end - item - Name = 'CLAVE2' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'CLAVE3' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - end - item - Name = 'DIA' - DataType = datInteger - end - item - Name = 'DIASEMANA' - DataType = datString - Size = 30 - end - item - Name = 'MES' - DataType = datString - Size = 30 - end - item - Name = 'ANO' - DataType = datInteger - end - item - Name = 'CENTRO' - DataType = datString - Size = 25 - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 66 - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - end - item - Name = 'GRUPOPRODUCTO' - DataType = datString - Size = 25 - end - item - Name = 'TIPOPRODUCTO' - DataType = datString - Size = 25 - end - item - Name = 'COLECCION' - DataType = datString - Size = 6 - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - end - item - Name = 'TALLA' - DataType = datString - Size = 8 - end - item - Name = 'INICIO' - DataType = datFloat - Alignment = taRightJustify - end - item - Name = 'FINAL' - DataType = datFloat - Alignment = taRightJustify - end - item - Name = 'IMPORTE' - DataType = datFloat - Alignment = taRightJustify - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 48 - Top = 32 - end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.pas b/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.pas deleted file mode 100644 index 3d8fe32..0000000 --- a/Varela/Varela/Source/Modulos/VentasProceso/Servidor/srvVentasEnProceso_Impl.pas +++ /dev/null @@ -1,135 +0,0 @@ -unit srvVentasEnProceso_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDABusinessProcessor, - uDAInterfaces, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TsrvVentasEnProceso } - TsrvVentasEnProceso = class(TDARemoteService, IsrvVentasEnProceso) - DABINAdapter: TDABINAdapter; - schVentasEnProceso: TDASchema; - private - protected - function GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; - function GetSchema(const DatasetName: String; const Columns: String): Binary; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer, uSchemaUtilsServer; - -const - CAMPOS_SUMA = '#INICIO#FINAL#IMPORTE#'; - -procedure Create_srvVentasEnProceso(out anInstance : IUnknown); -begin - anInstance := TsrvVentasEnProceso.Create(NIL); -end; - -{ TsrvVentasEnProceso } - -function TsrvVentasEnProceso.GetData(const DatasetName: String; - const Columns: String; const Params: String; - const MaxRecords: Integer): Binary; -var - ds : IDADataset; - i : integer; - pars: TStringList; - parnames: array of string; - parvalues: array of Variant; -begin - pars := TStringList.Create; - result := Binary.Create; - try - try - pars.Text := Params; - SetLength(parnames, pars.Count); - SetLength(parvalues, pars.Count); - for i := 0 to (pars.Count-1) do begin - parnames[i] := pars.Names[i]; - parvalues[i] := pars.Values[pars.Names[i]]; - end; - - { Prepares the parameter arrays} - - with TReplicarDataSet.Create do - begin - SourceDataSetName := DatasetName; - Service := Self; - Columnas := Columns; - ColumnasQueSuman := CAMPOS_SUMA; - try - ds := GetNewDataSet; - finally - Free; - end; - end; - - // Fills the parameters (if any are specified) - if (Length(parnames) > 0) then - begin - for i := 0 to (Length(parnames) - 1) do - ds.ParamByName(parnames[i]).Value := parvalues[i]; - end; - - ds.Open; - ServiceAdapter.WriteDataset(Result, ds, [woRows], MaxRecords); - except - FreeAndNIl(result); - raise; - end; - finally - FreeANDNil(pars); - end; -end; - - -function TsrvVentasEnProceso.GetSchema(const DatasetName, - Columns: String): Binary; -var - ds : IDADataset; -begin - result := Binary.Create; - try - with TReplicarDataSet.Create do - begin - SourceDataSetName := DatasetName; - Service := Self; - Columnas := Columns; - ColumnasQueSuman := CAMPOS_SUMA; - try - ds := GetNewDataSet; - finally - Free; - end; - end; - - ServiceAdapter.WriteDataset(result, ds, [woSchema]); - except - FreeAndNIl(result); - raise; - end; -end; - -initialization - TROClassFactory.Create('srvVentasEnProceso', Create_srvVentasEnProceso, TsrvVentasEnProceso_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.bdsproj b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.bdsproj deleted file mode 100644 index 92783e2..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - VentasTerminadas.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 0 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\..\Lib - ..\..\..\Lib - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.cfg b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.cfg deleted file mode 100644 index 396e927..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\..\..\Output\Cliente" --LN"..\..\..\Lib" --U"..\..\..\Lib" --O"..\..\..\Lib" --I"..\..\..\Lib" --R"..\..\..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dof b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dof deleted file mode 100644 index 67fc858..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dof +++ /dev/null @@ -1,474 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=0 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\..\..\Output\Cliente -PackageDCPOutputDir=..\..\..\Lib -SearchPath=..\..\..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=2 -Item0=..\..\..\Lib -Item1=..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlBPLOutput] -Count=2 -Item0=..\..\..\..\Output\Cliente -Item1=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\..\..\Lib -Item1=..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=0 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=0 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=1 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dpk b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dpk deleted file mode 100644 index c9847eb..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.dpk +++ /dev/null @@ -1,84 +0,0 @@ -package VentasTerminadas; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION OFF} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$IMPLICITBUILD ON} - -requires - BaseD10, - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - GUISDK_D10, - dbrtl, - dsnap, - adortl, - tb2k_D10, - tbx_D10, - JvCoreD10R, - vcljpg, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - cxTreeListD10, - dxThemeD10, - cxLibraryD10, - cxExportD10, - cxEditorsD10, - cxDataD10, - vcldb, - cxGridD10, - cxPageControlD10, - cxExtEditorsD10, - dxPSCoreD10, - dxComnD10, - dxPScxCommonD10, - dxPSLnksD10, - designide, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - ControlesBaseD10; - -contains - uPluginControllerVentasTerminadas in 'uPluginControllerVentasTerminadas.pas' {ModuleVentasTerminadas: TModuleController}, - uDataModuleVentasTerminadas in 'uDataModuleVentasTerminadas.pas' {dmVentasTerminadas: TDAClientDataModule}, - uBizVentasTerminadas in '..\Reglas\uBizVentasTerminadas.pas', - uBizControlVentasTerminadas in '..\Reglas\uBizControlVentasTerminadas.pas', - uEditorControlesVentasTerminadas in 'uEditorControlesVentasTerminadas.pas' {fEditorControlesVentasTerminadas: TCustomEditor}, - uViewControlesVentasTerminadas in 'uViewControlesVentasTerminadas.pas' {frViewControlesVentasTerminadas: TCustomView}, - uViewControlVentasTerminadas in 'uViewControlVentasTerminadas.pas' {frViewControlVentasTerminadas: TCustomView}, - uEditorControlVentasTerminadas in 'uEditorControlVentasTerminadas.pas' {fEditorControlVentasTerminadas: TCustomEditor}, - uViewControGridlVentasTerminadas in 'uViewControGridlVentasTerminadas.pas' {frViewControlGridVentasTerminadas: TCustomView}, - uViewControGridResumenVentas in 'uViewControGridResumenVentas.pas' {frViewControlGridResumenVentas: TCustomView}, - uEditorControlResumenVentas in 'uEditorControlResumenVentas.pas' {fEditorControlResumenVentas: TCustomEditor}, - schVentasTerminadasClient_Intf in '..\Reglas\schVentasTerminadasClient_Intf.pas', - schVentasTerminadasServer_Intf in '..\Reglas\schVentasTerminadasServer_Intf.pas'; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.identcache b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.identcache deleted file mode 100644 index 2c70333..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.rc b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.res b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.res and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/_uEditorControlVentasTerminadasCrossTab.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/_uEditorControlVentasTerminadasCrossTab.dfm deleted file mode 100644 index 4375ece..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/_uEditorControlVentasTerminadasCrossTab.dfm +++ /dev/null @@ -1,1611 +0,0 @@ -inherited fEditorControlVentasTerminadasCrossTab: TfEditorControlVentasTerminadasCrossTab - Left = 366 - Top = 147 - Width = 687 - Height = 607 - Caption = 'fEditorControlVentasTerminadasCrossTab' - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 679 - inherited Image1: TImage - Left = 652 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C - 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 - 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF - EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 - B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B - 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 - 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF - 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C - 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 - C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 - 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 - 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 - 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 - FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 - 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 - B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F - 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 - A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F - E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 - B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 - F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 - 3F01A44422D9EF203E7B0000000049454E44AE426082} - end - end - inherited TBXDock: TTBXDock - Width = 679 - inherited tbxMain: TTBXToolbar - object edtMes: TTBXComboBoxItem [0] - Caption = 'Mes' - Strings.Strings = ( - 'Enero' - 'Febrero' - 'Marzo' - 'Abril' - 'Mayo' - 'Junio' - 'Julio' - 'Agosto' - 'Septiembre' - 'Octubre' - 'Noviembre' - 'Diciembre') - end - object edtAno: TTBXSpinEditItem [1] - Caption = 'A'#241'o' - SpaceAfterPrefix = False - SpaceBeforePostfix = False - end - inherited TBXItem33: TTBXItem - Visible = False - end - object TBXSeparatorItem16: TTBXSeparatorItem [15] - end - object tbxiExpandir: TTBXItem [16] - Action = actExpandir - end - object tbxiContraer: TTBXItem [17] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [18] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem37: TTBXItem [0] - Action = actExpandir - end - object TBXItem36: TTBXItem [1] - Action = actContraer - end - object TBXItem35: TTBXItem [2] - Action = actAnchoAuto - end - object TBXSeparatorItem17: TTBXSeparatorItem [3] - end - end - end - inherited tbxFiltro: TTBXToolbar - Left = 438 - end - end - inherited StatusBar: TStatusBar - Top = 554 - Width = 679 - end - inline frViewControlGridResumenVentas1: TfrViewControlGridResumenVentas [3] - Left = 0 - Top = 76 - Width = 679 - Height = 478 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - inherited cxGrid: TcxGrid - Width = 679 - Height = 478 - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - ReportDocument.CreationDate = 38952.790681423610000000 - BuiltInReportLink = True - end - end - end - inherited EditorActionList: TActionList [4] - inherited actNuevo: TAction - Visible = False - end - inherited actModificar: TAction - Visible = False - end - inherited actEliminar: TAction - Visible = False - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - Visible = False - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - Visible = False - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - end - end - inherited SmallImages: TPngImageList [5] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] - end - object dsVentasTerminadas: TDADataSource - Left = 320 - Top = 232 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/_uViewControGridlVentasTerminadasCrossTab.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/_uViewControGridlVentasTerminadasCrossTab.dfm deleted file mode 100644 index 76a3061..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/_uViewControGridlVentasTerminadasCrossTab.dfm +++ /dev/null @@ -1,204 +0,0 @@ -inherited frViewControlGridVentasTerminadasCrossTab: TfrViewControlGridVentasTerminadasCrossTab - inherited cxGrid: TcxGrid - inherited cxGridView: TcxGridDBTableView - OnCustomDrawCell = cxGridViewCustomDrawCell - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = '0,0 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end> - OptionsView.CellAutoHeight = False - OptionsView.FooterAutoHeight = False - Preview.AutoHeight = False - end - end - inherited dsDataSource: TDADataSource - OnStateChange = dsDataSourceStateChange - end - inherited dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.Orientation = poLandscape - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.Caption = 'Venta mensual' - ReportDocument.CreationDate = 38952.779695636570000000 - ReportTitle.Text = 'Venta mensual' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = 10 - Font.Name = 'Tahoma' - Font.Style = [] - OptionsFormatting.UseNativeStyles = True - OptionsView.Caption = False - OptionsView.FilterBar = False - BuiltInReportLink = True - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleDia: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clInactiveCaptionText - TextColor = clHighlightText - end - object cxStyleTotal: TcxStyle - AssignedValues = [svFont] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - object cxStyleImporte: TcxStyle - end - end - object cxEditRepository1: TcxEditRepository - Left = 32 - Top = 88 - object cxEditDia: TcxEditRepositoryTextItem - end - object cxEditImporte: TcxEditRepositoryCurrencyItem - Properties.Alignment.Horz = taRightJustify - Properties.UseThousandSeparator = True - end - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm deleted file mode 100644 index 700e83c..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm +++ /dev/null @@ -1,576 +0,0 @@ -object dmVentasTerminadas: TdmVentasTerminadas - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 363 - Width = 600 - object RORemoteService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvVentasTerminadas' - Left = 48 - Top = 20 - end - object tbl_VentasTerminadas2: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = < - item - Name = 'FECHAINI' - DataType = datString - Value = '2006/01/01' - ParamType = daptInput - end - item - Name = 'FECHAFIN' - DataType = datString - Value = '2006/12/12' - ParamType = daptInput - end> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter_VentasTerminadas2 - LocalDataStreamer = DABinDataStreamer1 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'VentasTerminadas' - IndexDefs = <> - Left = 464 - Top = 72 - end - object tbl_VentasTerminadasCrossTab: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = < - item - Name = 'fechaini' - DataType = datString - Value = '' - ParamType = daptInput - end - item - Name = 'fechafin' - DataType = datString - Value = '' - ParamType = daptInput - end - item - Name = 'coleccion' - DataType = datString - Value = '%' - ParamType = daptInput - end> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapterCrossTab - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'VentasTerminadasCrossTab' - IndexDefs = <> - Left = 216 - Top = 224 - end - object ds_VentasTerminadasCrossTab: TDADataSource - DataSet = tbl_VentasTerminadasCrossTab.Dataset - DataTable = tbl_VentasTerminadasCrossTab - Left = 216 - Top = 288 - end - object DARemoteDataAdapterCrossTab: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaCrossTab' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'FechaIni' - DataType = rtString - Flag = fIn - Value = '01/01/2007' - end - item - Name = 'FechaFin' - DataType = rtString - Flag = fIn - Value = '31/01/2007' - end - item - Name = 'Coleccion' - DataType = rtString - Flag = fIn - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDataCrossTab' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'FechaIni' - DataType = rtString - Flag = fIn - Value = '01/01/2007' - end - item - Name = 'FechaFin' - DataType = rtString - Flag = fIn - Value = '31/01/2007' - end - item - Name = 'Coleccion' - DataType = rtString - Flag = fIn - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = dmBase.DABINAdapter - Left = 216 - Top = 168 - end - object DARemoteDataAdapter_VentasTerminadas2: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchema' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'VentasTerminadas' - end - item - Name = 'Columns' - DataType = rtString - Flag = fIn - Value = Null - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'VentasTerminadas' - end - item - Name = 'Columns' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - Value = -1 - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = RORemoteService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = RORemoteService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = RORemoteService - DataStreamer = DABinDataStreamer1 - Left = 464 - Top = 16 - end - object DABinDataStreamer1: TDABinDataStreamer - IsCompatibleV4 = False - Left = 48 - Top = 96 - end - object DARemoteDataAdapter_VentasTerminadas: TDARemoteDataAdapter - GetSchemaCall.RemoteService = RORemoteService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = RORemoteService - GetDataCall.MethodName = 'GetDatasetDataEx' - GetDataCall.Params = < - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - Value = Null - end - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - Value = 'VentasTerminadas' - end - item - Name = 'Params' - DataType = rtUserDefined - Flag = fIn - TypeName = 'TDADatasetParamArray' - Value = Null - end - item - Name = 'UserFilter' - DataType = rtString - Flag = fIn - Value = Null - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - Value = True - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - Value = -1 - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - UpdateDataCall.RemoteService = RORemoteService - GetScriptsCall.RemoteService = RORemoteService - RemoteService = RORemoteService - DataStreamer = DABinDataStreamer1 - Left = 216 - Top = 16 - end - object tbl_VentasTerminadas: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - InPrimaryKey = True - end - item - Name = 'CLAVE1' - DataType = datDecimal - InPrimaryKey = True - end - item - Name = 'CLAVE2' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'CLAVE3' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - DisplayLabel = 'Fecha' - end - item - Name = 'DIA' - DataType = datInteger - DisplayLabel = 'D'#237'a' - end - item - Name = 'DIASEMANA' - DataType = datWideString - Size = 30 - DisplayLabel = 'D'#237'a de la semana' - end - item - Name = 'MES' - DataType = datWideString - Size = 30 - DisplayLabel = 'Mes' - end - item - Name = 'ANO' - DataType = datInteger - DisplayLabel = 'A'#241'o' - end - item - Name = 'CENTRO' - DataType = datString - Size = 25 - DisplayLabel = 'Centro' - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 66 - DisplayLabel = 'Vendedor' - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DisplayLabel = 'C'#243'digo producto' - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DisplayLabel = 'Producto' - end - item - Name = 'GRUPOPRODUCTO' - DataType = datString - Size = 25 - DisplayLabel = 'Grupo' - end - item - Name = 'TIPOPRODUCTO' - DataType = datString - Size = 25 - DisplayLabel = 'Tipo' - end - item - Name = 'COLECCION' - DataType = datString - Size = 6 - DisplayLabel = 'Colecci'#243'n' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DisplayLabel = 'Color' - end - item - Name = 'TALLA' - DataType = datString - Size = 8 - DisplayLabel = 'Talla' - Alignment = taRightJustify - end - item - Name = 'TALLA38' - DataType = datDecimal - DisplayLabel = '38' - Alignment = taRightJustify - end - item - Name = 'TALLA40' - DataType = datDecimal - DisplayLabel = '40' - Alignment = taRightJustify - end - item - Name = 'TALLA42' - DataType = datDecimal - DisplayLabel = '42' - Alignment = taRightJustify - end - item - Name = 'TALLA44' - DataType = datDecimal - DisplayLabel = '44' - Alignment = taRightJustify - end - item - Name = 'TALLA46' - DataType = datDecimal - DisplayLabel = '46' - Alignment = taRightJustify - end - item - Name = 'TALLA48' - DataType = datDecimal - DisplayLabel = '48' - Alignment = taRightJustify - end - item - Name = 'VTATERMDEV' - DataType = datDecimal - DisplayLabel = 'Vta.Term/Dev' - Alignment = taRightJustify - end - item - Name = 'VTAFINALRESC' - DataType = datDecimal - DisplayLabel = 'Vta.Final/Resc' - Alignment = taRightJustify - end - item - Name = 'VENTAS' - DataType = datDecimal - DisplayLabel = 'Ventas' - Alignment = taRightJustify - end - item - Name = 'DEVOLUCIONES' - DataType = datDecimal - DisplayLabel = 'Devoluciones' - Alignment = taRightJustify - end - item - Name = 'TOTAL' - DataType = datDecimal - DisplayLabel = 'Total ventas' - Alignment = taRightJustify - end - item - Name = 'VALTERMDEV' - DataType = datDecimal - DisplayLabel = 'Val.Term/Dev' - Alignment = taRightJustify - end - item - Name = 'VALFINALRESC' - DataType = datDecimal - DisplayLabel = 'Val.Final/Resc' - Alignment = taRightJustify - end - item - Name = 'VALVEN' - DataType = datDecimal - DisplayLabel = 'Imp. ventas' - Alignment = taRightJustify - end - item - Name = 'VALDEV' - DataType = datDecimal - DisplayLabel = 'Imp. devoluciones' - Alignment = taRightJustify - end - item - Name = 'VALTOT' - DataType = datDecimal - DisplayLabel = 'Imp. Total' - Alignment = taRightJustify - end> - Params = < - item - Name = 'FECHAINI' - Value = '' - ParamType = daptInput - end - item - Name = 'FECHAFIN' - Value = '' - ParamType = daptInput - end> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter_VentasTerminadas - LocalDataStreamer = DABinDataStreamer1 - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'VentasTerminadas' - IndexDefs = <> - Left = 216 - Top = 72 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.pas deleted file mode 100644 index 57a300c..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.pas +++ /dev/null @@ -1,127 +0,0 @@ -unit uDataModuleVentasTerminadas; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter, - uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, - uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable, - uBizVentasTerminadas, uBizControlVentasTerminadas, uDARemoteDataAdapter, - uDAInterfaces, uDAMemDataTable, uDADataStreamer; - -const - CATEGORIA_VENTA_TERMINADA = 'VENTATERMINADA'; - -type - TdmVentasTerminadas = class(TDAClientDataModule) - RORemoteService: TRORemoteService; - tbl_VentasTerminadas2: TDACDSDataTable; - tbl_VentasTerminadasCrossTab: TDACDSDataTable; - ds_VentasTerminadasCrossTab: TDADataSource; - DARemoteDataAdapterCrossTab: TDARemoteDataAdapter; - DARemoteDataAdapter_VentasTerminadas2: TDARemoteDataAdapter; - DABinDataStreamer1: TDABinDataStreamer; - DARemoteDataAdapter_VentasTerminadas: TDARemoteDataAdapter; - tbl_VentasTerminadas: TDACDSDataTable; - procedure DAClientDataModuleCreate(Sender: TObject); - protected - function GetItems : IBizVentasTerminadas; - public - function GetNameColumns: String; - function GetControl: IBizControlVentasTerminadas; - function GetItemsCrossTab : IBizResumenVentas; - end; - -var - dmVentasTerminadas: TdmVentasTerminadas; - -implementation - -{$R *.DFM} - -uses - Controls, Forms, DataAbstract3_Intf, uDataTableUtils, - uROTypes, uEditorPreview, Dialogs, uDataModuleControles, - uDataModuleBase, uDBSelectionList, schVentasTerminadasClient_Intf, cxControls; - - -procedure TdmVentasTerminadas.DAClientDataModuleCreate(Sender: TObject); -begin - RORemoteService.Channel := dmBase.Channel; - RORemoteService.Message := dmBase.Message; -end; - -function TdmVentasTerminadas.GetControl: IBizControlVentasTerminadas; -var - aDataTable : TDACDSDataTable; -begin - aDataTable := dmControles.GetItems(CATEGORIA_VENTA_TERMINADA); - aDataTable.BusinessRulesID := BIZ_CONTROL_VENTASTERMINADAS; - - (aDataTable as IBizControlVentasTerminadas).Items := GetItems; - Result := (aDataTable as IBizControlVentasTerminadas); -end; - -function TdmVentasTerminadas.GetItems: IBizVentasTerminadas; -var - dtVentas: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtVentas := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_VentasTerminadas2, dtVentas); - dtVentas.Fields.AssignFieldCollection(tbl_VentasTerminadas.Fields); - dtVentas.BusinessRulesID := BIZ_VENTASTERMINADAS; - - dtVentas.FieldByName(fld_VentasTerminadasNUMINF).Visible := False; - dtVentas.FieldByName(fld_VentasTerminadasCLAVE1).Visible := False; - dtVentas.FieldByName(fld_VentasTerminadasCLAVE2).Visible := False; - dtVentas.FieldByName(fld_VentasTerminadasCLAVE3).Visible := False; - - dtVentas.LoadSchema; - Result := (dtVentas as IBizVentasTerminadas); - finally - HideHourglassCursor; - end; -end; - - -function TdmVentasTerminadas.GetItemsCrossTab: IBizResumenVentas; -var - dtVentas: TDACDSDataTable; -begin - ShowHourglassCursor; - try - dtVentas := TDACDSDataTable.Create(NIL); - CloneDataTable(tbl_VentasTerminadasCrossTab, dtVentas); - dtVentas.BusinessRulesID := BIZ_RESUMENVENTAS; - Result := (dtVentas as IBizResumenVentas); - finally - HideHourglassCursor; - end; -end; - -function TdmVentasTerminadas.GetNameColumns: String; -var - AList : TStringList; - i : integer; -begin - AList := TStringList.Create; - try - for i := 0 to tbl_VentasTerminadas.FieldCount - 1 do - if tbl_VentasTerminadas.Fields[i].Visible then - AList.Add(tbl_VentasTerminadas.Fields[i].Name); - Result := AList.CommaText; - finally - FreeAndNil(AList); - end; -end; - -initialization - dmVentasTerminadas := TdmVentasTerminadas.Create(nil); - -finalization - FreeAndNil(dmVentasTerminadas); - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.dfm deleted file mode 100644 index 2812d8b..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.dfm +++ /dev/null @@ -1,1700 +0,0 @@ -inherited fEditorControlResumenVentas: TfEditorControlResumenVentas - Left = 419 - Top = 239 - Caption = 'Resumen de ventas' - ClientHeight = 573 - ClientWidth = 679 - ExplicitWidth = 687 - ExplicitHeight = 607 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 679 - ExplicitWidth = 679 - inherited Image1: TImage - Left = 652 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C - 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 - 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF - EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 - B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B - 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 - 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF - 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C - 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 - C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 - 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 - 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 - 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 - FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 - 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 - B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F - 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 - A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F - E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 - B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 - F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 - 3F01A44422D9EF203E7B0000000049454E44AE426082} - ExplicitLeft = 652 - end - end - inherited TBXDock: TTBXDock - Width = 679 - ExplicitWidth = 679 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 469 - object TBXLabelItem2: TTBXLabelItem [0] - Caption = ' Mes:' - end - object edtMes: TTBXComboBoxItem [1] - Caption = 'Mes:' - EditWidth = 110 - DropDownList = True - MaxVisibleItems = 12 - MinListWidth = 100 - Strings.Strings = ( - 'Enero' - 'Febrero' - 'Marzo' - 'Abril' - 'Mayo' - 'Junio' - 'Julio' - 'Agosto' - 'Septiembre' - 'Octubre' - 'Noviembre' - 'Diciembre') - end - object TBXLabelItem3: TTBXLabelItem [2] - Caption = ' A'#241'o:' - end - object edtAno: TTBXSpinEditItem [3] - Caption = 'A'#241'o:' - SpaceAfterPrefix = False - SpaceBeforePostfix = False - end - object TBXLabelItem4: TTBXLabelItem [4] - Caption = ' Colecci'#243'n:' - end - object edtColeccion: TTBXEditItem [5] - Caption = 'Colecci'#243'n:' - ExtendedAccept = True - end - object TBXSeparatorItem19: TTBXSeparatorItem [6] - Blank = True - end - inherited TBXItem6: TTBXItem [7] - DisplayMode = nbdmImageAndText - end - object TBXSeparatorItem18: TTBXSeparatorItem [8] - end - inherited TBXItem2: TTBXItem [9] - end - inherited TBXSeparatorItem1: TTBXSeparatorItem [10] - end - inherited TBXItem29: TTBXItem [11] - end - inherited TBXItem27: TTBXItem [12] - end - inherited TBXItem5: TTBXItem [13] - end - inherited TBXItem4: TTBXItem [14] - end - inherited TBXSeparatorItem14: TTBXSeparatorItem [15] - end - inherited TBXItem33: TTBXItem [16] - Visible = False - end - inherited TBXSeparatorItem3: TTBXSeparatorItem [17] - end - inherited TBXItem23: TTBXItem [18] - end - inherited TBXSeparatorItem2: TTBXSeparatorItem [19] - end - inherited TBXItem24: TTBXItem [20] - end - inherited TBXItem3: TTBXItem [21] - end - object TBXSeparatorItem16: TTBXSeparatorItem [22] - end - object tbxiExpandir: TTBXItem [23] - Action = actExpandir - end - object tbxiContraer: TTBXItem [24] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [25] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - inherited TBXSeparatorItem10: TTBXSeparatorItem [26] - end - inherited TBXItem26: TTBXItem [27] - end - inherited TBXItem25: TTBXItem [28] - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 679 - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem37: TTBXItem [0] - Action = actExpandir - end - object TBXItem36: TTBXItem [1] - Action = actContraer - end - object TBXItem35: TTBXItem [2] - Action = actAnchoAuto - end - object TBXSeparatorItem17: TTBXSeparatorItem [3] - end - end - end - inherited tbxFiltro: TTBXToolbar - Left = 469 - Visible = False - ExplicitLeft = 469 - end - end - inherited StatusBar: TStatusBar - Top = 554 - Width = 679 - ExplicitTop = 554 - ExplicitWidth = 679 - end - inline frViewControlGridResumenVentas1: TfrViewControlGridResumenVentas [3] - Left = 0 - Top = 76 - Width = 679 - Height = 284 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitTop = 76 - ExplicitWidth = 679 - ExplicitHeight = 478 - inherited cxGrid: TcxGrid - Width = 679 - Height = 284 - ExplicitWidth = 679 - ExplicitHeight = 478 - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink1: TdxGridReportLink - ReportDocument.CreationDate = 38952.790681423610000000 - BuiltInReportLink = True - end - end - end - object DBGrid1: TDBGrid [4] - Left = 0 - Top = 360 - Width = 679 - Height = 194 - Align = alBottom - DataSource = dsDataTable - TabOrder = 4 - TitleFont.Charset = DEFAULT_CHARSET - TitleFont.Color = clWindowText - TitleFont.Height = -11 - TitleFont.Name = 'Tahoma' - TitleFont.Style = [] - end - inherited EditorActionList: TActionList [5] - inherited actNuevo: TAction - Visible = False - end - inherited actModificar: TAction - Visible = False - end - inherited actEliminar: TAction - Visible = False - end - inherited actRefrescar: TAction - Caption = 'Ir' - ImageIndex = 16 - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - Visible = False - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - Visible = False - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - end - end - inherited SmallImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [7] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [8] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] - end - object dsVentasTerminadas: TDADataSource - Left = 320 - Top = 232 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.pas deleted file mode 100644 index 0abc4e6..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlResumenVentas.pas +++ /dev/null @@ -1,156 +0,0 @@ -unit uEditorControlResumenVentas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlBase, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uBizControlesBase, - uCustomView, uViewBase, uViewControlBase, Grids, DBGrids, pngimage, - uViewControlVentasTerminadas, uEditorGridBase, uViewGridBase, uViewGrid, - uViewControGridResumenVentas, Menus, TB2ExtItems, TBXExtItems, - uBizVentasTerminadas, StdCtrls, uDAInterfaces; - -type - IEditorControlResumenVentas = interface(IEditorGridBase) - ['{FC3218D5-319A-4ECF-88E9-0CB8655EDFA9}'] - function GetItems: IBizResumenVentas; - procedure SetItems(const Value: IBizResumenVentas); - property Items: IBizResumenVentas read GetItems write SetItems; - end; - - TfEditorControlResumenVentas = class(TfEditorGridBase, IEditorControlResumenVentas) - dsVentasTerminadas: TDADataSource; - TBXSeparatorItem16: TTBXSeparatorItem; - tbxiExpandir: TTBXItem; - tbxiContraer: TTBXItem; - tbxiAnchoAuto: TTBXItem; - actExpandir: TAction; - actContraer: TAction; - actAnchoAuto: TAction; - TBXItem37: TTBXItem; - TBXItem36: TTBXItem; - TBXItem35: TTBXItem; - TBXSeparatorItem17: TTBXSeparatorItem; - edtMes: TTBXComboBoxItem; - edtAno: TTBXSpinEditItem; - frViewControlGridResumenVentas1: TfrViewControlGridResumenVentas; - TBXLabelItem2: TTBXLabelItem; - TBXLabelItem3: TTBXLabelItem; - TBXSeparatorItem18: TTBXSeparatorItem; - edtColeccion: TTBXEditItem; - TBXLabelItem4: TTBXLabelItem; - TBXSeparatorItem19: TTBXSeparatorItem; - DBGrid1: TDBGrid; - procedure actAnchoAutoExecute(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure actRefrescarExecute(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - protected - FItems : IBizResumenVentas; - function GetItems: IBizResumenVentas; - procedure SetItems(const Value: IBizResumenVentas); - public - property Items: IBizResumenVentas read GetItems write SetItems; - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -uses - cxControls, uEditorUtils, DateUtils, uROClasses, cxGridTableView, uCustomEditor, uEditorBase; - -{$R *.dfm} - -{ TfEditorControlVentasTerminadas } - -procedure TfEditorControlResumenVentas.actAnchoAutoExecute(Sender: TObject); -begin - inherited; - frViewControlGridResumenVentas1.AjustarAncho; -end; - -procedure TfEditorControlResumenVentas.FormShow(Sender: TObject); -begin - inherited; - - if not Assigned(FItems) then - raise Exception.Create('No hay items asignados'); - - if not Assigned(ViewGrid) then - raise Exception.Create('No hay una vista asignada'); - - //Inicializar - edtMes.ItemIndex := (MonthOf(Today)-1); - edtAno.Value := YearOf(Today); -end; - -procedure TfEditorControlResumenVentas.actImprimirExecute(Sender: TObject); -begin - inherited; - frViewControlGridResumenVentas1.Print(edtMes.Text, edtAno.Text); -end; - -constructor TfEditorControlResumenVentas.Create(AOwner: TComponent); -begin - inherited; - ViewGrid := frViewControlGridResumenVentas1; - Self.Caption := 'Resumen de ventas mensuales por centro'; - JvNavPanelHeader.Caption := Self.Caption; -end; - -function TfEditorControlResumenVentas.GetItems: IBizResumenVentas; -begin - Result := FItems; -end; - -procedure TfEditorControlResumenVentas.SetItems( - const Value: IBizResumenVentas); -begin - FItems := Value; - if Assigned(FItems) then - begin - dsDataTable.DataTable := FItems.DataTable; - frViewControlGridResumenVentas1.dsDataSource.DataTable := FItems.DataTable; - end; -end; - -procedure TfEditorControlResumenVentas.actRefrescarExecute(Sender: TObject); -var - AuxDate: TDateTime; - UltimoDia: Integer; - i : Integer; - -begin - AuxDate := EncodeDate(edtAno.AsInteger , (edtMes.ItemIndex + 1), 1); - - ShowHourglassCursor; - try - with FItems do - begin - if DataTable.Active then - DataTable.Active := False; - - DataTable.ParamByName('FECHAINI').AsString := DateToStr(StartOfTheMonth(AuxDate)); - DataTable.ParamByName('FECHAFIN').AsString := DateToStr(EndOfTheMonth(AuxDate)); - DataTable.ParamByName('COLECCION').AsString := edtColeccion.Text; - - if not DataTable.Active then - DataTable.Active := True; - end; - finally - HideHourglassCursor; - end; -end; - -procedure TfEditorControlResumenVentas.actPrevisualizarExecute(Sender: TObject); -begin - frViewControlGridResumenVentas1.Preview(edtMes.Text, edtAno.Text); -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlVentasTerminadas.dfm deleted file mode 100644 index f500fce..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlVentasTerminadas.dfm +++ /dev/null @@ -1,1776 +0,0 @@ -inherited fEditorControlVentasTerminadas: TfEditorControlVentasTerminadas - Left = 531 - Top = 329 - Caption = 'fEditorControlVentasTerminadas' - ClientHeight = 573 - ClientWidth = 679 - OnCreate = CustomEditorCreate - OnGetModified = CustomEditorGetModified - ExplicitWidth = 687 - ExplicitHeight = 607 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 679 - ExplicitWidth = 679 - inherited Image1: TImage - Left = 652 - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C - 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 - 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF - EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 - B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B - 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 - 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF - 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C - 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 - C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 - 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 - 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 - 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 - FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 - 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 - B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F - 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 - A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F - E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 - B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 - F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 - 3F01A44422D9EF203E7B0000000049454E44AE426082} - ExplicitLeft = 652 - end - end - inherited TBXDock: TTBXDock - Width = 679 - ExplicitWidth = 679 - inherited tbxMain: TTBXToolbar - ExplicitWidth = 679 - object TBXSeparatorItem16: TTBXSeparatorItem [13] - end - object tbxiExpandir: TTBXItem [14] - Action = actExpandir - end - object tbxiContraer: TTBXItem [15] - Action = actContraer - end - object tbxiAnchoAuto: TTBXItem [16] - Action = actAnchoAuto - DisplayMode = nbdmImageAndText - end - end - inherited tbxMenu: TTBXToolbar - ExplicitWidth = 679 - inherited TBXSubmenuItem6: TTBXSubmenuItem - object TBXItem37: TTBXItem [0] - Action = actExpandir - end - object TBXItem36: TTBXItem [1] - Action = actContraer - end - object TBXItem35: TTBXItem [2] - Action = actAnchoAuto - end - object TBXSeparatorItem17: TTBXSeparatorItem [3] - end - end - end - end - inherited StatusBar: TStatusBar - Top = 554 - Width = 679 - ExplicitTop = 554 - ExplicitWidth = 679 - end - inline frViewControlVentasTerminadas1: TfrViewControlVentasTerminadas [3] - Left = 0 - Top = 76 - Width = 679 - Height = 478 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitTop = 76 - ExplicitWidth = 679 - ExplicitHeight = 478 - inherited TBXMultiDock1: TTBXMultiDock - Width = 234 - Height = 478 - ExplicitWidth = 234 - ExplicitHeight = 478 - inherited pnlParametros: TTBXDockablePanel - DockedWidth = 230 - SplitHeight = 258 - ExplicitWidth = 234 - ExplicitHeight = 258 - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 230 - ExplicitWidth = 230 - inherited TBXLink1: TTBXLink - Width = 222 - ExplicitWidth = 222 - end - inherited TBXLink5: TTBXLink - Width = 222 - ExplicitWidth = 222 - end - inherited TBXLink2: TTBXLink - Width = 222 - ExplicitWidth = 222 - end - end - inherited pcParametros: TPageControl - Width = 230 - Height = 138 - ExplicitWidth = 230 - ExplicitHeight = 138 - inherited TabSheet5: TTabSheet - ExplicitHeight = 0 - inherited frViewPeriodoFechas1: TfrViewPeriodoFechas - Height = 0 - ExplicitHeight = 0 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - inherited cbPeriodo: TcxComboBox - ExplicitWidth = 125 - Width = 125 - end - end - end - end - inherited tsColumnas: TTabSheet - ExplicitHeight = 0 - inherited frViewColumnas1: TfrViewColumnas - Height = 0 - ExplicitHeight = 0 - inherited lbColumnas: TcxCheckListBox - Height = 0 - ExplicitHeight = 0 - end - end - end - inherited tsAgrupacion: TTabSheet - ExplicitWidth = 222 - ExplicitHeight = 128 - inherited frViewAgrupaciones1: TfrViewAgrupaciones - Width = 222 - Height = 128 - ExplicitWidth = 222 - ExplicitHeight = 128 - inherited TBXLabel1: TTBXLabel - Width = 222 - ExplicitWidth = 222 - end - inherited pnlAgrupaciones: TTBXAlignmentPanel - Width = 222 - ExplicitWidth = 222 - inherited TBXButton1: TTBXButton - Width = 109 - ExplicitWidth = 109 - end - inherited TBXButton3: TTBXButton - Width = 109 - ExplicitWidth = 109 - end - inherited TBXButton2: TTBXButton - Width = 109 - ExplicitWidth = 109 - end - end - end - end - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 206 - Width = 230 - ExplicitTop = 206 - ExplicitWidth = 230 - end - end - inherited pnlTareas: TTBXDockablePanel - Top = 258 - DockedWidth = 230 - DockPos = 258 - SplitHeight = 204 - ExplicitTop = 258 - ExplicitWidth = 234 - ExplicitHeight = 204 - inherited TBXPageScroller1: TTBXPageScroller - Width = 230 - Height = 182 - ExplicitWidth = 230 - ExplicitHeight = 182 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 230 - ExplicitWidth = 230 - inherited bFiltros: TTBXLink - Width = 222 - ExplicitWidth = 222 - end - inherited bSumarios: TTBXLink - Width = 222 - ExplicitWidth = 222 - end - end - inherited pcTareas: TPageControl - Width = 230 - Height = 134 - ExplicitWidth = 230 - ExplicitHeight = 134 - inherited tsSumarios: TTabSheet - ExplicitHeight = 48 - inherited frViewSumarios1: TfrViewSumarios - Height = 48 - ExplicitHeight = 48 - inherited vgSumarios: TcxVerticalGrid - Height = 19 - ExplicitHeight = 19 - end - end - end - inherited tsFiltros: TTabSheet - ExplicitWidth = 222 - ExplicitHeight = 124 - inherited frViewFiltros1: TfrViewFiltros - Width = 222 - Height = 124 - ExplicitWidth = 222 - ExplicitHeight = 124 - inherited TBXLabel1: TTBXLabel - Width = 222 - ExplicitWidth = 222 - end - inherited cxFilterControl1: TcxFilterControl - Width = 222 - Height = 65 - ExplicitWidth = 222 - ExplicitHeight = 65 - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 94 - Width = 222 - ExplicitTop = 94 - ExplicitWidth = 222 - end - inherited cxStyleRepository1: TcxStyleRepository - Top = 72 - end - end - end - end - end - end - end - inherited frViewControlGridVentasTerminadas1: TfrViewControlGridVentasTerminadas - Left = 234 - Width = 445 - Height = 478 - ExplicitLeft = 234 - ExplicitWidth = 445 - ExplicitHeight = 478 - inherited cxGrid: TcxGrid - Width = 445 - Height = 478 - ExplicitWidth = 445 - ExplicitHeight = 478 - inherited cxGridView: TcxGridDBTableView - DataController.DataSource = dsVentasTerminadas - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxPrinterLinkcxGrid: TdxGridReportLink - BuiltInReportLink = True - end - end - end - end - inherited EditorActionList: TActionList [4] - inherited actConfPagina: TAction - OnExecute = actConfPaginaExecute - end - object actExpandir: TAction - Category = 'Ver' - Caption = 'Expandir todo' - ImageIndex = 21 - OnExecute = actExpandirExecute - end - object actContraer: TAction - Category = 'Ver' - Caption = 'Contraer todo' - ImageIndex = 22 - OnExecute = actContraerExecute - end - object actAnchoAuto: TAction - Category = 'Ver' - Caption = 'Ancho autom'#225'tico' - ImageIndex = 23 - OnExecute = actAnchoAutoExecute - end - end - inherited SmallImages: TPngImageList [5] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 - 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD - 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E - E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 - 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF - FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 - E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 - C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF - 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 - 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A - 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA - 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 - 000005100EB8572466A60000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001074944415478DA - 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A - C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 - AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 - 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 - C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 - CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 - B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 - 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 - 0029AC32F01825AACD0000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001514944415478DA - 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 - CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 - 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 - 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D - F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 - C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 - 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 - 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB - FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E - 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED - 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA - 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF - 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 - 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 - E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 - BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 - 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F - E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D - CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C - 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 - B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 - 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF - DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 - 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F - D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE - D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 - CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 - FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED - 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 - EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E - 44AE426082} - Name = 'PngImage4' - 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 = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001934944415478DA - 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 - 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 - 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F - FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F - B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 - 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 - 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC - 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 - 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF - 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E - C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 - 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 - 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 - 82} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD - D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 - 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF - DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C - 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B - B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD - D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 - AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 - 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 - DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 - 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 - D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 - 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 - 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 - F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A - A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F - AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 - 19FE00839434866373C4BA0000000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 - E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 - 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 - CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 - D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 - AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 - 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 - D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD - 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 - C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D - E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 - 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F - 16FA1194E3DBC30000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 - 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA - 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 - 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B - A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 - B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE - 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 - 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E - 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D - 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE - F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 - E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000016A4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA - 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA - 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 - F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 - FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD - D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 - 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C - E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 - FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B - CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 - BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 - 0090010087546EF0ACB0C7920000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001024944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 - FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 - 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 - 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 - B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 - 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B - 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 - CDA578040000000049454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001C04944415478DA - 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 - 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F - 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 - 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF - 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E - 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F - 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB - 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 - CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 - 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 - F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C - 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 - F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 - 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C - 80060000000049454E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA - 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF - CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B - 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E - 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 - B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 - 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 - EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 - 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 - 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB - 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 - A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A - 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA - E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C - EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 - D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E - 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 - 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 - 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA - 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 - A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D - 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF - 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 - EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 - 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 - 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 - CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 - 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 - F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D - B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D - 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 - 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE - 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 - 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D - 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 - 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 - FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 - 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 - E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 - 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 - 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD - BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 - 503A4EA60D6AAC070000000049454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA - 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 - 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E - C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC - 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 - 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 - BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 - 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB - B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 - 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 - E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 - 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 - 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 - 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 - 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF - 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF - 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 - 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF - AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 - 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 - E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 - 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 - CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD - DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 - 3FA68502A9830000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA - 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD - 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 - 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 - E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF - 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 - 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 - EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 - EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 - 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF - 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 - BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 - 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 - EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 - 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 - 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 - 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 - 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 - FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 - D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 - 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB - EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F - A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE - CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 - D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF - EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 - EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA - 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B - 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB - 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 - F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED - AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F - 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB - C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF - A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C - 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C - CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A - 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A - 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF - 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 - FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 - 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 - 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 - F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB - 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C - B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 - 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 - F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C - E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F - CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E - 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 - 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 - 000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F - FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA - 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 - D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 - 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 - 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 - DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C - 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 - 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 - ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 - 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 - 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 - 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA - 0000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000015D4944415478DA - 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 - 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 - 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 - E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 - 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 - 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 - 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 - BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 - 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 - E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 - 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 - 00000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001B04944415478DA - 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 - C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 - FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 - 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E - 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 - 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 - CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 - 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 - 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 - 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 - F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 - D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 - 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A - 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD2520000019E4944415478DA - 63FCFFFF3F032580119FE4D64553FE7FF8F001437C9FC439C20680343B392269 - FEF11E883F30DCBFCFC070FE81220383A3006E03609A6BCAF631B47439C135C3 - E9EFEF197A3F00C5253F3030AEDB73092510D89F1D62006BAE3BC7D0D2640431 - A44A11AEF9C3FBFB0CEF8166CCFD013440E13DC48040675DB0E66D8BA7C23597 - 141931F4F4010D291264A8E9BBCF5012F89EE1FD0BA017809A7BD73130280619 - 32306830200C00693632FC00D1347D05434D66044349922043CFBCF70C2D91F7 - 19BCEB10E1A169AAC9709DE70783A2A100AA0B4A9282C19A7FFFF90BC4FF18DA - 0A6319923DEF33E4F47D6098B1E22443787A3DC3F99DD3C1E1E654E904F63ADC - 803F7FFF31FC016B846806D1207E7F6532437AFD0C865FBFFF32C4E634C10D80 - 4723C8005F076DAC9A4186823482F06F204E2A6CC56E80A78D06C3DC45BBC102 - 2141B60C6BD61DC6885A530B1D868CD20EEC06B858A8E2B5F9D71F089D5BD58D - DD007B136586E5AB0E80057CBC2D18B66C3D81E1026D7D3586A2BA3EEC065819 - 28E0B519E43210C0694073F77442990E0E300CA0343B030039812D6AB16B7539 - 0000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000DF4944415478DA - 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B - 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA - CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 - 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 - F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 - 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF - FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 - 6B0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000000914944415478DA - 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 - FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB - EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE - 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 - 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001124944415478DA - 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 - 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC - 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 - 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 - 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC - E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC - 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 - CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 - 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited LargeImages: TPngImageList [6] - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 - 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002F14944415478DA - D596494C135118C7FF25404B03B614098807C1A84823081421EC0112A322211E - B89078E064E2050F9A885E8C8683CB4D0D116334C881C42A1A448301458C0BC4 - 22298A6C6915D9B1EDD0D26576674ADAD8141968C2C1974CBE37F3BDF9FDDEFB - 66DE64643CCF632B9B6CCB051B1DD8D972AB5E08E7098248FCD798D78983A109 - 04F89C10128B8B098487B1E0680A2C4582A53DE07C71651EEFEC51988C49813A - 4EBD718100E7755A13E8DFA3502B59C8927282E134098E7481A11C3050F1988B - CB822A761B3C24B5BE4084E76698E1FC69C0AB4F6158B2F238532B03A9D606C0 - 59CA03561070941B46670C4C09B9881104768713B2F61EE39ACF593EDB87C2AC - 092C7C1F42FF68246AEA4A414C0EA1456FC1C9232CC2637782659855B8001605 - 2CE98191D4602C4E8748A502F61541F0A4DBC89FA8480F80BF7878DB0B9F1B31 - E2DB8F0854D69678E1C3331A704E2B2CF356E469192855D1A0296A55E2718126 - DD18B0A930AAC946A45A29AC60255820C2C5B258C73F63782A1EF21D3A6C978F - E1D70C8D283987FC4C0568B7036F7A1790B68B44B48201CFD26084076F5E64D0 - 33AD06959A8E70B502B6657BA04084A7259B10661B449F51859A737AB01C07FD - DDCB48D698A04D910975A76018F64097AE80FEE957B4F79301AB4FCADD078536 - 01B4503E1B610F5EC1E3E60B981E1FC4A9C6E75E38CB72E0381E2F5B2F41EE1A - 00870814E5A8B06C36E274338DB3D73A71B1F126BE7435F95F98F286725EA190 - 83A2E84081085A85F201705FFFDED57AD41D73F8E177DA063031B51424F049BC - FBC0279082FB72F76F34A0F77D9717CE08D7CD33963505FE8D260AAACB0E6C08 - FEF72444B8989B9AB7490B8E976A438233C2F9ECE2B2B4E068519AF7E607ADDD - FE447555019E757C58F733925F9881058B435A70B82075D333F746E1B0104E69 - 4145DEDE90E062241C6E6941D9A13D5E50DBA3B7FE4455653E3A3A3FAE5BA283 - D9FBE17091D28212DDEE4DCFDCD77793B4B4A030331986916984DA240557AE37 - 850CF7B57F0AFEFBBF8A3FEEF0D2AAE4F624F60000000049454E44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000014D4944415478DA - 63FCFFFF3F032D0123CD2D40E6182E3104DBF6EFEF3F86BF7FFF32FCFD03C1B7 - B26EC1D519782490E4220C0BB2A24D5114744CD9CB7037F72E5C1D171717F916 - E82FD4FF9F1367CEF0F5DB2F861F3FFF30FCFCF58761FEF2130C0F0A1F309262 - 288A05E8C1929F68C5F0F6FD37B0E13F7FFD6558B2EA244A70BDAE7F8D6219A1 - 2063C4162CCF5E7E021B0EF30588FDFDC71F86EDDBCE30BC6B7E47926F18B105 - 0B36C39FBEFACC70FEC435868FED1F49F381CE3C9DFFE8C1826EF8F79FBF19DE - 7DFCC170FAC82586AFDD5F49F381E62CCDFF45A9B65883E5CEA3F7288A4FEC3F - CFF063C20FD27CA0364DED3F2C124111EDEBA98F112C7FFEFC61F8FB1BA2E6F7 - 94DFA4F9009923DD29FDDFD34D1F6FB05094D1245A25FE3B3BE9815D8E2B5828 - CA68A28DA2FF61E99D9260C1690139806024536AC1A80F86A10F28CA68C40092 - 33DA906F550000E7732B02C862110D0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000000AA4944415478DA - 63FCFFFF3F032D0123CD2D205583814702492E22D9022E2E2EDA5A402A60043A - 07EE2210E33B10FFC0427F05E26F40EC85E628424106B160E24484C8C78F0C0C - 1F3E3030BC7F0FA1DFBD636078FB9681E1CD1B86B52F5E308490E86B540BF018 - 0EC28BFFFC618823D507FF801630822C20603803D0F099400D19A4FA0018B6FF - F185393266C06201411F90E21A72C06846A3BD05432F92477D30F03E187C196D - C8B72A00572A73F3ECEFF30C0000000049454E44AE426082} - Name = 'PngImage22' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage23' - Background = clWindow - end> - Bitmap = {} - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [8] - end - object dsVentasTerminadas: TDADataSource - Left = 320 - Top = 232 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlVentasTerminadas.pas deleted file mode 100644 index cfb7138..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlVentasTerminadas.pas +++ /dev/null @@ -1,241 +0,0 @@ -unit uEditorControlVentasTerminadas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlBase, DB, uDADataTable, JvAppStorage, - JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, - PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, - TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uBizControlesBase, - uCustomView, uViewBase, uViewControlBase, uViewControlVentasTerminadas, - Grids, DBGrids, pngimage, uDAInterfaces; - -type - IEditorControlVentasTerminadas = interface(IEditorControlBase) - ['{721FAE24-2440-44FA-B681-6E3C2BD656FE}'] - end; - - TfEditorControlVentasTerminadas = class(TfEditorControlBase, IEditorControlVentasTerminadas) - dsVentasTerminadas: TDADataSource; - TBXSeparatorItem16: TTBXSeparatorItem; - tbxiExpandir: TTBXItem; - tbxiContraer: TTBXItem; - tbxiAnchoAuto: TTBXItem; - actExpandir: TAction; - actContraer: TAction; - actAnchoAuto: TAction; - TBXItem37: TTBXItem; - TBXItem36: TTBXItem; - TBXItem35: TTBXItem; - TBXSeparatorItem17: TTBXSeparatorItem; - frViewControlVentasTerminadas1: TfrViewControlVentasTerminadas; - procedure actRefrescarExecute(Sender: TObject); - procedure actExpandirExecute(Sender: TObject); - procedure actContraerExecute(Sender: TObject); - procedure actAnchoAutoExecute(Sender: TObject); - procedure CustomEditorCreate(Sender: TObject); - procedure CustomEditorGetModified(Sender: TObject; - var Modified: Boolean); - procedure actGuardarExecute(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure actPrevisualizarExecute(Sender: TObject); - procedure actImprimirExecute(Sender: TObject); - procedure actConfPaginaExecute(Sender: TObject); - procedure frViewControlVentasTerminadas1bRefrescarClick( - Sender: TObject); - private - procedure RestaurarConfiguracion; - procedure GuardarConfiguracion; - protected - FModificado : Boolean; - procedure OnViewControlChanged(Sender: TObject); - procedure SetControl(const Value: IBizControlBase); override; - procedure RellenarCabeceraInforme; override; - public - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -uses - uEditorUtils, uBizControlVentasTerminadas, uROClasses, - cxGridTableView, uCustomEditor; - -{$R *.dfm} - -function ShowEditorVentasTerminadas (ABizObject : TDADataTableRules): TModalResult; -var - AEditor: IEditorControlVentasTerminadas; -begin - AEditor := TfEditorControlVentasTerminadas.Create(Application); - try - AEditor.Control := (ABizObject as IBizControlVentasTerminadas); - Result := AEditor.ShowModal; - finally - AEditor.Release; - end; -end; - - -{ TfEditorControlVentasTerminadas } - -procedure TfEditorControlVentasTerminadas.SetControl( - const Value: IBizControlBase); -begin - inherited; - RefrescarTituloEditor; - if Assigned(FControl) then - begin - frViewControlVentasTerminadas1.OnViewChanged := OnViewControlChanged; - with (FControl as IBizControlVentasTerminadas) do - begin - Items.DataTable.Active := False; // No se abre la tabla hasta que no se pulse en 'Refrescar' - dsVentasTerminadas.DataTable := Items.DataTable; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.DataController.DataSource := dsVentasTerminadas; - end; - end; -end; - -procedure TfEditorControlVentasTerminadas.actRefrescarExecute(Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.Refresh; - while (frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.Controller.FocusedRecord is TcxGridGroupRow) do - begin - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.Controller.FocusedRecord.Expand(True); - if (frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.Controller.FocusedRecordIndex < - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.DataController.RowCount - 1) then - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.Controller.GoToNext(False, True) - else - Exit; - end; -end; - -procedure TfEditorControlVentasTerminadas.actExpandirExecute(Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.ExpandirTodo; -end; - -procedure TfEditorControlVentasTerminadas.actContraerExecute(Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.ContraerTodo; -end; - -procedure TfEditorControlVentasTerminadas.actAnchoAutoExecute(Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.AjustarAncho; -end; - -procedure TfEditorControlVentasTerminadas.OnViewControlChanged( - Sender: TObject); -begin - if FControl.EsModificable then - FModificado := True; -end; - -procedure TfEditorControlVentasTerminadas.CustomEditorCreate(Sender: TObject); -begin - inherited; - FModificado := False; -end; - -procedure TfEditorControlVentasTerminadas.CustomEditorGetModified( - Sender: TObject; var Modified: Boolean); -begin - inherited; - Modified := FModificado; -end; - -procedure TfEditorControlVentasTerminadas.actGuardarExecute(Sender: TObject); -begin - if FModificado then - GuardarConfiguracion; - inherited; - FModificado := False; -end; - -procedure TfEditorControlVentasTerminadas.GuardarConfiguracion; -var - Aux : IROStrings; -begin - Aux := NewROStrings(); - Aux.Add(frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.ViewProperties); - if not (FControl.DataTable.State in dsEditModes) then - FControl.Edit; - FControl.VISTA := Aux; -end; - -procedure TfEditorControlVentasTerminadas.RestaurarConfiguracion; -begin - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.ViewProperties := FControl.VISTA.Text; -end; - -procedure TfEditorControlVentasTerminadas.FormShow(Sender: TObject); -begin - inherited; - if FControl.DataTable.State <> dsInsert then // No restaurar si estamos insertando - RestaurarConfiguracion; - frViewControlVentasTerminadas1.frViewColumnas1.Refresh; - frViewControlVentasTerminadas1.frViewAgrupaciones1.Refresh; -end; - -procedure TfEditorControlVentasTerminadas.actPrevisualizarExecute( - Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.Preview; -end; - -procedure TfEditorControlVentasTerminadas.actImprimirExecute(Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.Print; -end; - -procedure TfEditorControlVentasTerminadas.actConfPaginaExecute( - Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.PrintSetup; -end; - -procedure TfEditorControlVentasTerminadas.frViewControlVentasTerminadas1bRefrescarClick( - Sender: TObject); -begin - inherited; - frViewControlVentasTerminadas1.actRefrescarExecute(Sender); -end; - -constructor TfEditorControlVentasTerminadas.Create(AOwner: TComponent); -begin - inherited; - FViewControl := frViewControlVentasTerminadas1; - Self.Caption := 'Nueva consulta de ventas terminadas'; - JvNavPanelHeader.Caption := Self.Caption; -end; - -procedure TfEditorControlVentasTerminadas.RellenarCabeceraInforme; -begin - inherited; - with frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.dxPrintStyleManager1Style1.PrinterPage.PageHeader do - begin - LeftTitle.Clear; - LeftTitle.Add(FControl.NOMBRE); - - RightTitle.Clear; - RightTitle.Add(DateToStr(frViewControlVentasTerminadas1.frViewPeriodoFechas1.edtFechaIni.Date) + - ' - ' + DateToStr(frViewControlVentasTerminadas1.frViewPeriodoFechas1.edtFechaFin.Date)); - RightTitle.Add(frViewControlVentasTerminadas1.frViewControlGridVentasTerminadas1.FocusedView.DataController.Filter.FilterText); - end; -end; - -initialization - RegisterEditor(IBizControlVentasTerminadas, ShowEditorVentasTerminadas, etItem); - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlesVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlesVentasTerminadas.dfm deleted file mode 100644 index 72533a3..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlesVentasTerminadas.dfm +++ /dev/null @@ -1,176 +0,0 @@ -inherited fEditorControlesVentasTerminadas: TfEditorControlesVentasTerminadas - Left = 470 - Top = 325 - ActiveControl = frViewControlesVentasTerminadas1.EasyListview - Caption = 'fEditorControlesVentasTerminadas' - ExplicitWidth = 660 - ExplicitHeight = 494 - PixelsPerInch = 96 - TextHeight = 13 - inherited JvNavPanelHeader: TJvNavPanelHeader - Caption = 'Control de ventas terminadas' - inherited Image1: TImage - Picture.Data = { - 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 - 0000180806000000E0773DF80000000970485973000017120000171201679FD2 - 5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 - 78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 - 92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A - 885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 - 91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 - 0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 - 9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C - 422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 - 40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 - 8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F - 7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 - 29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 - 66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 - 70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E - 9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB - 7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F - FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 - F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E - F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 - 5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 - 400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 - C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 - 8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D - 4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 - A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D - 8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 - 3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC - 23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE - 211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4 - 53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4 - B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4 - 08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69 - 6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7 - 486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F - 55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F - AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F - A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672 - 5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6 - 71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37 - DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51 - BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF - D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91 - C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269 - 32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5 - 9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98 - 563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B - ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625 - F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9 - 57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE - BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4 - F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D - C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE - 237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81 - 1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0 - 17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10 - 7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453 - 747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC - 9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A - 339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2 - 3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92 - E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644 - D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4 - 79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78 - 5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859 - F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258 - 5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195 - 6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D - DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5 - 1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A - 9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78 - 576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6 - 45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570 - 5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2 - 3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F - 579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D - BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D - AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5 - 73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC - 5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E - 09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7 - B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3 - 72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC - 40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741 - 4D410000B18E7CFB5193000002944944415478DAD5955F4853511CC7BFD7CD9C - 9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D582441B58782 - 0A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C9B685A5EEF - EEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB85C361A4D3 - B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C4A8AC2221B - 13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C579518CCCA9 - 1388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED592808E32AF - 06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B6B19E48C7C - 3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E098FB3026B2 - C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583DE0DB096837 - 30573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF91E44014E02 - 682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF814FF2A1E4 - 5B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB30BE711CD6 - FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D7847164A22 - 7BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6B9F2F30CA2 - B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED1149741F46C139F - 5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF38720B23877 - A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C9242B6A23A39F - E201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B8183CD4BDF45 - B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB431DBA95582 - F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F00A95ADA01 - 3F01A44422D9EF203E7B0000000049454E44AE426082} - end - end - inline frViewControlesVentasTerminadas1: TfrViewControlesVentasTerminadas [3] - Left = 0 - Top = 76 - Width = 652 - Height = 365 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 3 - ReadOnly = False - ExplicitTop = 76 - ExplicitWidth = 652 - ExplicitHeight = 365 - inherited EasyListview: TEasyListview - Width = 652 - Height = 365 - Groups.Items = { - 0400000002000000FFFECE000400000000000400000000000000010000000E00 - 0000730064006600730020006100640066002000610073006400660020000000 - 00000000000000000000FFFECE00040000000000040000000000000001000000 - 1300000020007300640066006100730064002000200061007300200074003400 - 74002000740034003300000000000000000000000000} - Header.Columns.Items = { - 0400000004000000FFFECE000400000000110001000001010000000000013200 - 00000100000005000000490063006F006E006F00000000000000000000000000 - FFFECE0004000000001100010000010000000000000132000000010000000600 - 00004E006F006D00620072006500000000000000000000000000FFFECE000400 - 0000001100010000010200000000000132000000010000000B00000044006500 - 7300630072006900700063006900F3006E00000000000000000000000000FFFE - CE00040000000011000100000103000000010001320000000100000005000000 - 4F007200640065006E00000000000000000000000000} - ExplicitWidth = 652 - ExplicitHeight = 365 - end - end - inherited EditorActionList: TActionList [4] - end - inherited SmallImages: TPngImageList [5] - end - inherited LargeImages: TPngImageList [6] - end - inherited JvFormStorage: TJvFormStorage [7] - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [8] - end - inherited dsDataTable: TDADataSource [9] - end - inherited ViewPopupMenu: TPopupMenu [10] - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlesVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlesVentasTerminadas.pas deleted file mode 100644 index c4ffdd2..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uEditorControlesVentasTerminadas.pas +++ /dev/null @@ -1,43 +0,0 @@ -unit uEditorControlesVentasTerminadas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uEditorControlesBase, JvAppStorage, JvAppRegistryStorage, - JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, - ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, - ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uCustomView, - uViewBase, uViewControlesBase, Menus, DB, EasyListview, - uDADataTable, uViewControlesVentasTerminadas, uDAInterfaces; - -type - IEditorControlesVentasTerminadas = interface(IEditorControlesBase) - ['{6FF8D6DA-A997-40E9-8482-B0E4A77ECCC6}'] - end; - - TfEditorControlesVentasTerminadas = class(TfEditorControlesBase, IEditorControlesVentasTerminadas) - frViewControlesVentasTerminadas1: TfrViewControlesVentasTerminadas; - private - { Private declarations } - public - constructor Create(AOwner: TComponent); override; - end; - - -implementation - -{$R *.dfm} - -uses - uEditorBase; - -{ TfEditorControlesVentasTerminadas } - -constructor TfEditorControlesVentasTerminadas.Create(AOwner: TComponent); -begin - inherited; - FViewControl := frViewControlesVentasTerminadas1; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.dfm deleted file mode 100644 index bceea99..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.dfm +++ /dev/null @@ -1,329 +0,0 @@ -object ModuleVentasTerminadas: TModuleVentasTerminadas - OldCreateOrder = True - Description = 'Control de ventas terminadas' - ModuleMenu = MainMenu - ModuleName = 'Control de ventas terminadas' - SmallImages = SmallImages - LargeImages = LargeImages - Author = 'Rodax Software' - Version = '1.0.5' - Left = 701 - Top = 547 - Height = 252 - Width = 401 - object LargeImages: TPngImageList - Height = 24 - Width = 24 - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000002944944415478DAD5955F4853511C - C7BFD7CD9C9BD21F4188FECFA83443E262BED5831689249688BA60E0934F3D58 - 2441B587820A02291641050A8E1C150B8C454669181269AC2D3398D9C31E940C - 9B685A5EEFEEBDEB9CB3EEDA656EAE720FFDE0C7EF1CCEBDDFCFFDFDCEF99DCB - 85C361A4D3B8FF1FD0E51E4A1BA1B1AA94630032F8A31725390C5956B0284A2C - 4A8AC2221B13174332EA9B6D78DB73F337A06970EFB2C23229A728CB102589C5 - 79518CCCA91388BA765274A2FDEE232DC0F9F84DFAF64005A4A3547180952ED5 - 92808E32AF06B42158850B9517E3400A11A35EF9E0006673024C7CB86612E67B - 6B19E48C7C3F31801A1DC78AFB382FF8411E1825939D80A7CC8342A10822C9E0 - 98FB3026B2C6E0AF9D62CFE63B4CB0C1953C03555C379401799FC22215F7583D - E0DB09683730573C8FDC911C4C6DFF8AFAA747D06B7985BC4E23CBE0B2BE3BF9 - 1E44014E02682400474644BC8B87C742E26D1E330DB358E35E8DC98A2FB03CAF - 814FF2A1E45B3EDAFACD18A86E4D11109BC107B260202E806510DC318DBC8FEB - 30BE711CD6FE3AB4751BA19314EC39F40276E393E54F910A9149CAEFF5C3913D - 7847164A227BB039B8058B82C0C4AFBB0CEC1D2A4E2D2120F614D15A6E9BA9C6 - B9F2F30CA2B0B32E479DCE8FF71E8D8A17BBFAC0DDE2B480ABF60E9C3ED11497 - 41F46C139F5E58D0CC63FDD9C352CD97ABC600EA754D32D05C7A6A974ABF3AF3 - 8720B23877A905D24400592D5720ADDF0AE5AC154A4882D06A4728333BD2C924 - 2B6A23A39FE201371C3D49BB98F7B96108F8910905FEFD0D2878499AC9948B81 - 83CD4BDF45B1005AAA54ACD3E427D783846CBD0EBA0C0ED6EFBB123EFB577FB4 - 31DBA95582F7F5673AD61714D5155EBBD3B7A20056DFDA7245B7C95C914CFC9F - 00A95ADA013F01A44422D9EF203E7B0000000049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001924944415478DA - 63FCFFFF3F032D01235D2C58BEED344D6C89F43265845B00E49065C8DF7FFF18 - FEFEFD0FA5A1F8DF7F0697F01286733BA661B7807126234390A62656033FFFFA - C5F0F9E74F862F40FA0B12FB4DD457B8E1CB361D6298B774137E0B48051FA2BE - 810DFF03B464D5D623F82D4089A444DC967D9BF10B2558FE40D96B771C23DE02 - 74F0E9F727866F7FBE81B118B33486E1A0B8D8B0EB04760BF0B99658F0A0F52D - C3E6BDA7705BF07F3E24C55E5C69C8A01F7E1E838D0CD0C541FAEF34BE66D87E - F00C6E0B12320CC08A0B1E30304C5060C060230374F105332E30DCAC7BC5B0EB - C859DAF9E05AF50B86BDC7CFD3CE07972A9F311C3C7991763E385FF684E1C899 - CBB4F3C199E2470CC7CF5FA59D0F8EE7DF673873F906A605119E260C4C494C14 - FBE070EE5D860B576F615A10EC6AC4C09EC642B10F0E64DD66B87CE30EA60501 - CE060C5C196C14FB607FE66D862B37B158E0EBA0C7C09BCDC14029C0698197AD - 0E46A105A2FF812B13247120FEF30F938D5CF362B5C0DD5A1B5C51500B6058D0 - 3D693ED50C8701B805B40400A09529EFB6636A250000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end> - Left = 232 - Top = 16 - Bitmap = {} - end - object ModuleActionList: TActionList - Images = LargeImages - Left = 40 - Top = 72 - object actVentas: TAction - Category = 'Ventas' - Caption = 'Control de ventas terminadas' - ImageIndex = 0 - OnExecute = actVentasExecute - end - object actResumenVentas: TAction - Category = 'Ventas' - Caption = 'Resumen de ventas mensuales' - ImageIndex = 1 - OnExecute = actResumenVentasExecute - end - end - object MainMenu: TMainMenu - Tag = 1000 - Images = LargeImages - Left = 40 - Top = 16 - object menu: TMenuItem - Tag = 100 - Caption = '&Ventas' - GroupIndex = 1 - ImageIndex = 4 - OnClick = actVentasExecute - object Ventas1: TMenuItem - Tag = 100 - Action = actVentas - end - object N1: TMenuItem - Tag = 9998 - Caption = '-' - end - object Resumenventasmensual1: TMenuItem - Tag = 9999 - Action = actResumenVentas - end - end - end - object SmallImages: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD25200000A4D694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF - F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A - 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 - 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 - 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC - 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 - C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 - 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 - 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C - CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 - 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 - 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F - 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA - 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED - 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 - FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A - F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 - 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 - 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 - 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C - 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 - 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 - 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA - 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F - 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 - 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 - 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 - 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 - 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 - 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 - A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 - 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 - 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 - 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 - 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 - 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 - 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 - EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C - 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED - EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB - 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 - 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 - 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 - 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 - A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 - 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 - D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B - 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 - 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD - D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 - C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E - 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B - FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 - 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 - 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 - 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 - BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 - F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC - A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 - 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA - 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C - 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 - F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 - DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 - 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 - A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 - 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 - EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E - CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 - 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD - 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF - B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C - 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD - EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 - E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 - 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F - EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 - EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 - FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 - CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 - ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC - CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F - F73EE77CFEFC2FF784F3FB25D29F33000001624944415478DA63FCFFFF3F0325 - 8071D99653649B10E96DCA083640DD9B9961F2C964AC8A7EFFFDCBF0FDCF1F86 - 6FBF7F337CFCF103CC9EEBBF9521C5630EC3B91DD310068000CC90B966E7300C - B2D92607D70C02280650250CC8F5068A01A47883F9CE5306868A8908037689A4 - C115C234339F6282085C6560F89BF80FCCD45C2BCAB06A8D0103F3EF7F0C715F - 358830E02A440C66C0B51067306DE675984163752A032328212DDF7AFA3FB201 - 20BF2EB7BE8CE10564CD20AF18AECF4418000B4490E6EF40FC0D8A6181B776B9 - 1E8AE6B3E96721810833A07BF27CB84D13845F30F07F7BC7D0CBACC970E50B23 - C302BE3B0CBF7FFE6428F9ABCDF0F10F5A3462CB0B3792430EFE7EF55C87918D - 5D88555621EAD7DD9B539878F818B4976F17C64807B832D39560A7FFFF7FFD7C - C7C8C2CAC7C0C4C4A2B3761F23D68484CB80DB75C56C3FCE9F780E62B3286B85 - 6A4E98BD8F240320AE70FEC72CABE4824B33080000E911EEC1FB93056C000000 - 0049454E44AE426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000000970485973000017120000171201679FD252000001334944415478DA - 63FCFFFF3F0325801164C0F26DA7C936056E40A49729511A7EFFF9CBF0FBF75F - 30ED185A8CDD00C64446AC9A7FCCFC0DD7BC74D32186794B3711E7827FFFFE01 - 35FD836B06E155DB8E621A80CB6674F0A4E33DC3FA5D27B01BF07FFE7F868B2B - 0D19F4C3CF836DBEBCDA9841D9E704DC66F1123E86FB2D6F19B6EC3B85DD8084 - 0C038682070C0C131420B621B34160C18C0B0CB71A5E31EC3C7416BF0B34024F - 83FD7C778B0583A4CB21A80BFE3128D608335CAE7CC670E0E445F25D70AEF431 - C3D1B357B01BF075DA4F86DB9BCC19A4DD8E806D7DB5CF9E81D76A373C1674DB - A5184E163E603875F13AAA01216E460C6CA92C44C5C291DCBB0CE7AFDE4235C0 - DF511FEE4F5888FF81F191E21FA6E6CACD3BA80678D9EA302CDE7090A47C8062 - 40F7A4F9246986277B4AB333009B9C2E9EBC2508450000000049454E44AE4260 - 82} - Name = 'PngImage1' - Background = clWindow - end> - PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 308 - Top = 16 - Bitmap = {} - end - object ExtraImages: TPngImageList - Height = 28 - Width = 28 - PngImages = <> - Left = 232 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.pas deleted file mode 100644 index c581256..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uPluginControllerVentasTerminadas.pas +++ /dev/null @@ -1,96 +0,0 @@ -unit uPluginControllerVentasTerminadas; - -interface - -uses - uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList; - -type - IMCVentasTerminadas = interface(IInterface) - ['{D7C41472-C5C7-43C1-849F-2056CC98D9B1}'] - end; - - TModuleVentasTerminadas = class(TModuleController, IMCVentasTerminadas) - actVentas: TAction; - menu: TMenuItem; - ExtraImages: TPngImageList; - LargeImages: TPngImageList; - MainMenu: TMainMenu; - ModuleActionList: TActionList; - Ventas1: TMenuItem; - SmallImages: TPngImageList; - actResumenVentas: TAction; - Resumenventasmensual1: TMenuItem; - N1: TMenuItem; - procedure actVentasExecute(Sender: TObject); - procedure actResumenVentasExecute(Sender: TObject); - public - end; - -implementation - -{$R *.dfm} - -uses - Forms, Dialogs, uGUIBase, SysUtils, uDataModuleVentasTerminadas, - uEditorControlesVentasTerminadas, uEditorControlResumenVentas, - uBizControlVentasTerminadas, uBizVentasTerminadas, uEditorControlesBase; - -function GetModule : TModuleController; -begin - Result := TModuleVentasTerminadas.Create(NIL); -end; - -exports - GetModule name GET_MODULE_FUNC; - -{ -******************************* TModuleContactos ******************************* -} - -procedure TModuleVentasTerminadas.actVentasExecute(Sender: TObject); -var - aControl: IBizControlVentasTerminadas; - aObj: IEditorControlesVentasTerminadas; -begin - aControl := dmVentasTerminadas.GetControl; - aObj := TfEditorControlesVentasTerminadas.Create(Application); - try - with aObj do - begin - Control := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -procedure TModuleVentasTerminadas.actResumenVentasExecute(Sender: TObject); -var - aControl: IBizResumenVentas; - aObj: IEditorControlResumenVentas; -begin - aControl := dmVentasTerminadas.GetItemsCrossTab; - aObj := TfEditorControlResumenVentas.Create(Application); - try - with aObj do - begin - Items := aControl; - ShowEmbedded; - end; - finally - aControl := NIL; - aObj := NIL; - end; -end; - -initialization - RegisterModuleClass(TModuleVentasTerminadas); - -finalization - UnRegisterModuleClass(TModuleVentasTerminadas); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.dfm deleted file mode 100644 index e92c347..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.dfm +++ /dev/null @@ -1,211 +0,0 @@ -inherited frViewControlGridResumenVentas: TfrViewControlGridResumenVentas - inherited cxGrid: TcxGrid - inherited cxGridView: TcxGridDBTableView - OnCustomDrawCell = cxGridViewCustomDrawCell - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = '0,0 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end> - OptionsView.CellAutoHeight = False - OptionsView.FooterAutoHeight = False - Preview.AutoHeight = False - end - end - inherited dsDataSource: TDADataSource - OnStateChange = dsDataSourceStateChange - end - inherited dxComponentPrinter: TdxComponentPrinter - CurrentLink = dxComponentPrinterLink1 - object dxComponentPrinterLink1: TdxGridReportLink - Active = True - Component = cxGrid - PrinterPage.DMPaper = 9 - PrinterPage.Footer = 6350 - PrinterPage.Header = 6350 - PrinterPage.Margins.Bottom = 12700 - PrinterPage.Margins.Left = 12700 - PrinterPage.Margins.Right = 12700 - PrinterPage.Margins.Top = 12700 - PrinterPage.Orientation = poLandscape - PrinterPage.PageSize.X = 210000 - PrinterPage.PageSize.Y = 297000 - PrinterPage._dxMeasurementUnits_ = 0 - PrinterPage._dxLastMU_ = 2 - ReportDocument.Caption = 'Venta mensual' - ReportDocument.CreationDate = 39329.694692372690000000 - ReportTitle.Text = 'Venta mensual' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = 10 - Font.Name = 'Tahoma' - Font.Style = [] - OptionsFormatting.UseNativeStyles = True - OptionsView.Caption = False - OptionsView.FilterBar = False - BuiltInReportLink = True - end - end - inherited cxStyleRepository1: TcxStyleRepository - object cxStyleDia: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = cl3DLight - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - TextColor = clWindowText - end - object cxStyleTotal: TcxStyle - AssignedValues = [svFont] - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - end - object cxStyleImporte: TcxStyle - end - end - object cxEditRepository1: TcxEditRepository - Left = 32 - Top = 88 - object cxEditDia: TcxEditRepositoryTextItem - Properties.Alignment.Horz = taRightJustify - end - object cxEditImporte: TcxEditRepositoryCurrencyItem - Properties.Alignment.Horz = taRightJustify - Properties.DisplayFormat = ',0.## '#8364';-,0.## '#8364 - Properties.UseThousandSeparator = True - end - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.pas deleted file mode 100644 index adcd752..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridResumenVentas.pas +++ /dev/null @@ -1,144 +0,0 @@ -unit uViewControGridResumenVentas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls, cxSpinEdit, uViewGrid, cxMemo, - cxEditRepositoryItems, uDAInterfaces; - -type - IViewControlGridResumenVentas = interface(IViewGrid) - ['{E6D7FF0F-7E64-4E8C-8844-CAC011A62CDE}'] - end; - - TfrViewControlGridResumenVentas = class(TfrViewGrid, IViewControlGridResumenVentas) - dxComponentPrinterLink1: TdxGridReportLink; - cxEditRepository1: TcxEditRepository; - cxEditDia: TcxEditRepositoryTextItem; - cxEditImporte: TcxEditRepositoryCurrencyItem; - cxStyleDia: TcxStyle; - cxStyleTotal: TcxStyle; - cxStyleImporte: TcxStyle; - procedure cxGridViewCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure dsDataSourceStateChange(Sender: TObject); - private - procedure LimpiarGrid; - procedure GenerarGrid; - public - procedure Preview(Mes: String; Ano: String); overload; - procedure Print(Mes: String; Ano: String); overload; - end; - -implementation -{$R *.dfm} - -uses schVentasTerminadasClient_Intf, uViewGridBase; - -{ TfrViewControlGridResumenVentas } - -procedure TfrViewControlGridResumenVentas.Preview(Mes: String; Ano: String); -begin - inherited Preview; - dxComponentPrinterLink1.ReportTitle.Text := 'Ventas terminadas ' + Mes + ' de ' + Ano; - dxComponentPrinterLink1.Preview; -end; - -procedure TfrViewControlGridResumenVentas.cxGridViewCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if not VarIsNull(AViewInfo.Value) then - if Pos('-', AViewInfo.Value) > 0 then - ACanvas.Canvas.Font.Color := $000000CC; -end; - -procedure TfrViewControlGridResumenVentas.dsDataSourceStateChange(Sender: TObject); -begin - if dsDataSource.State = dsInactive then - LimpiarGrid - else - GenerarGrid; -end; - -procedure TfrViewControlGridResumenVentas.GenerarGrid; -var - i, AuxPos, AuxLen: Integer; - -begin - cxGridView.BeginUpdate; - - try - cxGridView.DataController.CreateAllItems; - - for i := 0 to cxGridView.ColumnCount - 1 do - begin - case i of - 0: cxGridView.Columns[i].Visible := False; - 1: begin - cxGridView.Columns[i].Styles.Content := cxStyleDia; - cxGridView.Columns[i].Properties := cxEditDia.Properties; - cxGridView.Columns[i].HeaderAlignmentHorz := taRightJustify; - cxGridView.Columns[i].FooterAlignmentHorz := taRightJustify; - cxGridView.Columns[i].Width := 30; - cxGridView.Columns[i].SortIndex := 0; - cxGridView.Columns[i].SortOrder := soAscending; - - end; - else begin - cxGridView.Columns[i].Styles.Content := cxStyleImporte; - cxGridView.Columns[i].PropertiesClassName := 'TcxCurrencyEditProperties'; - cxGridView.Columns[i].Properties := cxEditImporte.Properties; - cxGridView.Columns[i].Summary.FooterKind := skSum; - cxGridView.Columns[i].Summary.FooterFormat := ',0.## €;-,0.## €'; - cxGridView.Columns[i].HeaderAlignmentHorz := taRightJustify; - cxGridView.Columns[i].FooterAlignmentHorz := taRightJustify; - cxGridView.Columns[i].Width := 175; - end; - end; - - if i = 2 then - begin - cxGridView.Columns[i].HeaderAlignmentHorz := taLeftJustify; - cxGridView.Columns[i].Styles.Content := cxStyleTotal; - end; - - //Dejamos de la descripción del centro lo más corta y representativa posible - AuxPos := Pos('INGLES', cxGridView.Columns[i].Caption); - if AuxPos > 0 then AuxPos := AuxPos + 6; - AuxLen := Length(cxGridView.Columns[i].Caption) - AuxPos; - cxGridView.Columns[i].Caption := Trim(Copy(cxGridView.Columns[i].Caption, AuxPos, AuxLen)); - end; - - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewControlGridResumenVentas.LimpiarGrid; -begin - cxGridView.BeginUpdate; - try - cxGridView.ClearItems; - finally - cxGridView.EndUpdate; - end; -end; - -procedure TfrViewControlGridResumenVentas.Print(Mes, Ano: String); -begin - inherited Print; - dxComponentPrinterLink1.ReportTitle.Text := 'Ventas terminadas ' + Mes + ' de ' + Ano; - dxComponentPrinterLink1.Print(True, Nil); -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.dfm deleted file mode 100644 index ca341d0..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.dfm +++ /dev/null @@ -1,278 +0,0 @@ -inherited frViewControlGridVentasTerminadas: TfrViewControlGridVentasTerminadas - Width = 733 - Height = 572 - object cxGrid: TcxGrid [0] - Left = 0 - Top = 0 - Width = 733 - Height = 572 - Align = alClient - TabOrder = 0 - LookAndFeel.Kind = lfStandard - LookAndFeel.NativeStyle = True - object cxGridView: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - FilterBox.CustomizeDialog = False - DataController.Filter.Options = [fcoCaseInsensitive] - DataController.Filter.OnChanged = cxGridViewDataControllerFilterChanged - DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - DataController.Summary.OnAfterSummary = cxGridViewDataControllerSummaryAfterSummary - DataController.OnCompare = cxGridViewDataControllerCompare - DataController.OnGroupingChanged = cxGridViewDataControllerGroupingChanged - DataController.OnSortingChanged = cxGridViewDataControllerSortingChanged - OptionsBehavior.CellHints = True - OptionsCustomize.ColumnFiltering = False - OptionsCustomize.ColumnGrouping = False - OptionsCustomize.DataRowSizing = True - OptionsCustomize.GroupRowSizing = True - OptionsData.Deleting = False - OptionsData.DeletingConfirmation = False - OptionsData.Editing = False - OptionsData.Inserting = False - OptionsSelection.CellSelect = False - OptionsSelection.UnselectFocusedRecordOnExit = False - OptionsView.CellEndEllipsis = True - OptionsView.CellAutoHeight = True - OptionsView.ColumnAutoWidth = True - OptionsView.Footer = True - OptionsView.FooterAutoHeight = True - OptionsView.GridLineColor = cl3DLight - OptionsView.GroupByBox = False - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.HeaderEndEllipsis = True - Styles.FilterBox = cxStyleFilterBox - Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle - OnColumnPosChanged = cxGridViewColumnPosChanged - OnColumnSizeChanged = cxGridViewColumnSizeChanged - object cxGridViewFECHA: TcxGridDBColumn - Caption = 'Fecha' - DataBinding.FieldName = 'FECHA' - end - object cxGridViewDIA: TcxGridDBColumn - Caption = 'Dia' - DataBinding.FieldName = 'DIA' - end - object cxGridViewDIASEMANA: TcxGridDBColumn - Caption = 'Dia de la semana' - DataBinding.FieldName = 'DIASEMANA' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewDIASEMANAPropertiesInitPopup - end - object cxGridViewMES: TcxGridDBColumn - Caption = 'Mes' - DataBinding.FieldName = 'MES' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewMESPropertiesInitPopup - end - object cxGridViewANO: TcxGridDBColumn - Caption = 'A'#241'o' - DataBinding.FieldName = 'ANO' - end - object cxGridViewCENTRO: TcxGridDBColumn - Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewCENTROPropertiesInitPopup - end - object cxGridViewVENDEDOR: TcxGridDBColumn - Caption = 'Vendedor' - DataBinding.FieldName = 'VENDEDOR' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewVENDEDORPropertiesInitPopup - end - object cxGridViewNUMTALON: TcxGridDBColumn - Caption = 'Tal'#243'n' - DataBinding.FieldName = 'NUMTALON' - end - object cxGridViewCODIGO: TcxGridDBColumn - Caption = 'Codigo' - DataBinding.FieldName = 'CODIGO' - end - object cxGridViewPRODUCTO: TcxGridDBColumn - Caption = 'Producto' - DataBinding.FieldName = 'PRODUCTO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewPRODUCTOPropertiesInitPopup - end - object cxGridViewGRUPOPRODUCTO: TcxGridDBColumn - Caption = 'Grupo' - DataBinding.FieldName = 'GRUPOPRODUCTO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewGRUPOPRODUCTOPropertiesInitPopup - end - object cxGridViewTIPOPRODUCTO: TcxGridDBColumn - Caption = 'Tipo' - DataBinding.FieldName = 'TIPOPRODUCTO' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewTIPOPRODUCTOPropertiesInitPopup - end - object cxGridViewCOLECCION: TcxGridDBColumn - Caption = 'Coleccion' - DataBinding.FieldName = 'COLECCION' - PropertiesClassName = 'TcxComboBoxProperties' - Properties.OnInitPopup = cxGridViewCOLECCIONPropertiesInitPopup - end - object cxGridViewCOLOR: TcxGridDBColumn - Caption = 'Color' - DataBinding.FieldName = 'COLOR' - end - object cxGridViewTALLA: TcxGridDBColumn - Caption = 'Talla' - DataBinding.FieldName = 'TALLA' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTALLA38: TcxGridDBColumn - Caption = '38' - DataBinding.FieldName = 'TALLA38' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTALLA40: TcxGridDBColumn - Caption = '40' - DataBinding.FieldName = 'TALLA40' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTALLA42: TcxGridDBColumn - Caption = '42' - DataBinding.FieldName = 'TALLA42' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTALLA44: TcxGridDBColumn - Caption = '44' - DataBinding.FieldName = 'TALLA44' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTALLA46: TcxGridDBColumn - Caption = '46' - DataBinding.FieldName = 'TALLA46' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTALLA48: TcxGridDBColumn - Caption = '48' - DataBinding.FieldName = 'TALLA48' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVTATERMDEV: TcxGridDBColumn - Caption = 'Vta. Term/Dev' - DataBinding.FieldName = 'VTATERMDEV' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVTAFINALRESC: TcxGridDBColumn - Caption = 'Vta. Final/Resc' - DataBinding.FieldName = 'VTAFINALRESC' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVENTAS: TcxGridDBColumn - Caption = 'Ventas' - DataBinding.FieldName = 'VENTAS' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewDEVOLUCIONES: TcxGridDBColumn - Caption = 'Devoluciones' - DataBinding.FieldName = 'DEVOLUCIONES' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewTOTAL: TcxGridDBColumn - Caption = 'Total' - DataBinding.FieldName = 'TOTAL' - PropertiesClassName = 'TcxSpinEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVALTERMDEV: TcxGridDBColumn - Caption = 'Val. Term/Dev' - DataBinding.FieldName = 'VALTERMDEV' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewVALFINALRESC: TcxGridDBColumn - Caption = 'Val. Final/Resc' - DataBinding.FieldName = 'VALFINALRESC' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - FooterAlignmentHorz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewIMPVEN: TcxGridDBColumn - Caption = 'Imp. ventas' - DataBinding.FieldName = 'VALVEN' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewIMPDEV: TcxGridDBColumn - Caption = 'Imp. devoluciones' - DataBinding.FieldName = 'VALDEV' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - object cxGridViewIMPTOT: TcxGridDBColumn - Caption = 'Imp. total' - DataBinding.FieldName = 'VALTOT' - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.Alignment.Horz = taRightJustify - HeaderAlignmentHorz = taRightJustify - end - end - object cxGridLevel: TcxGridLevel - GridView = cxGridView - end - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxPrinterLinkcxGrid: TdxGridReportLink - Component = cxGrid - BuiltInReportLink = True - end - end - object cxStyleRepository1: TcxStyleRepository - Left = 16 - Top = 48 - object cxStyleRed: TcxStyle - AssignedValues = [svTextColor] - TextColor = clRed - end - object cxStyleBlue: TcxStyle - AssignedValues = [svTextColor] - TextColor = clBlue - end - object cxStyleFilterBox: TcxStyle - AssignedValues = [svColor, svTextColor] - Color = clInfoBk - TextColor = clWindowText - end - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.pas deleted file mode 100644 index 57a3752..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControGridlVentasTerminadas.pas +++ /dev/null @@ -1,385 +0,0 @@ -unit uViewControGridlVentasTerminadas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlGrid, DB, uDADataTable, cxStyles, cxCustomData, - cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, - cxTextEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxCurrencyEdit, cxCalendar, dxPSGlbl, dxPSUtl, dxPrnPg, dxBkgnd, dxWrap, - dxPrnDev, dxPSEngn, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPgsDlg, - cxDropDownEdit, StdCtrls, cxSpinEdit; - -type - IViewControlGridVentasTerminadas = interface(IViewControlGrid) - ['{95B6857B-0F06-470B-8099-CDB07017B63F}'] - end; - - TfrViewControlGridVentasTerminadas = class(TfrViewControlGrid, IViewControlGridVentasTerminadas) - cxGrid: TcxGrid; - cxGridView: TcxGridDBTableView; - cxGridLevel: TcxGridLevel; - cxStyleRepository1: TcxStyleRepository; - cxStyleRed: TcxStyle; - cxStyleBlue: TcxStyle; - cxStyleFilterBox: TcxStyle; - cxGridViewFECHA: TcxGridDBColumn; - cxGridViewDIA: TcxGridDBColumn; - cxGridViewDIASEMANA: TcxGridDBColumn; - cxGridViewMES: TcxGridDBColumn; - cxGridViewANO: TcxGridDBColumn; - cxGridViewCENTRO: TcxGridDBColumn; - cxGridViewVENDEDOR: TcxGridDBColumn; - cxGridViewCODIGO: TcxGridDBColumn; - cxGridViewPRODUCTO: TcxGridDBColumn; - cxGridViewGRUPOPRODUCTO: TcxGridDBColumn; - cxGridViewTIPOPRODUCTO: TcxGridDBColumn; - cxGridViewCOLECCION: TcxGridDBColumn; - cxGridViewCOLOR: TcxGridDBColumn; - cxGridViewTALLA: TcxGridDBColumn; - cxGridViewTALLA38: TcxGridDBColumn; - cxGridViewTALLA40: TcxGridDBColumn; - cxGridViewTALLA42: TcxGridDBColumn; - cxGridViewTALLA44: TcxGridDBColumn; - cxGridViewTALLA46: TcxGridDBColumn; - cxGridViewTALLA48: TcxGridDBColumn; - cxGridViewVENTAS: TcxGridDBColumn; - cxGridViewDEVOLUCIONES: TcxGridDBColumn; - cxGridViewTOTAL: TcxGridDBColumn; - cxGridViewIMPVEN: TcxGridDBColumn; - cxGridViewIMPDEV: TcxGridDBColumn; - cxGridViewIMPTOT: TcxGridDBColumn; - cxGridViewNUMTALON: TcxGridDBColumn; - cxGridViewVTATERMDEV: TcxGridDBColumn; - cxGridViewVTAFINALRESC: TcxGridDBColumn; - cxGridViewVALTERMDEV: TcxGridDBColumn; - cxGridViewVALFINALRESC: TcxGridDBColumn; - procedure cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); - procedure cxGridViewColumnPosChanged(Sender: TcxGridTableView; - AColumn: TcxGridColumn); - procedure cxGridViewColumnSizeChanged(Sender: TcxGridTableView; - AColumn: TcxGridColumn); - procedure cxGridViewDataControllerGroupingChanged(Sender: TObject); - procedure cxGridViewDataControllerSortingChanged(Sender: TObject); - procedure cxGridViewDataControllerSummaryAfterSummary( - ASender: TcxDataSummary); - procedure cxGridViewCENTROPropertiesInitPopup(Sender: TObject); - procedure cxGridViewVENDEDORPropertiesInitPopup(Sender: TObject); - procedure cxGridViewPRODUCTOPropertiesInitPopup(Sender: TObject); - procedure cxGridViewDataControllerFilterChanged(Sender: TObject); - procedure cxGridViewDIASEMANAPropertiesInitPopup(Sender: TObject); - procedure cxGridViewMESPropertiesInitPopup(Sender: TObject); - procedure cxGridViewGRUPOPRODUCTOPropertiesInitPopup(Sender: TObject); - procedure cxGridViewTIPOPRODUCTOPropertiesInitPopup(Sender: TObject); - procedure cxGridViewCOLECCIONPropertiesInitPopup(Sender: TObject); - procedure cxGridViewDataControllerCompare( - ADataController: TcxCustomDataController; ARecordIndex1, - ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; - var Compare: Integer); - protected - procedure ActivarEventos; override; - procedure DesactivarEventos; override; - function GetFocusedView : TcxGridDBTableView; override; - public - procedure Refresh; override; - constructor Create(AOwner: TComponent); override; - end; - -implementation - -uses - cxVariants, uDateUtils; - -{$R *.dfm} - -{ TfrViewControlGridVentasTerminadas } - -function TfrViewControlGridVentasTerminadas.GetFocusedView: TcxGridDBTableView; -begin - Result := cxGridView; -end; - -procedure TfrViewControlGridVentasTerminadas.Refresh; -var - FocusedRow, TopRow : Integer; -begin - inherited; - { Refrescar las filas del grid a partir del dataset y colocar la fila - seleccionada donde estaba } - if FocusedView.DataController.DataSource.DataSet.State = dsBrowse then - begin - TopRow := FocusedView.Controller.TopRowIndex; - FocusedRow := FocusedView.DataController.FocusedRowIndex; - - FocusedView.DataController.UpdateItems(False); // <- Refresco - - FocusedView.DataController.FocusedRowIndex := FocusedRow; - FocusedView.Controller.TopRowIndex := TopRow; - - { Esta chapuzilla es para que se rellenen los combobox de los filtros - por que el cxFilterControl no coge los valores la 1ª vez si los - combos están vacíos. } - TcxComboBoxProperties(cxGridViewPRODUCTO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewCENTRO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewVENDEDOR.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewDIASEMANA.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewMES.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewGRUPOPRODUCTO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewTIPOPRODUCTO.Properties).OnInitPopup(nil); - TcxComboBoxProperties(cxGridViewCOLECCION.Properties).OnInitPopup(nil); - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - AColumn : TcxGridDBColumn; - AFecha : TDateTime; -begin - inherited; - - // La fila es la cabecera de un grupo -{ if ARecord.Expandable then - Exit; - - AColumn := FocusedView.GetColumnByFieldName('FECHA'); - if Assigned(AColumn) and (AColumn.Visible) then - begin - try - AFecha := VarToDateTime(ARecord.Values[AColumn.Index]); - except - on Exception do - ShowMessage(VarToStr(ARecord.Values[AColumn.Index])); - end; - - if DaysBetween(Now, AFecha) > 14 then - AStyle := cxStyleRed - else - if DaysBetween(Now, AFecha) > 7 then - AStyle := cxStyleBlue - end; } -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewColumnPosChanged( - Sender: TcxGridTableView; AColumn: TcxGridColumn); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewColumnSizeChanged( - Sender: TcxGridTableView; AColumn: TcxGridColumn); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewDataControllerGroupingChanged( - Sender: TObject); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewDataControllerSortingChanged( - Sender: TObject); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewDataControllerSummaryAfterSummary( - ASender: TcxDataSummary); -begin - inherited; - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewCENTROPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewCENTRO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewCENTRO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewVENDEDORPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewVENDEDOR.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewVENDEDOR.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewPRODUCTOPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewPRODUCTO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewPRODUCTO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewDataControllerFilterChanged( - Sender: TObject); -begin - if Assigned(FOnFilterChanged) then - FOnFilterChanged(Self); -end; - -constructor TfrViewControlGridVentasTerminadas.Create(AOwner: TComponent); -begin - inherited; -end; - -procedure TfrViewControlGridVentasTerminadas.ActivarEventos; -begin - inherited; - with cxGridView do - begin - DataController.Filter.OnChanged := cxGridViewDataControllerFilterChanged; - DataController.Summary.OnAfterSummary := cxGridViewDataControllerSummaryAfterSummary; - DataController.OnGroupingChanged := cxGridViewDataControllerGroupingChanged; - DataController.OnSortingChanged := cxGridViewDataControllerSortingChanged; - OnColumnPosChanged := cxGridViewColumnPosChanged; - OnColumnSizeChanged := cxGridViewColumnSizeChanged; - end; -end; - -procedure TfrViewControlGridVentasTerminadas.DesactivarEventos; -begin - inherited; - with cxGridView do - begin - DataController.Filter.OnChanged := nil; - DataController.Summary.OnAfterSummary := nil; - DataController.OnGroupingChanged := nil; - DataController.OnSortingChanged := nil; - OnColumnPosChanged := nil; - OnColumnSizeChanged := nil; - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewDIASEMANAPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewDIASEMANA.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewDIASEMANA.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewMESPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewMES.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewMES.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewGRUPOPRODUCTOPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewGRUPOPRODUCTO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewGRUPOPRODUCTO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewTIPOPRODUCTOPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewTIPOPRODUCTO.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewTIPOPRODUCTO.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewCOLECCIONPropertiesInitPopup( - Sender: TObject); -begin - inherited; - with TcxComboBoxProperties(cxGridViewCOLECCION.Properties) do - begin - Items.Clear; - Items.AddStrings(FilterValueList[cxGridViewCOLECCION.Index]); - Items.Delete(1); // "Personalizado" - Items.Delete(0); // "Todos" - end; -end; - -procedure TfrViewControlGridVentasTerminadas.cxGridViewDataControllerCompare( - ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, - AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); -var - AValue1, - AValue2 : Variant; -begin - // Por defecto - Compare := VarCompare(V1, V2); - try - if (AItemIndex = cxGridViewDIASEMANA.Index) then - begin - AValue1 := ADataController.Values[ARecordIndex1, cxGridViewDIASEMANA.Index]; - AValue2 := ADataController.Values[ARecordIndex2, cxGridViewDIASEMANA.Index]; - if (not VarIsNull(AValue1)) and (not VarIsNull(AValue2)) then - Compare := VarCompare(NumberDayOfTheWeek(AValue1), NumberDayOfTheWeek(AValue2)) - end - else begin - if (AItemIndex = cxGridViewMES.Index) then - begin - AValue1 := ADataController.Values[ARecordIndex1, cxGridViewMES.Index]; - AValue2 := ADataController.Values[ARecordIndex2, cxGridViewMES.Index]; - if (not VarIsNull(AValue1)) and (not VarIsNull(AValue2)) then - Compare := VarCompare(NumberMonthOfTheYear(AValue1), NumberMonthOfTheYear(AValue2)) - end - end; - except - //ShowMessage(VarToStr(ARecordIndex1) + ' ' + VarToStr(ARecordIndex1)); - end; -end; - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.dfm deleted file mode 100644 index bc80b1d..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.dfm +++ /dev/null @@ -1,248 +0,0 @@ -inherited frViewControlVentasTerminadas: TfrViewControlVentasTerminadas - Height = 608 - ExplicitHeight = 608 - inherited TBXMultiDock1: TTBXMultiDock - Width = 232 - Height = 608 - ExplicitWidth = 232 - ExplicitHeight = 608 - inherited pnlParametros: TTBXDockablePanel - DockedWidth = 228 - ExplicitWidth = 232 - ExplicitHeight = 289 - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 228 - Height = 68 - ExplicitWidth = 228 - ExplicitHeight = 68 - inherited TBXLink1: TTBXLink - Width = 220 - Height = 20 - Action = actPeriodoFechas - ImageIndex = 4 - Images = SmallImages - ExplicitWidth = 220 - ExplicitHeight = 20 - end - inherited TBXLink5: TTBXLink - Top = 24 - Width = 220 - ExplicitTop = 24 - ExplicitWidth = 220 - end - inherited TBXLink2: TTBXLink - Top = 44 - Width = 220 - ExplicitTop = 44 - ExplicitWidth = 220 - end - end - inherited pcParametros: TPageControl - Top = 68 - Width = 228 - ExplicitTop = 68 - ExplicitWidth = 228 - inherited TabSheet5: TTabSheet - ExplicitWidth = 220 - inline frViewPeriodoFechas1: TfrViewPeriodoFechas - Left = 0 - Top = 0 - Width = 220 - Height = 159 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False - ExplicitWidth = 220 - ExplicitHeight = 159 - inherited TBXLabel1: TTBXLabel - Width = 220 - ExplicitWidth = 220 - end - inherited TBXLabel2: TTBXLabel - Width = 220 - ExplicitWidth = 220 - end - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 220 - ExplicitWidth = 220 - inherited cbPeriodo: TcxComboBox - ExplicitWidth = 176 - Width = 176 - end - end - inherited TBXAlignmentPanel2: TTBXAlignmentPanel - Width = 220 - ExplicitWidth = 220 - inherited Label2: TLabel - Width = 29 - ExplicitWidth = 29 - end - end - end - end - inherited tsColumnas: TTabSheet - ExplicitWidth = 220 - inherited frViewColumnas1: TfrViewColumnas - Width = 220 - ExplicitWidth = 220 - inherited lbColumnas: TcxCheckListBox - Width = 220 - ExplicitWidth = 220 - end - inherited TBXLabel1: TTBXLabel - Width = 220 - ExplicitWidth = 220 - end - end - end - inherited tsAgrupacion: TTabSheet - ExplicitWidth = 220 - inherited frViewAgrupaciones1: TfrViewAgrupaciones - Width = 220 - ExplicitWidth = 220 - inherited TBXLabel1: TTBXLabel - Width = 220 - ExplicitWidth = 220 - end - inherited pnlAgrupaciones: TTBXAlignmentPanel - Width = 220 - ExplicitWidth = 220 - DesignSize = ( - 220 - 77) - end - end - end - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Top = 237 - Width = 228 - ExplicitTop = 237 - ExplicitWidth = 228 - end - end - inherited pnlTareas: TTBXDockablePanel - Top = 289 - DockedWidth = 228 - DockPos = 289 - Visible = False - ExplicitTop = 289 - ExplicitWidth = 232 - inherited TBXPageScroller1: TTBXPageScroller - Width = 228 - ExplicitWidth = 228 - inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 228 - ExplicitWidth = 228 - inherited bFiltros: TTBXLink - Width = 220 - ExplicitWidth = 220 - end - inherited bSumarios: TTBXLink - Width = 220 - ExplicitWidth = 220 - end - end - inherited pcTareas: TPageControl - Width = 228 - ExplicitWidth = 228 - inherited tsSumarios: TTabSheet - ExplicitWidth = 220 - inherited frViewSumarios1: TfrViewSumarios - Width = 220 - ExplicitWidth = 220 - inherited TBXLabel1: TTBXLabel - Width = 220 - ExplicitWidth = 220 - end - inherited vgSumarios: TcxVerticalGrid - Width = 220 - ExplicitWidth = 220 - end - end - end - inherited tsFiltros: TTabSheet - ExplicitWidth = 220 - inherited frViewFiltros1: TfrViewFiltros - Width = 220 - ExplicitWidth = 220 - inherited TBXLabel1: TTBXLabel - Width = 220 - ExplicitWidth = 220 - end - inherited cxFilterControl1: TcxFilterControl - Width = 220 - ExplicitWidth = 220 - end - inherited TBXAlignmentPanel3: TTBXAlignmentPanel - Width = 220 - ExplicitWidth = 220 - end - inherited cxStyleRepository1: TcxStyleRepository - Left = 136 - Top = 64 - end - end - end - end - end - end - end - inline frViewControlGridVentasTerminadas1: TfrViewControlGridVentasTerminadas [1] - Left = 232 - Top = 0 - Width = 467 - Height = 608 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 1 - ReadOnly = False - ExplicitLeft = 232 - ExplicitWidth = 467 - ExplicitHeight = 608 - inherited cxGrid: TcxGrid - Width = 467 - Height = 608 - ExplicitWidth = 467 - ExplicitHeight = 608 - end - inherited dxPrintStyleManager1: TdxPrintStyleManager - inherited dxPrintStyleManager1Style1: TdxPSPrintStyle - BuiltInStyle = True - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxPrinterLinkcxGrid: TdxGridReportLink - BuiltInReportLink = True - end - end - end - inherited SmallImages: TPngImageList [2] - end - inherited LargeImages: TPngImageList [3] - end - inherited EditorActionList: TActionList - Left = 248 - Top = 72 - inherited actRefrescar: TAction - OnExecute = actRefrescarExecute - end - object actPeriodoFechas: TAction - Category = 'Tareas' - Caption = 'Periodo de fechas' - ImageIndex = 4 - OnExecute = actPeriodoFechasExecute - end - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.pas deleted file mode 100644 index efa6b59..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlVentasTerminadas.pas +++ /dev/null @@ -1,148 +0,0 @@ -unit uViewControlVentasTerminadas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlBase, ActnList, ImgList, PngImageList, uViewGrid, - uViewControlGrid, uViewSumarios, TBXDkPanels, StdCtrls, - uViewAgrupaciones, uCustomView, uViewBase, uViewColumnas, ComCtrls, - TB2Dock, uViewParametrosControlGrid, uBizControlesBase, cxStyles, - cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, - cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, - cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, - cxTextEdit, uViewFiltros, - uViewControGridlVentasTerminadas, uViewPeriodoFechas; - -type - IViewControlVentasTerminadas = interface(IViewControlBase) - ['{B8B9105B-E833-4E7D-BA36-EB9A7EBDCE69}'] - end; - - TfrViewControlVentasTerminadas = class(TfrViewControlBase, IViewControlVentasTerminadas) - frViewPeriodoFechas1: TfrViewPeriodoFechas; - actPeriodoFechas: TAction; - frViewControlGridVentasTerminadas1: TfrViewControlGridVentasTerminadas; - procedure actRefrescarExecute(Sender: TObject); - procedure actPeriodoFechasExecute(Sender: TObject); - protected - FModificado : Boolean; - procedure OnViewControlGridChanged(Sender : TObject); - procedure OnFilterChanged(Sender : TObject); - procedure ActivarTarea(const ATarea: Integer); override; - public - constructor Create(AOwner: TComponent); override; - procedure Refresh; override; - end; - -implementation - -uses - uDataModuleVentasTerminadas, uBizControlVentasTerminadas, uBizVentasTerminadas; - -const - PERIODO = 0; - -{$R *.dfm} - -{ TfrViewControlVentasTerminadas } - -constructor TfrViewControlVentasTerminadas.Create(AOwner: TComponent); -begin - inherited; - frViewControlGridVentasTerminadas1.OnViewChanged := OnViewControlGridChanged; - frViewControlGridVentasTerminadas1.OnFilterChanged := OnFilterChanged; - frViewColumnas1.ViewControlGrid := frViewControlGridVentasTerminadas1; - frViewAgrupaciones1.ViewControlGrid := frViewControlGridVentasTerminadas1; - frViewSumarios1.ViewControlGrid := frViewControlGridVentasTerminadas1; - frViewFiltros1.ViewControlGrid := frViewControlGridVentasTerminadas1; - pcParametros.ActivePage := TabSheet5; -end; - -procedure TfrViewControlVentasTerminadas.Refresh; -var - AColumns : TStringList; -begin - inherited; - ShowHourglassCursor; - actRefrescar.Enabled := False; - - frViewControlGridVentasTerminadas1.OnViewChanged := nil; - frViewControlGridVentasTerminadas1.OnFilterChanged := nil; - - try - // Calcular las columnas a pedir al servidor - AColumns := frViewColumnas1.GetCheckedColumns; - AColumns.Duplicates := dupIgnore; - AColumns.AddStrings(frViewAgrupaciones1.GetAgrupaciones); - - (Control as IBizControlVentasTerminadas).Items.VisibleColumns := AColumns.CommaText; - with (Control as IBizControlVentasTerminadas).Items.DataTable do - begin - DisableControls; - try - Active := False; - LoadSchema; - ParamByName('FECHAINI').AsDateTime := frViewPeriodoFechas1.FechaInicial; - ParamByName('FECHAFIN').AsDateTime := frViewPeriodoFechas1.FechaFinal; - Active := True; - - frViewColumnas1.Execute; - frViewAgrupaciones1.Execute; - frViewSumarios1.Refresh; - frViewFiltros1.Refresh; - pnlTareas.Visible := True; - - if Assigned(FOnViewChanged) then - FOnViewChanged(Self); - finally - EnableControls; - frViewControlGridVentasTerminadas1.Refresh; - frViewControlGridVentasTerminadas1.ExpandirTodo; - frViewControlGridVentasTerminadas1.GotoFirst; - end; - end; - finally - FreeAndNil(AColumns); - frViewControlGridVentasTerminadas1.OnViewChanged := OnViewControlGridChanged; - frViewControlGridVentasTerminadas1.OnFilterChanged := OnFilterChanged; - actRefrescar.Enabled := True; - HideHourglassCursor; - end; -end; - -procedure TfrViewControlVentasTerminadas.actRefrescarExecute(Sender: TObject); -begin - inherited; - Refresh; -end; - -procedure TfrViewControlVentasTerminadas.OnViewControlGridChanged( - Sender: TObject); -begin - if Assigned(Self.OnViewChanged) then - Self.OnViewChanged(Self); -end; - -procedure TfrViewControlVentasTerminadas.OnFilterChanged(Sender: TObject); -begin - frViewFiltros1.Refresh; -end; - -procedure TfrViewControlVentasTerminadas.actPeriodoFechasExecute( - Sender: TObject); -begin - inherited; - ActivarTarea(PERIODO); -end; - -procedure TfrViewControlVentasTerminadas.ActivarTarea( - const ATarea: Integer); -begin - inherited; - case ATarea of - PERIODO : pcParametros.ActivePage := TabSheet5; - end; -end; - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlesVentasTerminadas.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlesVentasTerminadas.dfm deleted file mode 100644 index 65e3160..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlesVentasTerminadas.dfm +++ /dev/null @@ -1,11 +0,0 @@ -inherited frViewControlesVentasTerminadas: TfrViewControlesVentasTerminadas - inherited EasyListview: TEasyListview - Header.Columns.Items = { - 0400000002000000FFFECE000400000000110001000001000000000100013200 - 000001000000060000004E006F006D0062007200650000000000000000000000 - 0000FFFECE000400000000110001000001010000000000013200000001000000 - 0B000000440065007300630072006900700063006900F3006E00000000000000 - 000000000000} - Header.Visible = True - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlesVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlesVentasTerminadas.pas deleted file mode 100644 index c031e43..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Cliente/uViewControlesVentasTerminadas.pas +++ /dev/null @@ -1,24 +0,0 @@ -unit uViewControlesVentasTerminadas; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewControlesBase, cxGraphics, cxCustomData, cxStyles, cxTL, - cxImageComboBox, cxMaskEdit, cxTextEdit, DB, uDADataTable, ImgList, - PngImageList, cxInplaceContainer, cxDBTL, cxControls, cxTLData, - MPCommonObjects, MPCommonUtilities, EasyListview, uDAInterfaces; - -type - IViewControlesVentasTerminadas = interface(IViewControlesBase) - ['{0AFCCF6C-F5FB-4E88-9E8C-5B27D84F0D56}'] - end; - - TfrViewControlesVentasTerminadas = class(TfrViewControlesBase, IViewControlesVentasTerminadas) - end; - -implementation - -{$R *.dfm} - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas deleted file mode 100644 index 8f7213b..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas +++ /dev/null @@ -1,1331 +0,0 @@ -unit schVentasTerminadasClient_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; - -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_VentasTerminadasCrossTab = '{2E68D174-CE7E-4597-A951-7670FA84D874}'; - RID_VentasTerminadas = '{F20667F0-C1D2-4500-8E10-1B8577467C80}'; - - { Data table names } - nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab'; - nme_VentasTerminadas = 'VentasTerminadas'; - - { VentasTerminadasCrossTab fields } - - { VentasTerminadasCrossTab field indexes } - - { VentasTerminadas fields } - fld_VentasTerminadasNUMINF = 'NUMINF'; - fld_VentasTerminadasCLAVE1 = 'CLAVE1'; - fld_VentasTerminadasCLAVE2 = 'CLAVE2'; - fld_VentasTerminadasCLAVE3 = 'CLAVE3'; - fld_VentasTerminadasFECHA = 'FECHA'; - fld_VentasTerminadasDIA = 'DIA'; - fld_VentasTerminadasDIASEMANA = 'DIASEMANA'; - fld_VentasTerminadasMES = 'MES'; - fld_VentasTerminadasANO = 'ANO'; - fld_VentasTerminadasCENTRO = 'CENTRO'; - fld_VentasTerminadasVENDEDOR = 'VENDEDOR'; - fld_VentasTerminadasNUMTALON = 'NUMTALON'; - fld_VentasTerminadasCODIGO = 'CODIGO'; - fld_VentasTerminadasPRODUCTO = 'PRODUCTO'; - fld_VentasTerminadasGRUPOPRODUCTO = 'GRUPOPRODUCTO'; - fld_VentasTerminadasTIPOPRODUCTO = 'TIPOPRODUCTO'; - fld_VentasTerminadasCOLECCION = 'COLECCION'; - fld_VentasTerminadasCOLOR = 'COLOR'; - fld_VentasTerminadasTALLA = 'TALLA'; - fld_VentasTerminadasTALLA38 = 'TALLA38'; - fld_VentasTerminadasTALLA40 = 'TALLA40'; - fld_VentasTerminadasTALLA42 = 'TALLA42'; - fld_VentasTerminadasTALLA44 = 'TALLA44'; - fld_VentasTerminadasTALLA46 = 'TALLA46'; - fld_VentasTerminadasTALLA48 = 'TALLA48'; - fld_VentasTerminadasVTATERMDEV = 'VTATERMDEV'; - fld_VentasTerminadasVTAFINALRESC = 'VTAFINALRESC'; - fld_VentasTerminadasVENTAS = 'VENTAS'; - fld_VentasTerminadasDEVOLUCIONES = 'DEVOLUCIONES'; - fld_VentasTerminadasTOTAL = 'TOTAL'; - fld_VentasTerminadasVALTERMDEV = 'VALTERMDEV'; - fld_VentasTerminadasVALFINALRESC = 'VALFINALRESC'; - fld_VentasTerminadasVALVEN = 'VALVEN'; - fld_VentasTerminadasVALDEV = 'VALDEV'; - fld_VentasTerminadasVALTOT = 'VALTOT'; - - { VentasTerminadas field indexes } - idx_VentasTerminadasNUMINF = 0; - idx_VentasTerminadasCLAVE1 = 1; - idx_VentasTerminadasCLAVE2 = 2; - idx_VentasTerminadasCLAVE3 = 3; - idx_VentasTerminadasFECHA = 4; - idx_VentasTerminadasDIA = 5; - idx_VentasTerminadasDIASEMANA = 6; - idx_VentasTerminadasMES = 7; - idx_VentasTerminadasANO = 8; - idx_VentasTerminadasCENTRO = 9; - idx_VentasTerminadasVENDEDOR = 10; - idx_VentasTerminadasNUMTALON = 11; - idx_VentasTerminadasCODIGO = 12; - idx_VentasTerminadasPRODUCTO = 13; - idx_VentasTerminadasGRUPOPRODUCTO = 14; - idx_VentasTerminadasTIPOPRODUCTO = 15; - idx_VentasTerminadasCOLECCION = 16; - idx_VentasTerminadasCOLOR = 17; - idx_VentasTerminadasTALLA = 18; - idx_VentasTerminadasTALLA38 = 19; - idx_VentasTerminadasTALLA40 = 20; - idx_VentasTerminadasTALLA42 = 21; - idx_VentasTerminadasTALLA44 = 22; - idx_VentasTerminadasTALLA46 = 23; - idx_VentasTerminadasTALLA48 = 24; - idx_VentasTerminadasVTATERMDEV = 25; - idx_VentasTerminadasVTAFINALRESC = 26; - idx_VentasTerminadasVENTAS = 27; - idx_VentasTerminadasDEVOLUCIONES = 28; - idx_VentasTerminadasTOTAL = 29; - idx_VentasTerminadasVALTERMDEV = 30; - idx_VentasTerminadasVALFINALRESC = 31; - idx_VentasTerminadasVALVEN = 32; - idx_VentasTerminadasVALDEV = 33; - idx_VentasTerminadasVALTOT = 34; - -type - { IVentasTerminadasCrossTab } - IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable) - ['{F1FA92FE-5A97-4645-A93A-CAFA9775A238}'] - { Property getters and setters } - - - { Properties } - end; - - { TVentasTerminadasCrossTabDataTableRules } - TVentasTerminadasCrossTabDataTableRules = class(TDADataTableRules, IVentasTerminadasCrossTab) - private - protected - { Property getters and setters } - - { Properties } - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IVentasTerminadas } - IVentasTerminadas = interface(IDAStronglyTypedDataTable) - ['{78DAAFC9-9EAE-4237-B301-3103B6C18EF2}'] - { Property getters and setters } - function GetNUMINFValue: String; - procedure SetNUMINFValue(const aValue: String); - function GetNUMINFIsNull: Boolean; - procedure SetNUMINFIsNull(const aValue: Boolean); - function GetCLAVE1Value: TBcd; - procedure SetCLAVE1Value(const aValue: TBcd); - function GetCLAVE1IsNull: Boolean; - procedure SetCLAVE1IsNull(const aValue: Boolean); - function GetCLAVE2Value: Integer; - procedure SetCLAVE2Value(const aValue: Integer); - function GetCLAVE2IsNull: Boolean; - procedure SetCLAVE2IsNull(const aValue: Boolean); - function GetCLAVE3Value: Integer; - procedure SetCLAVE3Value(const aValue: Integer); - function GetCLAVE3IsNull: Boolean; - procedure SetCLAVE3IsNull(const aValue: Boolean); - function GetFECHAValue: DateTime; - procedure SetFECHAValue(const aValue: DateTime); - function GetFECHAIsNull: Boolean; - procedure SetFECHAIsNull(const aValue: Boolean); - function GetDIAValue: Integer; - procedure SetDIAValue(const aValue: Integer); - function GetDIAIsNull: Boolean; - procedure SetDIAIsNull(const aValue: Boolean); - function GetDIASEMANAValue: WideString; - procedure SetDIASEMANAValue(const aValue: WideString); - function GetDIASEMANAIsNull: Boolean; - procedure SetDIASEMANAIsNull(const aValue: Boolean); - function GetMESValue: WideString; - procedure SetMESValue(const aValue: WideString); - function GetMESIsNull: Boolean; - procedure SetMESIsNull(const aValue: Boolean); - function GetANOValue: Integer; - procedure SetANOValue(const aValue: Integer); - function GetANOIsNull: Boolean; - procedure SetANOIsNull(const aValue: Boolean); - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetCENTROIsNull: Boolean; - procedure SetCENTROIsNull(const aValue: Boolean); - function GetVENDEDORValue: String; - procedure SetVENDEDORValue(const aValue: String); - function GetVENDEDORIsNull: Boolean; - procedure SetVENDEDORIsNull(const aValue: Boolean); - function GetNUMTALONValue: String; - procedure SetNUMTALONValue(const aValue: String); - function GetNUMTALONIsNull: Boolean; - procedure SetNUMTALONIsNull(const aValue: Boolean); - function GetCODIGOValue: String; - procedure SetCODIGOValue(const aValue: String); - function GetCODIGOIsNull: Boolean; - procedure SetCODIGOIsNull(const aValue: Boolean); - function GetPRODUCTOValue: String; - procedure SetPRODUCTOValue(const aValue: String); - function GetPRODUCTOIsNull: Boolean; - procedure SetPRODUCTOIsNull(const aValue: Boolean); - function GetGRUPOPRODUCTOValue: String; - procedure SetGRUPOPRODUCTOValue(const aValue: String); - function GetGRUPOPRODUCTOIsNull: Boolean; - procedure SetGRUPOPRODUCTOIsNull(const aValue: Boolean); - function GetTIPOPRODUCTOValue: String; - procedure SetTIPOPRODUCTOValue(const aValue: String); - function GetTIPOPRODUCTOIsNull: Boolean; - procedure SetTIPOPRODUCTOIsNull(const aValue: Boolean); - function GetCOLECCIONValue: String; - procedure SetCOLECCIONValue(const aValue: String); - function GetCOLECCIONIsNull: Boolean; - procedure SetCOLECCIONIsNull(const aValue: Boolean); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetCOLORIsNull: Boolean; - procedure SetCOLORIsNull(const aValue: Boolean); - function GetTALLAValue: String; - procedure SetTALLAValue(const aValue: String); - function GetTALLAIsNull: Boolean; - procedure SetTALLAIsNull(const aValue: Boolean); - function GetTALLA38Value: TBcd; - procedure SetTALLA38Value(const aValue: TBcd); - function GetTALLA38IsNull: Boolean; - procedure SetTALLA38IsNull(const aValue: Boolean); - function GetTALLA40Value: TBcd; - procedure SetTALLA40Value(const aValue: TBcd); - function GetTALLA40IsNull: Boolean; - procedure SetTALLA40IsNull(const aValue: Boolean); - function GetTALLA42Value: TBcd; - procedure SetTALLA42Value(const aValue: TBcd); - function GetTALLA42IsNull: Boolean; - procedure SetTALLA42IsNull(const aValue: Boolean); - function GetTALLA44Value: TBcd; - procedure SetTALLA44Value(const aValue: TBcd); - function GetTALLA44IsNull: Boolean; - procedure SetTALLA44IsNull(const aValue: Boolean); - function GetTALLA46Value: TBcd; - procedure SetTALLA46Value(const aValue: TBcd); - function GetTALLA46IsNull: Boolean; - procedure SetTALLA46IsNull(const aValue: Boolean); - function GetTALLA48Value: TBcd; - procedure SetTALLA48Value(const aValue: TBcd); - function GetTALLA48IsNull: Boolean; - procedure SetTALLA48IsNull(const aValue: Boolean); - function GetVTATERMDEVValue: TBcd; - procedure SetVTATERMDEVValue(const aValue: TBcd); - function GetVTATERMDEVIsNull: Boolean; - procedure SetVTATERMDEVIsNull(const aValue: Boolean); - function GetVTAFINALRESCValue: TBcd; - procedure SetVTAFINALRESCValue(const aValue: TBcd); - function GetVTAFINALRESCIsNull: Boolean; - procedure SetVTAFINALRESCIsNull(const aValue: Boolean); - function GetVENTASValue: TBcd; - procedure SetVENTASValue(const aValue: TBcd); - function GetVENTASIsNull: Boolean; - procedure SetVENTASIsNull(const aValue: Boolean); - function GetDEVOLUCIONESValue: TBcd; - procedure SetDEVOLUCIONESValue(const aValue: TBcd); - function GetDEVOLUCIONESIsNull: Boolean; - procedure SetDEVOLUCIONESIsNull(const aValue: Boolean); - function GetTOTALValue: TBcd; - procedure SetTOTALValue(const aValue: TBcd); - function GetTOTALIsNull: Boolean; - procedure SetTOTALIsNull(const aValue: Boolean); - function GetVALTERMDEVValue: TBcd; - procedure SetVALTERMDEVValue(const aValue: TBcd); - function GetVALTERMDEVIsNull: Boolean; - procedure SetVALTERMDEVIsNull(const aValue: Boolean); - function GetVALFINALRESCValue: TBcd; - procedure SetVALFINALRESCValue(const aValue: TBcd); - function GetVALFINALRESCIsNull: Boolean; - procedure SetVALFINALRESCIsNull(const aValue: Boolean); - function GetVALVENValue: TBcd; - procedure SetVALVENValue(const aValue: TBcd); - function GetVALVENIsNull: Boolean; - procedure SetVALVENIsNull(const aValue: Boolean); - function GetVALDEVValue: TBcd; - procedure SetVALDEVValue(const aValue: TBcd); - function GetVALDEVIsNull: Boolean; - procedure SetVALDEVIsNull(const aValue: Boolean); - function GetVALTOTValue: TBcd; - procedure SetVALTOTValue(const aValue: TBcd); - function GetVALTOTIsNull: Boolean; - procedure SetVALTOTIsNull(const aValue: Boolean); - - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull; - property CLAVE1: TBcd read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; - property DIA: Integer read GetDIAValue write SetDIAValue; - property DIAIsNull: Boolean read GetDIAIsNull write SetDIAIsNull; - property DIASEMANA: WideString read GetDIASEMANAValue write SetDIASEMANAValue; - property DIASEMANAIsNull: Boolean read GetDIASEMANAIsNull write SetDIASEMANAIsNull; - property MES: WideString read GetMESValue write SetMESValue; - property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull; - property ANO: Integer read GetANOValue write SetANOValue; - property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; - property GRUPOPRODUCTO: String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue; - property GRUPOPRODUCTOIsNull: Boolean read GetGRUPOPRODUCTOIsNull write SetGRUPOPRODUCTOIsNull; - property TIPOPRODUCTO: String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue; - property TIPOPRODUCTOIsNull: Boolean read GetTIPOPRODUCTOIsNull write SetTIPOPRODUCTOIsNull; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull; - property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value; - property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull; - property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value; - property TALLA40IsNull: Boolean read GetTALLA40IsNull write SetTALLA40IsNull; - property TALLA42: TBcd read GetTALLA42Value write SetTALLA42Value; - property TALLA42IsNull: Boolean read GetTALLA42IsNull write SetTALLA42IsNull; - property TALLA44: TBcd read GetTALLA44Value write SetTALLA44Value; - property TALLA44IsNull: Boolean read GetTALLA44IsNull write SetTALLA44IsNull; - property TALLA46: TBcd read GetTALLA46Value write SetTALLA46Value; - property TALLA46IsNull: Boolean read GetTALLA46IsNull write SetTALLA46IsNull; - property TALLA48: TBcd read GetTALLA48Value write SetTALLA48Value; - property TALLA48IsNull: Boolean read GetTALLA48IsNull write SetTALLA48IsNull; - property VTATERMDEV: TBcd read GetVTATERMDEVValue write SetVTATERMDEVValue; - property VTATERMDEVIsNull: Boolean read GetVTATERMDEVIsNull write SetVTATERMDEVIsNull; - property VTAFINALRESC: TBcd read GetVTAFINALRESCValue write SetVTAFINALRESCValue; - property VTAFINALRESCIsNull: Boolean read GetVTAFINALRESCIsNull write SetVTAFINALRESCIsNull; - property VENTAS: TBcd read GetVENTASValue write SetVENTASValue; - property VENTASIsNull: Boolean read GetVENTASIsNull write SetVENTASIsNull; - property DEVOLUCIONES: TBcd read GetDEVOLUCIONESValue write SetDEVOLUCIONESValue; - property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull; - property TOTAL: TBcd read GetTOTALValue write SetTOTALValue; - property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; - property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue; - property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull; - property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue; - property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull; - property VALVEN: TBcd read GetVALVENValue write SetVALVENValue; - property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull; - property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue; - property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull; - property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue; - property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; - end; - - { TVentasTerminadasDataTableRules } - TVentasTerminadasDataTableRules = class(TDADataTableRules, IVentasTerminadas) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetNUMINFIsNull: Boolean; virtual; - procedure SetNUMINFIsNull(const aValue: Boolean); virtual; - function GetCLAVE1Value: TBcd; virtual; - procedure SetCLAVE1Value(const aValue: TBcd); virtual; - function GetCLAVE1IsNull: Boolean; virtual; - procedure SetCLAVE1IsNull(const aValue: Boolean); virtual; - function GetCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetCLAVE2IsNull: Boolean; virtual; - procedure SetCLAVE2IsNull(const aValue: Boolean); virtual; - function GetCLAVE3Value: Integer; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - function GetCLAVE3IsNull: Boolean; virtual; - procedure SetCLAVE3IsNull(const aValue: Boolean); virtual; - function GetFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetFECHAIsNull: Boolean; virtual; - procedure SetFECHAIsNull(const aValue: Boolean); virtual; - function GetDIAValue: Integer; virtual; - procedure SetDIAValue(const aValue: Integer); virtual; - function GetDIAIsNull: Boolean; virtual; - procedure SetDIAIsNull(const aValue: Boolean); virtual; - function GetDIASEMANAValue: WideString; virtual; - procedure SetDIASEMANAValue(const aValue: WideString); virtual; - function GetDIASEMANAIsNull: Boolean; virtual; - procedure SetDIASEMANAIsNull(const aValue: Boolean); virtual; - function GetMESValue: WideString; virtual; - procedure SetMESValue(const aValue: WideString); virtual; - function GetMESIsNull: Boolean; virtual; - procedure SetMESIsNull(const aValue: Boolean); virtual; - function GetANOValue: Integer; virtual; - procedure SetANOValue(const aValue: Integer); virtual; - function GetANOIsNull: Boolean; virtual; - procedure SetANOIsNull(const aValue: Boolean); virtual; - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetCENTROIsNull: Boolean; virtual; - procedure SetCENTROIsNull(const aValue: Boolean); virtual; - function GetVENDEDORValue: String; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - function GetVENDEDORIsNull: Boolean; virtual; - procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; - function GetNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetNUMTALONIsNull: Boolean; virtual; - procedure SetNUMTALONIsNull(const aValue: Boolean); virtual; - function GetCODIGOValue: String; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - function GetCODIGOIsNull: Boolean; virtual; - procedure SetCODIGOIsNull(const aValue: Boolean); virtual; - function GetPRODUCTOValue: String; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - function GetPRODUCTOIsNull: Boolean; virtual; - procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; - function GetGRUPOPRODUCTOValue: String; virtual; - procedure SetGRUPOPRODUCTOValue(const aValue: String); virtual; - function GetGRUPOPRODUCTOIsNull: Boolean; virtual; - procedure SetGRUPOPRODUCTOIsNull(const aValue: Boolean); virtual; - function GetTIPOPRODUCTOValue: String; virtual; - procedure SetTIPOPRODUCTOValue(const aValue: String); virtual; - function GetTIPOPRODUCTOIsNull: Boolean; virtual; - procedure SetTIPOPRODUCTOIsNull(const aValue: Boolean); virtual; - function GetCOLECCIONValue: String; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - function GetCOLECCIONIsNull: Boolean; virtual; - procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetCOLORIsNull: Boolean; virtual; - procedure SetCOLORIsNull(const aValue: Boolean); virtual; - function GetTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetTALLAIsNull: Boolean; virtual; - procedure SetTALLAIsNull(const aValue: Boolean); virtual; - function GetTALLA38Value: TBcd; virtual; - procedure SetTALLA38Value(const aValue: TBcd); virtual; - function GetTALLA38IsNull: Boolean; virtual; - procedure SetTALLA38IsNull(const aValue: Boolean); virtual; - function GetTALLA40Value: TBcd; virtual; - procedure SetTALLA40Value(const aValue: TBcd); virtual; - function GetTALLA40IsNull: Boolean; virtual; - procedure SetTALLA40IsNull(const aValue: Boolean); virtual; - function GetTALLA42Value: TBcd; virtual; - procedure SetTALLA42Value(const aValue: TBcd); virtual; - function GetTALLA42IsNull: Boolean; virtual; - procedure SetTALLA42IsNull(const aValue: Boolean); virtual; - function GetTALLA44Value: TBcd; virtual; - procedure SetTALLA44Value(const aValue: TBcd); virtual; - function GetTALLA44IsNull: Boolean; virtual; - procedure SetTALLA44IsNull(const aValue: Boolean); virtual; - function GetTALLA46Value: TBcd; virtual; - procedure SetTALLA46Value(const aValue: TBcd); virtual; - function GetTALLA46IsNull: Boolean; virtual; - procedure SetTALLA46IsNull(const aValue: Boolean); virtual; - function GetTALLA48Value: TBcd; virtual; - procedure SetTALLA48Value(const aValue: TBcd); virtual; - function GetTALLA48IsNull: Boolean; virtual; - procedure SetTALLA48IsNull(const aValue: Boolean); virtual; - function GetVTATERMDEVValue: TBcd; virtual; - procedure SetVTATERMDEVValue(const aValue: TBcd); virtual; - function GetVTATERMDEVIsNull: Boolean; virtual; - procedure SetVTATERMDEVIsNull(const aValue: Boolean); virtual; - function GetVTAFINALRESCValue: TBcd; virtual; - procedure SetVTAFINALRESCValue(const aValue: TBcd); virtual; - function GetVTAFINALRESCIsNull: Boolean; virtual; - procedure SetVTAFINALRESCIsNull(const aValue: Boolean); virtual; - function GetVENTASValue: TBcd; virtual; - procedure SetVENTASValue(const aValue: TBcd); virtual; - function GetVENTASIsNull: Boolean; virtual; - procedure SetVENTASIsNull(const aValue: Boolean); virtual; - function GetDEVOLUCIONESValue: TBcd; virtual; - procedure SetDEVOLUCIONESValue(const aValue: TBcd); virtual; - function GetDEVOLUCIONESIsNull: Boolean; virtual; - procedure SetDEVOLUCIONESIsNull(const aValue: Boolean); virtual; - function GetTOTALValue: TBcd; virtual; - procedure SetTOTALValue(const aValue: TBcd); virtual; - function GetTOTALIsNull: Boolean; virtual; - procedure SetTOTALIsNull(const aValue: Boolean); virtual; - function GetVALTERMDEVValue: TBcd; virtual; - procedure SetVALTERMDEVValue(const aValue: TBcd); virtual; - function GetVALTERMDEVIsNull: Boolean; virtual; - procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual; - function GetVALFINALRESCValue: TBcd; virtual; - procedure SetVALFINALRESCValue(const aValue: TBcd); virtual; - function GetVALFINALRESCIsNull: Boolean; virtual; - procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual; - function GetVALVENValue: TBcd; virtual; - procedure SetVALVENValue(const aValue: TBcd); virtual; - function GetVALVENIsNull: Boolean; virtual; - procedure SetVALVENIsNull(const aValue: Boolean); virtual; - function GetVALDEVValue: TBcd; virtual; - procedure SetVALDEVValue(const aValue: TBcd); virtual; - function GetVALDEVIsNull: Boolean; virtual; - procedure SetVALDEVIsNull(const aValue: Boolean); virtual; - function GetVALTOTValue: TBcd; virtual; - procedure SetVALTOTValue(const aValue: TBcd); virtual; - function GetVALTOTIsNull: Boolean; virtual; - procedure SetVALTOTIsNull(const aValue: Boolean); virtual; - - { Properties } - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull; - property CLAVE1: TBcd read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; - property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; - property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; - property DIA: Integer read GetDIAValue write SetDIAValue; - property DIAIsNull: Boolean read GetDIAIsNull write SetDIAIsNull; - property DIASEMANA: WideString read GetDIASEMANAValue write SetDIASEMANAValue; - property DIASEMANAIsNull: Boolean read GetDIASEMANAIsNull write SetDIASEMANAIsNull; - property MES: WideString read GetMESValue write SetMESValue; - property MESIsNull: Boolean read GetMESIsNull write SetMESIsNull; - property ANO: Integer read GetANOValue write SetANOValue; - property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; - property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; - property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; - property CODIGO: String read GetCODIGOValue write SetCODIGOValue; - property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; - property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; - property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; - property GRUPOPRODUCTO: String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue; - property GRUPOPRODUCTOIsNull: Boolean read GetGRUPOPRODUCTOIsNull write SetGRUPOPRODUCTOIsNull; - property TIPOPRODUCTO: String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue; - property TIPOPRODUCTOIsNull: Boolean read GetTIPOPRODUCTOIsNull write SetTIPOPRODUCTOIsNull; - property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull; - property TALLA38: TBcd read GetTALLA38Value write SetTALLA38Value; - property TALLA38IsNull: Boolean read GetTALLA38IsNull write SetTALLA38IsNull; - property TALLA40: TBcd read GetTALLA40Value write SetTALLA40Value; - property TALLA40IsNull: Boolean read GetTALLA40IsNull write SetTALLA40IsNull; - property TALLA42: TBcd read GetTALLA42Value write SetTALLA42Value; - property TALLA42IsNull: Boolean read GetTALLA42IsNull write SetTALLA42IsNull; - property TALLA44: TBcd read GetTALLA44Value write SetTALLA44Value; - property TALLA44IsNull: Boolean read GetTALLA44IsNull write SetTALLA44IsNull; - property TALLA46: TBcd read GetTALLA46Value write SetTALLA46Value; - property TALLA46IsNull: Boolean read GetTALLA46IsNull write SetTALLA46IsNull; - property TALLA48: TBcd read GetTALLA48Value write SetTALLA48Value; - property TALLA48IsNull: Boolean read GetTALLA48IsNull write SetTALLA48IsNull; - property VTATERMDEV: TBcd read GetVTATERMDEVValue write SetVTATERMDEVValue; - property VTATERMDEVIsNull: Boolean read GetVTATERMDEVIsNull write SetVTATERMDEVIsNull; - property VTAFINALRESC: TBcd read GetVTAFINALRESCValue write SetVTAFINALRESCValue; - property VTAFINALRESCIsNull: Boolean read GetVTAFINALRESCIsNull write SetVTAFINALRESCIsNull; - property VENTAS: TBcd read GetVENTASValue write SetVENTASValue; - property VENTASIsNull: Boolean read GetVENTASIsNull write SetVENTASIsNull; - property DEVOLUCIONES: TBcd read GetDEVOLUCIONESValue write SetDEVOLUCIONESValue; - property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull; - property TOTAL: TBcd read GetTOTALValue write SetTOTALValue; - property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; - property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue; - property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull; - property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue; - property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull; - property VALVEN: TBcd read GetVALVENValue write SetVALVENValue; - property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull; - property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue; - property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull; - property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue; - property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TVentasTerminadasCrossTabDataTableRules } -constructor TVentasTerminadasCrossTabDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TVentasTerminadasCrossTabDataTableRules.Destroy; -begin - inherited; -end; - - -{ TVentasTerminadasDataTableRules } -constructor TVentasTerminadasDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TVentasTerminadasDataTableRules.Destroy; -begin - inherited; -end; - -function TVentasTerminadasDataTableRules.GetNUMINFValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasNUMINF].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetNUMINFValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasNUMINF].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetNUMINFIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasNUMINF].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetNUMINFIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasNUMINF].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCLAVE1Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasCLAVE1].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetCLAVE1Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasCLAVE1].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCLAVE1IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCLAVE1].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCLAVE1IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCLAVE1].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCLAVE2Value: Integer; -begin - result := DataTable.Fields[idx_VentasTerminadasCLAVE2].AsInteger; -end; - -procedure TVentasTerminadasDataTableRules.SetCLAVE2Value(const aValue: Integer); -begin - DataTable.Fields[idx_VentasTerminadasCLAVE2].AsInteger := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCLAVE2IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCLAVE2].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCLAVE2IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCLAVE2].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCLAVE3Value: Integer; -begin - result := DataTable.Fields[idx_VentasTerminadasCLAVE3].AsInteger; -end; - -procedure TVentasTerminadasDataTableRules.SetCLAVE3Value(const aValue: Integer); -begin - DataTable.Fields[idx_VentasTerminadasCLAVE3].AsInteger := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCLAVE3IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCLAVE3].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCLAVE3IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCLAVE3].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetFECHAValue: DateTime; -begin - result := DataTable.Fields[idx_VentasTerminadasFECHA].AsDateTime; -end; - -procedure TVentasTerminadasDataTableRules.SetFECHAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_VentasTerminadasFECHA].AsDateTime := aValue; -end; - -function TVentasTerminadasDataTableRules.GetFECHAIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasFECHA].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetFECHAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasFECHA].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetDIAValue: Integer; -begin - result := DataTable.Fields[idx_VentasTerminadasDIA].AsInteger; -end; - -procedure TVentasTerminadasDataTableRules.SetDIAValue(const aValue: Integer); -begin - DataTable.Fields[idx_VentasTerminadasDIA].AsInteger := aValue; -end; - -function TVentasTerminadasDataTableRules.GetDIAIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasDIA].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetDIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasDIA].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetDIASEMANAValue: WideString; -begin - result := DataTable.Fields[idx_VentasTerminadasDIASEMANA].AsWideString; -end; - -procedure TVentasTerminadasDataTableRules.SetDIASEMANAValue(const aValue: WideString); -begin - DataTable.Fields[idx_VentasTerminadasDIASEMANA].AsWideString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetDIASEMANAIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasDIASEMANA].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetDIASEMANAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasDIASEMANA].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetMESValue: WideString; -begin - result := DataTable.Fields[idx_VentasTerminadasMES].AsWideString; -end; - -procedure TVentasTerminadasDataTableRules.SetMESValue(const aValue: WideString); -begin - DataTable.Fields[idx_VentasTerminadasMES].AsWideString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetMESIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasMES].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetMESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasMES].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetANOValue: Integer; -begin - result := DataTable.Fields[idx_VentasTerminadasANO].AsInteger; -end; - -procedure TVentasTerminadasDataTableRules.SetANOValue(const aValue: Integer); -begin - DataTable.Fields[idx_VentasTerminadasANO].AsInteger := aValue; -end; - -function TVentasTerminadasDataTableRules.GetANOIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasANO].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetANOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasANO].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasCENTRO].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasCENTRO].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCENTROIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCENTRO].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCENTROIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCENTRO].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVENDEDORValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasVENDEDOR].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetVENDEDORValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasVENDEDOR].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVENDEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVENDEDOR].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVENDEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVENDEDOR].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetNUMTALONValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasNUMTALON].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetNUMTALONValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasNUMTALON].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetNUMTALONIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasNUMTALON].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetNUMTALONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasNUMTALON].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCODIGOValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasCODIGO].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetCODIGOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasCODIGO].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCODIGOIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCODIGO].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCODIGOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCODIGO].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasPRODUCTO].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasPRODUCTO].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetPRODUCTOIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasPRODUCTO].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasPRODUCTO].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetGRUPOPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetGRUPOPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetGRUPOPRODUCTOIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetGRUPOPRODUCTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasGRUPOPRODUCTO].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTIPOPRODUCTOValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetTIPOPRODUCTOValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTIPOPRODUCTOIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTIPOPRODUCTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTIPOPRODUCTO].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCOLECCIONValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasCOLECCION].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetCOLECCIONValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasCOLECCION].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCOLECCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCOLECCION].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCOLECCION].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasCOLOR].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasCOLOR].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetCOLORIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasCOLOR].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetCOLORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasCOLOR].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLAValue: String; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA].AsString; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLAValue(const aValue: String); -begin - DataTable.Fields[idx_VentasTerminadasTALLA].AsString := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLAIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLA38Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA38].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA38Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTALLA38].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLA38IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA38].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA38IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA38].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLA40Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA40].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA40Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTALLA40].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLA40IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA40].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA40IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA40].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLA42Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA42].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA42Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTALLA42].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLA42IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA42].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA42IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA42].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLA44Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA44].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA44Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTALLA44].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLA44IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA44].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA44IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA44].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLA46Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA46].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA46Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTALLA46].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLA46IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA46].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA46IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA46].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTALLA48Value: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA48].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA48Value(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTALLA48].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTALLA48IsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTALLA48].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTALLA48IsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTALLA48].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVTATERMDEVValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVTATERMDEV].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVTATERMDEVValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVTATERMDEV].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVTATERMDEVIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVTATERMDEV].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVTATERMDEVIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVTATERMDEV].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVTAFINALRESCValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVTAFINALRESCValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVTAFINALRESCIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVTAFINALRESCIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVTAFINALRESC].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVENTASValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVENTAS].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVENTASValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVENTAS].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVENTASIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVENTAS].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVENTASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVENTAS].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetDEVOLUCIONESValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetDEVOLUCIONESValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetDEVOLUCIONESIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetDEVOLUCIONESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasDEVOLUCIONES].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetTOTALValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasTOTAL].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetTOTALValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasTOTAL].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetTOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasTOTAL].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetTOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasTOTAL].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVALTERMDEVValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVALTERMDEVValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVALTERMDEVIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVALTERMDEVIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVALFINALRESCValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVALFINALRESCValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVALFINALRESCIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVALFINALRESCIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVALVENValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVALVENValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVALVENIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVALVEN].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVALVENIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVALVEN].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVALDEVValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVALDEVValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVALDEVIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVALDEV].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVALDEVIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVALDEV].AsVariant := Null; -end; - -function TVentasTerminadasDataTableRules.GetVALTOTValue: TBcd; -begin - result := DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal; -end; - -procedure TVentasTerminadasDataTableRules.SetVALTOTValue(const aValue: TBcd); -begin - DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal := aValue; -end; - -function TVentasTerminadasDataTableRules.GetVALTOTIsNull: boolean; -begin - result := DataTable.Fields[idx_VentasTerminadasVALTOT].IsNull; -end; - -procedure TVentasTerminadasDataTableRules.SetVALTOTIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_VentasTerminadasVALTOT].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_VentasTerminadasCrossTab, TVentasTerminadasCrossTabDataTableRules); - RegisterDataTableRules(RID_VentasTerminadas, TVentasTerminadasDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas deleted file mode 100644 index cdee0f2..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas +++ /dev/null @@ -1,1598 +0,0 @@ -unit schVentasTerminadasServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schVentasTerminadasClient_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_VentasTerminadasCrossTabDelta = '{450CE6EB-71EE-4A59-9D2A-558F4D5346A3}'; - RID_VentasTerminadasDelta = '{05A89678-2248-4B09-9BEC-354E07FD2CE5}'; - -type - { IVentasTerminadasCrossTabDelta } - IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab) - ['{450CE6EB-71EE-4A59-9D2A-558F4D5346A3}'] - { Property getters and setters } - - { Properties } - end; - - { TVentasTerminadasCrossTabBusinessProcessorRules } - TVentasTerminadasCrossTabBusinessProcessorRules = class(TDABusinessProcessorRules, IVentasTerminadasCrossTab, IVentasTerminadasCrossTabDelta) - private - protected - { Property getters and setters } - - { Properties } - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IVentasTerminadasDelta } - IVentasTerminadasDelta = interface(IVentasTerminadas) - ['{05A89678-2248-4B09-9BEC-354E07FD2CE5}'] - { Property getters and setters } - function GetOldNUMINFValue : String; - function GetOldCLAVE1Value : TBcd; - function GetOldCLAVE2Value : Integer; - function GetOldCLAVE3Value : Integer; - function GetOldFECHAValue : DateTime; - function GetOldDIAValue : Integer; - function GetOldDIASEMANAValue : WideString; - function GetOldMESValue : WideString; - function GetOldANOValue : Integer; - function GetOldCENTROValue : String; - function GetOldVENDEDORValue : String; - function GetOldNUMTALONValue : String; - function GetOldCODIGOValue : String; - function GetOldPRODUCTOValue : String; - function GetOldGRUPOPRODUCTOValue : String; - function GetOldTIPOPRODUCTOValue : String; - function GetOldCOLECCIONValue : String; - function GetOldCOLORValue : String; - function GetOldTALLAValue : String; - function GetOldTALLA38Value : TBcd; - function GetOldTALLA40Value : TBcd; - function GetOldTALLA42Value : TBcd; - function GetOldTALLA44Value : TBcd; - function GetOldTALLA46Value : TBcd; - function GetOldTALLA48Value : TBcd; - function GetOldVTATERMDEVValue : TBcd; - function GetOldVTAFINALRESCValue : TBcd; - function GetOldVENTASValue : TBcd; - function GetOldDEVOLUCIONESValue : TBcd; - function GetOldTOTALValue : TBcd; - function GetOldVALTERMDEVValue : TBcd; - function GetOldVALFINALRESCValue : TBcd; - function GetOldVALVENValue : TBcd; - function GetOldVALDEVValue : TBcd; - function GetOldVALTOTValue : TBcd; - - { Properties } - property OldNUMINF : String read GetOldNUMINFValue; - property OldCLAVE1 : TBcd read GetOldCLAVE1Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldDIA : Integer read GetOldDIAValue; - property OldDIASEMANA : WideString read GetOldDIASEMANAValue; - property OldMES : WideString read GetOldMESValue; - property OldANO : Integer read GetOldANOValue; - property OldCENTRO : String read GetOldCENTROValue; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property OldCODIGO : String read GetOldCODIGOValue; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldGRUPOPRODUCTO : String read GetOldGRUPOPRODUCTOValue; - property OldTIPOPRODUCTO : String read GetOldTIPOPRODUCTOValue; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldTALLA : String read GetOldTALLAValue; - property OldTALLA38 : TBcd read GetOldTALLA38Value; - property OldTALLA40 : TBcd read GetOldTALLA40Value; - property OldTALLA42 : TBcd read GetOldTALLA42Value; - property OldTALLA44 : TBcd read GetOldTALLA44Value; - property OldTALLA46 : TBcd read GetOldTALLA46Value; - property OldTALLA48 : TBcd read GetOldTALLA48Value; - property OldVTATERMDEV : TBcd read GetOldVTATERMDEVValue; - property OldVTAFINALRESC : TBcd read GetOldVTAFINALRESCValue; - property OldVENTAS : TBcd read GetOldVENTASValue; - property OldDEVOLUCIONES : TBcd read GetOldDEVOLUCIONESValue; - property OldTOTAL : TBcd read GetOldTOTALValue; - property OldVALTERMDEV : TBcd read GetOldVALTERMDEVValue; - property OldVALFINALRESC : TBcd read GetOldVALFINALRESCValue; - property OldVALVEN : TBcd read GetOldVALVENValue; - property OldVALDEV : TBcd read GetOldVALDEVValue; - property OldVALTOT : TBcd read GetOldVALTOTValue; - end; - - { TVentasTerminadasBusinessProcessorRules } - TVentasTerminadasBusinessProcessorRules = class(TDABusinessProcessorRules, IVentasTerminadas, IVentasTerminadasDelta) - private - protected - { Property getters and setters } - function GetNUMINFValue: String; virtual; - function GetNUMINFIsNull: Boolean; virtual; - function GetOldNUMINFValue: String; virtual; - function GetOldNUMINFIsNull: Boolean; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - procedure SetNUMINFIsNull(const aValue: Boolean); virtual; - function GetCLAVE1Value: TBcd; virtual; - function GetCLAVE1IsNull: Boolean; virtual; - function GetOldCLAVE1Value: TBcd; virtual; - function GetOldCLAVE1IsNull: Boolean; virtual; - procedure SetCLAVE1Value(const aValue: TBcd); virtual; - procedure SetCLAVE1IsNull(const aValue: Boolean); virtual; - function GetCLAVE2Value: Integer; virtual; - function GetCLAVE2IsNull: Boolean; virtual; - function GetOldCLAVE2Value: Integer; virtual; - function GetOldCLAVE2IsNull: Boolean; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - procedure SetCLAVE2IsNull(const aValue: Boolean); virtual; - function GetCLAVE3Value: Integer; virtual; - function GetCLAVE3IsNull: Boolean; virtual; - function GetOldCLAVE3Value: Integer; virtual; - function GetOldCLAVE3IsNull: Boolean; virtual; - procedure SetCLAVE3Value(const aValue: Integer); virtual; - procedure SetCLAVE3IsNull(const aValue: Boolean); virtual; - function GetFECHAValue: DateTime; virtual; - function GetFECHAIsNull: Boolean; virtual; - function GetOldFECHAValue: DateTime; virtual; - function GetOldFECHAIsNull: Boolean; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - procedure SetFECHAIsNull(const aValue: Boolean); virtual; - function GetDIAValue: Integer; virtual; - function GetDIAIsNull: Boolean; virtual; - function GetOldDIAValue: Integer; virtual; - function GetOldDIAIsNull: Boolean; virtual; - procedure SetDIAValue(const aValue: Integer); virtual; - procedure SetDIAIsNull(const aValue: Boolean); virtual; - function GetDIASEMANAValue: WideString; virtual; - function GetDIASEMANAIsNull: Boolean; virtual; - function GetOldDIASEMANAValue: WideString; virtual; - function GetOldDIASEMANAIsNull: Boolean; virtual; - procedure SetDIASEMANAValue(const aValue: WideString); virtual; - procedure SetDIASEMANAIsNull(const aValue: Boolean); virtual; - function GetMESValue: WideString; virtual; - function GetMESIsNull: Boolean; virtual; - function GetOldMESValue: WideString; virtual; - function GetOldMESIsNull: Boolean; virtual; - procedure SetMESValue(const aValue: WideString); virtual; - procedure SetMESIsNull(const aValue: Boolean); virtual; - function GetANOValue: Integer; virtual; - function GetANOIsNull: Boolean; virtual; - function GetOldANOValue: Integer; virtual; - function GetOldANOIsNull: Boolean; virtual; - procedure SetANOValue(const aValue: Integer); virtual; - procedure SetANOIsNull(const aValue: Boolean); virtual; - function GetCENTROValue: String; virtual; - function GetCENTROIsNull: Boolean; virtual; - function GetOldCENTROValue: String; virtual; - function GetOldCENTROIsNull: Boolean; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - procedure SetCENTROIsNull(const aValue: Boolean); virtual; - function GetVENDEDORValue: String; virtual; - function GetVENDEDORIsNull: Boolean; virtual; - function GetOldVENDEDORValue: String; virtual; - function GetOldVENDEDORIsNull: Boolean; virtual; - procedure SetVENDEDORValue(const aValue: String); virtual; - procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; - function GetNUMTALONValue: String; virtual; - function GetNUMTALONIsNull: Boolean; virtual; - function GetOldNUMTALONValue: String; virtual; - function GetOldNUMTALONIsNull: Boolean; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - procedure SetNUMTALONIsNull(const aValue: Boolean); virtual; - function GetCODIGOValue: String; virtual; - function GetCODIGOIsNull: Boolean; virtual; - function GetOldCODIGOValue: String; virtual; - function GetOldCODIGOIsNull: Boolean; virtual; - procedure SetCODIGOValue(const aValue: String); virtual; - procedure SetCODIGOIsNull(const aValue: Boolean); virtual; - function GetPRODUCTOValue: String; virtual; - function GetPRODUCTOIsNull: Boolean; virtual; - function GetOldPRODUCTOValue: String; virtual; - function GetOldPRODUCTOIsNull: Boolean; virtual; - procedure SetPRODUCTOValue(const aValue: String); virtual; - procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; - function GetGRUPOPRODUCTOValue: String; virtual; - function GetGRUPOPRODUCTOIsNull: Boolean; virtual; - function GetOldGRUPOPRODUCTOValue: String; virtual; - function GetOldGRUPOPRODUCTOIsNull: Boolean; virtual; - procedure SetGRUPOPRODUCTOValue(const aValue: String); virtual; - procedure SetGRUPOPRODUCTOIsNull(const aValue: Boolean); virtual; - function GetTIPOPRODUCTOValue: String; virtual; - function GetTIPOPRODUCTOIsNull: Boolean; virtual; - function GetOldTIPOPRODUCTOValue: String; virtual; - function GetOldTIPOPRODUCTOIsNull: Boolean; virtual; - procedure SetTIPOPRODUCTOValue(const aValue: String); virtual; - procedure SetTIPOPRODUCTOIsNull(const aValue: Boolean); virtual; - function GetCOLECCIONValue: String; virtual; - function GetCOLECCIONIsNull: Boolean; virtual; - function GetOldCOLECCIONValue: String; virtual; - function GetOldCOLECCIONIsNull: Boolean; virtual; - procedure SetCOLECCIONValue(const aValue: String); virtual; - procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; - function GetCOLORValue: String; virtual; - function GetCOLORIsNull: Boolean; virtual; - function GetOldCOLORValue: String; virtual; - function GetOldCOLORIsNull: Boolean; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - procedure SetCOLORIsNull(const aValue: Boolean); virtual; - function GetTALLAValue: String; virtual; - function GetTALLAIsNull: Boolean; virtual; - function GetOldTALLAValue: String; virtual; - function GetOldTALLAIsNull: Boolean; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - procedure SetTALLAIsNull(const aValue: Boolean); virtual; - function GetTALLA38Value: TBcd; virtual; - function GetTALLA38IsNull: Boolean; virtual; - function GetOldTALLA38Value: TBcd; virtual; - function GetOldTALLA38IsNull: Boolean; virtual; - procedure SetTALLA38Value(const aValue: TBcd); virtual; - procedure SetTALLA38IsNull(const aValue: Boolean); virtual; - function GetTALLA40Value: TBcd; virtual; - function GetTALLA40IsNull: Boolean; virtual; - function GetOldTALLA40Value: TBcd; virtual; - function GetOldTALLA40IsNull: Boolean; virtual; - procedure SetTALLA40Value(const aValue: TBcd); virtual; - procedure SetTALLA40IsNull(const aValue: Boolean); virtual; - function GetTALLA42Value: TBcd; virtual; - function GetTALLA42IsNull: Boolean; virtual; - function GetOldTALLA42Value: TBcd; virtual; - function GetOldTALLA42IsNull: Boolean; virtual; - procedure SetTALLA42Value(const aValue: TBcd); virtual; - procedure SetTALLA42IsNull(const aValue: Boolean); virtual; - function GetTALLA44Value: TBcd; virtual; - function GetTALLA44IsNull: Boolean; virtual; - function GetOldTALLA44Value: TBcd; virtual; - function GetOldTALLA44IsNull: Boolean; virtual; - procedure SetTALLA44Value(const aValue: TBcd); virtual; - procedure SetTALLA44IsNull(const aValue: Boolean); virtual; - function GetTALLA46Value: TBcd; virtual; - function GetTALLA46IsNull: Boolean; virtual; - function GetOldTALLA46Value: TBcd; virtual; - function GetOldTALLA46IsNull: Boolean; virtual; - procedure SetTALLA46Value(const aValue: TBcd); virtual; - procedure SetTALLA46IsNull(const aValue: Boolean); virtual; - function GetTALLA48Value: TBcd; virtual; - function GetTALLA48IsNull: Boolean; virtual; - function GetOldTALLA48Value: TBcd; virtual; - function GetOldTALLA48IsNull: Boolean; virtual; - procedure SetTALLA48Value(const aValue: TBcd); virtual; - procedure SetTALLA48IsNull(const aValue: Boolean); virtual; - function GetVTATERMDEVValue: TBcd; virtual; - function GetVTATERMDEVIsNull: Boolean; virtual; - function GetOldVTATERMDEVValue: TBcd; virtual; - function GetOldVTATERMDEVIsNull: Boolean; virtual; - procedure SetVTATERMDEVValue(const aValue: TBcd); virtual; - procedure SetVTATERMDEVIsNull(const aValue: Boolean); virtual; - function GetVTAFINALRESCValue: TBcd; virtual; - function GetVTAFINALRESCIsNull: Boolean; virtual; - function GetOldVTAFINALRESCValue: TBcd; virtual; - function GetOldVTAFINALRESCIsNull: Boolean; virtual; - procedure SetVTAFINALRESCValue(const aValue: TBcd); virtual; - procedure SetVTAFINALRESCIsNull(const aValue: Boolean); virtual; - function GetVENTASValue: TBcd; virtual; - function GetVENTASIsNull: Boolean; virtual; - function GetOldVENTASValue: TBcd; virtual; - function GetOldVENTASIsNull: Boolean; virtual; - procedure SetVENTASValue(const aValue: TBcd); virtual; - procedure SetVENTASIsNull(const aValue: Boolean); virtual; - function GetDEVOLUCIONESValue: TBcd; virtual; - function GetDEVOLUCIONESIsNull: Boolean; virtual; - function GetOldDEVOLUCIONESValue: TBcd; virtual; - function GetOldDEVOLUCIONESIsNull: Boolean; virtual; - procedure SetDEVOLUCIONESValue(const aValue: TBcd); virtual; - procedure SetDEVOLUCIONESIsNull(const aValue: Boolean); virtual; - function GetTOTALValue: TBcd; virtual; - function GetTOTALIsNull: Boolean; virtual; - function GetOldTOTALValue: TBcd; virtual; - function GetOldTOTALIsNull: Boolean; virtual; - procedure SetTOTALValue(const aValue: TBcd); virtual; - procedure SetTOTALIsNull(const aValue: Boolean); virtual; - function GetVALTERMDEVValue: TBcd; virtual; - function GetVALTERMDEVIsNull: Boolean; virtual; - function GetOldVALTERMDEVValue: TBcd; virtual; - function GetOldVALTERMDEVIsNull: Boolean; virtual; - procedure SetVALTERMDEVValue(const aValue: TBcd); virtual; - procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual; - function GetVALFINALRESCValue: TBcd; virtual; - function GetVALFINALRESCIsNull: Boolean; virtual; - function GetOldVALFINALRESCValue: TBcd; virtual; - function GetOldVALFINALRESCIsNull: Boolean; virtual; - procedure SetVALFINALRESCValue(const aValue: TBcd); virtual; - procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual; - function GetVALVENValue: TBcd; virtual; - function GetVALVENIsNull: Boolean; virtual; - function GetOldVALVENValue: TBcd; virtual; - function GetOldVALVENIsNull: Boolean; virtual; - procedure SetVALVENValue(const aValue: TBcd); virtual; - procedure SetVALVENIsNull(const aValue: Boolean); virtual; - function GetVALDEVValue: TBcd; virtual; - function GetVALDEVIsNull: Boolean; virtual; - function GetOldVALDEVValue: TBcd; virtual; - function GetOldVALDEVIsNull: Boolean; virtual; - procedure SetVALDEVValue(const aValue: TBcd); virtual; - procedure SetVALDEVIsNull(const aValue: Boolean); virtual; - function GetVALTOTValue: TBcd; virtual; - function GetVALTOTIsNull: Boolean; virtual; - function GetOldVALTOTValue: TBcd; virtual; - function GetOldVALTOTIsNull: Boolean; virtual; - procedure SetVALTOTValue(const aValue: TBcd); virtual; - procedure SetVALTOTIsNull(const aValue: Boolean); virtual; - - { Properties } - property NUMINF : String read GetNUMINFValue write SetNUMINFValue; - property NUMINFIsNull : Boolean read GetNUMINFIsNull write SetNUMINFIsNull; - property OldNUMINF : String read GetOldNUMINFValue; - property OldNUMINFIsNull : Boolean read GetOldNUMINFIsNull; - property CLAVE1 : TBcd read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE1IsNull : Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; - property OldCLAVE1 : TBcd read GetOldCLAVE1Value; - property OldCLAVE1IsNull : Boolean read GetOldCLAVE1IsNull; - property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE2IsNull : Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property OldCLAVE2IsNull : Boolean read GetOldCLAVE2IsNull; - property CLAVE3 : Integer read GetCLAVE3Value write SetCLAVE3Value; - property CLAVE3IsNull : Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; - property OldCLAVE3 : Integer read GetOldCLAVE3Value; - property OldCLAVE3IsNull : Boolean read GetOldCLAVE3IsNull; - property FECHA : DateTime read GetFECHAValue write SetFECHAValue; - property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; - property DIA : Integer read GetDIAValue write SetDIAValue; - property DIAIsNull : Boolean read GetDIAIsNull write SetDIAIsNull; - property OldDIA : Integer read GetOldDIAValue; - property OldDIAIsNull : Boolean read GetOldDIAIsNull; - property DIASEMANA : WideString read GetDIASEMANAValue write SetDIASEMANAValue; - property DIASEMANAIsNull : Boolean read GetDIASEMANAIsNull write SetDIASEMANAIsNull; - property OldDIASEMANA : WideString read GetOldDIASEMANAValue; - property OldDIASEMANAIsNull : Boolean read GetOldDIASEMANAIsNull; - property MES : WideString read GetMESValue write SetMESValue; - property MESIsNull : Boolean read GetMESIsNull write SetMESIsNull; - property OldMES : WideString read GetOldMESValue; - property OldMESIsNull : Boolean read GetOldMESIsNull; - property ANO : Integer read GetANOValue write SetANOValue; - property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull; - property OldANO : Integer read GetOldANOValue; - property OldANOIsNull : Boolean read GetOldANOIsNull; - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; - property OldCENTRO : String read GetOldCENTROValue; - property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; - property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; - property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; - property OldVENDEDOR : String read GetOldVENDEDORValue; - property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull; - property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; - property NUMTALONIsNull : Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; - property OldNUMTALON : String read GetOldNUMTALONValue; - property OldNUMTALONIsNull : Boolean read GetOldNUMTALONIsNull; - property CODIGO : String read GetCODIGOValue write SetCODIGOValue; - property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; - property OldCODIGO : String read GetOldCODIGOValue; - property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; - property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; - property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; - property OldPRODUCTO : String read GetOldPRODUCTOValue; - property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; - property GRUPOPRODUCTO : String read GetGRUPOPRODUCTOValue write SetGRUPOPRODUCTOValue; - property GRUPOPRODUCTOIsNull : Boolean read GetGRUPOPRODUCTOIsNull write SetGRUPOPRODUCTOIsNull; - property OldGRUPOPRODUCTO : String read GetOldGRUPOPRODUCTOValue; - property OldGRUPOPRODUCTOIsNull : Boolean read GetOldGRUPOPRODUCTOIsNull; - property TIPOPRODUCTO : String read GetTIPOPRODUCTOValue write SetTIPOPRODUCTOValue; - property TIPOPRODUCTOIsNull : Boolean read GetTIPOPRODUCTOIsNull write SetTIPOPRODUCTOIsNull; - property OldTIPOPRODUCTO : String read GetOldTIPOPRODUCTOValue; - property OldTIPOPRODUCTOIsNull : Boolean read GetOldTIPOPRODUCTOIsNull; - property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; - property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; - property OldCOLECCION : String read GetOldCOLECCIONValue; - property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; - property OldCOLOR : String read GetOldCOLORValue; - property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; - property TALLA : String read GetTALLAValue write SetTALLAValue; - property TALLAIsNull : Boolean read GetTALLAIsNull write SetTALLAIsNull; - property OldTALLA : String read GetOldTALLAValue; - property OldTALLAIsNull : Boolean read GetOldTALLAIsNull; - property TALLA38 : TBcd read GetTALLA38Value write SetTALLA38Value; - property TALLA38IsNull : Boolean read GetTALLA38IsNull write SetTALLA38IsNull; - property OldTALLA38 : TBcd read GetOldTALLA38Value; - property OldTALLA38IsNull : Boolean read GetOldTALLA38IsNull; - property TALLA40 : TBcd read GetTALLA40Value write SetTALLA40Value; - property TALLA40IsNull : Boolean read GetTALLA40IsNull write SetTALLA40IsNull; - property OldTALLA40 : TBcd read GetOldTALLA40Value; - property OldTALLA40IsNull : Boolean read GetOldTALLA40IsNull; - property TALLA42 : TBcd read GetTALLA42Value write SetTALLA42Value; - property TALLA42IsNull : Boolean read GetTALLA42IsNull write SetTALLA42IsNull; - property OldTALLA42 : TBcd read GetOldTALLA42Value; - property OldTALLA42IsNull : Boolean read GetOldTALLA42IsNull; - property TALLA44 : TBcd read GetTALLA44Value write SetTALLA44Value; - property TALLA44IsNull : Boolean read GetTALLA44IsNull write SetTALLA44IsNull; - property OldTALLA44 : TBcd read GetOldTALLA44Value; - property OldTALLA44IsNull : Boolean read GetOldTALLA44IsNull; - property TALLA46 : TBcd read GetTALLA46Value write SetTALLA46Value; - property TALLA46IsNull : Boolean read GetTALLA46IsNull write SetTALLA46IsNull; - property OldTALLA46 : TBcd read GetOldTALLA46Value; - property OldTALLA46IsNull : Boolean read GetOldTALLA46IsNull; - property TALLA48 : TBcd read GetTALLA48Value write SetTALLA48Value; - property TALLA48IsNull : Boolean read GetTALLA48IsNull write SetTALLA48IsNull; - property OldTALLA48 : TBcd read GetOldTALLA48Value; - property OldTALLA48IsNull : Boolean read GetOldTALLA48IsNull; - property VTATERMDEV : TBcd read GetVTATERMDEVValue write SetVTATERMDEVValue; - property VTATERMDEVIsNull : Boolean read GetVTATERMDEVIsNull write SetVTATERMDEVIsNull; - property OldVTATERMDEV : TBcd read GetOldVTATERMDEVValue; - property OldVTATERMDEVIsNull : Boolean read GetOldVTATERMDEVIsNull; - property VTAFINALRESC : TBcd read GetVTAFINALRESCValue write SetVTAFINALRESCValue; - property VTAFINALRESCIsNull : Boolean read GetVTAFINALRESCIsNull write SetVTAFINALRESCIsNull; - property OldVTAFINALRESC : TBcd read GetOldVTAFINALRESCValue; - property OldVTAFINALRESCIsNull : Boolean read GetOldVTAFINALRESCIsNull; - property VENTAS : TBcd read GetVENTASValue write SetVENTASValue; - property VENTASIsNull : Boolean read GetVENTASIsNull write SetVENTASIsNull; - property OldVENTAS : TBcd read GetOldVENTASValue; - property OldVENTASIsNull : Boolean read GetOldVENTASIsNull; - property DEVOLUCIONES : TBcd read GetDEVOLUCIONESValue write SetDEVOLUCIONESValue; - property DEVOLUCIONESIsNull : Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull; - property OldDEVOLUCIONES : TBcd read GetOldDEVOLUCIONESValue; - property OldDEVOLUCIONESIsNull : Boolean read GetOldDEVOLUCIONESIsNull; - property TOTAL : TBcd read GetTOTALValue write SetTOTALValue; - property TOTALIsNull : Boolean read GetTOTALIsNull write SetTOTALIsNull; - property OldTOTAL : TBcd read GetOldTOTALValue; - property OldTOTALIsNull : Boolean read GetOldTOTALIsNull; - property VALTERMDEV : TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue; - property VALTERMDEVIsNull : Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull; - property OldVALTERMDEV : TBcd read GetOldVALTERMDEVValue; - property OldVALTERMDEVIsNull : Boolean read GetOldVALTERMDEVIsNull; - property VALFINALRESC : TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue; - property VALFINALRESCIsNull : Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull; - property OldVALFINALRESC : TBcd read GetOldVALFINALRESCValue; - property OldVALFINALRESCIsNull : Boolean read GetOldVALFINALRESCIsNull; - property VALVEN : TBcd read GetVALVENValue write SetVALVENValue; - property VALVENIsNull : Boolean read GetVALVENIsNull write SetVALVENIsNull; - property OldVALVEN : TBcd read GetOldVALVENValue; - property OldVALVENIsNull : Boolean read GetOldVALVENIsNull; - property VALDEV : TBcd read GetVALDEVValue write SetVALDEVValue; - property VALDEVIsNull : Boolean read GetVALDEVIsNull write SetVALDEVIsNull; - property OldVALDEV : TBcd read GetOldVALDEVValue; - property OldVALDEVIsNull : Boolean read GetOldVALDEVIsNull; - property VALTOT : TBcd read GetVALTOTValue write SetVALTOTValue; - property VALTOTIsNull : Boolean read GetVALTOTIsNull write SetVALTOTIsNull; - property OldVALTOT : TBcd read GetOldVALTOTValue; - property OldVALTOTIsNull : Boolean read GetOldVALTOTIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TVentasTerminadasCrossTabBusinessProcessorRules } -constructor TVentasTerminadasCrossTabBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TVentasTerminadasCrossTabBusinessProcessorRules.Destroy; -begin - inherited; -end; - - -{ TVentasTerminadasBusinessProcessorRules } -constructor TVentasTerminadasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TVentasTerminadasBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TVentasTerminadasBusinessProcessorRules.GetNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMINF]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetNUMINFIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMINF]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasNUMINF]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldNUMINFIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasNUMINF]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetNUMINFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMINF] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetNUMINFIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMINF] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCLAVE1Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE1]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetCLAVE1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE1]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCLAVE1Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCLAVE1]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCLAVE1IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCLAVE1]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCLAVE1Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE1] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCLAVE1IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE1] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE2]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCLAVE2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE2]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCLAVE2]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCLAVE2IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCLAVE2]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE2] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCLAVE2IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE2] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE3]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCLAVE3IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE3]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCLAVE3Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCLAVE3]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCLAVE3IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCLAVE3]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCLAVE3Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE3] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCLAVE3IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCLAVE3] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasFECHA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetFECHAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasFECHA]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasFECHA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldFECHAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasFECHA]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasFECHA] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasFECHA] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetDIAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetDIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIA]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldDIAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasDIA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldDIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasDIA]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetDIAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIA] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetDIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIA] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetDIASEMANAValue: WideString; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIASEMANA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetDIASEMANAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIASEMANA]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldDIASEMANAValue: WideString; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasDIASEMANA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldDIASEMANAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasDIASEMANA]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetDIASEMANAValue(const aValue: WideString); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIASEMANA] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetDIASEMANAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDIASEMANA] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetMESValue: WideString; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasMES]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetMESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasMES]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldMESValue: WideString; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasMES]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldMESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasMES]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetMESValue(const aValue: WideString); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasMES] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetMESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasMES] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetANOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasANO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetANOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasANO]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldANOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasANO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldANOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasANO]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetANOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasANO] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetANOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasANO] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCENTRO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCENTROIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCENTRO]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCENTRO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCENTROIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCENTRO]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCENTRO] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCENTRO] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENDEDOR]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVENDEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENDEDOR]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVENDEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVENDEDOR]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVENDEDOR]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVENDEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENDEDOR] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENDEDOR] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMTALON]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetNUMTALONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMTALON]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasNUMTALON]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldNUMTALONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasNUMTALON]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetNUMTALONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMTALON] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetNUMTALONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasNUMTALON] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCODIGO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCODIGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCODIGO]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCODIGOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCODIGO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCODIGO]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCODIGOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCODIGO] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCODIGO] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasPRODUCTO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasPRODUCTO]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasPRODUCTO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasPRODUCTO]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasPRODUCTO] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasPRODUCTO] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetGRUPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasGRUPOPRODUCTO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetGRUPOPRODUCTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasGRUPOPRODUCTO]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldGRUPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasGRUPOPRODUCTO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldGRUPOPRODUCTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasGRUPOPRODUCTO]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetGRUPOPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasGRUPOPRODUCTO] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetGRUPOPRODUCTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasGRUPOPRODUCTO] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTIPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTIPOPRODUCTO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTIPOPRODUCTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTIPOPRODUCTO]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTIPOPRODUCTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTIPOPRODUCTO]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTIPOPRODUCTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTIPOPRODUCTO]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTIPOPRODUCTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTIPOPRODUCTO] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTIPOPRODUCTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTIPOPRODUCTO] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLECCION]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLECCION]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCOLECCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCOLECCION]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCOLECCION]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLECCION] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLECCION] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLOR]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetCOLORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLOR]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCOLOR]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldCOLORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasCOLOR]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLOR] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasCOLOR] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA]; -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA] := aValue; -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA38Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA38]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA38IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA38]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA38Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA38]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA38IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA38]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA38Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA38] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA38IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA38] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA40Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA40]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA40IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA40]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA40Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA40]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA40IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA40]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA40Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA40] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA40IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA40] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA42Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA42]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA42IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA42]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA42Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA42]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA42IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA42]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA42Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA42] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA42IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA42] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA44Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA44]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA44IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA44]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA44Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA44]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA44IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA44]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA44Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA44] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA44IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA44] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA46Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA46]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA46IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA46]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA46Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA46]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA46IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA46]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA46Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA46] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA46IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA46] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA48Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA48]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTALLA48IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA48]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA48Value: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA48]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTALLA48IsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTALLA48]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA48Value(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA48] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTALLA48IsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTALLA48] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVTATERMDEVValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTATERMDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVTATERMDEVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTATERMDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVTATERMDEVValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVTATERMDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVTATERMDEVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVTATERMDEV]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVTATERMDEVValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTATERMDEV] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVTATERMDEVIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTATERMDEV] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVTAFINALRESCValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTAFINALRESC]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVTAFINALRESCIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTAFINALRESC]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVTAFINALRESCValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVTAFINALRESC]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVTAFINALRESCIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVTAFINALRESC]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVTAFINALRESCValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTAFINALRESC] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVTAFINALRESCIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVTAFINALRESC] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVENTASValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENTAS]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVENTASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENTAS]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVENTASValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVENTAS]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVENTASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVENTAS]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVENTASValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENTAS] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVENTASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVENTAS] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetDEVOLUCIONESValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDEVOLUCIONES]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetDEVOLUCIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDEVOLUCIONES]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldDEVOLUCIONESValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasDEVOLUCIONES]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldDEVOLUCIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasDEVOLUCIONES]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetDEVOLUCIONESValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDEVOLUCIONES] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetDEVOLUCIONESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasDEVOLUCIONES] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetTOTALValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetTOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTOTALValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTOTAL]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldTOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasTOTAL]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTOTALValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetTOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALVENValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALVENIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALVENValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALVENIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALVENValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALVENIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALDEVValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALDEVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := Null; -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALTOTValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetVALTOTIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTValue: TBcd; -begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]); -end; - -function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTValue(const aValue: TBcd); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT] := BCDToVariant(aValue); -end; - -procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_VentasTerminadasCrossTabDelta, TVentasTerminadasCrossTabBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_VentasTerminadasDelta, TVentasTerminadasBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizControlVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizControlVentasTerminadas.pas deleted file mode 100644 index 143ea69..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizControlVentasTerminadas.pas +++ /dev/null @@ -1,65 +0,0 @@ -unit uBizControlVentasTerminadas; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uBizControlesBase, - uBizVentasTerminadas; - -const - BIZ_CONTROL_VENTASTERMINADAS = 'Client.Control_VentasTerminadas'; - -type - IBizControlVentasTerminadas = interface(IBizControlBase) - ['{BC0C313D-E667-4AC6-BB30-55469970F919}'] - procedure SetItems(const Value : IBizVentasTerminadas); - function GetItems : IBizVentasTerminadas; - property Items : IBizVentasTerminadas read GetItems write SetItems; - end; - - TBizControlVentasTerminadasTableRules = class(TBizControlBaseDataTableRules, IBizControlVentasTerminadas) - protected - FItems : IBizVentasTerminadas; - procedure OnNewRecord(Sender: TDADataTable); override; - procedure SetItems(const Value : IBizVentasTerminadas); virtual; - function GetItems : IBizVentasTerminadas; virtual; - public - procedure Show; override; - property Items : IBizVentasTerminadas read GetItems write SetItems; - end; - -implementation - -uses - uEditorUtils, uDataModuleVentasTerminadas; - -{ TBizControlVentasTerminadasTableRules } - -function TBizControlVentasTerminadasTableRules.GetItems: IBizVentasTerminadas; -begin - Result := FItems; -end; - -procedure TBizControlVentasTerminadasTableRules.OnNewRecord( - Sender: TDADataTable); -begin - inherited; - CATEGORIA := CATEGORIA_VENTA_TERMINADA -end; - -procedure TBizControlVentasTerminadasTableRules.SetItems( - const Value: IBizVentasTerminadas); -begin - FItems := Value; -end; - -procedure TBizControlVentasTerminadasTableRules.Show; -begin - inherited; - ShowEditor(IBizControlVentasTerminadas, Self, etItem); -end; - -initialization - RegisterDataTableRules(BIZ_CONTROL_VENTASTERMINADAS, TBizControlVentasTerminadasTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizInformesVentas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizInformesVentas.pas deleted file mode 100644 index b87673d..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizInformesVentas.pas +++ /dev/null @@ -1,82 +0,0 @@ -unit uBizInformesVentas; - -interface - -uses - Classes, DB, SysUtils, uROClasses, schInformesVentasClient_Intf, uDADataTable; - -const - BIZ_INFORMESVENTAS = 'Client.InformesVentas'; - VALOR_CATEGORIA = 'VENTAS'; - -type - IBizInformesVentas = interface(IListaInformesPorCategoria) - ['{78F747A5-9A35-44D6-8C73-8682A41FE573}'] - procedure Show; - procedure VerPropiedades; - end; - - TBizInformesVentasDataTableRules = class(TListaInformesPorCategoriaDataTableRules, IBizInformesVentas) - protected - function GetVISTAValue: IROStrings; override; - procedure BeforePost(Sender: TDADataTable); override; - public - procedure Show; - procedure VerPropiedades; - end; - -implementation - -uses - Windows, Dialogs, uDACDSDataTable, uDataModuleBase, - uEditorUtils, Variants, uFormPropiedadesInforme, Forms, Controls; - -{ TBizInformesVentasDataTableRules } - -procedure TBizInformesVentasDataTableRules.BeforePost( - Sender: TDADataTable); -begin - inherited; - if Length(CATEGORIA) = 0 then - begin - Edit; - CATEGORIA := VALOR_CATEGORIA; - end; - - if Length(NOMBRE) = 0 then - VerPropiedades; -end; - -function TBizInformesVentasDataTableRules.GetVISTAValue: IROStrings; -begin - result := NewROStrings(); - result.Add(DataTable.Fields[idx_ListaInformesPorCategoriaVISTA].AsString); -end; - -procedure TBizInformesVentasDataTableRules.Show; -begin - ShowEditor(IBizInformesVentas, Self, etItem); -end; - -procedure TBizInformesVentasDataTableRules.VerPropiedades; -begin - with TfrPropiedadesInforme.Create(NIL) do - try - Nombre := Self.NOMBRE; - Descripcion := Self.DESCRIPCION; - if (ShowModal = mrOK) then - begin - DataTable.Edit; - Self.NOMBRE := Nombre; - Self.DESCRIPCION := Descripcion; - Self.ICONO := 2; - end; - finally - Free; - end; -end; - -initialization - RegisterDataTableRules(BIZ_INFORMESVENTAS, TBizInformesVentasDataTableRules); - -end. diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizVentas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizVentas.pas deleted file mode 100644 index 31b0782..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizVentas.pas +++ /dev/null @@ -1,115 +0,0 @@ -unit uBizVentas; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces, - DataAbstract_Intf, uROTypes; - -const - BIZ_VENTAS = 'Client.Ventas'; - - { ListaInformesPorCategoria fields } - fld_VentasCLAVE1 = 'CLAVE1'; - fld_VentasCLAVE2 = 'CLAVE2'; - fld_VentasCLAVE3 = 'CLAVE3'; - fld_VentasNUMINF = 'NUMINF'; - -type - { IRDX_ARTVEN } - IBizVentas = interface(IDAStronglyTypedDataTable) - ['{E82C7F84-0CD4-4A27-80FB-BD608FDCA091}'] - function GetVisibleColumns: String; - procedure SetVisibleColumns(AValue : String); - procedure Show; - property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; - end; - - { TRDX_ARTVENDataTableRules } - TBIZ_VENTASDataTableRules = class(TDADataTableRules, IBizVentas) - private - FVisibleColumns : String; - FDateParams : TDADatasetParamArray; - protected - function GetVisibleColumns: String; - procedure SetVisibleColumns(AValue : String); - procedure OnBeforeDataRequestCall(DataTable: TDADataTable; - Request: TDARemoteRequest); - procedure OnBeforeSchemaCall(DataTable: TDADataTable; - Request: TDARemoteRequest); - public - constructor Create(aDataTable: TDADataTable); override; - - procedure Show; - property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; - destructor Destroy; override; - end; - - -implementation - -{ TBIZ_VENTASDataTableRules } - -uses - Dialogs, uEditorUtils, uDataModuleVentas; - -constructor TBIZ_VENTASDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; - FDateParams := TDADatasetParamArray.Create; - if Assigned(DataTable) then - begin - DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall; - DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall; - end; -end; - -destructor TBIZ_VENTASDataTableRules.Destroy; -begin - FreeAndNIL(FDateParams); - inherited; -end; - -function TBIZ_VENTASDataTableRules.GetVisibleColumns: String; -begin - if Length(FVisibleColumns) = 0 then - FVisibleColumns := dmVentas.GetNameColumns; - Result := FVisibleColumns -end; - -procedure TBIZ_VENTASDataTableRules.OnBeforeDataRequestCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('Columns').AsString := VisibleColumns; - FDateParams.Clear; - NewDatasetParam(FDateParams, 'FECHAINI', DataTable.ParamByName('FECHAINI').AsDateTime); - NewDatasetParam(FDateParams, 'FECHAFIN', DataTable.ParamByName('FECHAFIN').AsDateTime); - Request.ParamByName('Params').AsComplexType := FDateParams; -end; - -procedure TBIZ_VENTASDataTableRules.OnBeforeSchemaCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('Columns').AsString := VisibleColumns; -end; - -procedure TBIZ_VENTASDataTableRules.SetVisibleColumns(AValue: String); -begin - if Length(AValue) > 0 then - FVisibleColumns := Avalue - else - FVisibleColumns := dmVentas.GetNameColumns; -end; - -procedure TBIZ_VENTASDataTableRules.Show; -begin - ShowEditor(IBizVentas, Self, etItem); -end; - -initialization - RegisterDataTableRules(BIZ_VENTAS, TBIZ_VENTASDataTableRules); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizVentasTerminadas.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizVentasTerminadas.pas deleted file mode 100644 index 2b05c77..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Reglas/uBizVentasTerminadas.pas +++ /dev/null @@ -1,158 +0,0 @@ -unit uBizVentasTerminadas; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces, - DataAbstract3_Intf, uROTypes, schVentasTerminadasClient_Intf; - -const - BIZ_VENTASTERMINADAS = 'Client.VentasTerminadas'; - BIZ_RESUMENVENTAS = 'Client.ResumenVentas'; - -type - IBizVentasTerminadas = interface(IVentasTerminadas) - ['{A8E22BA0-970A-461D-8C69-E3C37F099F76}'] - function GetVisibleColumns: String; - procedure SetVisibleColumns(const Value: String); - property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; - end; - - IBizResumenVentas = interface(IVentasTerminadasCrossTab) - ['{F7536368-285D-45B4-B0F0-7DBE724982A3}'] - end; - - TBizResumenVentasDataTableRules = class(TVentasTerminadasCrossTabDataTableRules, IBizResumenVentas) - protected - procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); - procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); - public - constructor Create(aDataTable: TDADataTable); override; - end; - - TBizVentasTerminadasDataTableRules = class(TVentasTerminadasDataTableRules, IBizVentasTerminadas) - private - FVisibleColumns : String; - FDateParams : TDADatasetParamArray; - protected - function GetVisibleColumns: String; - procedure SetVisibleColumns(const Value: String); - procedure OnBeforeDataRequestCall(DataTable: TDADataTable; - Request: TDARemoteRequest); - procedure OnBeforeSchemaCall(DataTable: TDADataTable; - Request: TDARemoteRequest); - public - constructor Create(aDataTable: TDADataTable); override; - property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns; - destructor Destroy; override; - end; - - -implementation - -{ TBIZ_VENTASDataTableRules } - -uses - Dialogs, uEditorUtils, uDataModuleVentasTerminadas; - -constructor TBizVentasTerminadasDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; - FDateParams := TDADatasetParamArray.Create; - if Assigned(DataTable) then - begin - DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall; - DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall; - end; -end; - -destructor TBizVentasTerminadasDataTableRules.Destroy; -begin - FreeAndNIL(FDateParams); - inherited; -end; - -function TBizVentasTerminadasDataTableRules.GetVisibleColumns: String; -begin - if Length(FVisibleColumns) = 0 then - FVisibleColumns := dmVentasTerminadas.GetNameColumns; - Result := FVisibleColumns -end; - -procedure TBizVentasTerminadasDataTableRules.OnBeforeDataRequestCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -var - params : TStringList; -begin - Request.ParamByName('Columns').AsString := VisibleColumns; - - // Begin adaptación a DA5 - params := TStringList.Create; - try - params.Add('FECHAINI'); - params.Values['FECHAINI'] := DataTable.ParamByName('FECHAINI').AsString; - - params.Add('FECHAFIN'); - params.Values['FECHAFIN'] := DataTable.ParamByName('FECHAFIN').AsString; - - Request.ParamByName('Params').AsString := params.text; - finally - FreeAndNIL(params); - end; - // End adaptación a DA5 - -{ FDateParams.Clear; - - NewDatasetParam(FDateParams, 'FECHAINI', DataTable.ParamByName('FECHAINI').AsDateTime); - NewDatasetParam(FDateParams, 'FECHAFIN', DataTable.ParamByName('FECHAFIN').AsDateTime); - Request.ParamByName('Params').AsComplexType := FDateParams;} -end; - -procedure TBizVentasTerminadasDataTableRules.OnBeforeSchemaCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('Columns').AsString := VisibleColumns; -end; - -procedure TBizVentasTerminadasDataTableRules.SetVisibleColumns(const Value: String); -begin - if Length(Value) > 0 then - FVisibleColumns := Value - else - FVisibleColumns := dmVentasTerminadas.GetNameColumns; -end; - - -{ TBizResumenVentasDataTableRules } - -constructor TBizResumenVentasDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; - if Assigned(DataTable) then - begin - DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall; - DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall; - end; -end; - -procedure TBizResumenVentasDataTableRules.OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString; - Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString; -end; - -procedure TBizResumenVentasDataTableRules.OnBeforeSchemaCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - Request.ParamByName('FechaIni').AsString := DataTable.ParamByName('FechaIni').AsString; - Request.ParamByName('FechaFin').AsString := DataTable.ParamByName('FechaFin').AsString; -end; - -initialization - RegisterDataTableRules(BIZ_VENTASTERMINADAS, TBizVentasTerminadasDataTableRules); - RegisterDataTableRules(BIZ_RESUMENVENTAS, TBizResumenVentasDataTableRules); - -finalization - -end. - diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.ddp b/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm b/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm deleted file mode 100644 index 82f7044..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm +++ /dev/null @@ -1,445 +0,0 @@ -object srvVentasTerminadas: TsrvVentasTerminadas - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schVentasTerminadas - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object schVentasTerminadas: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = < - item - Name = 'fechaini' - DataType = datString - Value = '' - ParamType = daptInput - end - item - Name = 'fechafin' - DataType = datString - Value = '' - ParamType = daptInput - end - item - Name = 'coleccion' - DataType = datString - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = - 'begin'#10' declare @fechaini varchar(10)'#10' declare @fechafin ' + - 'varchar(10)'#10' declare @coleccion varchar(10)'#10' declare @sq' + - 'l varchar(8000)'#10#10' set @fechaini = :fechaini'#10' set @fechaf' + - 'in = :fechafin'#10' set @coleccion = :coleccion'#10#10' select @sq' + - 'l = '#39'SELECT DIA, SUM(VALTOT) AS TOTAL FROM RDX_V_VENTASTERMINADA' + - 'S WHERE FECHA BETWEEN CONVERT(DATETIME, '#39#39#39' + @FECHAINI + '#39#39#39', 1' + - '03) AND CONVERT(DATETIME, '#39#39#39' + @FECHAFIN + '#39#39#39', 103) AND COLECC' + - 'ION LIKE '#39#39#39' + @COLECCION + '#39#39#39' GROUP BY DIA'#39#10#10' EXECUTE cros' + - 'stab @sql,'#10' '#39'SUM(VALTOT)'#39','#10' '#39'CENTRO'#39','#10' ' + - ' '#39'RDX_V_VENTASTERMINADAS'#39#10'end'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'VentasTerminadasCrossTab' - Fields = <> - end - item - Params = < - item - Name = 'FECHAINI' - Value = '' - ParamType = daptInput - end - item - Name = 'FECHAFIN' - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_V_VENTASTERMINADAS' - SQL = - 'SELECT '#10' NUMINF, CLAVE1, CLAVE2, CLAVE3, FECHA, DIA, DIASEMAN' + - 'A, '#10' MES, ANO, CENTRO, VENDEDOR, NUMTALON, CODIGO, PRODUCTO,'#10 + - ' GRUPOPRODUCTO, TIPOPRODUCTO, COLECCION, COLOR,'#10' TALLA, TA' + - 'LLA38, TALLA40, TALLA42, TALLA44, TALLA46, '#10' TALLA48, VTATERM' + - 'DEV, VTAFINALRESC, VENTAS, DEVOLUCIONES, TOTAL,'#10' VALTERMDEV, ' + - 'VALFINALRESC, VALVEN, VALDEV, VALTOT'#10' FROM'#10' RDX_V_VENTASTERM' + - 'INADAS'#10' WHERE FECHA BETWEEN :FECHAINI AND :FECHAFIN' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMINF' - TableField = 'NUMINF' - end - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'CLAVE2' - TableField = 'CLAVE2' - end - item - DatasetField = 'CLAVE3' - TableField = 'CLAVE3' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'DIA' - TableField = 'DIA' - end - item - DatasetField = 'DIASEMANA' - TableField = 'DIASEMANA' - end - item - DatasetField = 'MES' - TableField = 'MES' - end - item - DatasetField = 'ANO' - TableField = 'ANO' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'VENDEDOR' - TableField = 'VENDEDOR' - end - item - DatasetField = 'NUMTALON' - TableField = 'NUMTALON' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'GRUPOPRODUCTO' - TableField = 'GRUPOPRODUCTO' - end - item - DatasetField = 'TIPOPRODUCTO' - TableField = 'TIPOPRODUCTO' - end - item - DatasetField = 'COLECCION' - TableField = 'COLECCION' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'TALLA' - TableField = 'TALLA' - end - item - DatasetField = 'TALLA38' - TableField = 'TALLA38' - end - item - DatasetField = 'TALLA40' - TableField = 'TALLA40' - end - item - DatasetField = 'TALLA42' - TableField = 'TALLA42' - end - item - DatasetField = 'TALLA44' - TableField = 'TALLA44' - end - item - DatasetField = 'TALLA46' - TableField = 'TALLA46' - end - item - DatasetField = 'TALLA48' - TableField = 'TALLA48' - end - item - DatasetField = 'VTATERMDEV' - TableField = 'VTATERMDEV' - end - item - DatasetField = 'VTAFINALRESC' - TableField = 'VTAFINALRESC' - end - item - DatasetField = 'VENTAS' - TableField = 'VENTAS' - end - item - DatasetField = 'DEVOLUCIONES' - TableField = 'DEVOLUCIONES' - end - item - DatasetField = 'TOTAL' - TableField = 'TOTAL' - end - item - DatasetField = 'VALTERMDEV' - TableField = 'VALTERMDEV' - end - item - DatasetField = 'VALFINALRESC' - TableField = 'VALFINALRESC' - end - item - DatasetField = 'VALVEN' - TableField = 'VALVEN' - end - item - DatasetField = 'VALDEV' - TableField = 'VALDEV' - end - item - DatasetField = 'VALTOT' - TableField = 'VALTOT' - end> - end> - Name = 'VentasTerminadas' - Fields = < - item - Name = 'NUMINF' - DataType = datString - Size = 35 - InPrimaryKey = True - end - item - Name = 'CLAVE1' - DataType = datDecimal - InPrimaryKey = True - end - item - Name = 'CLAVE2' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'CLAVE3' - DataType = datInteger - InPrimaryKey = True - end - item - Name = 'FECHA' - DataType = datDateTime - DisplayLabel = 'Fecha' - end - item - Name = 'DIA' - DataType = datInteger - DisplayLabel = 'D'#237'a' - end - item - Name = 'DIASEMANA' - DataType = datWideString - Size = 30 - DisplayLabel = 'D'#237'a de la semana' - end - item - Name = 'MES' - DataType = datWideString - Size = 30 - DisplayLabel = 'Mes' - end - item - Name = 'ANO' - DataType = datInteger - DisplayLabel = 'A'#241'o' - end - item - Name = 'CENTRO' - DataType = datString - Size = 25 - DisplayLabel = 'Centro' - end - item - Name = 'VENDEDOR' - DataType = datString - Size = 66 - DisplayLabel = 'Vendedor' - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - end - item - Name = 'CODIGO' - DataType = datString - Size = 12 - DisplayLabel = 'C'#243'digo producto' - end - item - Name = 'PRODUCTO' - DataType = datString - Size = 40 - DisplayLabel = 'Producto' - end - item - Name = 'GRUPOPRODUCTO' - DataType = datString - Size = 25 - DisplayLabel = 'Grupo' - end - item - Name = 'TIPOPRODUCTO' - DataType = datString - Size = 25 - DisplayLabel = 'Tipo' - end - item - Name = 'COLECCION' - DataType = datString - Size = 6 - DisplayLabel = 'Colecci'#243'n' - end - item - Name = 'COLOR' - DataType = datString - Size = 10 - DisplayLabel = 'Color' - end - item - Name = 'TALLA' - DataType = datString - Size = 8 - DisplayLabel = 'Talla' - Alignment = taRightJustify - end - item - Name = 'TALLA38' - DataType = datDecimal - DisplayLabel = '38' - Alignment = taRightJustify - end - item - Name = 'TALLA40' - DataType = datDecimal - DisplayLabel = '40' - Alignment = taRightJustify - end - item - Name = 'TALLA42' - DataType = datDecimal - DisplayLabel = '42' - Alignment = taRightJustify - end - item - Name = 'TALLA44' - DataType = datDecimal - DisplayLabel = '44' - Alignment = taRightJustify - end - item - Name = 'TALLA46' - DataType = datDecimal - DisplayLabel = '46' - Alignment = taRightJustify - end - item - Name = 'TALLA48' - DataType = datDecimal - DisplayLabel = '48' - Alignment = taRightJustify - end - item - Name = 'VTATERMDEV' - DataType = datDecimal - DisplayLabel = 'Vta.Term/Dev' - Alignment = taRightJustify - end - item - Name = 'VTAFINALRESC' - DataType = datDecimal - DisplayLabel = 'Vta.Final/Resc' - Alignment = taRightJustify - end - item - Name = 'VENTAS' - DataType = datDecimal - DisplayLabel = 'Ventas' - Alignment = taRightJustify - end - item - Name = 'DEVOLUCIONES' - DataType = datDecimal - DisplayLabel = 'Devoluciones' - Alignment = taRightJustify - end - item - Name = 'TOTAL' - DataType = datDecimal - DisplayLabel = 'Total ventas' - Alignment = taRightJustify - end - item - Name = 'VALTERMDEV' - DataType = datDecimal - DisplayLabel = 'Val.Term/Dev' - Alignment = taRightJustify - end - item - Name = 'VALFINALRESC' - DataType = datDecimal - DisplayLabel = 'Val.Final/Resc' - Alignment = taRightJustify - end - item - Name = 'VALVEN' - DataType = datDecimal - DisplayLabel = 'Imp. ventas' - Alignment = taRightJustify - end - item - Name = 'VALDEV' - DataType = datDecimal - DisplayLabel = 'Imp. devoluciones' - Alignment = taRightJustify - end - item - Name = 'VALTOT' - DataType = datDecimal - DisplayLabel = 'Imp. Total' - Alignment = taRightJustify - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 56 - Top = 32 - end - object DABINAdapter: TDABINAdapter - Left = 56 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.pas b/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.pas deleted file mode 100644 index 780429f..0000000 --- a/Varela/Varela/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.pas +++ /dev/null @@ -1,210 +0,0 @@ -unit srvVentasTerminadas_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, - uDataModuleServer, uDAInterfaces, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TsrvVentasTerminadas } - TsrvVentasTerminadas = class(TDARemoteService, IsrvVentasTerminadas) - DABINAdapter: TDABINAdapter; - schVentasTerminadas: TDASchema; - private - protected - { IsrvVentasTerminadas methods } - function GetData(const DatasetName: String; const MaxRecords: Integer; const Columns: String; const Params: TDADatasetParamArray): Binary; - function GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; - function GetSchema(const DatasetName: String; const Columns: String): Binary; - function GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; - function GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uSchemaUtilsServer, dialogs; - -const - CAMPOS_SUMA = '#TALLA38#TALLA40#TALLA42#TALLA44#TALLA46#TALLA48#VENTAS#DEVOLUCIONES#TOTAL#VALVEN#VALDEV#VALTOT#VTATERMDEV#VTAFINALRESC#VALTERMDEV#VALFINALRESC#'; - -procedure Create_srvVentasTerminadas(out anInstance : IUnknown); -begin - anInstance := TsrvVentasTerminadas.Create(NIL); -end; - -{ srvVentasTerminadas } - -function TsrvVentasTerminadas.GetData(const DatasetName: String; - const MaxRecords: Integer; const Columns: String; - const Params: TDADatasetParamArray): TROBinaryMemoryStream; -var - ds : IDADataset; - i : integer; -begin - result := Binary.Create; - try - { Prepares the parameter arrays} - - with TReplicarDataSet.Create do - begin - SourceDataSetName := DatasetName; - Service := Self; - Columnas := Columns; - ColumnasQueSuman := CAMPOS_SUMA; - try - ds := GetNewDataSet; - finally - Free; - end; - end; - - for i := 0 to (Params.Count-1) do - ds.ParamByName(Params[i].Name).Value := Params[i].Value; - ds.Open; - ServiceAdapter.WriteDataset(Result, ds, [woRows], MaxRecords); - except - FreeAndNIl(result); - raise; - end; -end; - -function TsrvVentasTerminadas.GetDataCrossTab(const FechaIni, FechaFin: String; const Coleccion: String): Binary; -var - ds : IDADataset; - AColeccion : String; -begin - if (Length(Coleccion) = 0) or (UpperCase(Coleccion) = 'TODAS') then - AColeccion := '%' - else - AColeccion := Coleccion; - - try - Result := Binary.Create; - ds := schVentasTerminadas.NewDataset(Connection, 'VentasTerminadasCrossTab', ['FECHAINI', 'FECHAFIN', 'COLECCION'], [FechaIni, FechaFin, AColeccion]);//['01/07/2006', '31/07/2006']); - ds.Open; - ServiceAdapter.WriteDataset(Result, ds, [woSchema, woRows], -1); - except - FreeAndNIl(result); - raise; - end; -end; - -function TsrvVentasTerminadas.GetDataEx(const DatasetName, Columns, - Params: String; const MaxRecords: Integer): Binary; -var - ds : IDADataset; - i : integer; - pars: TStringList; - parnames: array of string; - parvalues: array of Variant; -begin - pars := TStringList.Create; - result := Binary.Create; - try - try - pars.Text := Params; - SetLength(parnames, pars.Count); - SetLength(parvalues, pars.Count); - for i := 0 to (pars.Count-1) do begin - parnames[i] := pars.Names[i]; - parvalues[i] := pars.Values[pars.Names[i]]; - end; - - with TReplicarDataSet.Create do - begin - SourceDataSetName := DatasetName; - Service := Self; - Columnas := Columns; - ColumnasQueSuman := CAMPOS_SUMA; - try - ds := GetNewDataSet; - finally - Free; - end; - end; - - // Fills the parameters (if any are specified) - if (Length(parnames) > 0) then - begin - for i := 0 to (Length(parnames) - 1) do - ds.ParamByName(parnames[i]).Value := parvalues[i]; - end; - - ds.Open; - ServiceAdapter.WriteDataset(Result, ds, [woRows], MaxRecords); - except - FreeAndNIl(result); - raise; - end; - finally - FreeANDNil(pars); - end; -end; - -function TsrvVentasTerminadas.GetSchema(const DatasetName: String; const Columns: String): TROBinaryMemoryStream; -var - ds : IDADataset; -begin - result := Binary.Create; - try - with TReplicarDataSet.Create do - begin - SourceDataSetName := DatasetName; - Service := Self; - Columnas := Columns; - ColumnasQueSuman := CAMPOS_SUMA; - try - ds := GetNewDataSet; - finally - Free; - end; - end; - - ServiceAdapter.WriteDataset(result, ds, [woSchema]); - except - FreeAndNIl(result); - raise; - end; -end; - -function TsrvVentasTerminadas.GetSchemaCrossTab(const FechaIni, FechaFin: String; const Coleccion: String): Binary; -var - ds : IDADataset; - AColeccion : String; -begin - if (Length(Coleccion) = 0) or (UpperCase(Coleccion) = 'TODAS') then - AColeccion := '%' - else - AColeccion := Coleccion; - - try - Result := Binary.Create; - ds := schVentasTerminadas.NewDataset(Connection, 'VentasTerminadasCrossTab', ['FECHAINI', 'FECHAFIN', 'COLECCION'], [FechaIni, FechaFin, AColeccion]);//['01/07/2006', '31/07/2006']); - ds.Open; - ServiceAdapter.WriteDataset(Result, ds, [woSchema]); - except - FreeAndNIl(result); - raise; - end; -end; - -initialization - TROClassFactory.Create('srvVentasTerminadas', Create_srvVentasTerminadas, TsrvVentasTerminadas_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.bdsproj b/Varela/Varela/Source/Servidor/AdminPV_Server.bdsproj deleted file mode 100644 index e4f8c61..0000000 --- a/Varela/Varela/Source/Servidor/AdminPV_Server.bdsproj +++ /dev/null @@ -1,678 +0,0 @@ - - - - - - - - - - - - AdminPV_Server.dpr - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 1 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - ..\..\Output\Debug\Servidor - .\ - ..\Lib - ..\Lib - ..\Lib;..\Base - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7;EasyListviewD7;RemObjects_Indy_D10;IndyProtocols;IndyCore;IndySystem;PascalScript_RO_D10;DataAbstract_Core_D10;DataAbstract_Scripting_D10;DataAbstract_IDE_D10 - EUREKALOG;EUREKALOG_VER6 - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 2 - 5 - 0 - False - False - False - False - False - 3082 - 1252 - - - Rodax Software S.L. - - 1.2.5.0 - - - - - AdminPV_Server - 1.2.5.0 - - miércoles, 05 de septiembre de 2007 19:15 - - - - diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.cfg b/Varela/Varela/Source/Servidor/AdminPV_Server.cfg deleted file mode 100644 index 7d0152a..0000000 --- a/Varela/Varela/Source/Servidor/AdminPV_Server.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --E"..\..\Output\Servidor" --N".\" --LE"..\Lib" --LN"..\Lib" --U"..\Lib;..\Base" --O"..\Lib;..\Base" --I"..\Lib;..\Base" --R"..\Lib;..\Base" --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.dof b/Varela/Varela/Source/Servidor/AdminPV_Server.dof deleted file mode 100644 index 1804a4b..0000000 --- a/Varela/Varela/Source/Servidor/AdminPV_Server.dof +++ /dev/null @@ -1,480 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir=..\..\Output\Servidor -UnitOutputDir=.\ -PackageDLLOutputDir=..\Lib -PackageDCPOutputDir=..\Lib -SearchPath=..\Lib;..\Base -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7;EasyListviewD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=2 -Release=5 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName=Rodax Software S.L. -FileDescription= -FileVersion=1.2.5.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName=AdminPV_Server -ProductVersion=1.1.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=3 -Item0=..\Lib -Item1=..\Lib;..\Base -Item2=..\..\..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlOutputDirectorry] -Count=2 -Item0=..\..\Output\Cliente -Item1=..\..\Output\Servidor -[HistoryLists\hlBPLOutput] -Count=3 -Item0=..\Lib -Item1=..\..\..\..\Output\Cliente -Item2=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=2 -Item0=..\Lib -Item1=..\..\..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=0 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=0 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=0 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=1 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.dpr b/Varela/Varela/Source/Servidor/AdminPV_Server.dpr deleted file mode 100644 index 7ed1aae..0000000 --- a/Varela/Varela/Source/Servidor/AdminPV_Server.dpr +++ /dev/null @@ -1,73 +0,0 @@ -program AdminPV_Server; - -{#ROGEN:VARELA.rodl} // RemObjects: Careful, do not remove! - -uses - uROComInit, - Forms, - fServerForm in 'fServerForm.pas' {ServerForm}, - VARELA_Intf in 'VARELA_Intf.pas', - VARELA_Invk in 'VARELA_Invk.pas', - EDI_Reader in 'EDI\EDI_Reader.pas', - EDI_INVRPT in 'EDI\EDI_INVRPT.pas', - EDI_SLSRPT in 'EDI\EDI_SLSRPT.pas', - schEDILogClient_Intf in '..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas', - schEDILogServer_Intf in '..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas', - uDataModuleServer in 'uDataModuleServer.pas' {dmServer: TDataModule}, - uFrameConfiguracion in 'Configuracion\uFrameConfiguracion.pas' {FrameConfiguracion: TFrame}, - uConexionBD in 'Configuracion\uConexionBD.pas' {frConexionBD: TFrame}, - uConfGeneral in 'Configuracion\uConfGeneral.pas' {frConfGeneral: TFrame}, - uConfiguracion in 'Configuracion\uConfiguracion.pas' {fConfiguracion}, - uBizEDISales in 'Services\EDI_Sales\uBizEDISales.pas', - schEDISalesClient_Intf in 'Services\EDI_Sales\schEDISalesClient_Intf.pas', - schEDISalesServer_Intf in 'Services\EDI_Sales\schEDISalesServer_Intf.pas', - uConfFicherosEDI in 'Configuracion\uConfFicherosEDI.pas' {frConfFicherosEDI: TFrame}, - uDataModuleEDI_Sales in 'Services\EDI_Sales\uDataModuleEDI_Sales.pas' {dmEDISales: TDataModule}, - uDataTableUtils in '..\Base\uDataTableUtils.pas', - srvLogin_Impl in 'Services\Login\srvLogin_Impl.pas' {srvLogin: TDARemoteService}, - srvInformes_Impl in 'srvInformes_Impl.pas' {srvInformes: TDARemoteService}, - srvTransfereciaFicheros_Impl in 'Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas' {srvTransfereciaFicheros: TRORemoteDataModule}, - srvControles_Impl in '..\ControlesBase\Servidor\srvControles_Impl.pas' {srvControles: TDARemoteService}, - srvVentasEnProceso_Impl in '..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas' {srvVentasEnProceso: TDARemoteService}, - schVentasEnProcesoClient_Intf in '..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas', - schVentasEnProcesoServer_Intf in '..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas', - uSchemaUtilsServer in 'uSchemaUtilsServer.pas', - srvVentasTerminadas_Impl in '..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas' {srvVentasTerminadas: TDARemoteService}, - schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas', - schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas', - srvReferenciaGenerica_Impl in '..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas' {srvReferenciaGenerica: TDARemoteService}, - schReferenciaGenericaClient_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas', - schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas', - uBizReferenciaGenericaServer in '..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas', - uDataModuleEDI_Inventary in 'Services\EDI_Inventary\uDataModuleEDI_Inventary.pas' {dmEDIInventary: TDataModule}, - schEDIInventaryClient_Intf in 'Services\EDI_Inventary\schEDIInventaryClient_Intf.pas', - schEDIInventaryServer_Intf in 'Services\EDI_Inventary\schEDIInventaryServer_Intf.pas', - uBizEDIInventary in 'Services\EDI_Inventary\uBizEDIInventary.pas', - EDI_Utils in 'EDI_Utils.pas', - srvRecepciones_Impl in '..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas' {srvRecepciones: TDARemoteService}, - srvDevoluciones_Impl in '..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas' {srvDevoluciones: TDARemoteService}, - srvTraspasos_Impl in '..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas' {srvTraspasos: TDARemoteService}, - srvStock_Impl in '..\Modulos\Stock\Servidor\srvStock_Impl.pas' {srvStock: TDARemoteService}, - schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas', - schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas', - uAcercaDe in 'uAcercaDe.pas' {fAcercaDe}, - srvParametros_Impl in '..\Modulos\Parametros\Servidor\srvParametros_Impl.pas' {srvParametros: TDARemoteService}, - schParametrosClient_Intf in '..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas', - schParametrosServer_Intf in '..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas', - EDI_Inventary_Impl in 'EDI_Inventary_Impl.pas', - EDI_Sales_Impl in 'EDI_Sales_Impl.pas', - EDI_Log_Impl in 'EDI_Log_Impl.pas', - schControlesClient_Intf in '..\ControlesBase\Reglas\schControlesClient_Intf.pas', - schControlesServer_Intf in '..\ControlesBase\Reglas\schControlesServer_Intf.pas', - RegExpr in 'RegExpr.pas'; - -{$R *.res} -{$R RODLFile.res} - -begin - Application.Initialize; - Application.Title := ''; - Application.CreateForm(TdmServer, dmServer); - Application.CreateForm(TServerForm, ServerForm); - Application.Run; -end. diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.drc b/Varela/Varela/Source/Servidor/AdminPV_Server.drc deleted file mode 100644 index 7d1135a..0000000 --- a/Varela/Varela/Source/Servidor/AdminPV_Server.drc +++ /dev/null @@ -1,2579 +0,0 @@ -/* VER185 - Generated by the CodeGear Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -#define cxGridStrs_scxGridCustomizationFormColumnsPageCaption 64272 -#define cxGridStrs_scxGridGroupByBoxCaption 64273 -#define cxGridStrs_scxGridFilterCustomizeButtonCaption 64274 -#define cxGridStrs_scxGridColumnsQuickCustomizationHint 64275 -#define cxPCConsts_scxPCNoBaseImages 64288 -#define cxPCConsts_scxPCNoRegisteredStyles 64289 -#define cxPCConsts_scxPCPageIndexError 64290 -#define cxPCConsts_scxPCPainterClassError 64291 -#define cxPCConsts_scxPCTabCountEqualsZero 64292 -#define cxPCConsts_scxPCTabIndexError 64293 -#define cxPCConsts_scxPCTabVisibleIndexOutsOfBounds 64294 -#define cxPCConsts_scxPCVisibleTabListEmpty 64295 -#define cxPCConsts_scxPCAllowRotateError 64296 -#define cxGridStrs_scxGridDeletingConfirmationCaption 64297 -#define cxGridStrs_scxGridDeletingFocusedConfirmationText 64298 -#define cxGridStrs_scxGridDeletingSelectedConfirmationText 64299 -#define cxGridStrs_scxGridNoDataInfoText 64300 -#define cxGridStrs_scxGridNewItemRowInfoText 64301 -#define cxGridStrs_scxGridFilterIsEmpty 64302 -#define cxGridStrs_scxGridCustomizationFormCaption 64303 -#define MidConst_SErrorLoadingMidas 64304 -#define MidConst_SCannotCreateDataSet 64305 -#define MidConst_SNoConnectToBroker 64306 -#define MidConst_SNoParentConnection 64307 -#define MidConst_SInvalidOptParamType 64308 -#define MidConst_SConstraintFailed 64309 -#define MidConst_SField 64310 -#define MidConst_SRecConstFail 64311 -#define MidConst_SFieldConstFail 64312 -#define MidConst_SDefExprFail 64313 -#define MidConst_SNoEditsAllowed 64314 -#define MidConst_SNoDeletesAllowed 64315 -#define MidConst_SNoInsertsAllowed 64316 -#define MidConst_SConnectionMissing 64317 -#define MidConst_SNoCircularConnection 64318 -#define cxPCConsts_scxPCImageListIndexError 64319 -#define cxFilterControlStrs_cxSFilterDialogRows 64320 -#define cxFilterControlStrs_cxSFilterControlDialogCaption 64321 -#define cxFilterControlStrs_cxSFilterControlDialogNewFile 64322 -#define cxFilterControlStrs_cxSFilterControlDialogOpenDialogCaption 64323 -#define cxFilterControlStrs_cxSFilterControlDialogSaveDialogCaption 64324 -#define cxFilterControlStrs_cxSFilterControlDialogActionSaveCaption 64325 -#define cxFilterControlStrs_cxSFilterControlDialogActionOpenCaption 64326 -#define cxFilterControlStrs_cxSFilterControlDialogActionApplyCaption 64327 -#define cxFilterControlStrs_cxSFilterControlDialogActionOkCaption 64328 -#define cxFilterControlStrs_cxSFilterControlDialogActionCancelCaption 64329 -#define cxFilterControlStrs_cxSFilterControlDialogFileExt 64330 -#define cxFilterControlStrs_cxSFilterControlDialogFileFilter 64331 -#define MidConst_SNoDataProvider 64332 -#define MidConst_SInvalidDataPacket 64333 -#define MidConst_SRefreshError 64334 -#define MidConst_SNoCircularReference 64335 -#define cxFilterControlStrs_cxSFilterAddCondition 64336 -#define cxFilterControlStrs_cxSFilterAddGroup 64337 -#define cxFilterControlStrs_cxSFilterRemoveRow 64338 -#define cxFilterControlStrs_cxSFilterClearAll 64339 -#define cxFilterControlStrs_cxSFilterFooterAddCondition 64340 -#define cxFilterControlStrs_cxSFilterGroupCaption 64341 -#define cxFilterControlStrs_cxSFilterRootGroupCaption 64342 -#define cxFilterControlStrs_cxSFilterControlNullString 64343 -#define cxFilterControlStrs_cxSFilterErrorBuilding 64344 -#define cxFilterControlStrs_cxSFilterDialogCaption 64345 -#define cxFilterControlStrs_cxSFilterDialogInvalidValue 64346 -#define cxFilterControlStrs_cxSFilterDialogUse 64347 -#define cxFilterControlStrs_cxSFilterDialogSingleCharacter 64348 -#define cxFilterControlStrs_cxSFilterDialogCharactersSeries 64349 -#define cxFilterControlStrs_cxSFilterDialogOperationAnd 64350 -#define cxFilterControlStrs_cxSFilterDialogOperationOr 64351 -#define cxEditConsts_scxRegExprHexNumberExpected0 64352 -#define cxEditConsts_scxRegExprHexNumberExpected 64353 -#define cxEditConsts_scxRegExprMissing 64354 -#define cxEditConsts_scxRegExprUnnecessary 64355 -#define cxEditConsts_scxRegExprIncorrectSpace 64356 -#define cxEditConsts_scxRegExprNotCompiled 64357 -#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64358 -#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64359 -#define cxEditConsts_scxMaskEditRegExprError 64360 -#define cxEditConsts_scxMaskEditInvalidEditValue 64361 -#define cxEditConsts_cxSSpinEditInvalidNumericValue 64362 -#define cxFilterControlStrs_cxSFilterBoolOperatorAnd 64363 -#define cxFilterControlStrs_cxSFilterBoolOperatorOr 64364 -#define cxFilterControlStrs_cxSFilterBoolOperatorNotAnd 64365 -#define cxFilterControlStrs_cxSFilterBoolOperatorNotOr 64366 -#define cxFilterControlStrs_cxSFilterRootButtonCaption 64367 -#define cxEditConsts_scxSEditRepositoryTextItem 64368 -#define cxEditConsts_scxSEditRepositoryTimeItem 64369 -#define cxEditConsts_scxRegExprLine 64370 -#define cxEditConsts_scxRegExprChar 64371 -#define cxEditConsts_scxRegExprNotAssignedSourceStream 64372 -#define cxEditConsts_scxRegExprEmptySourceStream 64373 -#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64374 -#define cxEditConsts_scxRegExprCantUseStarQuantifier 64375 -#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64376 -#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64377 -#define cxEditConsts_scxRegExprIllegalSymbol 64378 -#define cxEditConsts_scxRegExprIllegalQuantifier 64379 -#define cxEditConsts_scxRegExprIllegalIntegerValue 64380 -#define cxEditConsts_scxRegExprTooBigReferenceNumber 64381 -#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64382 -#define cxEditConsts_scxRegExprSubrangeOrder 64383 -#define cxEditConsts_scxSEditRepositoryBlobItem 64384 -#define cxEditConsts_scxSEditRepositoryButtonItem 64385 -#define cxEditConsts_scxSEditRepositoryCalcItem 64386 -#define cxEditConsts_scxSEditRepositoryCheckBoxItem 64387 -#define cxEditConsts_scxSEditRepositoryComboBoxItem 64388 -#define cxEditConsts_scxSEditRepositoryCurrencyItem 64389 -#define cxEditConsts_scxSEditRepositoryDateItem 64390 -#define cxEditConsts_scxSEditRepositoryHyperLinkItem 64391 -#define cxEditConsts_scxSEditRepositoryImageComboBoxItem 64392 -#define cxEditConsts_scxSEditRepositoryImageItem 64393 -#define cxEditConsts_scxSEditRepositoryMaskItem 64394 -#define cxEditConsts_scxSEditRepositoryMemoItem 64395 -#define cxEditConsts_scxSEditRepositoryMRUItem 64396 -#define cxEditConsts_scxSEditRepositoryPopupItem 64397 -#define cxEditConsts_scxSEditRepositorySpinItem 64398 -#define cxEditConsts_scxSEditRepositoryRadioGroupItem 64399 -#define cxEditConsts_scxSHyperLinkPrefix 64400 -#define cxEditConsts_cxNavigatorHint_First 64401 -#define cxEditConsts_cxNavigatorHint_Prior 64402 -#define cxEditConsts_cxNavigatorHint_PriorPage 64403 -#define cxEditConsts_cxNavigatorHint_Next 64404 -#define cxEditConsts_cxNavigatorHint_NextPage 64405 -#define cxEditConsts_cxNavigatorHint_Last 64406 -#define cxEditConsts_cxNavigatorHint_Insert 64407 -#define cxEditConsts_cxNavigatorHint_Delete 64408 -#define cxEditConsts_cxNavigatorHint_Edit 64409 -#define cxEditConsts_cxNavigatorHint_Post 64410 -#define cxEditConsts_cxNavigatorHint_Cancel 64411 -#define cxEditConsts_cxNavigatorHint_Refresh 64412 -#define cxEditConsts_cxNavigatorHint_SaveBookmark 64413 -#define cxEditConsts_cxNavigatorHint_GotoBookmark 64414 -#define cxEditConsts_cxNavigatorHint_Filter 64415 -#define cxEditConsts_cxSDateTuesday 64416 -#define cxEditConsts_cxSDateWednesday 64417 -#define cxEditConsts_cxSDateThursday 64418 -#define cxEditConsts_cxSDateFriday 64419 -#define cxEditConsts_cxSDateSaturday 64420 -#define cxEditConsts_cxSDateFirst 64421 -#define cxEditConsts_cxSDateSecond 64422 -#define cxEditConsts_cxSDateThird 64423 -#define cxEditConsts_cxSDateFourth 64424 -#define cxEditConsts_cxSDateFifth 64425 -#define cxEditConsts_cxSDateSixth 64426 -#define cxEditConsts_cxSDateSeventh 64427 -#define cxEditConsts_cxSDateBOM 64428 -#define cxEditConsts_cxSDateEOM 64429 -#define cxEditConsts_cxSDateNow 64430 -#define cxEditConsts_scxSCalcError 64431 -#define cxEditConsts_cxSMenuItemCaptionCut 64432 -#define cxEditConsts_cxSMenuItemCaptionCopy 64433 -#define cxEditConsts_cxSMenuItemCaptionPaste 64434 -#define cxEditConsts_cxSMenuItemCaptionDelete 64435 -#define cxEditConsts_cxSMenuItemCaptionLoad 64436 -#define cxEditConsts_cxSMenuItemCaptionSave 64437 -#define cxEditConsts_cxSDatePopupClear 64438 -#define cxEditConsts_cxSDatePopupNow 64439 -#define cxEditConsts_cxSDatePopupOK 64440 -#define cxEditConsts_cxSDatePopupToday 64441 -#define cxEditConsts_cxSDateError 64442 -#define cxEditConsts_cxSDateToday 64443 -#define cxEditConsts_cxSDateYesterday 64444 -#define cxEditConsts_cxSDateTomorrow 64445 -#define cxEditConsts_cxSDateSunday 64446 -#define cxEditConsts_cxSDateMonday 64447 -#define cxEditConsts_cxSEditNumericValueConvertError 64448 -#define cxEditConsts_cxSEditPopupCircularReferencingError 64449 -#define cxEditConsts_cxSEditTimeConvertError 64450 -#define cxEditConsts_cxSEditValidateErrorText 64451 -#define cxEditConsts_cxSEditValueOutOfBounds 64452 -#define cxEditConsts_cxSEditCheckBoxChecked 64453 -#define cxEditConsts_cxSEditCheckBoxGrayed 64454 -#define cxEditConsts_cxSEditCheckBoxUnchecked 64455 -#define cxEditConsts_cxSRadioGroupDefaultCaption 64456 -#define cxEditConsts_cxSBlobButtonOK 64457 -#define cxEditConsts_cxSBlobButtonCancel 64458 -#define cxEditConsts_cxSBlobButtonClose 64459 -#define cxEditConsts_cxSBlobMemo 64460 -#define cxEditConsts_cxSBlobMemoEmpty 64461 -#define cxEditConsts_cxSBlobPicture 64462 -#define cxEditConsts_cxSBlobPictureEmpty 64463 -#define cxFilterConsts_cxSFilterNotCaption 64464 -#define cxFilterConsts_cxSFilterBlankCaption 64465 -#define cxFilterConsts_cxSFilterOperatorIsNull 64466 -#define cxFilterConsts_cxSFilterOperatorIsNotNull 64467 -#define cxFilterConsts_cxSFilterOperatorBeginsWith 64468 -#define cxFilterConsts_cxSFilterOperatorDoesNotBeginWith 64469 -#define cxFilterConsts_cxSFilterOperatorEndsWith 64470 -#define cxFilterConsts_cxSFilterOperatorDoesNotEndWith 64471 -#define cxFilterConsts_cxSFilterOperatorContains 64472 -#define cxFilterConsts_cxSFilterOperatorDoesNotContain 64473 -#define cxFilterConsts_cxSFilterBoxAllCaption 64474 -#define cxFilterConsts_cxSFilterBoxCustomCaption 64475 -#define cxFilterConsts_cxSFilterBoxBlanksCaption 64476 -#define cxFilterConsts_cxSFilterBoxNonBlanksCaption 64477 -#define cxEditConsts_cxSEditDateConvertError 64478 -#define cxEditConsts_cxSEditInvalidRepositoryItem 64479 -#define cxFilterConsts_cxSFilterOperatorLastMonth 64480 -#define cxFilterConsts_cxSFilterOperatorLastYear 64481 -#define cxFilterConsts_cxSFilterOperatorPast 64482 -#define cxFilterConsts_cxSFilterOperatorThisWeek 64483 -#define cxFilterConsts_cxSFilterOperatorThisMonth 64484 -#define cxFilterConsts_cxSFilterOperatorThisYear 64485 -#define cxFilterConsts_cxSFilterOperatorNext7Days 64486 -#define cxFilterConsts_cxSFilterOperatorNextWeek 64487 -#define cxFilterConsts_cxSFilterOperatorNext14Days 64488 -#define cxFilterConsts_cxSFilterOperatorNextTwoWeeks 64489 -#define cxFilterConsts_cxSFilterOperatorNext30Days 64490 -#define cxFilterConsts_cxSFilterOperatorNextMonth 64491 -#define cxFilterConsts_cxSFilterOperatorNextYear 64492 -#define cxFilterConsts_cxSFilterOperatorFuture 64493 -#define cxFilterConsts_cxSFilterAndCaption 64494 -#define cxFilterConsts_cxSFilterOrCaption 64495 -#define cxFilterConsts_cxSFilterOperatorGreater 64496 -#define cxFilterConsts_cxSFilterOperatorGreaterEqual 64497 -#define cxFilterConsts_cxSFilterOperatorLike 64498 -#define cxFilterConsts_cxSFilterOperatorNotLike 64499 -#define cxFilterConsts_cxSFilterOperatorBetween 64500 -#define cxFilterConsts_cxSFilterOperatorNotBetween 64501 -#define cxFilterConsts_cxSFilterOperatorInList 64502 -#define cxFilterConsts_cxSFilterOperatorNotInList 64503 -#define cxFilterConsts_cxSFilterOperatorYesterday 64504 -#define cxFilterConsts_cxSFilterOperatorToday 64505 -#define cxFilterConsts_cxSFilterOperatorTomorrow 64506 -#define cxFilterConsts_cxSFilterOperatorLast7Days 64507 -#define cxFilterConsts_cxSFilterOperatorLastWeek 64508 -#define cxFilterConsts_cxSFilterOperatorLast14Days 64509 -#define cxFilterConsts_cxSFilterOperatorLastTwoWeeks 64510 -#define cxFilterConsts_cxSFilterOperatorLast30Days 64511 -#define pnglang_EPNGCannotAddChunkText 64512 -#define pnglang_EPNGCannotAddInvalidImageText 64513 -#define pnglang_EPNGOutMemoryText 64514 -#define pnglang_EPNGHeaderNotPresentText 64515 -#define cxDataConsts_cxSDataReadError 64516 -#define cxDataConsts_cxSDataWriteError 64517 -#define cxDataConsts_cxSDataItemExistError 64518 -#define cxDataConsts_cxSDataRecordIndexError 64519 -#define cxDataConsts_cxSDataItemIndexError 64520 -#define cxDataConsts_cxSDataProviderModeError 64521 -#define cxDataConsts_cxSDataInvalidStreamFormat 64522 -#define cxDataConsts_cxSDataRowIndexError 64523 -#define cxFilterConsts_cxSFilterOperatorEqual 64524 -#define cxFilterConsts_cxSFilterOperatorNotEqual 64525 -#define cxFilterConsts_cxSFilterOperatorLess 64526 -#define cxFilterConsts_cxSFilterOperatorLessEqual 64527 -#define pnglang_EPngInvalidCRCText 64528 -#define pnglang_EPNGInvalidIHDRText 64529 -#define pnglang_EPNGMissingMultipleIDATText 64530 -#define pnglang_EPNGZLIBErrorText 64531 -#define pnglang_EPNGInvalidPaletteText 64532 -#define pnglang_EPNGInvalidFileHeaderText 64533 -#define pnglang_EPNGIHDRNotFirstText 64534 -#define pnglang_EPNGSizeExceedsText 64535 -#define pnglang_EPNGUnknownPalEntryText 64536 -#define pnglang_EPNGUnknownCriticalChunkText 64537 -#define pnglang_EPNGUnknownCompressionText 64538 -#define pnglang_EPNGUnknownInterlaceText 64539 -#define pnglang_EPNGCannotAssignChunkText 64540 -#define pnglang_EPNGUnexpectedEndText 64541 -#define pnglang_EPNGNoImageDataText 64542 -#define pnglang_EPNGCannotChangeSizeText 64543 -#define IBSQLMonitor_StrStartTransaction 64544 -#define IBSQLMonitor_StrApplication 64545 -#define ADOConst_SMissingConnection 64546 -#define ADOConst_SNoDetailFilter 64547 -#define ADOConst_SBookmarksRequired 64548 -#define ADOConst_SMissingCommandText 64549 -#define ADOConst_SNoResultSet 64550 -#define ADOConst_SADOCreateError 64551 -#define ADOConst_SEventsNotSupported 64552 -#define ADOConst_SUsupportedFieldType 64553 -#define ADOConst_SConnectionRequired 64554 -#define ADOConst_SCantRequery 64555 -#define ADOConst_SNoFilterOptions 64556 -#define ADOConst_SRecordsetNotOpen 64557 -#define ADOConst_sNameAttr 64558 -#define ADOConst_sValueAttr 64559 -#define IBSQLMonitor_StrError 64560 -#define IBSQLMonitor_StrAttach 64561 -#define IBSQLMonitor_StrDetach 64562 -#define IBSQLMonitor_StrQuery 64563 -#define IBSQLMonitor_StrStart 64564 -#define IBSQLMonitor_StrExecute 64565 -#define IBSQLMonitor_StrNULL 64566 -#define IBSQLMonitor_StrBLOB 64567 -#define IBSQLMonitor_StrFetch 64568 -#define IBSQLMonitor_StrPrepare 64569 -#define IBSQLMonitor_StrPlan 64570 -#define IBSQLMonitor_StrPlanCantRetrive 64571 -#define IBSQLMonitor_StrCommitHardComm 64572 -#define IBSQLMonitor_StrCommitRetaining 64573 -#define IBSQLMonitor_StrRollback 64574 -#define IBSQLMonitor_StrRollbackRetainin 64575 -#define IBXConst_SInvalidOnStatusResult 64576 -#define IBXConst_SDPBConstantUnknownEx 64577 -#define IBXConst_STPBConstantUnknownEx 64578 -#define IBXConst_SUnknownPlan 64579 -#define IBXConst_SFieldSizeMismatch 64580 -#define IBXConst_SEventAlreadyRegistered 64581 -#define IBXConst_SStringTooLarge 64582 -#define IBXConst_SNoTimers 64583 -#define IBXConst_SIB65feature 64584 -#define IBXConst_SLoginPromptFailure 64585 -#define IBXConst_SIB70feature 64586 -#define IBXConst_SIB71feature 64587 -#define IBXConst_SIB80feature 64588 -#define IBSQLMonitor_StrConnect 64589 -#define IBSQLMonitor_StrDisconnect 64590 -#define IBSQLMonitor_StrMisc 64591 -#define IBXConst_SSQLMonitorAlreadyPresent 64592 -#define IBXConst_SCantPrintValue 64593 -#define IBXConst_SEOFReached 64594 -#define IBXConst_SEOFInComment 64595 -#define IBXConst_SEOFInString 64596 -#define IBXConst_SParamNameExpected 64597 -#define IBXConst_SSuccess 64598 -#define IBXConst_SDelphiException 64599 -#define IBXConst_SNoOptionsSet 64600 -#define IBXConst_SNoDestinationDirectory 64601 -#define IBXConst_SNosourceDirectory 64602 -#define IBXConst_SNoUninstallFile 64603 -#define IBXConst_SOptionNeedsClient 64604 -#define IBXConst_SOptionNeedsServer 64605 -#define IBXConst_SInvalidOption 64606 -#define IBXConst_SInvalidOnErrorResult 64607 -#define IBXConst_SInvalidEvent 64608 -#define IBXConst_SMaximumEvents 64609 -#define IBXConst_SNoEventsRegistered 64610 -#define IBXConst_SInvalidQueueing 64611 -#define IBXConst_SInvalidRegistration 64612 -#define IBXConst_SInvalidBatchMove 64613 -#define IBXConst_SSQLDialectInvalid 64614 -#define IBXConst_SSPBConstantNotSupported 64615 -#define IBXConst_SSPBConstantUnknown 64616 -#define IBXConst_SServiceActive 64617 -#define IBXConst_SServiceInActive 64618 -#define IBXConst_SServerNameMissing 64619 -#define IBXConst_SQueryParamsError 64620 -#define IBXConst_SStartParamsError 64621 -#define IBXConst_SOutputParsingError 64622 -#define IBXConst_SUseSpecificProcedures 64623 -#define IBXConst_SEmptySQLStatement 64624 -#define IBXConst_SIsASelectStatement 64625 -#define IBXConst_SRequiredParamNotSet 64626 -#define IBXConst_SNoStoredProcName 64627 -#define IBXConst_SIsAExecuteProcedure 64628 -#define IBXConst_SUpdateFailed 64629 -#define IBXConst_SNotCachedUpdates 64630 -#define IBXConst_SNotLiveRequest 64631 -#define IBXConst_SNoProvider 64632 -#define IBXConst_SNoRecordsAffected 64633 -#define IBXConst_SNoTableName 64634 -#define IBXConst_SCannotCreatePrimaryIndex 64635 -#define IBXConst_SCannotDropSystemIndex 64636 -#define IBXConst_STableNameMismatch 64637 -#define IBXConst_SIndexFieldMissing 64638 -#define IBXConst_SInvalidCancellation 64639 -#define IBXConst_SCannotPost 64640 -#define IBXConst_SCannotUpdate 64641 -#define IBXConst_SCannotDelete 64642 -#define IBXConst_SCannotRefresh 64643 -#define IBXConst_SBufferNotSet 64644 -#define IBXConst_SCircularReference 64645 -#define IBXConst_SSQLParseError 64646 -#define IBXConst_SUserAbort 64647 -#define IBXConst_SDataSetUniDirectional 64648 -#define IBXConst_SCannotCreateSharedResource 64649 -#define IBXConst_SWindowsAPIError 64650 -#define IBXConst_SColumnListsDontMatch 64651 -#define IBXConst_SColumnTypesDontMatch 64652 -#define IBXConst_SCantEndSharedTransaction 64653 -#define IBXConst_SFieldUnsupportedType 64654 -#define IBXConst_SCircularDataLink 64655 -#define IBXConst_SDatasetOpen 64656 -#define IBXConst_SDatasetClosed 64657 -#define IBXConst_SUnknownSQLDataType 64658 -#define IBXConst_SInvalidColumnIndex 64659 -#define IBXConst_SInvalidParamColumnIndex 64660 -#define IBXConst_SInvalidDataConversion 64661 -#define IBXConst_SColumnIsNotNullable 64662 -#define IBXConst_SBlobCannotBeRead 64663 -#define IBXConst_SBlobCannotBeWritten 64664 -#define IBXConst_SEmptyQuery 64665 -#define IBXConst_SCannotOpenNonSQLSelect 64666 -#define IBXConst_SNoFieldAccess 64667 -#define IBXConst_SFieldReadOnly 64668 -#define IBXConst_SFieldNotFound 64669 -#define IBXConst_SNotEditing 64670 -#define IBXConst_SCannotInsert 64671 -#define IBXConst_SDatabaseNameMissing 64672 -#define IBXConst_SNotInTransaction 64673 -#define IBXConst_SInTransaction 64674 -#define IBXConst_STimeoutNegative 64675 -#define IBXConst_SNoDatabasesInTransaction 64676 -#define IBXConst_SUpdateWrongDB 64677 -#define IBXConst_SUpdateWrongTR 64678 -#define IBXConst_SDatabaseNotAssigned 64679 -#define IBXConst_STransactionNotAssigned 64680 -#define IBXConst_SXSQLDAIndexOutOfRange 64681 -#define IBXConst_SXSQLDANameDoesNotExist 64682 -#define IBXConst_SEOF 64683 -#define IBXConst_SBOF 64684 -#define IBXConst_SInvalidStatementHandle 64685 -#define IBXConst_SSQLOpen 64686 -#define IBXConst_SSQLClosed 64687 -#define IBXConst_SInterBaseMissing 64688 -#define IBXConst_SInterBaseInstallMissing 64689 -#define IBXConst_SIB60feature 64690 -#define IBXConst_SNotSupported 64691 -#define IBXConst_SNotPermitted 64692 -#define IBXConst_SFileAccessError 64693 -#define IBXConst_SConnectionTimeout 64694 -#define IBXConst_SCannotSetDatabase 64695 -#define IBXConst_SCannotSetTransaction 64696 -#define IBXConst_SOperationCancelled 64697 -#define IBXConst_SDPBConstantNotSupported 64698 -#define IBXConst_SDPBConstantUnknown 64699 -#define IBXConst_STPBConstantNotSupported 64700 -#define IBXConst_STPBConstantUnknown 64701 -#define IBXConst_SDatabaseClosed 64702 -#define IBXConst_SDatabaseOpen 64703 -#define uDARes_err_LoadPackageFailed 64704 -#define uDARes_err_InvalidDriverReference 64705 -#define uDARes_err_CannotFindStatement 64706 -#define uDARes_err_CannotFindDefaultItem 64707 -#define uDARes_err_PoolIsNotEmpty 64708 -#define uDARes_err_MaxPoolSizeReached 64709 -#define uDARes_err_LAMEDataset 64710 -#define uDARes_err_HETConnectionNotSupportedInV3 64711 -#define uDARes_err_DARDMInvalidSchema 64712 -#define uDARes_err_DARDMUnassignedAdapter 64713 -#define uDARes_err_DARDMConnectionIsNotAssigned 64714 -#define uDARes_err_DARDMCannotFindProxessorForDelta 64715 -#define uDARes_err_NeedShareMem 64716 -#define uDARes_err_ExecuteSQLCommandNotAllowed 64717 -#define uDARes_err_DatasetNotAccessible 64718 -#define IBXConst_SUnknownError 64719 -#define JvResources_RsHotLight 64720 -#define JvResources_RsMenuBar 64721 -#define JvResources_RsMenuHighlight 64722 -#define uDARes_err_ChangeLogAlreadyStarted 64723 -#define uDARes_err_NotAttachedToDataTable 64724 -#define uDARes_err_DriverProcAlreadyRegistered 64725 -#define uDARes_err_DriverManagerAlreadyCreated 64726 -#define uDARes_err_DriverManagerNotAssigned 64727 -#define uDARes_err_FieldTypeNotSupported 64728 -#define uDARes_err_InvalidDataset 64729 -#define uDARes_err_CannotFindItem 64730 -#define uDARes_err_DriverAlreadyLoaded 64731 -#define uDARes_err_InvalidDLL 64732 -#define uDARes_err_UnknownDriver 64733 -#define uDARes_err_FieldIsNotBound 64734 -#define uDARes_err_CannotFindField 64735 -#define JvResources_RsClInactiveBorder 64736 -#define JvResources_RsClAppWorkSpace 64737 -#define JvResources_RsClHighlight 64738 -#define JvResources_RsClHighlightText 64739 -#define JvResources_RsClBtnFace 64740 -#define JvResources_RsClBtnShadow 64741 -#define JvResources_RsClGrayText 64742 -#define JvResources_RsClBtnText 64743 -#define JvResources_RsClInactiveCaptionText 64744 -#define JvResources_RsClBtnHighlight 64745 -#define JvResources_RsCl3DDkShadow 64746 -#define JvResources_RsCl3DLight 64747 -#define JvResources_RsClInfoText 64748 -#define JvResources_RsClInfoBk 64749 -#define JvResources_RsGradientActiveCaption 64750 -#define JvResources_RsGradientInactiveCaption 64751 -#define JvResources_RsClLightYellow 64752 -#define JvResources_RsClLightGreen 64753 -#define JvResources_RsClLightTurquoise 64754 -#define JvResources_RsClPaleBlue 64755 -#define JvResources_RsClLavender 64756 -#define JvResources_RsClScrollBar 64757 -#define JvResources_RsClBackground 64758 -#define JvResources_RsClActiveCaption 64759 -#define JvResources_RsClInactiveCaption 64760 -#define JvResources_RsClMenu 64761 -#define JvResources_RsClWindow 64762 -#define JvResources_RsClWindowFrame 64763 -#define JvResources_RsClMenuText 64764 -#define JvResources_RsClWindowText 64765 -#define JvResources_RsClCaptionText 64766 -#define JvResources_RsClActiveBorder 64767 -#define JvResources_RsClDarkYellow 64768 -#define JvResources_RsClBlueGray 64769 -#define JvResources_RsClGray50 64770 -#define JvResources_RsClLightOrange 64771 -#define JvResources_RsClSeaGreen 64772 -#define JvResources_RsClLightBlue 64773 -#define JvResources_RsClViolet 64774 -#define JvResources_RsClGray40 64775 -#define JvResources_RsClPink 64776 -#define JvResources_RsClGold 64777 -#define JvResources_RsClBrightGreen 64778 -#define JvResources_RsClTurquoise 64779 -#define JvResources_RsClPlum 64780 -#define JvResources_RsClGray25 64781 -#define JvResources_RsClRose 64782 -#define JvResources_RsClTan 64783 -#define JvResources_RsClFuchsia 64784 -#define JvResources_RsClAqua 64785 -#define JvResources_RsClWhite 64786 -#define JvResources_RsClMoneyGreen 64787 -#define JvResources_RsClSkyBlue 64788 -#define JvResources_RsClCream 64789 -#define JvResources_RsClMedGray 64790 -#define JvResources_RsClBrown 64791 -#define JvResources_RsClOliveGreen 64792 -#define JvResources_RsClDarkGreen 64793 -#define JvResources_RsClDarkTeal 64794 -#define JvResources_RsClDarkBlue 64795 -#define JvResources_RsClIndigo 64796 -#define JvResources_RsClGray80 64797 -#define JvResources_RsClDarkRed 64798 -#define JvResources_RsClOrange 64799 -#define JvResources_RsEGIFVersion 64800 -#define JvResources_RsEPixelFormatNotImplemented 64801 -#define JvResources_RsEBitCountNotImplemented 64802 -#define JvResources_RsClBlack 64803 -#define JvResources_RsClMaroon 64804 -#define JvResources_RsClGreen 64805 -#define JvResources_RsClOlive 64806 -#define JvResources_RsClNavy 64807 -#define JvResources_RsClPurple 64808 -#define JvResources_RsClTeal 64809 -#define JvResources_RsClGray 64810 -#define JvResources_RsClSilver 64811 -#define JvResources_RsClRed 64812 -#define JvResources_RsClLime 64813 -#define JvResources_RsClYellow 64814 -#define JvResources_RsClBlue 64815 -#define JvResources_RsEUnableToCreateKey 64816 -#define JvResources_RsEEnumeratingRegistry 64817 -#define JvResources_RsEInvalidType 64818 -#define JvResources_RsEUnknownBaseType 64819 -#define JvResources_RsEInvalidPath 64820 -#define JvResources_RsENotAUniqueRootPath 64821 -#define JvResources_RsECircularReferenceOfStorages 64822 -#define JvResources_RsEShellNotCompatible 64823 -#define JvResources_RsGIFImage 64824 -#define JvResources_RsEChangeGIFSize 64825 -#define JvResources_RsENoGIFData 64826 -#define JvResources_RsEUnrecognizedGIFExt 64827 -#define JvResources_RsEWrongGIFColors 64828 -#define JvResources_RsEBadGIFCodeSize 64829 -#define JvResources_RsEGIFDecodeError 64830 -#define JvResources_RsEGIFEncodeError 64831 -#define JclResources_RsIntelCacheDescr7D 64832 -#define JclResources_RsIntelCacheDescr7F 64833 -#define JclResources_RsIntelCacheDescr82 64834 -#define JclResources_RsIntelCacheDescr83 64835 -#define JclResources_RsIntelCacheDescr84 64836 -#define JclResources_RsIntelCacheDescr85 64837 -#define JclResources_RsIntelCacheDescr86 64838 -#define JclResources_RsIntelCacheDescr87 64839 -#define JclResources_RsIntelCacheDescrB0 64840 -#define JclResources_RsIntelCacheDescrB3 64841 -#define JclResources_RsIntelCacheDescrB4 64842 -#define JclResources_RsIntelCacheDescrF0 64843 -#define JclResources_RsIntelCacheDescrF1 64844 -#define JvResources_RsAniExtension 64845 -#define JvResources_RsAniFilterName 64846 -#define JvResources_RsRootValueReplaceFmt 64847 -#define JclResources_RsIntelCacheDescr57 64848 -#define JclResources_RsIntelCacheDescr5B 64849 -#define JclResources_RsIntelCacheDescr5C 64850 -#define JclResources_RsIntelCacheDescr5D 64851 -#define JclResources_RsIntelCacheDescr60 64852 -#define JclResources_RsIntelCacheDescr66 64853 -#define JclResources_RsIntelCacheDescr67 64854 -#define JclResources_RsIntelCacheDescr68 64855 -#define JclResources_RsIntelCacheDescr70 64856 -#define JclResources_RsIntelCacheDescr71 64857 -#define JclResources_RsIntelCacheDescr72 64858 -#define JclResources_RsIntelCacheDescr78 64859 -#define JclResources_RsIntelCacheDescr79 64860 -#define JclResources_RsIntelCacheDescr7A 64861 -#define JclResources_RsIntelCacheDescr7B 64862 -#define JclResources_RsIntelCacheDescr7C 64863 -#define JclResources_RsIntelCacheDescr29 64864 -#define JclResources_RsIntelCacheDescr2C 64865 -#define JclResources_RsIntelCacheDescr30 64866 -#define JclResources_RsIntelCacheDescr40 64867 -#define JclResources_RsIntelCacheDescr41 64868 -#define JclResources_RsIntelCacheDescr42 64869 -#define JclResources_RsIntelCacheDescr43 64870 -#define JclResources_RsIntelCacheDescr44 64871 -#define JclResources_RsIntelCacheDescr45 64872 -#define JclResources_RsIntelCacheDescr46 64873 -#define JclResources_RsIntelCacheDescr47 64874 -#define JclResources_RsIntelCacheDescr49 64875 -#define JclResources_RsIntelCacheDescr50 64876 -#define JclResources_RsIntelCacheDescr51 64877 -#define JclResources_RsIntelCacheDescr52 64878 -#define JclResources_RsIntelCacheDescr56 64879 -#define JclResources_RsRTTIVarType 64880 -#define JclResources_RsDeclarationFormat 64881 -#define JclResources_RsIntelCacheDescr00 64882 -#define JclResources_RsIntelCacheDescr01 64883 -#define JclResources_RsIntelCacheDescr02 64884 -#define JclResources_RsIntelCacheDescr03 64885 -#define JclResources_RsIntelCacheDescr04 64886 -#define JclResources_RsIntelCacheDescr05 64887 -#define JclResources_RsIntelCacheDescr06 64888 -#define JclResources_RsIntelCacheDescr08 64889 -#define JclResources_RsIntelCacheDescr0A 64890 -#define JclResources_RsIntelCacheDescr0B 64891 -#define JclResources_RsIntelCacheDescr0C 64892 -#define JclResources_RsIntelCacheDescr22 64893 -#define JclResources_RsIntelCacheDescr23 64894 -#define JclResources_RsIntelCacheDescr25 64895 -#define JclResources_RsRTTIMinValue 64896 -#define JclResources_RsRTTIMaxValue 64897 -#define JclResources_RsRTTINameList 64898 -#define JclResources_RsRTTIClassName 64899 -#define JclResources_RsRTTIParent 64900 -#define JclResources_RsRTTIPropCount 64901 -#define JclResources_RsRTTIUnitName 64902 -#define JclResources_RsRTTIBasedOn 64903 -#define JclResources_RsRTTIFloatType 64904 -#define JclResources_RsRTTIMethodKind 64905 -#define JclResources_RsRTTIParamCount 64906 -#define JclResources_RsRTTIReturnType 64907 -#define JclResources_RsRTTIMaxLen 64908 -#define JclResources_RsRTTIElSize 64909 -#define JclResources_RsRTTIElType 64910 -#define JclResources_RsRTTIElNeedCleanup 64911 -#define JclResources_RsRTTITypeError 64912 -#define JclResources_RsRTTITypeInfoAt 64913 -#define JclResources_RsRTTIPropRead 64914 -#define JclResources_RsRTTIPropWrite 64915 -#define JclResources_RsRTTIPropStored 64916 -#define JclResources_RsRTTIField 64917 -#define JclResources_RsRTTIStaticMethod 64918 -#define JclResources_RsRTTIVirtualMethod 64919 -#define JclResources_RsRTTIIndex 64920 -#define JclResources_RsRTTIDefault 64921 -#define JclResources_RsRTTIName 64922 -#define JclResources_RsRTTIType 64923 -#define JclResources_RsRTTIFlags 64924 -#define JclResources_RsRTTIGUID 64925 -#define JclResources_RsRTTITypeKind 64926 -#define JclResources_RsRTTIOrdinalType 64927 -#define JclResources_RsHKCRShort 64928 -#define JclResources_RsHKCUShort 64929 -#define JclResources_RsHKLMShort 64930 -#define JclResources_RsHKUSShort 64931 -#define JclResources_RsHKPDShort 64932 -#define JclResources_RsHKCCShort 64933 -#define JclResources_RsHKDDShort 64934 -#define JclResources_RsRTTIValueOutOfRange 64935 -#define JclResources_RsRTTIUnknownIdentifier 64936 -#define JclResources_RsRTTIVar 64937 -#define JclResources_RsRTTIConst 64938 -#define JclResources_RsRTTIArrayOf 64939 -#define JclResources_RsRTTIOut 64940 -#define JclResources_RsRTTIOrdinal 64941 -#define JclResources_RsRTTITrue 64942 -#define JclResources_RsRTTIFalse 64943 -#define JConsts_sChangeJPGSize 64944 -#define JConsts_sJPEGError 64945 -#define JConsts_sJPEGImageFile 64946 -#define JclResources_RsFileUtilsNoVersionInfo 64947 -#define JclResources_RsUnableToOpenKeyRead 64948 -#define JclResources_RsUnableToOpenKeyWrite 64949 -#define JclResources_RsUnableToAccessValue 64950 -#define JclResources_RsWrongDataType 64951 -#define JclResources_RsInconsistentPath 64952 -#define JclResources_RsHKCRLong 64953 -#define JclResources_RsHKCULong 64954 -#define JclResources_RsHKLMLong 64955 -#define JclResources_RsHKUSLong 64956 -#define JclResources_RsHKPDLong 64957 -#define JclResources_RsHKCCLong 64958 -#define JclResources_RsHKDDLong 64959 -#define IdResourceStringsCore_RSConnectTimeout 64960 -#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 64961 -#define IdResourceStringsCore_RSAlreadyConnected 64962 -#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 64963 -#define IdResourceStringsCore_RSchedMaxThreadEx 64964 -#define IdResourceStringsCore_RSTransparentProxyCannotBind 64965 -#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 64966 -#define IdResourceStringsCore_RSBufferMissingTerminator 64967 -#define IdResourceStringsCore_RSBufferInvalidStartPos 64968 -#define IdResourceStringsCore_RSReplyInvalidCode 64969 -#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 64970 -#define IdResourceStringsCore_RSNoOnExecute 64971 -#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 64972 -#define ComStrs_sInvalidIndex 64973 -#define ComStrs_sInsertError 64974 -#define ComStrs_sUDAssociated 64975 -#define IdResourceStringsCore_RSSocksServerPermissionError 64976 -#define IdResourceStringsCore_RSSocksServerNetUnreachableError 64977 -#define IdResourceStringsCore_RSSocksServerHostUnreachableError 64978 -#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 64979 -#define IdResourceStringsCore_RSSocksServerTTLExpiredError 64980 -#define IdResourceStringsCore_RSSocksServerCommandError 64981 -#define IdResourceStringsCore_RSSocksServerAddressError 64982 -#define IdResourceStringsCore_RSInterceptCircularLink 64983 -#define IdResourceStringsCore_RSNotEnoughDataInBuffer 64984 -#define IdResourceStringsCore_RSTooMuchDataInBuffer 64985 -#define IdResourceStringsCore_RSFileNotFound 64986 -#define IdResourceStringsCore_RSNotConnected 64987 -#define IdResourceStringsCore_RSObjectTypeNotSupported 64988 -#define IdResourceStringsCore_RSIdNoDataToRead 64989 -#define IdResourceStringsCore_RSReadTimeout 64990 -#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 64991 -#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 64992 -#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 64993 -#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 64994 -#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 64995 -#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 64996 -#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 64997 -#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 64998 -#define IdResourceStringsCore_RSSocksUDPNotSupported 64999 -#define IdResourceStringsCore_RSSocksRequestFailed 65000 -#define IdResourceStringsCore_RSSocksRequestServerFailed 65001 -#define IdResourceStringsCore_RSSocksRequestIdentFailed 65002 -#define IdResourceStringsCore_RSSocksUnknownError 65003 -#define IdResourceStringsCore_RSSocksServerRespondError 65004 -#define IdResourceStringsCore_RSSocksAuthMethodError 65005 -#define IdResourceStringsCore_RSSocksAuthError 65006 -#define IdResourceStringsCore_RSSocksServerGeneralError 65007 -#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 65008 -#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65009 -#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65010 -#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65011 -#define IdResourceStringsProtocols_RSHTTPConflict 65012 -#define IdResourceStringsProtocols_RSHTTPGone 65013 -#define IdResourceStringsProtocols_RSHTTPLengthRequired 65014 -#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 65015 -#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 65016 -#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 65017 -#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 65018 -#define IdResourceStringsProtocols_RSHTTPInternalServerError 65019 -#define IdResourceStringsProtocols_RSHTTPNotImplemented 65020 -#define IdResourceStringsProtocols_RSHTTPBadGateway 65021 -#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 65022 -#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 65023 -#define IdResourceStringsProtocols_RSHTTPOK 65024 -#define IdResourceStringsProtocols_RSHTTPCreated 65025 -#define IdResourceStringsProtocols_RSHTTPAccepted 65026 -#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65027 -#define IdResourceStringsProtocols_RSHTTPNoContent 65028 -#define IdResourceStringsProtocols_RSHTTPResetContent 65029 -#define IdResourceStringsProtocols_RSHTTPPartialContent 65030 -#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65031 -#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65032 -#define IdResourceStringsProtocols_RSHTTPSeeOther 65033 -#define IdResourceStringsProtocols_RSHTTPNotModified 65034 -#define IdResourceStringsProtocols_RSHTTPUseProxy 65035 -#define IdResourceStringsProtocols_RSHTTPBadRequest 65036 -#define IdResourceStringsProtocols_RSHTTPUnauthorized 65037 -#define IdResourceStringsProtocols_RSHTTPForbidden 65038 -#define IdResourceStringsProtocols_RSHTTPNotFound 65039 -#define IdResourceStrings_RSCannotSetIPVersionWhenConnected 65040 -#define IdResourceStrings_RSCannotBindRange 65041 -#define IdResourceStrings_RSConnectionClosedGracefully 65042 -#define IdResourceStrings_RSCouldNotBindSocket 65043 -#define IdResourceStrings_RSInvalidPortRange 65044 -#define IdResourceStrings_RSInvalidServiceName 65045 -#define IdResourceStrings_RSIPv6Unavailable 65046 -#define IdResourceStrings_RSInvalidIPv6Address 65047 -#define IdResourceStrings_RSIPVersionUnsupported 65048 -#define IdResourceStrings_RSNotAllBytesSent 65049 -#define IdResourceStrings_RSPackageSizeTooBig 65050 -#define IdResourceStrings_RSSetSizeExceeded 65051 -#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65052 -#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65053 -#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65054 -#define IdResourceStringsProtocols_RSHTTPContinue 65055 -#define IdResourceStrings_RSStackENOBUFS 65056 -#define IdResourceStrings_RSStackEISCONN 65057 -#define IdResourceStrings_RSStackENOTCONN 65058 -#define IdResourceStrings_RSStackESHUTDOWN 65059 -#define IdResourceStrings_RSStackETOOMANYREFS 65060 -#define IdResourceStrings_RSStackETIMEDOUT 65061 -#define IdResourceStrings_RSStackECONNREFUSED 65062 -#define IdResourceStrings_RSStackELOOP 65063 -#define IdResourceStrings_RSStackENAMETOOLONG 65064 -#define IdResourceStrings_RSStackEHOSTDOWN 65065 -#define IdResourceStrings_RSStackEHOSTUNREACH 65066 -#define IdResourceStrings_RSStackENOTEMPTY 65067 -#define IdResourceStrings_RSStackHOST_NOT_FOUND 65068 -#define IdResourceStrings_RSStackClassUndefined 65069 -#define IdResourceStrings_RSStackAlreadyCreated 65070 -#define IdResourceStrings_RSAntiFreezeOnlyOne 65071 -#define IdResourceStrings_RSStackEDESTADDRREQ 65072 -#define IdResourceStrings_RSStackEMSGSIZE 65073 -#define IdResourceStrings_RSStackEPROTOTYPE 65074 -#define IdResourceStrings_RSStackENOPROTOOPT 65075 -#define IdResourceStrings_RSStackEPROTONOSUPPORT 65076 -#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65077 -#define IdResourceStrings_RSStackEOPNOTSUPP 65078 -#define IdResourceStrings_RSStackEPFNOSUPPORT 65079 -#define IdResourceStrings_RSStackEAFNOSUPPORT 65080 -#define IdResourceStrings_RSStackEADDRINUSE 65081 -#define IdResourceStrings_RSStackEADDRNOTAVAIL 65082 -#define IdResourceStrings_RSStackENETDOWN 65083 -#define IdResourceStrings_RSStackENETUNREACH 65084 -#define IdResourceStrings_RSStackENETRESET 65085 -#define IdResourceStrings_RSStackECONNABORTED 65086 -#define IdResourceStrings_RSStackECONNRESET 65087 -#define IdResourceStrings_RSStatusConnecting 65088 -#define IdResourceStrings_RSStatusConnected 65089 -#define IdResourceStrings_RSStatusDisconnecting 65090 -#define IdResourceStrings_RSStatusDisconnected 65091 -#define IdResourceStrings_RSStatusText 65092 -#define IdResourceStrings_RSStackError 65093 -#define IdResourceStrings_RSStackEINTR 65094 -#define IdResourceStrings_RSStackEBADF 65095 -#define IdResourceStrings_RSStackEACCES 65096 -#define IdResourceStrings_RSStackEFAULT 65097 -#define IdResourceStrings_RSStackEINVAL 65098 -#define IdResourceStrings_RSStackEMFILE 65099 -#define IdResourceStrings_RSStackEWOULDBLOCK 65100 -#define IdResourceStrings_RSStackEINPROGRESS 65101 -#define IdResourceStrings_RSStackEALREADY 65102 -#define IdResourceStrings_RSStackENOTSOCK 65103 -#define DBConsts_SProviderSQLNotSupported 65104 -#define DBConsts_SProviderExecuteNotSupported 65105 -#define DBConsts_SExprNoAggOnCalcs 65106 -#define DBConsts_SDataSetUnidirectional 65107 -#define DBConsts_SUnassignedVar 65108 -#define DBConsts_SRecordNotFound 65109 -#define DBConsts_SBcdOverflow 65110 -#define DBConsts_SInvalidBcdValue 65111 -#define DBConsts_SInvalidFormatType 65112 -#define DBConsts_SCouldNotParseTimeStamp 65113 -#define DBConsts_SInvalidSqlTimeStamp 65114 -#define IdResourceStrings_RSFailedTimeZoneInfo 65115 -#define IdResourceStrings_RSWinsockCallError 65116 -#define IdResourceStrings_RSWinsockLoadError 65117 -#define IdResourceStrings_RSWinsockInitializationError 65118 -#define IdResourceStrings_RSStatusResolving 65119 -#define DBConsts_SExprIncorrect 65120 -#define DBConsts_SExprNothing 65121 -#define DBConsts_SExprTypeMis 65122 -#define DBConsts_SExprBadScope 65123 -#define DBConsts_SExprNoArith 65124 -#define DBConsts_SExprNotAgg 65125 -#define DBConsts_SExprBadConst 65126 -#define DBConsts_SExprNoAggFilter 65127 -#define DBConsts_SExprEmptyInList 65128 -#define DBConsts_SInvalidKeywordUse 65129 -#define DBConsts_STextFalse 65130 -#define DBConsts_STextTrue 65131 -#define DBConsts_SParameterNotFound 65132 -#define DBConsts_SInvalidVersion 65133 -#define DBConsts_SBadFieldType 65134 -#define DBConsts_SAggActive 65135 -#define DBConsts_SNotEditing 65136 -#define DBConsts_SDataSetClosed 65137 -#define DBConsts_SDataSetEmpty 65138 -#define DBConsts_SDataSetReadOnly 65139 -#define DBConsts_SNestedDataSetClass 65140 -#define DBConsts_SExprTermination 65141 -#define DBConsts_SExprNameError 65142 -#define DBConsts_SExprStringError 65143 -#define DBConsts_SExprInvalidChar 65144 -#define DBConsts_SExprNoLParen 65145 -#define DBConsts_SExprNoRParen 65146 -#define DBConsts_SExprNoRParenOrComma 65147 -#define DBConsts_SExprExpected 65148 -#define DBConsts_SExprBadField 65149 -#define DBConsts_SExprBadNullTest 65150 -#define DBConsts_SExprRangeError 65151 -#define DBConsts_SFieldOutOfRange 65152 -#define DBConsts_SFieldRequired 65153 -#define DBConsts_SDataSetMissing 65154 -#define DBConsts_SInvalidCalcType 65155 -#define DBConsts_SFieldReadOnly 65156 -#define DBConsts_SFieldIndexError 65157 -#define DBConsts_SNoFieldIndexes 65158 -#define DBConsts_SNotIndexField 65159 -#define DBConsts_SIndexFieldMissing 65160 -#define DBConsts_SNoIndexForFields 65161 -#define DBConsts_SIndexNotFound 65162 -#define DBConsts_SCircularDataLink 65163 -#define DBConsts_SLookupInfoError 65164 -#define DBConsts_SDataSourceChange 65165 -#define DBConsts_SNoNestedMasterSource 65166 -#define DBConsts_SDataSetOpen 65167 -#define DBConsts_SInvalidFieldSize 65168 -#define DBConsts_SInvalidFieldKind 65169 -#define DBConsts_SUnknownFieldType 65170 -#define DBConsts_SFieldNameMissing 65171 -#define DBConsts_SDuplicateFieldName 65172 -#define DBConsts_SFieldNotFound 65173 -#define DBConsts_SFieldAccessError 65174 -#define DBConsts_SFieldValueError 65175 -#define DBConsts_SFieldRangeError 65176 -#define DBConsts_SBcdFieldRangeError 65177 -#define DBConsts_SInvalidIntegerValue 65178 -#define DBConsts_SInvalidBoolValue 65179 -#define DBConsts_SInvalidFloatValue 65180 -#define DBConsts_SFieldTypeMismatch 65181 -#define DBConsts_SFieldSizeMismatch 65182 -#define DBConsts_SInvalidVarByteArray 65183 -#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65184 -#define uRORes_err_TooManySessions 65185 -#define uRORes_err_DOMElementIsNIL 65186 -#define uRORes_err_CannotLoadXMLDocument 65187 -#define uRORes_err_ErrorCreatingMsXmlDoc 65188 -#define uRORes_err_NoXMLParsersAvailable 65189 -#define uRORes_err_IDispatchMarshalingNotSupported 65190 -#define uRORes_err_UnsupportedVariantType 65191 -#define uRORes_err_VariantIsNotArray 65192 -#define uRORes_err_InvalidVarArrayDimCount 65193 -#define uRORes_err_CannotFindParameter 65194 -#define uRORes_err_MessageNotAssigned 65195 -#define ComConst_SOleError 65196 -#define ComConst_SNoMethod 65197 -#define ComConst_SVarNotObject 65198 -#define ComConst_STooManyParams 65199 -#define uRORes_err_ClassFactoryNotFound 65200 -#define uRORes_err_IROMessageNotSupported 65201 -#define uRORes_err_ClassAlreadyRegistered 65202 -#define uRORes_err_UnknownClass 65203 -#define uRORes_err_UnknownProxyInterface 65204 -#define uRORes_err_DispatcherAlreadyAssigned 65205 -#define uRORes_err_CannotFindMessageDispatcher 65206 -#define uRORes_err_ServerOnlySupportsOneDispatcher 65207 -#define uRORes_err_UnhandledException 65208 -#define uRORes_err_ChannelBusy 65209 -#define uRORes_err_ArrayIndexOutOfBounds 65210 -#define uRORes_err_InvalidHeader 65211 -#define uRORes_err_InvalidHeaderEncrypted 65212 -#define uRORes_err_UnknownClassInStream 65213 -#define uRORes_err_UnexpectedClassInStream 65214 -#define uRORes_err_SessionNotFound 65215 -#define uRORes_err_RodlNoOperationsDefined 65216 -#define uRORes_err_RodlUsedFileDoesNotExist 65217 -#define uRORes_err_RodlInvalidDataType 65218 -#define uRORes_err_RodlStructCannotBeNested 65219 -#define uRORes_err_RodlInvalidAncestorType 65220 -#define uRORes_str_ExceptionOnServer 65221 -#define uRORes_str_ExceptionReraisedFromServer 65222 -#define uRORes_err_AssignError 65223 -#define uRORes_err_InvalidRequestStream 65224 -#define uRORes_err_NILMessage 65225 -#define uRORes_err_UnspecifiedInterface 65226 -#define uRORes_err_UnspecifiedMessage 65227 -#define uRORes_err_UnknownMethod 65228 -#define uRORes_err_ClassFactoryDidNotReturnInstance 65229 -#define uRORes_err_ParameterNotFound 65230 -#define uRORes_err_TypeNotSupported 65231 -#define uRODECConst_sFMT_XX 65232 -#define uRODECConst_sInvalidKeySize 65233 -#define uRODECConst_sNotInitialized 65234 -#define uRORes_err_InvalidIndex 65235 -#define uRORes_err_InvalidType 65236 -#define uRORes_err_InvalidLibrary 65237 -#define uRORes_err_InvalidStream 65238 -#define uRORes_err_InvalidTargetEntity 65239 -#define uRORes_err_InvalidParamFlag 65240 -#define uRORes_err_InvalidStringLength 65241 -#define uRORes_str_InvalidClassTypeInStream 65242 -#define uRORes_err_UnexpectedEndOfStream 65243 -#define uRORes_err_RodlDuplicateName 65244 -#define uRORes_err_RodlNoDataTypeSpecified 65245 -#define uRORes_err_RodlNoEnumValues 65246 -#define uRORes_err_RodlNoStructElementsDefined 65247 -#define Consts_SANSIEncoding 65248 -#define Consts_SASCIIEncoding 65249 -#define Consts_SUnicodeEncoding 65250 -#define Consts_SBigEndianEncoding 65251 -#define Consts_SUTF8Encoding 65252 -#define Consts_SUTF7Encoding 65253 -#define Consts_SWindowsVistaRequired 65254 -#define uRODECConst_sProtectionCircular 65255 -#define uRODECConst_sStringFormatExists 65256 -#define uRODECConst_sInvalidStringFormat 65257 -#define uRODECConst_sInvalidFormatString 65258 -#define uRODECConst_sFMT_COPY 65259 -#define uRODECConst_sFMT_HEX 65260 -#define uRODECConst_sFMT_HEXL 65261 -#define uRODECConst_sFMT_MIME64 65262 -#define uRODECConst_sFMT_UU 65263 -#define Consts_SInvalidMemoSize 65264 -#define Consts_SInvalidPrinterOp 65265 -#define Consts_SNoDefaultPrinter 65266 -#define Consts_SDuplicateMenus 65267 -#define Consts_SPictureLabel 65268 -#define Consts_SPictureDesc 65269 -#define Consts_SPreviewLabel 65270 -#define Consts_SDockedCtlNeedsName 65271 -#define Consts_SDockTreeRemoveError 65272 -#define Consts_SDockZoneNotFound 65273 -#define Consts_SDockZoneHasNoCtl 65274 -#define Consts_SDockZoneVersionConflict 65275 -#define Consts_SMultiSelectRequired 65276 -#define Consts_SSeparator 65277 -#define Consts_SErrorSettingCount 65278 -#define Consts_SListBoxMustBeVirtual 65279 -#define Consts_SmkcCtrl 65280 -#define Consts_SmkcAlt 65281 -#define Consts_srNone 65282 -#define Consts_SOutOfRange 65283 -#define Consts_sAllFilter 65284 -#define Consts_SInsertLineError 65285 -#define Consts_SConfirmCreateDir 65286 -#define Consts_SSelectDirCap 65287 -#define Consts_SDirNameCap 65288 -#define Consts_SDrivesCap 65289 -#define Consts_SDirsCap 65290 -#define Consts_SFilesCap 65291 -#define Consts_SNetworkCap 65292 -#define Consts_SInvalidClipFmt 65293 -#define Consts_SIconToClipboard 65294 -#define Consts_SCannotOpenClipboard 65295 -#define Consts_SmkcBkSp 65296 -#define Consts_SmkcTab 65297 -#define Consts_SmkcEsc 65298 -#define Consts_SmkcEnter 65299 -#define Consts_SmkcSpace 65300 -#define Consts_SmkcPgUp 65301 -#define Consts_SmkcPgDn 65302 -#define Consts_SmkcEnd 65303 -#define Consts_SmkcHome 65304 -#define Consts_SmkcLeft 65305 -#define Consts_SmkcUp 65306 -#define Consts_SmkcRight 65307 -#define Consts_SmkcDown 65308 -#define Consts_SmkcIns 65309 -#define Consts_SmkcDel 65310 -#define Consts_SmkcShift 65311 -#define Consts_SMaskEditErr 65312 -#define Consts_SMsgDlgWarning 65313 -#define Consts_SMsgDlgError 65314 -#define Consts_SMsgDlgInformation 65315 -#define Consts_SMsgDlgConfirm 65316 -#define Consts_SMsgDlgYes 65317 -#define Consts_SMsgDlgNo 65318 -#define Consts_SMsgDlgOK 65319 -#define Consts_SMsgDlgCancel 65320 -#define Consts_SMsgDlgHelp 65321 -#define Consts_SMsgDlgAbort 65322 -#define Consts_SMsgDlgRetry 65323 -#define Consts_SMsgDlgIgnore 65324 -#define Consts_SMsgDlgAll 65325 -#define Consts_SMsgDlgNoToAll 65326 -#define Consts_SMsgDlgYesToAll 65327 -#define Consts_SOKButton 65328 -#define Consts_SCancelButton 65329 -#define Consts_SYesButton 65330 -#define Consts_SNoButton 65331 -#define Consts_SHelpButton 65332 -#define Consts_SCloseButton 65333 -#define Consts_SIgnoreButton 65334 -#define Consts_SRetryButton 65335 -#define Consts_SAbortButton 65336 -#define Consts_SAllButton 65337 -#define Consts_SCannotDragForm 65338 -#define Consts_SVMetafiles 65339 -#define Consts_SVEnhMetafiles 65340 -#define Consts_SVIcons 65341 -#define Consts_SVBitmaps 65342 -#define Consts_SMaskErr 65343 -#define Consts_SMDIChildNotVisible 65344 -#define Consts_SVisibleChanged 65345 -#define Consts_SCannotShowModal 65346 -#define Consts_SScrollBarRange 65347 -#define Consts_SPropertyOutOfRange 65348 -#define Consts_SMenuIndexError 65349 -#define Consts_SMenuReinserted 65350 -#define Consts_SMenuNotFound 65351 -#define Consts_SNoTimers 65352 -#define Consts_SNotPrinting 65353 -#define Consts_SPrinting 65354 -#define Consts_SInvalidPrinter 65355 -#define Consts_SDeviceOnPort 65356 -#define Consts_SGroupIndexTooLow 65357 -#define Consts_SNoMDIForm 65358 -#define Consts_SControlParentSetToSelf 65359 -#define Consts_SChangeIconSize 65360 -#define Consts_SUnknownExtension 65361 -#define Consts_SUnknownClipboardFormat 65362 -#define Consts_SOutOfResources 65363 -#define Consts_SNoCanvasHandle 65364 -#define Consts_SInvalidImageSize 65365 -#define Consts_SInvalidImageList 65366 -#define Consts_SReplaceImage 65367 -#define Consts_SImageIndexError 65368 -#define Consts_SImageReadFail 65369 -#define Consts_SImageWriteFail 65370 -#define Consts_SWindowDCError 65371 -#define Consts_SWindowClass 65372 -#define Consts_SCannotFocus 65373 -#define Consts_SParentRequired 65374 -#define Consts_SParentGivenNotAParent 65375 -#define RTLConsts_SUnknownGroup 65376 -#define RTLConsts_SUnknownProperty 65377 -#define RTLConsts_SWriteError 65378 -#define RTLConsts_SThreadCreateError 65379 -#define RTLConsts_SThreadError 65380 -#define HelpIntfs_hNoTableOfContents 65381 -#define HelpIntfs_hNothingFound 65382 -#define HelpIntfs_hNoContext 65383 -#define HelpIntfs_hNoContextFound 65384 -#define HelpIntfs_hNoTopics 65385 -#define Consts_SInvalidBitmap 65386 -#define Consts_SInvalidIcon 65387 -#define Consts_SInvalidMetafile 65388 -#define Consts_SInvalidPixelFormat 65389 -#define Consts_SInvalidImage 65390 -#define Consts_SScanLine 65391 -#define RTLConsts_SInvalidPropertyType 65392 -#define RTLConsts_SInvalidPropertyValue 65393 -#define RTLConsts_SInvalidRegType 65394 -#define RTLConsts_SListCapacityError 65395 -#define RTLConsts_SListCountError 65396 -#define RTLConsts_SListIndexError 65397 -#define RTLConsts_SMemoryStreamError 65398 -#define RTLConsts_SPropertyException 65399 -#define RTLConsts_SReadError 65400 -#define RTLConsts_SReadOnlyProperty 65401 -#define RTLConsts_SRegCreateFailed 65402 -#define RTLConsts_SRegGetDataFailed 65403 -#define RTLConsts_SRegSetDataFailed 65404 -#define RTLConsts_SResNotFound 65405 -#define RTLConsts_SSeekNotImplemented 65406 -#define RTLConsts_SSortedListError 65407 -#define RTLConsts_SCantWriteResourceStreamError 65408 -#define RTLConsts_SCheckSynchronizeError 65409 -#define RTLConsts_SClassNotFound 65410 -#define RTLConsts_SDuplicateClass 65411 -#define RTLConsts_SDuplicateItem 65412 -#define RTLConsts_SDuplicateName 65413 -#define RTLConsts_SDuplicateString 65414 -#define RTLConsts_SFCreateErrorEx 65415 -#define RTLConsts_SFOpenErrorEx 65416 -#define RTLConsts_SIniFileWriteError 65417 -#define RTLConsts_SInvalidFileName 65418 -#define RTLConsts_SInvalidImage 65419 -#define RTLConsts_SInvalidName 65420 -#define RTLConsts_SInvalidProperty 65421 -#define RTLConsts_SInvalidPropertyElement 65422 -#define RTLConsts_SInvalidPropertyPath 65423 -#define SysConst_SShortDayNameTue 65424 -#define SysConst_SShortDayNameWed 65425 -#define SysConst_SShortDayNameThu 65426 -#define SysConst_SShortDayNameFri 65427 -#define SysConst_SShortDayNameSat 65428 -#define SysConst_SLongDayNameSun 65429 -#define SysConst_SLongDayNameMon 65430 -#define SysConst_SLongDayNameTue 65431 -#define SysConst_SLongDayNameWed 65432 -#define SysConst_SLongDayNameThu 65433 -#define SysConst_SLongDayNameFri 65434 -#define SysConst_SLongDayNameSat 65435 -#define SysConst_SCannotCreateDir 65436 -#define RTLConsts_SAncestorNotFound 65437 -#define RTLConsts_SAssignError 65438 -#define RTLConsts_SBitsIndexError 65439 -#define SysConst_SShortMonthNameNov 65440 -#define SysConst_SShortMonthNameDec 65441 -#define SysConst_SLongMonthNameJan 65442 -#define SysConst_SLongMonthNameFeb 65443 -#define SysConst_SLongMonthNameMar 65444 -#define SysConst_SLongMonthNameApr 65445 -#define SysConst_SLongMonthNameMay 65446 -#define SysConst_SLongMonthNameJun 65447 -#define SysConst_SLongMonthNameJul 65448 -#define SysConst_SLongMonthNameAug 65449 -#define SysConst_SLongMonthNameSep 65450 -#define SysConst_SLongMonthNameOct 65451 -#define SysConst_SLongMonthNameNov 65452 -#define SysConst_SLongMonthNameDec 65453 -#define SysConst_SShortDayNameSun 65454 -#define SysConst_SShortDayNameMon 65455 -#define SysConst_SAssertError 65456 -#define SysConst_SAbstractError 65457 -#define SysConst_SModuleAccessViolation 65458 -#define SysConst_SOSError 65459 -#define SysConst_SUnkOSError 65460 -#define SysConst_SNL 65461 -#define SysConst_SShortMonthNameJan 65462 -#define SysConst_SShortMonthNameFeb 65463 -#define SysConst_SShortMonthNameMar 65464 -#define SysConst_SShortMonthNameApr 65465 -#define SysConst_SShortMonthNameMay 65466 -#define SysConst_SShortMonthNameJun 65467 -#define SysConst_SShortMonthNameJul 65468 -#define SysConst_SShortMonthNameAug 65469 -#define SysConst_SShortMonthNameSep 65470 -#define SysConst_SShortMonthNameOct 65471 -#define SysConst_SInvalidVarOpWithHResultWithPrefix 65472 -#define SysConst_SVarTypeOutOfRangeWithPrefix 65473 -#define SysConst_SVarTypeAlreadyUsedWithPrefix 65474 -#define SysConst_SVarTypeNotUsableWithPrefix 65475 -#define SysConst_SVarTypeTooManyCustom 65476 -#define SysConst_SVarTypeCouldNotConvert 65477 -#define SysConst_SVarTypeConvertOverflow 65478 -#define SysConst_SVarOverflow 65479 -#define SysConst_SVarInvalid 65480 -#define SysConst_SVarBadType 65481 -#define SysConst_SVarNotImplemented 65482 -#define SysConst_SVarUnexpected 65483 -#define SysConst_SExternalException 65484 -#define SysConst_SAssertionFailed 65485 -#define SysConst_SIntfCastError 65486 -#define SysConst_SSafecallException 65487 -#define SysConst_SOperationAborted 65488 -#define SysConst_SException 65489 -#define SysConst_SExceptTitle 65490 -#define SysConst_SInvalidFormat 65491 -#define SysConst_SArgumentMissing 65492 -#define SysConst_SDispatchError 65493 -#define SysConst_SReadAccess 65494 -#define SysConst_SWriteAccess 65495 -#define SysConst_SFormatTooLong 65496 -#define SysConst_SVarArrayCreate 65497 -#define SysConst_SVarArrayBounds 65498 -#define SysConst_SVarArrayLocked 65499 -#define SysConst_SVarArrayWithHResult 65500 -#define SysConst_SInvalidVarCast 65501 -#define SysConst_SInvalidVarOp 65502 -#define SysConst_SInvalidVarNullOp 65503 -#define SysConst_SDiskFull 65504 -#define SysConst_SInvalidInput 65505 -#define SysConst_SDivByZero 65506 -#define SysConst_SRangeError 65507 -#define SysConst_SIntOverflow 65508 -#define SysConst_SInvalidOp 65509 -#define SysConst_SZeroDivide 65510 -#define SysConst_SOverflow 65511 -#define SysConst_SUnderflow 65512 -#define SysConst_SInvalidPointer 65513 -#define SysConst_SInvalidCast 65514 -#define SysConst_SAccessViolationArg3 65515 -#define SysConst_SAccessViolationNoArg 65516 -#define SysConst_SStackOverflow 65517 -#define SysConst_SControlC 65518 -#define SysConst_SPrivilege 65519 -#define SysConst_SInvalidInteger 65520 -#define SysConst_SInvalidFloat 65521 -#define SysConst_SInvalidDate 65522 -#define SysConst_SInvalidTime 65523 -#define SysConst_SInvalidDateTime 65524 -#define SysConst_SInvalidTimeStamp 65525 -#define SysConst_SInvalidGUID 65526 -#define SysConst_STimeEncodeError 65527 -#define SysConst_SDateEncodeError 65528 -#define SysConst_SOutOfMemory 65529 -#define SysConst_SInOutError 65530 -#define SysConst_SFileNotFound 65531 -#define SysConst_SInvalidFilename 65532 -#define SysConst_STooManyOpenFiles 65533 -#define SysConst_SAccessDenied 65534 -#define SysConst_SEndOfFile 65535 -STRINGTABLE -BEGIN - cxGridStrs_scxGridCustomizationFormColumnsPageCaption, "Columns" - cxGridStrs_scxGridGroupByBoxCaption, "Drag a column header here to group by that column" - cxGridStrs_scxGridFilterCustomizeButtonCaption, "Customize..." - cxGridStrs_scxGridColumnsQuickCustomizationHint, "Click here to select visible columns" - cxPCConsts_scxPCNoBaseImages, "BaseImages is not assigned" - cxPCConsts_scxPCNoRegisteredStyles, "There are no styles registered" - cxPCConsts_scxPCPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d" - cxPCConsts_scxPCPainterClassError, "PCPainterClass is nil" - cxPCConsts_scxPCTabCountEqualsZero, "Tabs.Count = 0" - cxPCConsts_scxPCTabIndexError, "Tab's index (%d) out of bounds" - cxPCConsts_scxPCTabVisibleIndexOutsOfBounds, "TabVisibleIndex (%d) must be between 0 and %d" - cxPCConsts_scxPCVisibleTabListEmpty, "There are no visible tabs" - cxPCConsts_scxPCAllowRotateError, "%s style does not support rotation of tabs" - cxGridStrs_scxGridDeletingConfirmationCaption, "Confirm" - cxGridStrs_scxGridDeletingFocusedConfirmationText, "Delete record?" - cxGridStrs_scxGridDeletingSelectedConfirmationText, "Delete all selected records?" - cxGridStrs_scxGridNoDataInfoText, "" - cxGridStrs_scxGridNewItemRowInfoText, "Click here to add a new row" - cxGridStrs_scxGridFilterIsEmpty, "" - cxGridStrs_scxGridCustomizationFormCaption, "Customization" - MidConst_SErrorLoadingMidas, "Error loading MIDAS.DLL" - MidConst_SCannotCreateDataSet, "No fields defined. Cannot create dataset" - MidConst_SNoConnectToBroker, "Connection not allowed to TConnectionBroker" - MidConst_SNoParentConnection, "ParentConnection is not assigned" - MidConst_SInvalidOptParamType, "Value cannot be stored in an optional parameter" - MidConst_SConstraintFailed, "Record or field constraint failed." - MidConst_SField, "Field" - MidConst_SRecConstFail, "Preparation of record constraint failed with error \"%s\"" - MidConst_SFieldConstFail, "Preparation of field constraint failed with error \"%s\"" - MidConst_SDefExprFail, "Preparation of default expression failed with error \"%s\"" - MidConst_SNoEditsAllowed, "Modifications are not allowed" - MidConst_SNoDeletesAllowed, "Deletes are not allowed" - MidConst_SNoInsertsAllowed, "Inserts are not allowed" - MidConst_SConnectionMissing, "Requires Connection before opening" - MidConst_SNoCircularConnection, "Circular reference to Connection not allowed" - cxPCConsts_scxPCImageListIndexError, "Index (%d) must be between 0 and %d" - cxFilterControlStrs_cxSFilterDialogRows, "Show rows where:" - cxFilterControlStrs_cxSFilterControlDialogCaption, "Filter builder" - cxFilterControlStrs_cxSFilterControlDialogNewFile, "untitled.flt" - cxFilterControlStrs_cxSFilterControlDialogOpenDialogCaption, "Open an existing filter" - cxFilterControlStrs_cxSFilterControlDialogSaveDialogCaption, "Save the active filter to file" - cxFilterControlStrs_cxSFilterControlDialogActionSaveCaption, "&Save As..." - cxFilterControlStrs_cxSFilterControlDialogActionOpenCaption, "&Open..." - cxFilterControlStrs_cxSFilterControlDialogActionApplyCaption, "&Apply" - cxFilterControlStrs_cxSFilterControlDialogActionOkCaption, "OK" - cxFilterControlStrs_cxSFilterControlDialogActionCancelCaption, "Cancel" - cxFilterControlStrs_cxSFilterControlDialogFileExt, "flt" - cxFilterControlStrs_cxSFilterControlDialogFileFilter, "Filters (*.flt)|*.flt" - MidConst_SNoDataProvider, "Missing data provider or data packet" - MidConst_SInvalidDataPacket, "Invalid data packet" - MidConst_SRefreshError, "Must apply updates before refreshing data" - MidConst_SNoCircularReference, "Circular provider references not allowed" - cxFilterControlStrs_cxSFilterAddCondition, "Add &Condition" - cxFilterControlStrs_cxSFilterAddGroup, "Add &Group" - cxFilterControlStrs_cxSFilterRemoveRow, "&Remove Row" - cxFilterControlStrs_cxSFilterClearAll, "Clear &All" - cxFilterControlStrs_cxSFilterFooterAddCondition, "press the button to add a new condition" - cxFilterControlStrs_cxSFilterGroupCaption, "applies to the following conditions" - cxFilterControlStrs_cxSFilterRootGroupCaption, "" - cxFilterControlStrs_cxSFilterControlNullString, "" - cxFilterControlStrs_cxSFilterErrorBuilding, "Can't build filter from source" - cxFilterControlStrs_cxSFilterDialogCaption, "Custom Filter" - cxFilterControlStrs_cxSFilterDialogInvalidValue, "Invalid value" - cxFilterControlStrs_cxSFilterDialogUse, "Use" - cxFilterControlStrs_cxSFilterDialogSingleCharacter, "to represent any single character" - cxFilterControlStrs_cxSFilterDialogCharactersSeries, "to represent any series of characters" - cxFilterControlStrs_cxSFilterDialogOperationAnd, "AND" - cxFilterControlStrs_cxSFilterDialogOperationOr, "OR" - cxEditConsts_scxRegExprHexNumberExpected0, "Hexadecimal number expected" - cxEditConsts_scxRegExprHexNumberExpected, "Hexadecimal number expected but '%s' found" - cxEditConsts_scxRegExprMissing, "Missing '%s'" - cxEditConsts_scxRegExprUnnecessary, "Unnecessary '%s'" - cxEditConsts_scxRegExprIncorrectSpace, "The space character is not allowed after '\\'" - cxEditConsts_scxRegExprNotCompiled, "Regular expression is not compiled" - cxEditConsts_scxRegExprIncorrectParameterQuantifier, "Incorrect parameter quantifier" - cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" - cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" - cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" - cxEditConsts_cxSSpinEditInvalidNumericValue, "Invalid numeric value" - cxFilterControlStrs_cxSFilterBoolOperatorAnd, "AND" - cxFilterControlStrs_cxSFilterBoolOperatorOr, "OR" - cxFilterControlStrs_cxSFilterBoolOperatorNotAnd, "NOT AND" - cxFilterControlStrs_cxSFilterBoolOperatorNotOr, "NOT OR" - cxFilterControlStrs_cxSFilterRootButtonCaption, "Filter" - cxEditConsts_scxSEditRepositoryTextItem, "TextEdit|Represents a single line text editor" - cxEditConsts_scxSEditRepositoryTimeItem, "TimeEdit|Represents an editor displaying time values" - cxEditConsts_scxRegExprLine, "Line" - cxEditConsts_scxRegExprChar, "Char" - cxEditConsts_scxRegExprNotAssignedSourceStream, "The source stream is not assigned" - cxEditConsts_scxRegExprEmptySourceStream, "The source stream is empty" - cxEditConsts_scxRegExprCantUsePlusQuantifier, "The '+' quantifier cannot be applied here" - cxEditConsts_scxRegExprCantUseStarQuantifier, "The '*' quantifier cannot be applied here" - cxEditConsts_scxRegExprCantCreateEmptyAlt, "The alternative should not be empty" - cxEditConsts_scxRegExprCantCreateEmptyBlock, "The block should not be empty" - cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" - cxEditConsts_scxRegExprIllegalQuantifier, "Illegal quantifier '%s'" - cxEditConsts_scxRegExprIllegalIntegerValue, "Illegal integer value" - cxEditConsts_scxRegExprTooBigReferenceNumber, "Too big reference number" - cxEditConsts_scxRegExprCantCreateEmptyEnum, "Can't create empty enumeration" - cxEditConsts_scxRegExprSubrangeOrder, "The starting character of the subrange must be less than the finishing one" - cxEditConsts_scxSEditRepositoryBlobItem, "BlobEdit|Represents the BLOB editor" - cxEditConsts_scxSEditRepositoryButtonItem, "ButtonEdit|Represents an edit control with embedded buttons" - cxEditConsts_scxSEditRepositoryCalcItem, "CalcEdit|Represents an edit control with a dropdown calculator window" - cxEditConsts_scxSEditRepositoryCheckBoxItem, "CheckBox|Represents a check box control that allows selecting an option" - cxEditConsts_scxSEditRepositoryComboBoxItem, "ComboBox|Represents the combo box editor" - cxEditConsts_scxSEditRepositoryCurrencyItem, "CurrencyEdit|Represents an editor enabling editing currency data" - cxEditConsts_scxSEditRepositoryDateItem, "DateEdit|Represents an edit control with a dropdown calendar" - cxEditConsts_scxSEditRepositoryHyperLinkItem, "HyperLink|Represents a text editor with hyperlink functionality" - cxEditConsts_scxSEditRepositoryImageComboBoxItem, "ImageComboBox|Represents an editor displaying the list of images and text strings within the dropdown window" - cxEditConsts_scxSEditRepositoryImageItem, "Image|Represents an image editor" - cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." - cxEditConsts_scxSEditRepositoryMemoItem, "Memo|Represents an edit control that allows editing memo data" - cxEditConsts_scxSEditRepositoryMRUItem, "MRUEdit|Represents a text editor displaying the list of most recently used items (MRU) within a dropdown window" - cxEditConsts_scxSEditRepositoryPopupItem, "PopupEdit|Represents an edit control with a dropdown list" - cxEditConsts_scxSEditRepositorySpinItem, "SpinEdit|Represents a spin editor" - cxEditConsts_scxSEditRepositoryRadioGroupItem, "RadioGroup|Represents a group of radio buttons" - cxEditConsts_scxSHyperLinkPrefix, "http://" - cxEditConsts_cxNavigatorHint_First, "First record" - cxEditConsts_cxNavigatorHint_Prior, "Prior record" - cxEditConsts_cxNavigatorHint_PriorPage, "Prior page" - cxEditConsts_cxNavigatorHint_Next, "Next record" - cxEditConsts_cxNavigatorHint_NextPage, "Next page" - cxEditConsts_cxNavigatorHint_Last, "Last record" - cxEditConsts_cxNavigatorHint_Insert, "Insert record" - cxEditConsts_cxNavigatorHint_Delete, "Delete record" - cxEditConsts_cxNavigatorHint_Edit, "Edit record" - cxEditConsts_cxNavigatorHint_Post, "Post edit" - cxEditConsts_cxNavigatorHint_Cancel, "Cancel edit" - cxEditConsts_cxNavigatorHint_Refresh, "Refresh data" - cxEditConsts_cxNavigatorHint_SaveBookmark, "Save Bookmark" - cxEditConsts_cxNavigatorHint_GotoBookmark, "Goto Bookmark" - cxEditConsts_cxNavigatorHint_Filter, "Filter data" - cxEditConsts_cxSDateTuesday, "Tuesday" - cxEditConsts_cxSDateWednesday, "Wednesday" - cxEditConsts_cxSDateThursday, "Thursday" - cxEditConsts_cxSDateFriday, "Friday" - cxEditConsts_cxSDateSaturday, "Saturday" - cxEditConsts_cxSDateFirst, "first" - cxEditConsts_cxSDateSecond, "second" - cxEditConsts_cxSDateThird, "third" - cxEditConsts_cxSDateFourth, "fourth" - cxEditConsts_cxSDateFifth, "fifth" - cxEditConsts_cxSDateSixth, "sixth" - cxEditConsts_cxSDateSeventh, "seventh" - cxEditConsts_cxSDateBOM, "bom" - cxEditConsts_cxSDateEOM, "eom" - cxEditConsts_cxSDateNow, "now" - cxEditConsts_scxSCalcError, "Error" - cxEditConsts_cxSMenuItemCaptionCut, "Cu&t" - cxEditConsts_cxSMenuItemCaptionCopy, "&Copy" - cxEditConsts_cxSMenuItemCaptionPaste, "&Paste" - cxEditConsts_cxSMenuItemCaptionDelete, "&Delete" - cxEditConsts_cxSMenuItemCaptionLoad, "&Load..." - cxEditConsts_cxSMenuItemCaptionSave, "Save &As..." - cxEditConsts_cxSDatePopupClear, "Clear" - cxEditConsts_cxSDatePopupNow, "Now" - cxEditConsts_cxSDatePopupOK, "OK" - cxEditConsts_cxSDatePopupToday, "Today" - cxEditConsts_cxSDateError, "Invalid Date" - cxEditConsts_cxSDateToday, "today" - cxEditConsts_cxSDateYesterday, "yesterday" - cxEditConsts_cxSDateTomorrow, "tomorrow" - cxEditConsts_cxSDateSunday, "Sunday" - cxEditConsts_cxSDateMonday, "Monday" - cxEditConsts_cxSEditNumericValueConvertError, "Could not convert to numeric value" - cxEditConsts_cxSEditPopupCircularReferencingError, "Circular referencing is not allowed" - cxEditConsts_cxSEditTimeConvertError, "Could not convert to time" - cxEditConsts_cxSEditValidateErrorText, "Invalid input value. Use escape key to abandon changes" - cxEditConsts_cxSEditValueOutOfBounds, "Value out of bounds" - cxEditConsts_cxSEditCheckBoxChecked, "True" - cxEditConsts_cxSEditCheckBoxGrayed, "" - cxEditConsts_cxSEditCheckBoxUnchecked, "False" - cxEditConsts_cxSRadioGroupDefaultCaption, "" - cxEditConsts_cxSBlobButtonOK, "&OK" - cxEditConsts_cxSBlobButtonCancel, "&Cancel" - cxEditConsts_cxSBlobButtonClose, "&Close" - cxEditConsts_cxSBlobMemo, "(MEMO)" - cxEditConsts_cxSBlobMemoEmpty, "(memo)" - cxEditConsts_cxSBlobPicture, "(PICTURE)" - cxEditConsts_cxSBlobPictureEmpty, "(picture)" - cxFilterConsts_cxSFilterNotCaption, "not" - cxFilterConsts_cxSFilterBlankCaption, "blank" - cxFilterConsts_cxSFilterOperatorIsNull, "is blank" - cxFilterConsts_cxSFilterOperatorIsNotNull, "is not blank" - cxFilterConsts_cxSFilterOperatorBeginsWith, "begins with" - cxFilterConsts_cxSFilterOperatorDoesNotBeginWith, "does not begin with" - cxFilterConsts_cxSFilterOperatorEndsWith, "ends with" - cxFilterConsts_cxSFilterOperatorDoesNotEndWith, "does not end with" - cxFilterConsts_cxSFilterOperatorContains, "contains" - cxFilterConsts_cxSFilterOperatorDoesNotContain, "does not contain" - cxFilterConsts_cxSFilterBoxAllCaption, "(All)" - cxFilterConsts_cxSFilterBoxCustomCaption, "(Custom...)" - cxFilterConsts_cxSFilterBoxBlanksCaption, "(Blanks)" - cxFilterConsts_cxSFilterBoxNonBlanksCaption, "(NonBlanks)" - cxEditConsts_cxSEditDateConvertError, "Could not convert to date" - cxEditConsts_cxSEditInvalidRepositoryItem, "The repository item is not acceptable" - cxFilterConsts_cxSFilterOperatorLastMonth, "is last month" - cxFilterConsts_cxSFilterOperatorLastYear, "is last year" - cxFilterConsts_cxSFilterOperatorPast, "is past" - cxFilterConsts_cxSFilterOperatorThisWeek, "is this week" - cxFilterConsts_cxSFilterOperatorThisMonth, "is this month" - cxFilterConsts_cxSFilterOperatorThisYear, "is this year" - cxFilterConsts_cxSFilterOperatorNext7Days, "is next 7 days" - cxFilterConsts_cxSFilterOperatorNextWeek, "is next week" - cxFilterConsts_cxSFilterOperatorNext14Days, "is next 14 days" - cxFilterConsts_cxSFilterOperatorNextTwoWeeks, "is next two weeks" - cxFilterConsts_cxSFilterOperatorNext30Days, "is next 30 days" - cxFilterConsts_cxSFilterOperatorNextMonth, "is next month" - cxFilterConsts_cxSFilterOperatorNextYear, "is next year" - cxFilterConsts_cxSFilterOperatorFuture, "is future" - cxFilterConsts_cxSFilterAndCaption, "and" - cxFilterConsts_cxSFilterOrCaption, "or" - cxFilterConsts_cxSFilterOperatorGreater, "is greater than" - cxFilterConsts_cxSFilterOperatorGreaterEqual, "is greater than or equal to" - cxFilterConsts_cxSFilterOperatorLike, "like" - cxFilterConsts_cxSFilterOperatorNotLike, "not like" - cxFilterConsts_cxSFilterOperatorBetween, "between" - cxFilterConsts_cxSFilterOperatorNotBetween, "not between" - cxFilterConsts_cxSFilterOperatorInList, "in" - cxFilterConsts_cxSFilterOperatorNotInList, "not in" - cxFilterConsts_cxSFilterOperatorYesterday, "is yesterday" - cxFilterConsts_cxSFilterOperatorToday, "is today" - cxFilterConsts_cxSFilterOperatorTomorrow, "is tomorrow" - cxFilterConsts_cxSFilterOperatorLast7Days, "is last 7 days" - cxFilterConsts_cxSFilterOperatorLastWeek, "is last week" - cxFilterConsts_cxSFilterOperatorLast14Days, "is last 14 days" - cxFilterConsts_cxSFilterOperatorLastTwoWeeks, "is last two weeks" - cxFilterConsts_cxSFilterOperatorLast30Days, "is last 30 days" - pnglang_EPNGCannotAddChunkText, "The program tried to add a existent critical chunk to the current image which is not allowed." - pnglang_EPNGCannotAddInvalidImageText, "It's not allowed to add a new chunk because the current image is invalid." - pnglang_EPNGOutMemoryText, "Some operation could not be performed because the system is out of resources. Close some windows and try again." - pnglang_EPNGHeaderNotPresentText, "This operation is not valid because the current image contains no valid header." - cxDataConsts_cxSDataReadError, "Stream read error" - cxDataConsts_cxSDataWriteError, "Stream write error" - cxDataConsts_cxSDataItemExistError, "Item already exists" - cxDataConsts_cxSDataRecordIndexError, "RecordIndex out of range" - cxDataConsts_cxSDataItemIndexError, "ItemIndex out of range" - cxDataConsts_cxSDataProviderModeError, "This operation is not supported in provider mode" - cxDataConsts_cxSDataInvalidStreamFormat, "Invalid stream format" - cxDataConsts_cxSDataRowIndexError, "RowIndex out of range" - cxFilterConsts_cxSFilterOperatorEqual, "equals" - cxFilterConsts_cxSFilterOperatorNotEqual, "does not equal" - cxFilterConsts_cxSFilterOperatorLess, "is less than" - cxFilterConsts_cxSFilterOperatorLessEqual, "is less than or equal to" - pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)" - pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted" - pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts." - pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: " - pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette." - pnglang_EPNGInvalidFileHeaderText, "The file being readed is not a valid \"Portable Network Graphics\" image because it contains an invalid header. This file may be corruped, try obtaining it again." - pnglang_EPNGIHDRNotFirstText, "This \"Portable Network Graphics\" image is not supported or it might be invalid.\r\n(IHDR chunk is not the first)" - pnglang_EPNGSizeExceedsText, "This \"Portable Network Graphics\" image is not supported because either it's width or height exceeds the maximum size, which is 65535 pixels length." - pnglang_EPNGUnknownPalEntryText, "There is no such palette entry." - pnglang_EPNGUnknownCriticalChunkText, "This \"Portable Network Graphics\" image contains an unknown critical part which could not be decoded." - pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." - pnglang_EPNGUnknownInterlaceText, "This \"Portable Network Graphics\" image uses an unknown interlace scheme which could not be decoded." - pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." - pnglang_EPNGUnexpectedEndText, "This \"Portable Network Graphics\" image is invalid because the decoder found an unexpected end of the file." - pnglang_EPNGNoImageDataText, "This \"Portable Network Graphics\" image contains no data." - pnglang_EPNGCannotChangeSizeText, "The \"Portable Network Graphics\" image can not be resize by changing width and height properties. Try assigning the image from a bitmap." - IBSQLMonitor_StrStartTransaction, ": [Start transaction]" - IBSQLMonitor_StrApplication, "[Application: " - ADOConst_SMissingConnection, "Missing Connection or ConnectionString" - ADOConst_SNoDetailFilter, "Filter property cannot be used for detail tables" - ADOConst_SBookmarksRequired, "Dataset does not support bookmarks, which are required for multi-record data controls" - ADOConst_SMissingCommandText, "Missing %s property" - ADOConst_SNoResultSet, "CommandText does not return a result set" - ADOConst_SADOCreateError, "Error creating object. Please verify that the Microsoft Data Access Components 2.1 (or later) have been properly installed" - ADOConst_SEventsNotSupported, "Events are not supported with server side TableDirect cursors" - ADOConst_SUsupportedFieldType, "Unsupported field type (%s) in field %s" - ADOConst_SConnectionRequired, "A connection component is required for async ExecuteOptions" - ADOConst_SCantRequery, "Cannot perform a requery after connection has changed" - ADOConst_SNoFilterOptions, "FilterOptions are not supported" - ADOConst_SRecordsetNotOpen, "Recordset is not open" - ADOConst_sNameAttr, "Name" - ADOConst_sValueAttr, "Value" - IBSQLMonitor_StrError, "[Error] " - IBSQLMonitor_StrAttach, ": [Attach]" - IBSQLMonitor_StrDetach, ": [Detach]" - IBSQLMonitor_StrQuery, ": [Query]" - IBSQLMonitor_StrStart, ": [Start]" - IBSQLMonitor_StrExecute, ": [Execute] " - IBSQLMonitor_StrNULL, "" - IBSQLMonitor_StrBLOB, "" - IBSQLMonitor_StrFetch, ": [Fetch] " - IBSQLMonitor_StrPrepare, ": [Prepare] " - IBSQLMonitor_StrPlan, " Plan: " - IBSQLMonitor_StrPlanCantRetrive, " Plan: Can't retrieve plan - too large" - IBSQLMonitor_StrCommitHardComm, ": [Commit (Hard commit)]" - IBSQLMonitor_StrCommitRetaining, ": [Commit retaining (Soft commit)]" - IBSQLMonitor_StrRollback, ": [Rollback]" - IBSQLMonitor_StrRollbackRetainin, ": [Rollback retaining (Soft rollback)]" - IBXConst_SInvalidOnStatusResult, "Unexpected onStatus return value" - IBXConst_SDPBConstantUnknownEx, "DPB Constant (%s) is unknown" - IBXConst_STPBConstantUnknownEx, "TPB Constant (%s) is unknown" - IBXConst_SUnknownPlan, "Unknown Error - Can't retrieve plan" - IBXConst_SFieldSizeMismatch, "Size Mismatch - Field %s size is too small for data" - IBXConst_SEventAlreadyRegistered, "Events already registered" - IBXConst_SStringTooLarge, "Trying to store a string of length %d into a field that can only contain %d" - IBXConst_SNoTimers, "Not enough timers available" - IBXConst_SIB65feature, "%s is an InterBase 6.5 function. Please upgrade to InterBase 6.5 to use this functonality" - IBXConst_SLoginPromptFailure, "Can not find default login prompt dialog. Please add DBLogDlg to the uses section of your main file." - IBXConst_SIB70feature, "%s is an InterBase 7.0 function. Please upgrade to InterBase 7.0 to use this functonality" - IBXConst_SIB71feature, "%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality" - IBXConst_SIB80feature, "%s is an InterBase 2007 function. Please upgrade to InterBase 2007 to use this functonality" - IBSQLMonitor_StrConnect, ": [Connect]" - IBSQLMonitor_StrDisconnect, ": [Disconnect]" - IBSQLMonitor_StrMisc, "[Misc] " - IBXConst_SSQLMonitorAlreadyPresent, "SQL Monitor Instance is already present" - IBXConst_SCantPrintValue, "Cannot print value" - IBXConst_SEOFReached, "SEOFReached" - IBXConst_SEOFInComment, "EOF in comment detected" - IBXConst_SEOFInString, "EOF in string detected" - IBXConst_SParamNameExpected, "Parameter name expected" - IBXConst_SSuccess, "Successful execution" - IBXConst_SDelphiException, "DelphiException %s" - IBXConst_SNoOptionsSet, "No Install Options selected" - IBXConst_SNoDestinationDirectory, "DestinationDirectory is not set" - IBXConst_SNosourceDirectory, "SourceDirectory is not set" - IBXConst_SNoUninstallFile, "Uninstall File Name is not set" - IBXConst_SOptionNeedsClient, "%s component requires Client to function properly" - IBXConst_SOptionNeedsServer, "%s component requires Server to function properly" - IBXConst_SInvalidOption, "Invalid option specified" - IBXConst_SInvalidOnErrorResult, "Unexpected onError return value" - IBXConst_SInvalidEvent, "Invalid Event" - IBXConst_SMaximumEvents, "Exceded Maximum Event limits" - IBXConst_SNoEventsRegistered, "No Events Registered" - IBXConst_SInvalidQueueing, "Invalid Queueing" - IBXConst_SInvalidRegistration, "Invalid Registration" - IBXConst_SInvalidBatchMove, "Invalid Batch Move" - IBXConst_SSQLDialectInvalid, "SQL Dialect Invalid" - IBXConst_SSPBConstantNotSupported, "SPB Constant Not supported" - IBXConst_SSPBConstantUnknown, "SPB Constant Unknown" - IBXConst_SServiceActive, "Cannot perform operation -- service is not attached" - IBXConst_SServiceInActive, "Cannot perform operation -- service is attached" - IBXConst_SServerNameMissing, "Server Name Missing" - IBXConst_SQueryParamsError, "Query Parameters missing or incorrect" - IBXConst_SStartParamsError, "start Parameters missing or incorrect" - IBXConst_SOutputParsingError, "Unexpected Output buffer value" - IBXConst_SUseSpecificProcedures, "Generic ServiceStart not applicable: Use Specific Procedures to set configuration params" - IBXConst_SEmptySQLStatement, "Empty SQL Statement" - IBXConst_SIsASelectStatement, "use Open for a Select Statement" - IBXConst_SRequiredParamNotSet, "Required Param value not set" - IBXConst_SNoStoredProcName, "No Stored Procedure Name assigned" - IBXConst_SIsAExecuteProcedure, "use ExecProc for Procedure; use TQuery for Select procedures" - IBXConst_SUpdateFailed, "Update Failed" - IBXConst_SNotCachedUpdates, "CachedUpdates not enabled" - IBXConst_SNotLiveRequest, "Request is not live - cannot modify" - IBXConst_SNoProvider, "No Provider" - IBXConst_SNoRecordsAffected, "No Records Affected" - IBXConst_SNoTableName, "No Table Name assigned" - IBXConst_SCannotCreatePrimaryIndex, "Cannot Create Primary Index; are created automatically" - IBXConst_SCannotDropSystemIndex, "Cannot Drop System Index" - IBXConst_STableNameMismatch, "Table Name Mismatch" - IBXConst_SIndexFieldMissing, "Index Field Missing" - IBXConst_SInvalidCancellation, "Cannot Cancel events while processing" - IBXConst_SCannotPost, "Cannot post. (No update/insert query)" - IBXConst_SCannotUpdate, "Cannot update. (No update query)" - IBXConst_SCannotDelete, "Cannot delete from dataset. (No delete query)" - IBXConst_SCannotRefresh, "Cannot refresh row. (No refresh query)" - IBXConst_SBufferNotSet, "Buffer not set" - IBXConst_SCircularReference, "Circular references not permitted" - IBXConst_SSQLParseError, "SQL Parse Error:\r\n\r\n%s" - IBXConst_SUserAbort, "User abort" - IBXConst_SDataSetUniDirectional, "Data set is uni-directional" - IBXConst_SCannotCreateSharedResource, "Cannot create shared resource. (Windows error %d)" - IBXConst_SWindowsAPIError, "Windows API error. (Windows error %d [$%.8x])" - IBXConst_SColumnListsDontMatch, "Column lists do not match" - IBXConst_SColumnTypesDontMatch, "Column types don't match. (From index: %d; To index: %d)" - IBXConst_SCantEndSharedTransaction, "Can't end a shared transaction unless it is forced and equal to the transaction's TimeoutAction" - IBXConst_SFieldUnsupportedType, "Unsupported Field Type" - IBXConst_SCircularDataLink, "Circular DataLink Reference" - IBXConst_SDatasetOpen, "Dataset open" - IBXConst_SDatasetClosed, "Dataset closed" - IBXConst_SUnknownSQLDataType, "Unknown SQL Data type (%d)" - IBXConst_SInvalidColumnIndex, "Invalid column index (index exceeds permitted range)" - IBXConst_SInvalidParamColumnIndex, "Invalid parameter index (index exceeds permitted range)" - IBXConst_SInvalidDataConversion, "Invalid data conversion" - IBXConst_SColumnIsNotNullable, "Column cannot be set to null (%s)" - IBXConst_SBlobCannotBeRead, "Blob stream cannot be read" - IBXConst_SBlobCannotBeWritten, "Blob stream cannot be written" - IBXConst_SEmptyQuery, "Empty query" - IBXConst_SCannotOpenNonSQLSelect, "Cannot \"open\" a non-select statement. Use ExecQuery" - IBXConst_SNoFieldAccess, "No access to field \"%s\"" - IBXConst_SFieldReadOnly, "Field \"%s\" is read-only" - IBXConst_SFieldNotFound, "Field \"%s\" not found" - IBXConst_SNotEditing, "Not in edit mode" - IBXConst_SCannotInsert, "Cannot insert into dataset. (No insert query)" - IBXConst_SDatabaseNameMissing, "Database name is missing" - IBXConst_SNotInTransaction, "Transaction is not active" - IBXConst_SInTransaction, "Transaction is active" - IBXConst_STimeoutNegative, "Timeout values cannot be negative" - IBXConst_SNoDatabasesInTransaction, "No databases are listed in transaction component" - IBXConst_SUpdateWrongDB, "Updating wrong database" - IBXConst_SUpdateWrongTR, "Updating wrong transaction. Unique transaction expected in set" - IBXConst_SDatabaseNotAssigned, "Database not assigned" - IBXConst_STransactionNotAssigned, "Transaction not assigned" - IBXConst_SXSQLDAIndexOutOfRange, "XSQLDA index out of range" - IBXConst_SXSQLDANameDoesNotExist, "XSQLDA name does not exist (%s)" - IBXConst_SEOF, "End of file" - IBXConst_SBOF, "Beginning of file" - IBXConst_SInvalidStatementHandle, "Invalid statement handle" - IBXConst_SSQLOpen, "IBSQL Open" - IBXConst_SSQLClosed, "IBSQL Closed" - IBXConst_SInterBaseMissing, "InterBase library gds32.dll not found in the path. Please install InterBase to use this functionality" - IBXConst_SInterBaseInstallMissing, "InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality" - IBXConst_SIB60feature, "%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality" - IBXConst_SNotSupported, "Unsupported feature" - IBXConst_SNotPermitted, "Not permitted" - IBXConst_SFileAccessError, "Temporary file access error" - IBXConst_SConnectionTimeout, "Database connection timed out" - IBXConst_SCannotSetDatabase, "Cannot set database" - IBXConst_SCannotSetTransaction, "Cannot set transaction" - IBXConst_SOperationCancelled, "Operation cancelled at user's request" - IBXConst_SDPBConstantNotSupported, "DPB Constant (isc_dpb_%s) is unsupported" - IBXConst_SDPBConstantUnknown, "DPB Constant (%d) is unknown" - IBXConst_STPBConstantNotSupported, "TPB Constant (isc_tpb_%s) is unsupported" - IBXConst_STPBConstantUnknown, "TPB Constant (%d) is unknown" - IBXConst_SDatabaseClosed, "Cannot perform operation -- DB is not open" - IBXConst_SDatabaseOpen, "Cannot perform operation -- DB is currently open" - uDARes_err_LoadPackageFailed, "LoadPackage failed for file %s" - uDARes_err_InvalidDriverReference, "The driver in %s could not be loaded" - uDARes_err_CannotFindStatement, "Cannot find statement %s for connection %s" - uDARes_err_CannotFindDefaultItem, "Cannot find default %s" - uDARes_err_PoolIsNotEmpty, "Cannot perform this operation when connections are pooled" - uDARes_err_MaxPoolSizeReached, "Maximum pool size reached. Cannot create a new connection" - uDARes_err_LAMEDataset, "%s does not implement IProviderSupport or implements it incorrectly" - uDARes_err_HETConnectionNotSupportedInV3, "HET Connections are not supported by te legacy v3 DARemoteService" - uDARes_err_DARDMInvalidSchema, "Schema must be assigned and must point to a ConnectionManager" - uDARes_err_DARDMUnassignedAdapter, "DataAdapter is not assigned" - uDARes_err_DARDMConnectionIsNotAssigned, "Connection is not assigned" - uDARes_err_DARDMCannotFindProxessorForDelta, "Cannot find a business processor for delta \"%s\"" - uDARes_err_NeedShareMem, "To use dynamically loaded drivers, you must build your application with ShareMem." - uDARes_err_ExecuteSQLCommandNotAllowed, "ExecuteSQLCommand is not enabled for this server." - uDARes_err_DatasetNotAccessible, "Access to dataset %s has not been permitted." - IBXConst_SUnknownError, "Unknown error" - JvResources_RsHotLight, "Hot Light" - JvResources_RsMenuBar, "Menu Bar" - JvResources_RsMenuHighlight, "Menu Highlight" - uDARes_err_ChangeLogAlreadyStarted, "StartChange has already been called; cannot log more than one change at a time." - uDARes_err_NotAttachedToDataTable, "Delta is not attached to a DataTable" - uDARes_err_DriverProcAlreadyRegistered, "DriverProc 0x%0.8x is already registered" - uDARes_err_DriverManagerAlreadyCreated, "An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed" - uDARes_err_DriverManagerNotAssigned, "Driver Manager is not assigned" - uDARes_err_FieldTypeNotSupported, "FieldType %s (%d) is not supported" - uDARes_err_InvalidDataset, "Invalid or NIL dataset" - uDARes_err_CannotFindItem, "Cannot find %s \"%s\" in collection of type %s" - uDARes_err_DriverAlreadyLoaded, "Driver %s is already loaded" - uDARes_err_InvalidDLL, "%s is not a valid Data Abstract driver" - uDARes_err_UnknownDriver, "Unknown driver %s" - uDARes_err_FieldIsNotBound, "Field is not bound" - uDARes_err_CannotFindField, "Cannot find field %s" - JvResources_RsClInactiveBorder, "Inactive window border" - JvResources_RsClAppWorkSpace, "Application workspace" - JvResources_RsClHighlight, "Selection background" - JvResources_RsClHighlightText, "Selection text" - JvResources_RsClBtnFace, "Button face" - JvResources_RsClBtnShadow, "Button shadow" - JvResources_RsClGrayText, "Dimmed text" - JvResources_RsClBtnText, "Button text" - JvResources_RsClInactiveCaptionText, "Inactive window title bar text" - JvResources_RsClBtnHighlight, "Button highlight" - JvResources_RsCl3DDkShadow, "Dark shadow 3D elements" - JvResources_RsCl3DLight, "Highlight 3D elements" - JvResources_RsClInfoText, "Tooltip text" - JvResources_RsClInfoBk, "Tooltip background" - JvResources_RsGradientActiveCaption, "Gradient Active Caption" - JvResources_RsGradientInactiveCaption, "Gradient Inactive Caption" - JvResources_RsClLightYellow, "Light Yellow" - JvResources_RsClLightGreen, "Light Green" - JvResources_RsClLightTurquoise, "Light Turquoise" - JvResources_RsClPaleBlue, "Pale Blue" - JvResources_RsClLavender, "Lavender" - JvResources_RsClScrollBar, "Scrollbar" - JvResources_RsClBackground, "Desktop background" - JvResources_RsClActiveCaption, "Active window title bar" - JvResources_RsClInactiveCaption, "Inactive window title bar" - JvResources_RsClMenu, "Menu background" - JvResources_RsClWindow, "Window background" - JvResources_RsClWindowFrame, "Window frame" - JvResources_RsClMenuText, "Menu text" - JvResources_RsClWindowText, "Window text" - JvResources_RsClCaptionText, "Active window title bar text" - JvResources_RsClActiveBorder, "Active window border" - JvResources_RsClDarkYellow, "Dark Yellow" - JvResources_RsClBlueGray, "Blue Gray" - JvResources_RsClGray50, "Gray 50%" - JvResources_RsClLightOrange, "Light Orange" - JvResources_RsClSeaGreen, "Sea Green" - JvResources_RsClLightBlue, "Light Blue" - JvResources_RsClViolet, "Violet" - JvResources_RsClGray40, "Gray 40%" - JvResources_RsClPink, "Pink" - JvResources_RsClGold, "Gold" - JvResources_RsClBrightGreen, "Bright Green" - JvResources_RsClTurquoise, "Turquoise" - JvResources_RsClPlum, "Plum" - JvResources_RsClGray25, "Gray 25%" - JvResources_RsClRose, "Rose" - JvResources_RsClTan, "Tan" - JvResources_RsClFuchsia, "Fuchsia" - JvResources_RsClAqua, "Aqua" - JvResources_RsClWhite, "White" - JvResources_RsClMoneyGreen, "Money green" - JvResources_RsClSkyBlue, "Sky blue" - JvResources_RsClCream, "Cream" - JvResources_RsClMedGray, "Medium gray" - JvResources_RsClBrown, "Brown" - JvResources_RsClOliveGreen, "Olive Green" - JvResources_RsClDarkGreen, "Dark Green" - JvResources_RsClDarkTeal, "Dark Teal" - JvResources_RsClDarkBlue, "Dark Blue" - JvResources_RsClIndigo, "Indigo" - JvResources_RsClGray80, "Gray 80%" - JvResources_RsClDarkRed, "Dark Red" - JvResources_RsClOrange, "Orange" - JvResources_RsEGIFVersion, "Unknown GIF version" - JvResources_RsEPixelFormatNotImplemented, "BitmapToMemoryStream: pixel format not implemented" - JvResources_RsEBitCountNotImplemented, "BitmapToMemoryStream: bit count not implemented" - JvResources_RsClBlack, "Black" - JvResources_RsClMaroon, "Maroon" - JvResources_RsClGreen, "Green" - JvResources_RsClOlive, "Olive green" - JvResources_RsClNavy, "Navy blue" - JvResources_RsClPurple, "Purple" - JvResources_RsClTeal, "Teal" - JvResources_RsClGray, "Gray" - JvResources_RsClSilver, "Silver" - JvResources_RsClRed, "Red" - JvResources_RsClLime, "Lime" - JvResources_RsClYellow, "Yellow" - JvResources_RsClBlue, "Blue" - JvResources_RsEUnableToCreateKey, "Unable to create key '%s'" - JvResources_RsEEnumeratingRegistry, "Error enumerating registry" - JvResources_RsEInvalidType, "Invalid type" - JvResources_RsEUnknownBaseType, "Unknown base type for given set" - JvResources_RsEInvalidPath, "Invalid path" - JvResources_RsENotAUniqueRootPath, "'%s' is not a unique root path" - JvResources_RsECircularReferenceOfStorages, "Circular reference of storages" - JvResources_RsEShellNotCompatible, "Shell not compatible with BrowseForFolder" - JvResources_RsGIFImage, "CompuServe GIF Image" - JvResources_RsEChangeGIFSize, "Cannot change the Size of a GIF image" - JvResources_RsENoGIFData, "No GIF Data to write" - JvResources_RsEUnrecognizedGIFExt, "Unrecognized extension block: %.2x" - JvResources_RsEWrongGIFColors, "Wrong number of colors; must be a power of 2" - JvResources_RsEBadGIFCodeSize, "GIF code size not in range 2 to 9" - JvResources_RsEGIFDecodeError, "GIF encoded data is corrupt" - JvResources_RsEGIFEncodeError, "GIF image encoding error" - JclResources_RsIntelCacheDescr7D, "2nd-level cache: 2 MBytes, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr7F, "2nd-level cache: 512 KBytes, 2-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr82, "2nd-level cache: 256 KBytes, 8-way associative, 32 byte line size" - JclResources_RsIntelCacheDescr83, "2nd-level cache: 512 KBytes, 8-way associative, 32 byte line size" - JclResources_RsIntelCacheDescr84, "2nd-level cache: 1 MBytes, 8-way associative, 32 byte line size" - JclResources_RsIntelCacheDescr85, "2nd-level cache: 2 MBytes, 8-way associative, 32 byte line size" - JclResources_RsIntelCacheDescr86, "2nd-level cache: 512 KByte, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr87, "2nd-level cache: 1 MByte, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescrB0, "Instruction TLB: 4 KByte pages, 4-way set associative, 128 entries" - JclResources_RsIntelCacheDescrB3, "Data TLB: 4 KByte pages, 4-way set associative, 128 entries" - JclResources_RsIntelCacheDescrB4, "Data TLB1: 4 KByte pages, 4-way set associative, 256 entries" - JclResources_RsIntelCacheDescrF0, "64-Byte Prefetching" - JclResources_RsIntelCacheDescrF1, "128-Byte Prefetching" - JvResources_RsAniExtension, "ani" - JvResources_RsAniFilterName, "ANI Image" - JvResources_RsRootValueReplaceFmt, "The Default Root Value \"%0:s\" has been replaced with \"%1:s\".\r\nPlease change the value in the FileVersionInfo Project Properties." - JclResources_RsIntelCacheDescr57, "Data TLB0: 4 KByte pages, 4-way associative, 16 entries" - JclResources_RsIntelCacheDescr5B, "Data TLB: 4 KByte and 4 MByte pages, 64 Entries" - JclResources_RsIntelCacheDescr5C, "Data TLB: 4 KByte and 4 MByte pages, 128 Entries" - JclResources_RsIntelCacheDescr5D, "Data TLB: 4 KByte and 4 MByte pages, 256 Entries" - JclResources_RsIntelCacheDescr60, "1st-level data cache: 16 KByte, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr66, "1st-level data cache: 8 KBytes, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr67, "1st-level data cache: 16 KBytes, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr68, "1st-level data cache: 32 KBytes, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr70, "Trace cache: 12 K-Ops, 8-way set associative" - JclResources_RsIntelCacheDescr71, "Trace cache: 16 K-Ops, 8-way set associative" - JclResources_RsIntelCacheDescr72, "Trace cache: 32 K-Ops, 8-way set associative" - JclResources_RsIntelCacheDescr78, "2nd-level cache: 1 MBytes, 4-way set associative, 64 bytes line size" - JclResources_RsIntelCacheDescr79, "2nd-level cache: 128 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" - JclResources_RsIntelCacheDescr7A, "2nd-level cache: 256 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" - JclResources_RsIntelCacheDescr7B, "2nd-level cache: 512 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" - JclResources_RsIntelCacheDescr7C, "2nd-level cache: 1 MBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" - JclResources_RsIntelCacheDescr29, "3rd level cache: 4 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" - JclResources_RsIntelCacheDescr2C, "1st level data cache: 32 KBytes, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr30, "1st level instruction cache: 32 KBytes, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr40, "No 2nd-level cache or, if processor contains a valid 2nd-level cache, no 3rd-level cache" - JclResources_RsIntelCacheDescr41, "2nd-level cache: 128 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr42, "2nd-level cache: 256 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr43, "2nd-level cache: 512 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr44, "2nd-level cache: 1 MBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr45, "2nd-level cache: 2 MBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr46, "3rd-level cache: 4 MBytes, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr47, "3rd-level cache: 8 MBytes, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr49, "2nd-level cache: 4 MBytes, 16-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr50, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 64 Entries" - JclResources_RsIntelCacheDescr51, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 128 Entries" - JclResources_RsIntelCacheDescr52, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 256 Entries" - JclResources_RsIntelCacheDescr56, "Data TLB0: 4 MByte pages, 4-way set associative, 16 entries" - JclResources_RsRTTIVarType, "Variant type: " - JclResources_RsDeclarationFormat, "// Declaration for '%s' not supported." - JclResources_RsIntelCacheDescr00, "Null descriptor" - JclResources_RsIntelCacheDescr01, "Instruction TLB: 4 KByte pages, 4-way set associative, 32 entries" - JclResources_RsIntelCacheDescr02, "Instruction TLB: 4 MByte pages, 4-way set associative, 2 entries" - JclResources_RsIntelCacheDescr03, "Data TLB: 4 KByte pages, 4-way set associative, 64 entries" - JclResources_RsIntelCacheDescr04, "Data TLB: 4 MByte pages, 4-way set associative, 8 entries" - JclResources_RsIntelCacheDescr05, "Data TLB1: 4 MByte pages, 4-way set associative, 32 entries" - JclResources_RsIntelCacheDescr06, "1st level instruction cache: 8 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr08, "1st level instruction cache: 16 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr0A, "1st level data cache: 8 KBytes, 2-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr0B, "Instruction TLB: 4 MByte pages, 4-way set associative, 4 entries" - JclResources_RsIntelCacheDescr0C, "1st level data cache: 16 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr22, "3rd level cache: 512 KBytes, 4-way set associative, 64 byte line size, 2 lines per sector" - JclResources_RsIntelCacheDescr23, "3rd level cache: 1 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" - JclResources_RsIntelCacheDescr25, "3rd level cache: 2 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" - JclResources_RsRTTIMinValue, "Min value: " - JclResources_RsRTTIMaxValue, "Max value: " - JclResources_RsRTTINameList, "Names: " - JclResources_RsRTTIClassName, "Class name: " - JclResources_RsRTTIParent, "Parent: " - JclResources_RsRTTIPropCount, "Property count: " - JclResources_RsRTTIUnitName, "Unit name: " - JclResources_RsRTTIBasedOn, "Based on: " - JclResources_RsRTTIFloatType, "Float type: " - JclResources_RsRTTIMethodKind, "Method kind: " - JclResources_RsRTTIParamCount, "Parameter count: " - JclResources_RsRTTIReturnType, "Return type: " - JclResources_RsRTTIMaxLen, "Max length: " - JclResources_RsRTTIElSize, "Element size: " - JclResources_RsRTTIElType, "Element type: " - JclResources_RsRTTIElNeedCleanup, "Elements need clean up: " - JclResources_RsRTTITypeError, "???" - JclResources_RsRTTITypeInfoAt, "Type info: %p" - JclResources_RsRTTIPropRead, "read" - JclResources_RsRTTIPropWrite, "write" - JclResources_RsRTTIPropStored, "stored" - JclResources_RsRTTIField, "field" - JclResources_RsRTTIStaticMethod, "static method" - JclResources_RsRTTIVirtualMethod, "virtual method" - JclResources_RsRTTIIndex, "index" - JclResources_RsRTTIDefault, "default" - JclResources_RsRTTIName, "Name: " - JclResources_RsRTTIType, "Type: " - JclResources_RsRTTIFlags, "Flags: " - JclResources_RsRTTIGUID, "GUID: " - JclResources_RsRTTITypeKind, "Type kind: " - JclResources_RsRTTIOrdinalType, "Ordinal type: " - JclResources_RsHKCRShort, "HKCR" - JclResources_RsHKCUShort, "HKCU" - JclResources_RsHKLMShort, "HKLM" - JclResources_RsHKUSShort, "HKUS" - JclResources_RsHKPDShort, "HKPD" - JclResources_RsHKCCShort, "HKCC" - JclResources_RsHKDDShort, "HKDD" - JclResources_RsRTTIValueOutOfRange, "Value out of range (%s)." - JclResources_RsRTTIUnknownIdentifier, "Unknown identifier '%s'." - JclResources_RsRTTIVar, "var " - JclResources_RsRTTIConst, "const " - JclResources_RsRTTIArrayOf, "array of " - JclResources_RsRTTIOut, "out " - JclResources_RsRTTIOrdinal, "ordinal=" - JclResources_RsRTTITrue, "True" - JclResources_RsRTTIFalse, "False" - JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" - JConsts_sJPEGError, "JPEG error #%d" - JConsts_sJPEGImageFile, "JPEG Image File" - JclResources_RsFileUtilsNoVersionInfo, "File contains no version information" - JclResources_RsUnableToOpenKeyRead, "Unable to open key \"%s\\%s\" for read" - JclResources_RsUnableToOpenKeyWrite, "Unable to open key \"%s\\%s\" for write" - JclResources_RsUnableToAccessValue, "Unable to open key \"%s\\%s\" and access value \"%s\"" - JclResources_RsWrongDataType, "\"%s\\%s\\%s\" is of wrong kind or size" - JclResources_RsInconsistentPath, "\"%s\" does not match RootKey" - JclResources_RsHKCRLong, "HKEY_CLASSES_ROOT" - JclResources_RsHKCULong, "HKEY_CURRENT_USER" - JclResources_RsHKLMLong, "HKEY_LOCAL_MACHINE" - JclResources_RsHKUSLong, "HKEY_USERS" - JclResources_RsHKPDLong, "HKEY_PERFORMANCE_DATA" - JclResources_RsHKCCLong, "HKEY_CURRENT_CONFIG" - JclResources_RsHKDDLong, "HKEY_DYN_DATA" - IdResourceStringsCore_RSConnectTimeout, "Connect timed out." - IdResourceStringsCore_RSThreadTerminateAndWaitFor, "Cannot call TerminateAndWaitFor on FreeAndTerminate threads" - IdResourceStringsCore_RSAlreadyConnected, "Already connected." - IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded, "Maximum number of line allowed exceeded" - IdResourceStringsCore_RSchedMaxThreadEx, "The maximum number of threads for this scheduler is exceeded." - IdResourceStringsCore_RSTransparentProxyCannotBind, "Transparent proxy cannot bind." - IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP, "UDP Not supported by this proxy." - IdResourceStringsCore_RSBufferMissingTerminator, "Buffer terminator must be specified." - IdResourceStringsCore_RSBufferInvalidStartPos, "Buffer start position is invalid." - IdResourceStringsCore_RSReplyInvalidCode, "Reply Code is not valid: %s" - IdResourceStringsCore_RSThreadSchedulerThreadRequired, "Thread must be specified for the scheduler." - IdResourceStringsCore_RSNoOnExecute, "You must have an OnExecute event." - IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive, "Cannot change the scheduler while the server is Active." - ComStrs_sInvalidIndex, "Invalid index" - ComStrs_sInsertError, "Unable to insert an item" - ComStrs_sUDAssociated, "%s is already associated with %s" - IdResourceStringsCore_RSSocksServerPermissionError, "Connection not allowed by ruleset." - IdResourceStringsCore_RSSocksServerNetUnreachableError, "Network unreachable." - IdResourceStringsCore_RSSocksServerHostUnreachableError, "Host unreachable." - IdResourceStringsCore_RSSocksServerConnectionRefusedError, "Connection refused." - IdResourceStringsCore_RSSocksServerTTLExpiredError, "TTL expired." - IdResourceStringsCore_RSSocksServerCommandError, "Command not supported." - IdResourceStringsCore_RSSocksServerAddressError, "Address type not supported." - IdResourceStringsCore_RSInterceptCircularLink, "%d: Circular links are not allowed" - IdResourceStringsCore_RSNotEnoughDataInBuffer, "Not enough data in buffer." - IdResourceStringsCore_RSTooMuchDataInBuffer, "Too much data in buffer." - IdResourceStringsCore_RSFileNotFound, "File \"%s\" not found" - IdResourceStringsCore_RSNotConnected, "Not Connected" - IdResourceStringsCore_RSObjectTypeNotSupported, "Object type not supported." - IdResourceStringsCore_RSIdNoDataToRead, "No data to read." - IdResourceStringsCore_RSReadTimeout, "Read Timeout" - IdResourceStringsCore_RSReadLnMaxLineLengthExceeded, "Max line length exceeded." - IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported, "HTTP version not supported" - IdResourceStringsProtocols_RSHTTPUnknownResponseCode, "Unknown Response Code" - IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten, "Header has already been written." - IdResourceStringsProtocols_RSHTTPErrorParsingCommand, "Error in parsing command." - IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme, "Unsupported authorization scheme." - IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive, "Cannot change session state when the server is active." - IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered, "This authentication method is already registered with class name %s." - IdResourceStringsCore_RSSocksUDPNotSupported, "UDP is not support in this SOCKS version." - IdResourceStringsCore_RSSocksRequestFailed, "Request rejected or failed." - IdResourceStringsCore_RSSocksRequestServerFailed, "Request rejected because SOCKS server cannot connect." - IdResourceStringsCore_RSSocksRequestIdentFailed, "Request rejected because the client program and identd report different user-ids." - IdResourceStringsCore_RSSocksUnknownError, "Unknown socks error." - IdResourceStringsCore_RSSocksServerRespondError, "Socks server did not respond." - IdResourceStringsCore_RSSocksAuthMethodError, "Invalid socks authentication method." - IdResourceStringsCore_RSSocksAuthError, "Authentication error to socks server." - IdResourceStringsCore_RSSocksServerGeneralError, "General SOCKS server failure." - IdResourceStringsProtocols_RSHTTPMethodNotAllowed, "Method not allowed" - IdResourceStringsProtocols_RSHTTPNotAcceptable, "Not Acceptable" - IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired, "Proxy Authentication Required" - IdResourceStringsProtocols_RSHTTPRequestTimeout, "Request Timeout" - IdResourceStringsProtocols_RSHTTPConflict, "Conflict" - IdResourceStringsProtocols_RSHTTPGone, "Gone" - IdResourceStringsProtocols_RSHTTPLengthRequired, "Length Required" - IdResourceStringsProtocols_RSHTTPPreconditionFailed, "Precondition Failed" - IdResourceStringsProtocols_RSHTTPRequestEntityToLong, "Request Entity To Long" - IdResourceStringsProtocols_RSHTTPRequestURITooLong, "Request-URI Too Long. 256 Chars max" - IdResourceStringsProtocols_RSHTTPUnsupportedMediaType, "Unsupported Media Type" - IdResourceStringsProtocols_RSHTTPInternalServerError, "Internal Server Error" - IdResourceStringsProtocols_RSHTTPNotImplemented, "Not Implemented" - IdResourceStringsProtocols_RSHTTPBadGateway, "Bad Gateway" - IdResourceStringsProtocols_RSHTTPServiceUnavailable, "Service Unavailable" - IdResourceStringsProtocols_RSHTTPGatewayTimeout, "Gateway timeout" - IdResourceStringsProtocols_RSHTTPOK, "OK" - IdResourceStringsProtocols_RSHTTPCreated, "Created" - IdResourceStringsProtocols_RSHTTPAccepted, "Accepted" - IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation, "Non-authoritative Information" - IdResourceStringsProtocols_RSHTTPNoContent, "No Content" - IdResourceStringsProtocols_RSHTTPResetContent, "Reset Content" - IdResourceStringsProtocols_RSHTTPPartialContent, "Partial Content" - IdResourceStringsProtocols_RSHTTPMovedPermanently, "Moved Permanently" - IdResourceStringsProtocols_RSHTTPMovedTemporarily, "Moved Temporarily" - IdResourceStringsProtocols_RSHTTPSeeOther, "See Other" - IdResourceStringsProtocols_RSHTTPNotModified, "Not Modified" - IdResourceStringsProtocols_RSHTTPUseProxy, "Use Proxy" - IdResourceStringsProtocols_RSHTTPBadRequest, "Bad Request" - IdResourceStringsProtocols_RSHTTPUnauthorized, "Unauthorized" - IdResourceStringsProtocols_RSHTTPForbidden, "Forbidden" - IdResourceStringsProtocols_RSHTTPNotFound, "Not Found" - IdResourceStrings_RSCannotSetIPVersionWhenConnected, "Cannot change IPVersion when connected" - IdResourceStrings_RSCannotBindRange, "Can not bind in port range (%d - %d)" - IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." - IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." - IdResourceStrings_RSInvalidPortRange, "Invalid Port Range (%d - %d)" - IdResourceStrings_RSInvalidServiceName, "%s is not a valid service." - IdResourceStrings_RSIPv6Unavailable, "IPv6 unavailable" - IdResourceStrings_RSInvalidIPv6Address, "%s is not a valid IPv6 address" - IdResourceStrings_RSIPVersionUnsupported, "The requested IPVersion / Address family is not supported." - IdResourceStrings_RSNotAllBytesSent, "Not all bytes sent." - IdResourceStrings_RSPackageSizeTooBig, "Package Size Too Big." - IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded." - IdResourceStringsProtocols_RSMIMEExtensionEmpty, "Extension is empty" - IdResourceStringsProtocols_RSMIMEMIMETypeEmpty, "Mimetype is empty" - IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists, "Extension already exits" - IdResourceStringsProtocols_RSHTTPContinue, "Continue" - IdResourceStrings_RSStackENOBUFS, "No buffer space available." - IdResourceStrings_RSStackEISCONN, "Socket is already connected." - IdResourceStrings_RSStackENOTCONN, "Socket is not connected." - IdResourceStrings_RSStackESHUTDOWN, "Cannot send or receive after socket is closed." - IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice." - IdResourceStrings_RSStackETIMEDOUT, "Connection timed out." - IdResourceStrings_RSStackECONNREFUSED, "Connection refused." - IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links." - IdResourceStrings_RSStackENAMETOOLONG, "File name too long." - IdResourceStrings_RSStackEHOSTDOWN, "Host is down." - IdResourceStrings_RSStackEHOSTUNREACH, "No route to host." - IdResourceStrings_RSStackENOTEMPTY, "Directory not empty" - IdResourceStrings_RSStackHOST_NOT_FOUND, "Host not found." - IdResourceStrings_RSStackClassUndefined, "Stack Class is undefined." - IdResourceStrings_RSStackAlreadyCreated, "Stack already created." - IdResourceStrings_RSAntiFreezeOnlyOne, "Only one TIdAntiFreeze can exist per application." - IdResourceStrings_RSStackEDESTADDRREQ, "Destination address required." - IdResourceStrings_RSStackEMSGSIZE, "Message too long." - IdResourceStrings_RSStackEPROTOTYPE, "Protocol wrong type for socket." - IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option." - IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported." - IdResourceStrings_RSStackESOCKTNOSUPPORT, "Socket type not supported." - IdResourceStrings_RSStackEOPNOTSUPP, "Operation not supported on socket." - IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported." - IdResourceStrings_RSStackEAFNOSUPPORT, "Address family not supported by protocol family." - IdResourceStrings_RSStackEADDRINUSE, "Address already in use." - IdResourceStrings_RSStackEADDRNOTAVAIL, "Cannot assign requested address." - IdResourceStrings_RSStackENETDOWN, "Network is down." - IdResourceStrings_RSStackENETUNREACH, "Network is unreachable." - IdResourceStrings_RSStackENETRESET, "Net dropped connection or reset." - IdResourceStrings_RSStackECONNABORTED, "Software caused connection abort." - IdResourceStrings_RSStackECONNRESET, "Connection reset by peer." - IdResourceStrings_RSStatusConnecting, "Connecting to %s." - IdResourceStrings_RSStatusConnected, "Connected." - IdResourceStrings_RSStatusDisconnecting, "Disconnecting." - IdResourceStrings_RSStatusDisconnected, "Disconnected." - IdResourceStrings_RSStatusText, "%s" - IdResourceStrings_RSStackError, "Socket Error # %d\r\n%s" - IdResourceStrings_RSStackEINTR, "Interrupted system call." - IdResourceStrings_RSStackEBADF, "Bad file number." - IdResourceStrings_RSStackEACCES, "Access denied." - IdResourceStrings_RSStackEFAULT, "Buffer fault." - IdResourceStrings_RSStackEINVAL, "Invalid argument." - IdResourceStrings_RSStackEMFILE, "Too many open files." - IdResourceStrings_RSStackEWOULDBLOCK, "Operation would block." - IdResourceStrings_RSStackEINPROGRESS, "Operation now in progress." - IdResourceStrings_RSStackEALREADY, "Operation already in progress." - IdResourceStrings_RSStackENOTSOCK, "Socket operation on non-socket." - DBConsts_SProviderSQLNotSupported, "SQL not supported: %s" - DBConsts_SProviderExecuteNotSupported, "Execute not supported: %s" - DBConsts_SExprNoAggOnCalcs, "Field '%s' is not the correct type of calculated field to be used in an aggregate, use an internalcalc" - DBConsts_SDataSetUnidirectional, "Operation not allowed on a unidirectional dataset" - DBConsts_SUnassignedVar, "Unassigned variant value" - DBConsts_SRecordNotFound, "Record not found" - DBConsts_SBcdOverflow, "BCD overflow" - DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" - DBConsts_SInvalidFormatType, "Invalid format type for BCD" - DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string" - DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values" - IdResourceStrings_RSFailedTimeZoneInfo, "Failed attempting to retrieve time zone information." - IdResourceStrings_RSWinsockCallError, "Error on call Winsock2 library function %s" - IdResourceStrings_RSWinsockLoadError, "Error on loading Winsock2 library (%s)" - IdResourceStrings_RSWinsockInitializationError, "Winsock Initialization Error." - IdResourceStrings_RSStatusResolving, "Resolving hostname %s." - DBConsts_SExprIncorrect, "Incorrectly formed filter expression" - DBConsts_SExprNothing, "nothing" - DBConsts_SExprTypeMis, "Type mismatch in expression" - DBConsts_SExprBadScope, "Operation cannot mix aggregate value with record-varying value" - DBConsts_SExprNoArith, "Arithmetic in filter expressions not supported" - DBConsts_SExprNotAgg, "Expression is not an aggregate expression" - DBConsts_SExprBadConst, "Constant is not correct type %s" - DBConsts_SExprNoAggFilter, "Aggregate expressions not allowed in filters" - DBConsts_SExprEmptyInList, "IN predicate list may not be empty" - DBConsts_SInvalidKeywordUse, "Invalid use of keyword" - DBConsts_STextFalse, "False" - DBConsts_STextTrue, "True" - DBConsts_SParameterNotFound, "Parameter '%s' not found" - DBConsts_SInvalidVersion, "Unable to load bind parameters" - DBConsts_SBadFieldType, "Field '%s' is of an unsupported type" - DBConsts_SAggActive, "Property may not be modified while aggregate is active" - DBConsts_SNotEditing, "Dataset not in edit or insert mode" - DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" - DBConsts_SDataSetEmpty, "Cannot perform this operation on an empty dataset" - DBConsts_SDataSetReadOnly, "Cannot modify a read-only dataset" - DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" - DBConsts_SExprTermination, "Filter expression incorrectly terminated" - DBConsts_SExprNameError, "Unterminated field name" - DBConsts_SExprStringError, "Unterminated string constant" - DBConsts_SExprInvalidChar, "Invalid filter expression character: '%s'" - DBConsts_SExprNoLParen, "'(' expected but %s found" - DBConsts_SExprNoRParen, "')' expected but %s found" - DBConsts_SExprNoRParenOrComma, "')' or ',' expected but %s found" - DBConsts_SExprExpected, "Expression expected but %s found" - DBConsts_SExprBadField, "Field '%s' cannot be used in a filter expression" - DBConsts_SExprBadNullTest, "NULL only allowed with '=' and '<>'" - DBConsts_SExprRangeError, "Constant out of range" - DBConsts_SFieldOutOfRange, "Value of field '%s' is out of range" - DBConsts_SFieldRequired, "Field '%s' must have a value" - DBConsts_SDataSetMissing, "Field '%s' has no dataset" - DBConsts_SInvalidCalcType, "Field '%s' cannot be a calculated or lookup field" - DBConsts_SFieldReadOnly, "Field '%s' cannot be modified" - DBConsts_SFieldIndexError, "Field index out of range" - DBConsts_SNoFieldIndexes, "No index currently active" - DBConsts_SNotIndexField, "Field '%s' is not indexed and cannot be modified" - DBConsts_SIndexFieldMissing, "Cannot access index field '%s'" - DBConsts_SNoIndexForFields, "No index for fields '%s'" - DBConsts_SIndexNotFound, "Index '%s' not found" - DBConsts_SCircularDataLink, "Circular datalinks are not allowed" - DBConsts_SLookupInfoError, "Lookup information for field '%s' is incomplete" - DBConsts_SDataSourceChange, "DataSource cannot be changed" - DBConsts_SNoNestedMasterSource, "Nested datasets cannot have a MasterSource" - DBConsts_SDataSetOpen, "Cannot perform this operation on an open dataset" - DBConsts_SInvalidFieldSize, "Invalid field size" - DBConsts_SInvalidFieldKind, "Invalid FieldKind" - DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" - DBConsts_SFieldNameMissing, "Field name missing" - DBConsts_SDuplicateFieldName, "Duplicate field name '%s'" - DBConsts_SFieldNotFound, "Field '%s' not found" - DBConsts_SFieldAccessError, "Cannot access field '%s' as type %s" - DBConsts_SFieldValueError, "Invalid value for field '%s'" - DBConsts_SFieldRangeError, "%g is not a valid value for field '%s'. The allowed range is %g to %g" - DBConsts_SBcdFieldRangeError, "%s is not a valid value for field '%s'. The allowed range is %s to %s" - DBConsts_SInvalidIntegerValue, "'%s' is not a valid integer value for field '%s'" - DBConsts_SInvalidBoolValue, "'%s' is not a valid boolean value for field '%s'" - DBConsts_SInvalidFloatValue, "'%s' is not a valid floating point value for field '%s'" - DBConsts_SFieldTypeMismatch, "Type mismatch for field '%s', expecting: %s actual: %s" - DBConsts_SFieldSizeMismatch, "Size mismatch for field '%s', expecting: %d actual: %d" - DBConsts_SInvalidVarByteArray, "Invalid variant type or size for field '%s'" - uRORes_err_ChannelDoesntSupportIROMetadataReader, "Channel does not support IROMetadataReader" - uRORes_err_TooManySessions, "Too many sessions. Try again in %d minute(s)" - uRORes_err_DOMElementIsNIL, "DOMElement is NIL" - uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" - uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s" - uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" - uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." - uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" - uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" - uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" - uRORes_err_CannotFindParameter, "Cannot find parameter %s" - uRORes_err_MessageNotAssigned, "Message is NIL" - ComConst_SOleError, "OLE error %.8x" - ComConst_SNoMethod, "Method '%s' not supported by automation object" - ComConst_SVarNotObject, "Variant does not reference an automation object" - ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" - uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found" - uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage" - uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" - uRORes_err_UnknownClass, "Unknown class \"%s\"" - uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" - uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" - uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for the requested path?" - uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" - uRORes_err_UnhandledException, "Unhandled exception" - uRORes_err_ChannelBusy, "Channel is busy. Try again later." - uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)." - uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message." - uRORes_err_InvalidHeaderEncrypted, "Invalid binary header. It seems that encryption is active on the other side of the communication, but not locally?" - uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream." - uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"." - uRORes_err_SessionNotFound, "Session %s could not be found" - uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements." - uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found." - uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"." - uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves." - uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." - uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" - uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" - uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." - uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" - uRORes_err_NILMessage, "Message is NIL" - uRORes_err_UnspecifiedInterface, "The message does not have an interface name" - uRORes_err_UnspecifiedMessage, "The message does not have a name" - uRORes_err_UnknownMethod, "Unknown method %s for interface %s" - uRORes_err_ClassFactoryDidNotReturnInstance, "Class factory did not return an instance of \"%s\"" - uRORes_err_ParameterNotFound, "Parameter \"%s\" was not found" - uRORes_err_TypeNotSupported, "Type \"%s\" not supported" - uRODECConst_sFMT_XX, "XX Coding" - uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes" - uRODECConst_sNotInitialized, "%s is not initialized, call Init() or InitKey() first." - uRORes_err_InvalidIndex, "Invalid index %d" - uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" - uRORes_err_InvalidLibrary, "Invalid library" - uRORes_err_InvalidStream, "Invalid stream" - uRORes_err_InvalidTargetEntity, "Invalid TargetEntity \"%s\"" - uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" - uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\"" - uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\"" - uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream." - uRORes_err_RodlDuplicateName, "Duplicate name." - uRORes_err_RodlNoDataTypeSpecified, "No data type specified." - uRORes_err_RodlNoEnumValues, "Enum does not contain any values." - uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements." - Consts_SANSIEncoding, "ANSI" - Consts_SASCIIEncoding, "ASCII" - Consts_SUnicodeEncoding, "Unicode" - Consts_SBigEndianEncoding, "Big Endian Unicode" - Consts_SUTF8Encoding, "UTF-8" - Consts_SUTF7Encoding, "UTF-7" - Consts_SWindowsVistaRequired, "%s requires Windows Vista or later" - uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid." - uRODECConst_sStringFormatExists, "String Format \"%d\" does not exist." - uRODECConst_sInvalidStringFormat, "Input is not a valid %s Format." - uRODECConst_sInvalidFormatString, "Input cannot be converted to %s Format." - uRODECConst_sFMT_COPY, "copy Input to Output" - uRODECConst_sFMT_HEX, "Hexadecimal" - uRODECConst_sFMT_HEXL, "Hexadecimal lowercase" - uRODECConst_sFMT_MIME64, "MIME Base 64" - uRODECConst_sFMT_UU, "UU Coding" - Consts_SInvalidMemoSize, "Text exceeds memo capacity" - Consts_SInvalidPrinterOp, "Operation not supported on selected printer" - Consts_SNoDefaultPrinter, "There is no default printer currently selected" - Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" - Consts_SPictureLabel, "Picture:" - Consts_SPictureDesc, " (%dx%d)" - Consts_SPreviewLabel, "Preview" - Consts_SDockedCtlNeedsName, "Docked control must have a name" - Consts_SDockTreeRemoveError, "Error removing control from dock tree" - Consts_SDockZoneNotFound, " - Dock zone not found" - Consts_SDockZoneHasNoCtl, " - Dock zone has no control" - Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d." - Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature" - Consts_SSeparator, "Separator" - Consts_SErrorSettingCount, "Error setting %s.Count" - Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count" - Consts_SmkcCtrl, "Ctrl+" - Consts_SmkcAlt, "Alt+" - Consts_srNone, "(None)" - Consts_SOutOfRange, "Value must be between %d and %d" - Consts_sAllFilter, "All" - Consts_SInsertLineError, "Unable to insert a line" - Consts_SConfirmCreateDir, "The specified directory does not exist. Create it?" - Consts_SSelectDirCap, "Select Directory" - Consts_SDirNameCap, "Directory &Name:" - Consts_SDrivesCap, "D&rives:" - Consts_SDirsCap, "&Directories:" - Consts_SFilesCap, "&Files: (*.*)" - Consts_SNetworkCap, "Ne&twork..." - Consts_SInvalidClipFmt, "Invalid clipboard format" - Consts_SIconToClipboard, "Clipboard does not support Icons" - Consts_SCannotOpenClipboard, "Cannot open clipboard" - Consts_SmkcBkSp, "BkSp" - Consts_SmkcTab, "Tab" - Consts_SmkcEsc, "Esc" - Consts_SmkcEnter, "Enter" - Consts_SmkcSpace, "Space" - Consts_SmkcPgUp, "PgUp" - Consts_SmkcPgDn, "PgDn" - Consts_SmkcEnd, "End" - Consts_SmkcHome, "Home" - Consts_SmkcLeft, "Left" - Consts_SmkcUp, "Up" - Consts_SmkcRight, "Right" - Consts_SmkcDown, "Down" - Consts_SmkcIns, "Ins" - Consts_SmkcDel, "Del" - Consts_SmkcShift, "Shift+" - Consts_SMaskEditErr, "Invalid input value. Use escape key to abandon changes" - Consts_SMsgDlgWarning, "Warning" - Consts_SMsgDlgError, "Error" - Consts_SMsgDlgInformation, "Information" - Consts_SMsgDlgConfirm, "Confirm" - Consts_SMsgDlgYes, "&Yes" - Consts_SMsgDlgNo, "&No" - Consts_SMsgDlgOK, "OK" - Consts_SMsgDlgCancel, "Cancel" - Consts_SMsgDlgHelp, "&Help" - Consts_SMsgDlgAbort, "&Abort" - Consts_SMsgDlgRetry, "&Retry" - Consts_SMsgDlgIgnore, "&Ignore" - Consts_SMsgDlgAll, "&All" - Consts_SMsgDlgNoToAll, "N&o to All" - Consts_SMsgDlgYesToAll, "Yes to &All" - Consts_SOKButton, "OK" - Consts_SCancelButton, "Cancel" - Consts_SYesButton, "&Yes" - Consts_SNoButton, "&No" - Consts_SHelpButton, "&Help" - Consts_SCloseButton, "&Close" - Consts_SIgnoreButton, "&Ignore" - Consts_SRetryButton, "&Retry" - Consts_SAbortButton, "Abort" - Consts_SAllButton, "&All" - Consts_SCannotDragForm, "Cannot drag a form" - Consts_SVMetafiles, "Metafiles" - Consts_SVEnhMetafiles, "Enhanced Metafiles" - Consts_SVIcons, "Icons" - Consts_SVBitmaps, "Bitmaps" - Consts_SMaskErr, "Invalid input value" - Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" - Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" - Consts_SCannotShowModal, "Cannot make a visible window modal" - Consts_SScrollBarRange, "Scrollbar property out of range" - Consts_SPropertyOutOfRange, "%s property out of range" - Consts_SMenuIndexError, "Menu index out of range" - Consts_SMenuReinserted, "Menu inserted twice" - Consts_SMenuNotFound, "Sub-menu is not in menu" - Consts_SNoTimers, "Not enough timers available" - Consts_SNotPrinting, "Printer is not currently printing" - Consts_SPrinting, "Printing in progress" - Consts_SInvalidPrinter, "Printer selected is not valid" - Consts_SDeviceOnPort, "%s on %s" - Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" - Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" - Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" - Consts_SChangeIconSize, "Cannot change the size of an icon" - Consts_SUnknownExtension, "Unknown picture file extension (.%s)" - Consts_SUnknownClipboardFormat, "Unsupported clipboard format" - Consts_SOutOfResources, "Out of system resources" - Consts_SNoCanvasHandle, "Canvas does not allow drawing" - Consts_SInvalidImageSize, "Invalid image size" - Consts_SInvalidImageList, "Invalid ImageList" - Consts_SReplaceImage, "Unable to Replace Image" - Consts_SImageIndexError, "Invalid ImageList Index" - Consts_SImageReadFail, "Failed to read ImageList data from stream" - Consts_SImageWriteFail, "Failed to write ImageList data to stream" - Consts_SWindowDCError, "Error creating window device context" - Consts_SWindowClass, "Error creating window class" - Consts_SCannotFocus, "Cannot focus a disabled or invisible window" - Consts_SParentRequired, "Control '%s' has no parent window" - Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" - RTLConsts_SUnknownGroup, "%s not in a class registration group" - RTLConsts_SUnknownProperty, "Property %s does not exist" - RTLConsts_SWriteError, "Stream write error" - RTLConsts_SThreadCreateError, "Thread creation error: %s" - RTLConsts_SThreadError, "Thread Error: %s (%d)" - HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" - HelpIntfs_hNothingFound, "No help found for %s" - HelpIntfs_hNoContext, "No context-sensitive help installed" - HelpIntfs_hNoContextFound, "No help found for context" - HelpIntfs_hNoTopics, "No topic-based help system installed" - Consts_SInvalidBitmap, "Bitmap image is not valid" - Consts_SInvalidIcon, "Icon image is not valid" - Consts_SInvalidMetafile, "Metafile is not valid" - Consts_SInvalidPixelFormat, "Invalid pixel format" - Consts_SInvalidImage, "Invalid image" - Consts_SScanLine, "Scan line index out of range" - RTLConsts_SInvalidPropertyType, "Invalid property type: %s" - RTLConsts_SInvalidPropertyValue, "Invalid property value" - RTLConsts_SInvalidRegType, "Invalid data type for '%s'" - RTLConsts_SListCapacityError, "List capacity out of bounds (%d)" - RTLConsts_SListCountError, "List count out of bounds (%d)" - RTLConsts_SListIndexError, "List index out of bounds (%d)" - RTLConsts_SMemoryStreamError, "Out of memory while expanding memory stream" - RTLConsts_SPropertyException, "Error reading %s%s%s: %s" - RTLConsts_SReadError, "Stream read error" - RTLConsts_SReadOnlyProperty, "Property is read-only" - RTLConsts_SRegCreateFailed, "Failed to create key %s" - RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" - RTLConsts_SRegSetDataFailed, "Failed to set data for '%s'" - RTLConsts_SResNotFound, "Resource %s not found" - RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" - RTLConsts_SSortedListError, "Operation not allowed on sorted list" - RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" - RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" - RTLConsts_SClassNotFound, "Class %s not found" - RTLConsts_SDuplicateClass, "A class named %s already exists" - RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" - RTLConsts_SDuplicateName, "A component named %s already exists" - RTLConsts_SDuplicateString, "String list does not allow duplicates" - RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s" - RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" - RTLConsts_SIniFileWriteError, "Unable to write to %s" - RTLConsts_SInvalidFileName, "Invalid file name - %s" - RTLConsts_SInvalidImage, "Invalid stream format" - RTLConsts_SInvalidName, "''%s'' is not a valid component name" - RTLConsts_SInvalidProperty, "Invalid property value" - RTLConsts_SInvalidPropertyElement, "Invalid property element: %s" - RTLConsts_SInvalidPropertyPath, "Invalid property path" - SysConst_SShortDayNameTue, "Tue" - SysConst_SShortDayNameWed, "Wed" - SysConst_SShortDayNameThu, "Thu" - SysConst_SShortDayNameFri, "Fri" - SysConst_SShortDayNameSat, "Sat" - SysConst_SLongDayNameSun, "Sunday" - SysConst_SLongDayNameMon, "Monday" - SysConst_SLongDayNameTue, "Tuesday" - SysConst_SLongDayNameWed, "Wednesday" - SysConst_SLongDayNameThu, "Thursday" - SysConst_SLongDayNameFri, "Friday" - SysConst_SLongDayNameSat, "Saturday" - SysConst_SCannotCreateDir, "Unable to create directory" - RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" - RTLConsts_SAssignError, "Cannot assign a %s to a %s" - RTLConsts_SBitsIndexError, "Bits index out of range" - SysConst_SShortMonthNameNov, "Nov" - SysConst_SShortMonthNameDec, "Dec" - SysConst_SLongMonthNameJan, "January" - SysConst_SLongMonthNameFeb, "February" - SysConst_SLongMonthNameMar, "March" - SysConst_SLongMonthNameApr, "April" - SysConst_SLongMonthNameMay, "May" - SysConst_SLongMonthNameJun, "June" - SysConst_SLongMonthNameJul, "July" - SysConst_SLongMonthNameAug, "August" - SysConst_SLongMonthNameSep, "September" - SysConst_SLongMonthNameOct, "October" - SysConst_SLongMonthNameNov, "November" - SysConst_SLongMonthNameDec, "December" - SysConst_SShortDayNameSun, "Sun" - SysConst_SShortDayNameMon, "Mon" - SysConst_SAssertError, "%s (%s, line %d)" - SysConst_SAbstractError, "Abstract Error" - SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" - SysConst_SOSError, "System Error. Code: %d.\r\n%s" - SysConst_SUnkOSError, "A call to an OS function failed" - SysConst_SNL, "Application is not licensed to use this feature" - SysConst_SShortMonthNameJan, "Jan" - SysConst_SShortMonthNameFeb, "Feb" - SysConst_SShortMonthNameMar, "Mar" - SysConst_SShortMonthNameApr, "Apr" - SysConst_SShortMonthNameMay, "May" - SysConst_SShortMonthNameJun, "Jun" - SysConst_SShortMonthNameJul, "Jul" - SysConst_SShortMonthNameAug, "Aug" - SysConst_SShortMonthNameSep, "Sep" - SysConst_SShortMonthNameOct, "Oct" - SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" - SysConst_SVarTypeOutOfRangeWithPrefix, "Custom variant type (%s%.4x) is out of range" - SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s" - SysConst_SVarTypeNotUsableWithPrefix, "Custom variant type (%s%.4x) is not usable" - SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered" - SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" - SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)" - SysConst_SVarOverflow, "Variant overflow" - SysConst_SVarInvalid, "Invalid argument" - SysConst_SVarBadType, "Invalid variant type" - SysConst_SVarNotImplemented, "Operation not supported" - SysConst_SVarUnexpected, "Unexpected variant error" - SysConst_SExternalException, "External exception %x" - SysConst_SAssertionFailed, "Assertion failed" - SysConst_SIntfCastError, "Interface not supported" - SysConst_SSafecallException, "Exception in safecall method" - SysConst_SOperationAborted, "Operation aborted" - SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" - SysConst_SExceptTitle, "Application Error" - SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" - SysConst_SArgumentMissing, "No argument for format '%s'" - SysConst_SDispatchError, "Variant method calls not supported" - SysConst_SReadAccess, "Read" - SysConst_SWriteAccess, "Write" - SysConst_SFormatTooLong, "Format string too long" - SysConst_SVarArrayCreate, "Error creating variant or safe array" - SysConst_SVarArrayBounds, "Variant or safe array index out of bounds" - SysConst_SVarArrayLocked, "Variant or safe array is locked" - SysConst_SVarArrayWithHResult, "Unexpected variant or safe array error: %s%.8x" - SysConst_SInvalidVarCast, "Invalid variant type conversion" - SysConst_SInvalidVarOp, "Invalid variant operation" - SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" - SysConst_SDiskFull, "Disk full" - SysConst_SInvalidInput, "Invalid numeric input" - SysConst_SDivByZero, "Division by zero" - SysConst_SRangeError, "Range check error" - SysConst_SIntOverflow, "Integer overflow" - SysConst_SInvalidOp, "Invalid floating point operation" - SysConst_SZeroDivide, "Floating point division by zero" - SysConst_SOverflow, "Floating point overflow" - SysConst_SUnderflow, "Floating point underflow" - SysConst_SInvalidPointer, "Invalid pointer operation" - SysConst_SInvalidCast, "Invalid class typecast" - SysConst_SAccessViolationArg3, "Access violation at address %p. %s of address %p" - SysConst_SAccessViolationNoArg, "Access violation" - SysConst_SStackOverflow, "Stack overflow" - SysConst_SControlC, "Control-C hit" - SysConst_SPrivilege, "Privileged instruction" - SysConst_SInvalidInteger, "'%s' is not a valid integer value" - SysConst_SInvalidFloat, "'%s' is not a valid floating point value" - SysConst_SInvalidDate, "'%s' is not a valid date" - SysConst_SInvalidTime, "'%s' is not a valid time" - SysConst_SInvalidDateTime, "'%s' is not a valid date and time" - SysConst_SInvalidTimeStamp, "'%d.%d' is not a valid timestamp" - SysConst_SInvalidGUID, "'%s' is not a valid GUID value" - SysConst_STimeEncodeError, "Invalid argument to time encode" - SysConst_SDateEncodeError, "Invalid argument to date encode" - SysConst_SOutOfMemory, "Out of memory" - SysConst_SInOutError, "I/O error %d" - SysConst_SFileNotFound, "File not found" - SysConst_SInvalidFilename, "Invalid filename" - SysConst_STooManyOpenFiles, "Too many open files" - SysConst_SAccessDenied, "File access denied" - SysConst_SEndOfFile, "Read beyond end of file" -END - -/* c:\archivos de programa\codegear\rad studio\5.0\lib\Controls.res */ -/* C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROPoweredByRemObjectsButton.res */ -/* C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROHtmlServerInfo.res */ -/* c:\archivos de programa\codegear\rad studio\5.0\lib\Buttons.res */ -/* c:\archivos de programa\codegear\rad studio\5.0\lib\ExtDlgs.res */ -/* T:\Componentes\FastReport 3\LibD10\frxProgress.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxCtrls.RES */ -/* T:\Componentes\FastReport 3\LibD10\frxDock.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxSearchDialog.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxPreviewPageSettings.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxPreview.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxPreview.RES */ -/* T:\Componentes\FastReport 3\LibD10\frxPrintDialog.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxPassw.dfm */ -/* T:\Componentes\FastReport 3\LibD10\frxDialogForm.DFM */ -/* T:\Componentes\FastReport 3\LibD10\frxClass.RES */ -/* T:\Componentes\jvcl\resources\JvConsts.res */ -/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */ -/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_IBXDriver_Glyphs.res */ -/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_ADODriver_Glyphs.res */ -/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */ -/* T:\Componentes\jvcl\lib\d10\JvLogForm.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\uDataModuleServer.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Configuracion\uFrameConfiguracion.dfm */ -/* c:\archivos de programa\codegear\rad studio\5.0\lib\FileCtrl.res */ -/* T:\Componentes\jvcl\resources\JvToolEdit.res */ -/* T:\Componentes\jvcl\resources\JvSpin.Res */ -/* T:\Componentes\Developer Express Inc\Lib\D10\dxOffice11.res */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxLookAndFeelPainters.res */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxControls.res */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxEdit.res */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Configuracion\uConfFicherosEDI.dfm */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxShellBrowser.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Configuracion\uConexionBD.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Configuracion\uConfGeneral.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Configuracion\uConfiguracion.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\EDI_Sales_Impl.dfm */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxGrid.res */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxFilterControlDialog.dfm */ -/* T:\Componentes\Developer Express Inc\Lib\D10\cxFilterDialog.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\EDI_Log_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Services\EDI_Sales\uDataModuleEDI_Sales.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\uAcercaDe.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\fServerForm.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\EDI_Inventary_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Services\EDI_Inventary\uDataModuleEDI_Inventary.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Services\Login\srvLogin_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\srvInformes_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\ControlesBase\Servidor\srvControles_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\Recepciones\Servidor\srvRecepciones_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\Traspasos\Servidor\srvTraspasos_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\Stock\Servidor\srvStock_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Modulos\Parametros\Servidor\srvParametros_Impl.dfm */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\AdminPV_Server.res */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\RODLFile.res */ -/* C:\Documents and Settings\Usuario\Mis documentos\RAD Studio\Projects\Varela\Source\Servidor\AdminPV_Server.drf */ diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.identcache b/Varela/Varela/Source/Servidor/AdminPV_Server.identcache deleted file mode 100644 index 091f9f9..0000000 Binary files a/Varela/Varela/Source/Servidor/AdminPV_Server.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.rc b/Varela/Varela/Source/Servidor/AdminPV_Server.rc deleted file mode 100644 index 66b42e9..0000000 --- a/Varela/Varela/Source/Servidor/AdminPV_Server.rc +++ /dev/null @@ -1,26 +0,0 @@ -MAINICON ICON "C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Varela\Resources\Iconos\Servidor.ico" -1 VERSIONINFO -FILEVERSION 1,2,5,0 -PRODUCTVERSION 1,2,5,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "1.2.5.0\0" - VALUE "ProductName", "AdminPV_Server\0" - VALUE "ProductVersion", "1.2.5.0\0" - VALUE "CompileDate", "jueves, 06 de septiembre de 2007 12:09\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Servidor/AdminPV_Server.res b/Varela/Varela/Source/Servidor/AdminPV_Server.res deleted file mode 100644 index 77f5947..0000000 Binary files a/Varela/Varela/Source/Servidor/AdminPV_Server.res and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.ddp b/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.dfm b/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.dfm deleted file mode 100644 index 9d1f999..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.dfm +++ /dev/null @@ -1,101 +0,0 @@ -inherited frConexionBD: TfrConexionBD - Visible = True - ExplicitWidth = 451 - ExplicitHeight = 304 - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 375 - Height = 185 - Caption = 'Servidor de base de datos' - TabOrder = 0 - DesignSize = ( - 375 - 185) - object Label1: TLabel - Left = 18 - Top = 30 - Width = 100 - Height = 13 - Caption = 'Nombre del servidor:' - end - object Label3: TLabel - Left = 18 - Top = 61 - Width = 72 - Height = 13 - Caption = 'Base de datos:' - end - object Label4: TLabel - Left = 18 - Top = 118 - Width = 36 - Height = 13 - Caption = 'Usuario' - end - object Label5: TLabel - Left = 18 - Top = 148 - Width = 60 - Height = 13 - Caption = 'Contrase'#241'a:' - end - object Bevel1: TBevel - Left = 16 - Top = 88 - Width = 343 - Height = 10 - Anchors = [akLeft, akTop, akRight] - Shape = bsBottomLine - end - object edtServer: TEdit - Left = 128 - Top = 24 - Width = 231 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 0 - Text = 'localhost' - end - object edtUser: TEdit - Left = 128 - Top = 112 - Width = 116 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 2 - end - object edtPassword: TEdit - Left = 128 - Top = 144 - Width = 116 - Height = 21 - Anchors = [akLeft, akTop, akRight] - PasswordChar = '*' - TabOrder = 3 - end - object edtBD: TEdit - Left = 128 - Top = 57 - Width = 231 - Height = 21 - TabOrder = 1 - end - end - object bProbar: TButton - Left = 240 - Top = 200 - Width = 143 - Height = 25 - Caption = 'Probar la conexi'#243'n' - TabOrder = 1 - OnClick = bProbarClick - end - object ADOConnection: TADOConnection - LoginPrompt = False - Mode = cmRead - Provider = 'SQLOLEDB.1' - Left = 48 - Top = 200 - end -end diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.pas b/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.pas deleted file mode 100644 index d52c411..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConexionBD.pas +++ /dev/null @@ -1,90 +0,0 @@ -unit uConexionBD; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, cxShellBrowserDialog, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, IBServices, - DB, IBDatabase, uFrameConfiguracion, ADODB; - -type - TfrConexionBD = class(TFrameConfiguracion) - GroupBox1: TGroupBox; - edtServer: TEdit; - Label1: TLabel; - Label3: TLabel; - bProbar: TButton; - Label4: TLabel; - edtUser: TEdit; - Label5: TLabel; - edtPassword: TEdit; - Bevel1: TBevel; - edtBD: TEdit; - ADOConnection: TADOConnection; - procedure bProbarClick(Sender: TObject); - protected - procedure Finalize; override; - public - procedure Init; override; - end; - -implementation - -uses uDataModuleServer; - -{$R *.dfm} - -procedure TfrConexionBD.bProbarClick(Sender: TObject); -var - Aux : string; -begin - //Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=gft_varela;Data Source=david - - Aux := 'Provider=SQLOLEDB.1;Persist Security Info=False'; - Aux := Aux + ';Data Source=' + edtServer.Text; - Aux := Aux + ';User ID=' + edtUser.Text; - Aux := Aux + ';Password=' + edtPassword.Text; - Aux := Aux + ';Initial Catalog=' + edtBD.Text; - - with ADOConnection do - begin - LoginPrompt := False; - Mode := cmRead; - Provider := 'SQLOLEDB.1'; - ConnectionString := Aux; - - ShowHourglassCursor; - try - Connected := True; - Application.MessageBox('Conexión válida con la base de datos.', 'Información', MB_OK); - Connected := False; - except - on E : Exception do - begin - HideHourglassCursor; - Aux := 'No se ha podido establecer la conexión con la base de datos.' - + #13 + #10 + #13 + #10 + PChar(E.Message); - Application.MessageBox(PAnsiChar(Aux), 'Error', MB_OK); - end; - end; - end; -end; - -procedure TfrConexionBD.Init; -begin - edtServer.Text := dmServer.FDBServer; - edtBD.Text := dmServer.FDBName; - edtUser.Text := dmServer.FDBUser; - edtPassword.Text := Decrypt(dmServer.FDBPass); -end; - -procedure TfrConexionBD.Finalize; -begin - dmServer.FDBServer := edtServer.Text; - dmServer.FDBName := edtBD.Text; - dmServer.FDBUser := edtUser.Text; - dmServer.FDBPass := Encrypt(edtPassword.Text); -end; - -end. diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.ddp b/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.dfm b/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.dfm deleted file mode 100644 index ccb9b1b..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.dfm +++ /dev/null @@ -1,129 +0,0 @@ -inherited frConfFicherosEDI: TfrConfFicherosEDI - Visible = True - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 375 - Height = 217 - Caption = 'Ubicaci'#243'n de ficheros' - Constraints.MaxHeight = 217 - TabOrder = 0 - object Label1: TLabel - Left = 16 - Top = 32 - Width = 95 - Height = 13 - Caption = 'Entrada de ficheros:' - end - object Label2: TLabel - Left = 16 - Top = 128 - Width = 146 - Height = 13 - Caption = 'Almac'#233'n de ficheros cargados:' - end - object edtEntrada: TJvDirectoryEdit - Left = 16 - Top = 48 - Width = 345 - Height = 21 - AcceptFiles = False - DialogKind = dkWin32 - DialogText = 'Directorio de entrada de ficheros EDI' - ShowButton = False - TabOrder = 0 - end - object edtAlmacen: TJvDirectoryEdit - Left = 16 - Top = 144 - Width = 345 - Height = 21 - AcceptFiles = False - DialogKind = dkWin32 - DialogText = 'Directorio para almacenar ficheros EDI cargados' - ShowButton = False - TabOrder = 1 - end - object bElegir1: TButton - Left = 16 - Top = 72 - Width = 97 - Height = 25 - Caption = 'Elegir carpeta...' - TabOrder = 2 - OnClick = bElegir1Click - end - object bElegir2: TButton - Left = 16 - Top = 168 - Width = 97 - Height = 25 - Caption = 'Elegir carpeta...' - TabOrder = 3 - OnClick = bElegir2Click - end - end - object bAbrir1: TButton - Left = 272 - Top = 80 - Width = 97 - Height = 25 - Action = actAbrir1 - TabOrder = 1 - end - object bAbrir2: TButton - Left = 272 - Top = 176 - Width = 97 - Height = 25 - Action = actAbrir2 - TabOrder = 2 - end - object Panel1: TPanel - Left = 7 - Top = 232 - Width = 377 - Height = 41 - BevelOuter = bvNone - TabOrder = 3 - object Label3: TLabel - Left = 25 - Top = 12 - Width = 298 - Height = 13 - Caption = 'N'#250'mero de d'#237'as a mantener de almac'#233'n de ficheros cargados :' - Transparent = False - end - object edtDias: TcxSpinEdit - Left = 328 - Top = 8 - Properties.MinValue = 1.000000000000000000 - Properties.ValueType = vtInt - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Value = 1 - Width = 41 - end - end - object ActionList1: TActionList - Left = 320 - Top = 120 - object actAbrir1: TAction - Caption = 'Abrir carpeta...' - OnExecute = actAbrir1Execute - OnUpdate = actAbrir1Update - end - object actAbrir2: TAction - Caption = 'Abrir carpeta...' - OnExecute = actAbrir2Execute - OnUpdate = actAbrir2Update - end - end -end diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.pas b/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.pas deleted file mode 100644 index c68e629..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConfFicherosEDI.pas +++ /dev/null @@ -1,102 +0,0 @@ -unit uConfFicherosEDI; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uFrameConfiguracion, StdCtrls, ExtCtrls, Mask, JvExMask, - JvToolEdit, ActnList, JvSpin, cxControls, cxContainer, cxEdit, - cxTextEdit, cxMaskEdit, cxSpinEdit; - -type - TfrConfFicherosEDI = class(TFrameConfiguracion) - GroupBox1: TGroupBox; - edtEntrada: TJvDirectoryEdit; - Label1: TLabel; - Label2: TLabel; - edtAlmacen: TJvDirectoryEdit; - bElegir1: TButton; - bElegir2: TButton; - bAbrir1: TButton; - bAbrir2: TButton; - ActionList1: TActionList; - actAbrir1: TAction; - actAbrir2: TAction; - Panel1: TPanel; - Label3: TLabel; - edtDias: TcxSpinEdit; - procedure bElegir1Click(Sender: TObject); - procedure bElegir2Click(Sender: TObject); - procedure actAbrir1Update(Sender: TObject); - procedure actAbrir2Update(Sender: TObject); - procedure actAbrir1Execute(Sender: TObject); - procedure actAbrir2Execute(Sender: TObject); - private - { Private declarations } - protected - procedure Finalize; override; - public - procedure Init; override; - end; - -implementation - -uses uDataModuleServer, JclShell; - -{$R *.dfm} - -{ TfrConfFicherosEDI } - -procedure TfrConfFicherosEDI.Finalize; -begin - inherited; - dmServer.FDirEntrada := edtEntrada.Text; - dmServer.FDirAlmacen := edtAlmacen.Text; - dmServer.FDias := edtDias.Value; -end; - -procedure TfrConfFicherosEDI.Init; -begin - inherited; - edtEntrada.Text := dmServer.FDirEntrada; - edtAlmacen.Text := dmServer.FDirAlmacen; - edtDias.Value := dmServer.FDias; -end; - -procedure TfrConfFicherosEDI.bElegir1Click(Sender: TObject); -begin - inherited; - edtEntrada.DoClick; -end; - -procedure TfrConfFicherosEDI.bElegir2Click(Sender: TObject); -begin - inherited; - edtAlmacen.DoClick; -end; - -procedure TfrConfFicherosEDI.actAbrir1Update(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Length(edtEntrada.Text) > 0) -end; - -procedure TfrConfFicherosEDI.actAbrir2Update(Sender: TObject); -begin - inherited; - (Sender as TAction).Enabled := (Length(edtAlmacen.Text) > 0) -end; - -procedure TfrConfFicherosEDI.actAbrir1Execute(Sender: TObject); -begin - inherited; - OpenFolder(edtEntrada.Text); -end; - -procedure TfrConfFicherosEDI.actAbrir2Execute(Sender: TObject); -begin - inherited; - OpenFolder(edtAlmacen.Text); -end; - -end. diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.ddp b/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.dfm b/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.dfm deleted file mode 100644 index 7e7f40f..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.dfm +++ /dev/null @@ -1,39 +0,0 @@ -inherited frConfGeneral: TfrConfGeneral - Visible = True - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 375 - Height = 105 - Caption = 'General' - TabOrder = 0 - DesignSize = ( - 375 - 105) - object Label2: TLabel - Left = 18 - Top = 60 - Width = 93 - Height = 13 - Caption = 'Puerto de escucha:' - end - object edtPort: TEdit - Left = 128 - Top = 56 - Width = 116 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 0 - Text = '8099' - OnExit = edtPortExit - end - object cbInicioWin: TCheckBox - Left = 17 - Top = 27 - Width = 232 - Height = 17 - Caption = 'Iniciar con Windows' - TabOrder = 1 - end - end -end diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.pas b/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.pas deleted file mode 100644 index b3427cc..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConfGeneral.pas +++ /dev/null @@ -1,52 +0,0 @@ -unit uConfGeneral; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uFrameConfiguracion, StdCtrls, ExtCtrls; - -type - TfrConfGeneral = class(TFrameConfiguracion) - GroupBox1: TGroupBox; - Label2: TLabel; - edtPort: TEdit; - cbInicioWin: TCheckBox; - procedure edtPortExit(Sender: TObject); - private - { Private declarations } - protected - procedure Finalize; override; - public - procedure Init; override; - end; - -implementation - -uses uDataModuleServer; - -{$R *.dfm} - -{ TfrConfGeneral } - -procedure TfrConfGeneral.Finalize; -begin - inherited; - dmServer.FInicioWindows := cbInicioWin.Checked; - dmServer.FServerPort := edtPort.Text; -end; - -procedure TfrConfGeneral.Init; -begin - cbInicioWin.Checked := dmServer.FInicioWindows; - edtPort.Text := dmServer.FServerPort; -end; - -procedure TfrConfGeneral.edtPortExit(Sender: TObject); -begin - inherited; - if Length(edtPort.Text) = 0 then - edtPort.Text := SERVER_PORT; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.ddp b/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.dfm b/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.dfm deleted file mode 100644 index 75ddf1c..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.dfm +++ /dev/null @@ -1,214 +0,0 @@ -object fConfiguracion: TfConfiguracion - Left = 303 - Top = 203 - BorderStyle = bsDialog - Caption = 'Configuraci'#243'n' - ClientHeight = 442 - ClientWidth = 623 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - PixelsPerInch = 96 - TextHeight = 13 - object Button1: TButton - Left = 445 - Top = 407 - Width = 75 - Height = 25 - Action = actAceptar - ModalResult = 1 - TabOrder = 0 - end - object Button2: TButton - Left = 533 - Top = 407 - Width = 75 - Height = 25 - Action = actCancelar - Cancel = True - ModalResult = 2 - TabOrder = 1 - end - object JvSettingsTreeView1: TJvSettingsTreeView - Left = 8 - Top = 8 - Width = 193 - Height = 385 - PageDefault = 0 - PageList = JvPageList1 - Images = PngImageList1 - Indent = 19 - TabOrder = 2 - OnChanging = JvSettingsTreeView1Changing - Items.Data = { - 0300000020000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000 - 0747656E6572616C28000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF01000000 - 000000000F436F6E657869F36E20636F6E2042442E000000FFFFFFFFFFFFFFFF - FFFFFFFFFFFFFFFF02000000000000001555626963616369F36E206465206669 - 636865726F73} - Items.Links = {03000000000000000100000002000000} - end - object JvPageList1: TJvPageList - Left = 216 - Top = 8 - Width = 394 - Height = 385 - ActivePage = JvStandardPage1 - PropagateEnable = False - object JvStandardPage1: TJvStandardPage - Left = 0 - Top = 0 - Width = 394 - Height = 385 - Caption = 'JvStandardPage1' - inline frConfGeneral1: TfrConfGeneral - Left = 0 - Top = 0 - Width = 394 - Height = 385 - Align = alClient - ParentBackground = False - TabOrder = 0 - end - end - object JvStandardPage2: TJvStandardPage - Left = 0 - Top = 0 - Width = 394 - Height = 385 - Caption = 'JvStandardPage2' - inline frConexionBD1: TfrConexionBD - Left = 0 - Top = 0 - Width = 394 - Height = 385 - Align = alClient - ParentBackground = False - TabOrder = 0 - inherited GroupBox1: TGroupBox - inherited Label1: TLabel - Width = 100 - end - inherited Label3: TLabel - Width = 72 - end - inherited Label5: TLabel - Width = 60 - end - end - end - end - object JvStandardPage3: TJvStandardPage - Left = 0 - Top = 0 - Width = 394 - Height = 385 - Caption = 'JvStandardPage3' - inline frConfFicherosEDI1: TfrConfFicherosEDI - Left = 0 - Top = 0 - Width = 394 - Height = 385 - Align = alClient - ParentBackground = False - TabOrder = 0 - inherited Label3: TLabel - Width = 299 - end - inherited GroupBox1: TGroupBox - inherited Label1: TLabel - Width = 98 - end - inherited Label2: TLabel - Width = 147 - end - end - end - end - end - object ActionList1: TActionList - Left = 8 - Top = 400 - object actAceptar: TAction - Caption = '&Aceptar' - OnExecute = actAceptarExecute - end - object actCancelar: TAction - Caption = '&Cancelar' - OnExecute = actCancelarExecute - end - end - object JvAppRegistryStorage1: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 48 - Top = 400 - end - object PngImageList1: TPngImageList - PngImages = < - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002554944415478DA - A5934D6813411CC5DFA64D9B365A0AA558ACB50D584AA4122D6A695044AC2D88 - 88908B01B137A5B64A7B912214BD79F083B6971C154544F1504F7A5204154405 - 45432818F2614C76B39B36D9EC477793DD71369124C58045E7326F8779BFFDBF - 07C31042C0300C162E37F56FDBEEF1F5F41FF1B6B675B99B5BDABB0D3DEF80A9 - 684A2E9E5473C9101BFFFA9EE5924F67037AC8F2598BB1C4939BDEF903E373F3 - BDEE31BBADC10EEB8C14F230D65914550E86CA52CDA1A824F133F2C90806BFDC - F25FE7E72A808F2F6E14F78F5D69B00E083161EA396AE24A8092B95653D0B760 - 888CCEC46D15C0F3C071E2DAEBC78E81636871384A97ACCBD5BF97218A984022 - F1039F433CA61745A63AC1B30BC47DF00C049E87228974822C485184A1ADA2A8 - E5B02EAF4191F3D0749D1A34C463314CDEC96C040C8E9C43E3963E304D1D5897 - D250F329A862AABCD76A91452C1AD90878F7F82C193A3AB949400AE170189716 - B355C0CBBBA74877FF61383BDC68EFF2C034340AE1A88185924B20BF1A852844 - 4ADF9A9C01971630B5B0F6670462EF84244925833585A664A0AB599805196651 - A63A533FC27F77F0FA818F0C8FCF52806B731D7CA71D2CD574F0E6919F74F60C - A1796B2FDA3A7783B13134AB40412CE46CB9837C260A55E6A1D3582C2760BA5E - 070DCE9D50140DD9F44A69544D11CA1DD0FC4641A2D074FD081F96CF9B7BBC13 - CC3F7710B8BAEFF6E8E98B33AEC113B6BF01F85404A195D8FD6BF7A4890AC07A - CE53271B473CC363BEBE8191438E56E72E43133B1886D0FC311A23B796156269 - 9E4BBD4AB2A9874BCB784B7EBFE75F55B52CFF98E5CC810000000049454E44AE - 426082} - Name = 'PngImage0' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000AEB00000AEB01828B0D5A000002554944415478DA - A5934D6813411CC5DFA64D9B365A0AA558ACB50D584AA4122D6A695044AC2D88 - 88908B01B137A5B64A7B912214BD79F083B6971C154544F1504F7A5204154405 - 45432818F2614C76B39B36D9EC477793DD71369124C58045E7326F8779BFFDBF - 07C31042C0300C162E37F56FDBEEF1F5F41FF1B6B675B99B5BDABB0D3DEF80A9 - 684A2E9E5473C9101BFFFA9EE5924F67037AC8F2598BB1C4939BDEF903E373F3 - BDEE31BBADC10EEB8C14F230D65914550E86CA52CDA1A824F133F2C90806BFDC - F25FE7E72A808F2F6E14F78F5D69B00E083161EA396AE24A8092B95653D0B760 - 888CCEC46D15C0F3C071E2DAEBC78E81636871384A97ACCBD5BF97218A984022 - F1039F433CA61745A63AC1B30BC47DF00C049E87228974822C485184A1ADA2A8 - E5B02EAF4191F3D0749D1A34C463314CDEC96C040C8E9C43E3963E304D1D5897 - D250F329A862AABCD76A91452C1AD90878F7F82C193A3AB949400AE170189716 - B355C0CBBBA74877FF61383BDC68EFF2C034340AE1A88185924B20BF1A852844 - 4ADF9A9C01971630B5B0F6670462EF84244925833585A664A0AB599805196651 - A63A533FC27F77F0FA818F0C8FCF52806B731D7CA71D2CD574F0E6919F74F60C - A1796B2FDA3A7783B13134AB40412CE46CB9837C260A55E6A1D3582C2760BA5E - 070DCE9D50140DD9F44A69544D11CA1DD0FC4641A2D074FD081F96CF9B7BBC13 - CC3F7710B8BAEFF6E8E98B33AEC113B6BF01F85404A195D8FD6BF7A4890AC07A - CE53271B473CC363BEBE8191438E56E72E43133B1886D0FC311A23B796156269 - 9E4BBD4AB2A9874BCB784B7EBFE75F55B52CFF98E5CC810000000049454E44AE - 426082} - Name = 'PngImage1' - Background = clWindow - end> - Left = 88 - Top = 400 - Bitmap = {} - end -end diff --git a/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.pas b/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.pas deleted file mode 100644 index 6ae1174..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uConfiguracion.pas +++ /dev/null @@ -1,105 +0,0 @@ -unit uConfiguracion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ComCtrls, ActnList, JvComponent, - JvAppStorage, JvAppRegistryStorage, Contnrs, ExtCtrls, ImgList, - PngImageList, JvExControls, JvGradientHeaderPanel, uFrameConfiguracion, - JvComponentBase, JvPageList, JvExComCtrls, JvPageListTreeView, - uConfFicherosEDI, uConexionBD, uConfGeneral; - -type - TfConfiguracion = class(TForm) - Button1: TButton; - Button2: TButton; - ActionList1: TActionList; - actAceptar: TAction; - actCancelar: TAction; - JvAppRegistryStorage1: TJvAppRegistryStorage; - PngImageList1: TPngImageList; - JvSettingsTreeView1: TJvSettingsTreeView; - JvPageList1: TJvPageList; - JvStandardPage1: TJvStandardPage; - JvStandardPage2: TJvStandardPage; - JvStandardPage3: TJvStandardPage; - frConfGeneral1: TfrConfGeneral; - frConexionBD1: TfrConexionBD; - frConfFicherosEDI1: TfrConfFicherosEDI; - procedure tvArbolChange(Sender: TObject; Node: TTreeNode); - procedure actAceptarExecute(Sender: TObject); - procedure actCancelarExecute(Sender: TObject); - procedure JvSettingsTreeView1Changing(Sender: TObject; Node: TTreeNode; - var AllowChange: Boolean); - private - FPaginaActual : IConfiguracionFrame; - end; - -var - fConfiguracion: TfConfiguracion; - -implementation - -uses uDataModuleServer; - -{$R *.dfm} - -type - TFrameClass = class of TFrameConfiguracion; - -function CreateFrame(Parent: TWinControl; FrameClass: TFrameClass): IConfiguracionFrame; -var - aFrame : TFrameConfiguracion; -begin - aFrame := FrameClass.Create(NIL); - aFrame.Name:='Frame'+IntToStr(Random(10000)); - aFrame.Parent := Parent; - aFrame.Init; - aFrame.Show; - Result := aFrame; -end; - -procedure TfConfiguracion.tvArbolChange(Sender: TObject; Node: TTreeNode); -begin -{ if Assigned(FPaginaActual) then - FPaginaActual.Finalize; - - case Node.Index of - 0 : FPaginaActual := CreateFrame(pnlPagina, TfrConfGeneral); - 1 : FPaginaActual := CreateFrame(pnlPagina, TfrConexionBD); - 2 : FPaginaActual := CreateFrame(pnlPagina, TfrConfFicherosEDI); - end; - Self.Update; - pnlHeader.LabelCaption := Node.Text;} -end; - -procedure TfConfiguracion.actAceptarExecute(Sender: TObject); -begin - if Assigned(FPaginaActual) then - FPaginaActual.Finalize; - dmServer.SalvarConfiguracion; - Close; -end; - -procedure TfConfiguracion.actCancelarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfConfiguracion.JvSettingsTreeView1Changing(Sender: TObject; - Node: TTreeNode; var AllowChange: Boolean); -begin - if Assigned(FPaginaActual) then - FPaginaActual.Finalize; - - case Node.Index of - 0 : FPaginaActual := frConfGeneral1; - 1 : FPaginaActual := frConexionBD1; - 2 : FPaginaActual := frConfFicherosEDI1; - end; - if Assigned(FPaginaActual) then - FPaginaActual.Init; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/Configuracion/uFrameConfiguracion.dfm b/Varela/Varela/Source/Servidor/Configuracion/uFrameConfiguracion.dfm deleted file mode 100644 index a2649c6..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uFrameConfiguracion.dfm +++ /dev/null @@ -1,10 +0,0 @@ -object FrameConfiguracion: TFrameConfiguracion - Left = 0 - Top = 0 - Width = 443 - Height = 277 - Align = alClient - ParentBackground = False - TabOrder = 0 - Visible = False -end diff --git a/Varela/Varela/Source/Servidor/Configuracion/uFrameConfiguracion.pas b/Varela/Varela/Source/Servidor/Configuracion/uFrameConfiguracion.pas deleted file mode 100644 index c03ed29..0000000 --- a/Varela/Varela/Source/Servidor/Configuracion/uFrameConfiguracion.pas +++ /dev/null @@ -1,30 +0,0 @@ -unit uFrameConfiguracion; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, ExtCtrls; - -type - IConfiguracionFrame = interface - ['{07F3EDBF-DFED-4B76-ADC7-0D3B83FB6F9B}'] - procedure Init; - procedure Finalize; - end; - - TFrameConfiguracion = class(TFrame, IConfiguracionFrame) - protected - procedure Finalize; virtual; abstract; - public - procedure Init; virtual; abstract; - end; - -implementation - -{$R *.dfm} - -{ TFrameConfiguracion } - - -end. diff --git a/Varela/Varela/Source/Servidor/EDI/EDI_INVRPT.pas b/Varela/Varela/Source/Servidor/EDI/EDI_INVRPT.pas deleted file mode 100644 index 5a92ec3..0000000 --- a/Varela/Varela/Source/Servidor/EDI/EDI_INVRPT.pas +++ /dev/null @@ -1,195 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit EDI_INVRPT; - -interface - -uses - Classes, EDI_Reader; - -const - LONG_LINEA_CAB = 101; - LONG_LINEA_LIN = 319; - LONG_LINEA_CANT = 100; - -type - TEDIFILE_CABINV = record - REGISTRO_OK : boolean; - NUMDOC : array[1..25] of char; - TIPODOC : array[1..3] of char; - TIPOLIQ : array[1..3] of char; - FECHA : array[1..8] of char; - FECHALIQ: array[1..8] of char; - EMISOR : array[1..17] of char; - RECEPTOR: array[1..17] of char; - DPTO : array[1..3] of char; - CENTRO : array[1..17] of char; - end; - - TEDIFILE_LININV = record - REGISTRO_OK : boolean; - NUMDOC : array[1..25] of char; - NUMLIN : array[1..6] of char; - CODART : array[1..17] of char; - FAMILIA : array[1..17] of char; - BARRA : array[1..17] of char; - TALLA : array[1..17] of char; - MARCA : array[1..25] of char; - TAMANO : array[1..25] of char; - SERIE : array[1..25] of char; - COLOR : array[1..25] of char; - MODELO : array[1..25] of char; - DIBUJO : array[1..25] of char; - DESCRIP : array[1..70] of char; - end; - - TEDITFILE_CANTINV = record - REGISTRO_OK : boolean; - NUMDOC : array[1..25] of char; - NUMLIN : array[1..6] of char; - NUMCANT : array[1..6] of char; - TIPOCANT: array[1..3] of char; - CANTIDAD: array[1..15] of char; - CENTRO : array[1..17] of char; - TMOV : array[1..3] of char; - FACT : array[1..12] of char; - DEPTO : array[1..3] of char; - IDVEN : array[1..10] of char; - end; - - PCABINV = ^TEDIFILE_CABINV; - PLININV = ^TEDIFILE_LININV; - PCANTINV= ^TEDITFILE_CANTINV; - - TCABINV_Reader = class(TEDIFile_Reader) - protected - function ProcessLine (const ALine : String) : Boolean; override; - end; - - - TLININV_Reader = class(TEDIFile_Reader) - protected - function ProcessLine (const ALine : String) : Boolean; override; - end; - - - TCANTINV_Reader = class(TEDIFile_Reader) - protected - function ProcessLine (const ALine : String) : Boolean; override; - end; - - -implementation - -uses - SysUtils, Dialogs, uDataModuleEDI_Inventary; - -{ TLININV_Reader } - -function TLININV_Reader.ProcessLine(const ALine: String): Boolean; -var - Registro : TEDIFILE_LININV; - pRegistro : PLININV; - LongLinea : Integer; - AuxLine : String; -begin - Result := False; - LongLinea := Length(ALine); - - { Por si la línea fuera más larga o más corta de lo normal, la hago de - de la longitud que debería tener } - AuxLine := Format('%-' + IntTostr(LONG_LINEA_LIN) + '.' + IntTostr(LONG_LINEA_LIN) + 's', [ALine]); - - // Inicializo los campos del registro. - FillChar(Registro, SizeOf(TEDIFILE_LININV), 0); - - { Para rellenar el campo REGISTRO_OK del registro mediante el 'move', - añado al principio de AuxLine el byte #0 (valor para 'False'). } - AuxLine := Concat(#0, AuxLine); - Move(AuxLine[1], Registro, LONG_LINEA_LIN+1); // +1 por el byte del concat - - // El registro es correcto si tiene la longitud adecuada. - Registro.REGISTRO_OK := (LongLinea = LONG_LINEA_LIN); - - // Añado el registro a la lista de registros. - New(pRegistro); - Move(Registro, pRegistro^, SizeOf(TEDIFILE_LININV)); - FileData.Add(pRegistro); - Result := True; -end; - -{ TCABINV_Reader } - -function TCABINV_Reader.ProcessLine(const ALine: String): Boolean; -var - Registro : TEDIFILE_CABINV; - pRegistro : PCABINV; - LongLinea : Integer; - AuxLine : String; -begin - Result := False; - LongLinea := Length(ALine); - - { Por si la línea fuera más larga o más corta de lo normal, la hago de - de la longitud que debería tener } - AuxLine := Format('%-' + IntTostr(LONG_LINEA_CAB) + '.' + IntTostr(LONG_LINEA_CAB) + 's', [ALine]); - - // Inicializo los campos del registro. - FillChar(Registro, SizeOf(TEDIFILE_CABINV), 0); - - { Para rellenar el campo REGISTRO_OK del registro mediante el 'move', - añado al principio de AuxLine el byte #0 (valor para 'False'). } - AuxLine := Concat(#0, AuxLine); - Move(AuxLine[1], Registro, LONG_LINEA_CAB+1); // +1 por el byte del concat - - // El registro es correcto si tiene la longitud adecuada. - Registro.REGISTRO_OK := (LongLinea = LONG_LINEA_CAB); - - // Añado el registro a la lista de registros. - New(pRegistro); - Move(Registro, pRegistro^, SizeOf(TEDIFILE_CABINV)); - FileData.Add(pRegistro); - Result := True; -end; - -{ TCANTINV_Reader } - -function TCANTINV_Reader.ProcessLine(const ALine: String): Boolean; -var - Registro : TEDITFILE_CANTINV; - pRegistro : PCANTINV; - LongLinea : Integer; - AuxLine : String; -begin - Result := False; - LongLinea := Length(ALine); - - { Por si la línea fuera más larga o más corta de lo normal, la hago de - de la longitud que debería tener } - AuxLine := Format('%-' + IntTostr(LONG_LINEA_CANT) + '.' + IntTostr(LONG_LINEA_CANT) + 's', [ALine]); - - // Inicializo los campos del registro. - FillChar(Registro, SizeOf(TEDITFILE_CANTINV), 0); - - { Para rellenar el campo REGISTRO_OK del registro mediante el 'move', - añado al principio de AuxLine el byte #0 (valor para 'False'). } - AuxLine := Concat(#0, AuxLine); - Move(AuxLine[1], Registro, LONG_LINEA_CANT+1); // +1 por el byte del concat - - // El registro es correcto si tiene la longitud adecuada. - Registro.REGISTRO_OK := (LongLinea = LONG_LINEA_CANT); - - // Añado el registro a la lista de registros. - New(pRegistro); - Move(Registro, pRegistro^, SizeOf(TEDITFILE_CANTINV)); - FileData.Add(pRegistro); - Result := True; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.ddp b/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.dfm b/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.dfm deleted file mode 100644 index c38a85e..0000000 --- a/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.dfm +++ /dev/null @@ -1,169 +0,0 @@ -object EDI_Log: TEDI_Log - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schEDILog - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object schEDILog: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LOG_CARGA' - SQL = - 'SELECT '#10' ID, REPORT, FECHA, OK, ERROR_MSG'#10' FROM'#10' RDX_LOG_' + - 'CARGA' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'OK' - TableField = 'OK' - end - item - DatasetField = 'ERROR_MSG' - TableField = 'ERROR_MSG' - end - item - DatasetField = 'REPORT' - TableField = 'REPORT' - end> - end> - Name = 'EDILog' - Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REPORT' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OK' - DataType = datBoolean - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ERROR_MSG' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - Commands = < - item - Params = < - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'REPORT' - DataType = datString - Size = 10 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OK' - DataType = datBoolean - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ERROR_MSG' - DataType = datString - Size = 255 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LOG_CARGA' - SQL = - 'INSERT'#10' INTO RDX_LOG_CARGA'#10' (FECHA, REPORT, OK, ERROR_MSG)'#10' ' + - ' VALUES'#10' (:FECHA, :REPORT, :OK, :ERROR_MSG)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_EDILog' - end> - RelationShips = <> - UpdateRules = <> - Left = 48 - Top = 16 - end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.pas b/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.pas deleted file mode 100644 index 770c308..0000000 --- a/Varela/Varela/Source/Servidor/EDI/EDI_Log_Impl.pas +++ /dev/null @@ -1,73 +0,0 @@ -unit EDI_Log_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDADataTable, uDABINAdapter, - uDADataStreamer; - -type - { TEDI_Log } - TEDI_Log = class(TDARemoteService, IEDI_Log) - schEDILog: TDASchema; - DABINAdapter: TDABINAdapter; - private - protected - { IEDI_Log methods } - procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, - uDAInterfaces, uDataModuleServer; - -procedure Create_EDI_Log(out anInstance : IUnknown); -begin - anInstance := TEDI_Log.Create(NIL); -end; - -{ EDI_Log } -procedure TEDI_Log.InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); -var - cmd : IDASQLCommand; - conn : IDAConnection; -begin - conn := dmServer.ConnectionManager.NewConnection(ConnectionName); - conn.BeginTransaction; - - cmd := schEDILog.NewCommand(conn, 'Insert_EDILog'); - try - cmd.ParamByName('FECHA').AsDateTime := Fecha; - cmd.ParamByName('REPORT').AsString := Report; - if OK then - cmd.ParamByName('OK').AsInteger := 1 - else - cmd.ParamByName('OK').AsInteger := 0; - cmd.ParamByName('ERROR_MSG').AsString := Error_msg; - cmd.Execute; - finally - conn.CommitTransaction; - conn := nil; - end; -end; - -initialization - TROClassFactory.Create('EDI_Log', Create_EDI_Log, TEDI_Log_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/EDI/EDI_Reader.pas b/Varela/Varela/Source/Servidor/EDI/EDI_Reader.pas deleted file mode 100644 index 36e6872..0000000 --- a/Varela/Varela/Source/Servidor/EDI/EDI_Reader.pas +++ /dev/null @@ -1,109 +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: 18-04-2006 - Versión actual: 1.0.0 - Fecha versión actual: 18-04-2006 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} -unit EDI_Reader; - -interface - -uses - Classes; - -type - TEDIFileData = class(TList) - end; - - TEDIFile_Reader = class - private - FFilename: String; - FFileData : TEDIFileData; - protected - function ProcessLine (const ALine : String) : Boolean; virtual; abstract; - public - constructor Create; virtual; - destructor Destroy; override; - procedure ReadFile; - published - property Filename : String read FFilename write FFilename; - property FileData : TEDIFileData read FFileData; - end; - - -implementation - -uses - SysUtils, Dialogs, uDataModuleEDI_Sales; - -{ TEDIFile_Reader } - -constructor TEDIFile_Reader.Create; -begin - FFilename := ''; - FFileData := TEDIFileData.Create; -end; - -destructor TEDIFile_Reader.Destroy; -var - i : integer; -begin - try - with FFileData do - for I := Count - 1 downto 0 do - Dispose(Items[I]); - finally - FFileData.Free; - end; - inherited; -end; - -procedure TEDIFile_Reader.ReadFile; -var - i : integer; - AFichero : TStringList; -begin - if (Length(FFilename) = 0) then - raise Exception.Create('Falta indicar el nombre de todos los ficheros'); - - AFichero := TStringList.Create; - try - try - AFichero.LoadFromFile(FFilename); - for i := 0 to AFichero.Count - 1 do - begin - if not ProcessLine (AFichero.Strings[i]) then - begin - //ShowMessage('Error al procesar la línea ' +#13+#10 + AFichero.Strings[i]); - Break; - end; - end; - except - on E : Exception do - begin - //ShowMessage(E.Message); - raise; - end; - end; - finally - FreeAndNIL(AFichero); - end; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/EDI/EDI_SLSRPT.pas b/Varela/Varela/Source/Servidor/EDI/EDI_SLSRPT.pas deleted file mode 100644 index 6be4a34..0000000 --- a/Varela/Varela/Source/Servidor/EDI/EDI_SLSRPT.pas +++ /dev/null @@ -1,284 +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: 18-04-2006 - Versión actual: 1.0.0 - Fecha versión actual: 18-04-2006 -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit EDI_SLSRPT; - -interface - -uses - Classes, EDI_Reader; - -const - LONG_LINEA_CAB = 859; - LONG_LINEA_LUG = 142; - LONG_LINEA_ART = 778; - -type - TEDIFILE_CABVEN = record - REGISTRO_OK : boolean; - CLAVE1 : array[1..10] of char; - NUMINF : array[1..35] of char; - FUNCION : array[1..3] of char; - FECINI : array[1..12] of char; - FECFIN : array[1..12] of char; - FECINF : array[1..12] of char; - PERVEN : array[1..16] of char; - - EANOFI : array[1..17] of char; - EANEMI : array[1..17] of char; - EANREC : array[1..17] of char; - EANVEN : array[1..17] of char; - EANALM : array[1..17] of char; - EANREP : array[1..17] of char; - EANPRO : array[1..17] of char; - - EANADMSA: array[1..17] of char; - EANREPSR: array[1..17] of char; - - ADMVENSA: array[1..35] of char; - REPDEPSR: array[1..35] of char; - EMAILSA : array[1..35] of char; - NUMFAXSA: array[1..35] of char; - NUMTELSA: array[1..35] of char; - NUMTLXSA: array[1..35] of char; - X400SA : array[1..35] of char; - - EMAILSR : array[1..35] of char; - NUMFAXSR: array[1..35] of char; - NUMTELSR: array[1..35] of char; - NUMTLXSR: array[1..35] of char; - X400SR : array[1..35] of char; - - NUMPRE : array[1..35] of char; - NUMINFSC: array[1..35] of char; - NUMCON : array[1..35] of char; - - FECPRE : array[1..12] of char; - FECINFSC: array[1..12] of char; - FECCON : array[1..12] of char; - - DIVPED : array[1..3] of char; - DIVPRE : array[1..3] of char; - DIVPAG : array[1..3] of char; - DIVPEDF : array[1..3] of char; - DIVPREF : array[1..3] of char; - DIVPAGF : array[1..3] of char; - - TASCAM : array[1..15] of char; - FECTAS : array[1..12] of char; - end; - - TEDIFILE_LUGVEN = record - REGISTRO_OK : boolean; - CLAVE1 : array[1..10] of char; - CLAVE2 : array[1..5] of char; - EANLUG : array[1..17] of char; - LUGVEN : array[1..70] of char; - FECINI : array[1..12] of char; - FECFIN : array[1..12] of char; - PERVEN : array[1..16] of char; - end; - - TEDIFILE_ARTVEN = record - REGISTRO_OK : boolean; - CLAVE1 : array[1..10] of char; - CLAVE2 : array[1..5] of char; - CLAVE3 : array[1..5] of char; - EANART : array[1..17] of char; - CODCOM : array[1..35] of char; - NUMVAR : array[1..35] of char; - CODPRO : array[1..35] of char; - DESARTCO: array[1..35] of char; - DESART : array[1..70] of char; - NUMCON : array[1..35] of char; - NUMLIS : array[1..35] of char; - CONESP1 : array[1..3] of char; - CONESP2 : array[1..3] of char; - CONESP3 : array[1..3] of char; - VALVEN : array[1..15] of char; - PRENETCT: array[1..15] of char; - PREBRUCT: array[1..15] of char; - PREINFET: array[1..15] of char; - PREINFFT: array[1..15] of char; - PRECALCT: array[1..15] of char; - PRENETCA: array[1..15] of char; - PREBRUCA: array[1..15] of char; - PREINFEA: array[1..15] of char; - PREINFFA: array[1..15] of char; - PRECALCA: array[1..15] of char; - BAPRUN1 : array[1..9] of char; - UNIMED1 : array[1..3] of char; - BAPRUN2 : array[1..9] of char; - UNIMED2 : array[1..3] of char; - BAPRUN3 : array[1..9] of char; - UNIMED3 : array[1..3] of char; - BAPRUN4 : array[1..9] of char; - UNIMED4 : array[1..3] of char; - BAPRUN5 : array[1..9] of char; - UNIMED5 : array[1..3] of char; - CANVEN : array[1..15] of char; - EXIPRO : array[1..15] of char; - DESEXI : array[1..15] of char; - ESPMEDCV: array[1..3] of char; - ESPMEDEP: array[1..3] of char; - ESPMEDDE: array[1..3] of char; - CANDEV : array[1..15] of char; - EANVEN : array[1..17] of char; - NOMVEN : array[1..70] of char; - NUMTALON: array[1..35] of char; - CANVENNET : array[1..15] of char; - UMEDVENNET: array[1..3] of char; - CANESP : array[1..15] of char; - UMEDESP : array[1..3] of char; - end; - - PCABVEN = ^TEDIFILE_CABVEN; - PLUGVEN = ^TEDIFILE_LUGVEN; - PARTVEN = ^TEDIFILE_ARTVEN; - - TCABVEN_Reader = class(TEDIFile_Reader) - protected - function ProcessLine (const ALine : String) : Boolean; override; - end; - - - TLUGVEN_Reader = class(TEDIFile_Reader) - protected - function ProcessLine (const ALine : String) : Boolean; override; - end; - - - TARTVEN_Reader = class(TEDIFile_Reader) - protected - function ProcessLine (const ALine : String) : Boolean; override; - end; - - -implementation - -uses - SysUtils, Dialogs, uDataModuleEDI_Sales; - -{ TCABVEN_Reader } - -function TCABVEN_Reader.ProcessLine(const ALine: String): Boolean; -var - Registro : TEDIFILE_CABVEN; - pRegistro : PCABVEN; - LongLinea : Integer; - AuxLine : String; -begin - Result := False; - LongLinea := Length(ALine); - - { Por si la línea fuera más larga o más corta de lo normal, la hago de - de la longitud que debería tener } - AuxLine := Format('%-' + IntTostr(LONG_LINEA_CAB) + '.' + IntTostr(LONG_LINEA_CAB) + 's', [ALine]); - - // Inicializo los campos del registro. - FillChar(Registro, SizeOf(TEDIFILE_CABVEN), 0); - - { Para rellenar el campo REGISTRO_OK del registro mediante el 'move', - añado al principio de AuxLine el byte #0 (valor para 'False'). } - AuxLine := Concat(#0, AuxLine); - Move(AuxLine[1], Registro, LONG_LINEA_CAB+1); // +1 por el byte del concat - - // El registro es correcto si tiene la longitud adecuada. - Registro.REGISTRO_OK := (LongLinea = LONG_LINEA_CAB); - - // Añado el registro a la lista de registros. - New(pRegistro); - Move(Registro, pRegistro^, SizeOf(TEDIFILE_CABVEN)); - FileData.Add(pRegistro); - Result := True; -end; - -{ TLUGVEN_Reader } - -function TLUGVEN_Reader.ProcessLine(const ALine: String): Boolean; -var - Registro : TEDIFILE_LUGVEN; - pRegistro : PLUGVEN; - LongLinea : Integer; - AuxLine : String; -begin - Result := False; - LongLinea := Length(ALine); - - { Por si la línea fuera más larga o más corta de lo normal, la hago de - de la longitud que debería tener } - AuxLine := Format('%-' + IntTostr(LONG_LINEA_LUG) + '.' + IntTostr(LONG_LINEA_LUG) + 's', [ALine]); - - // Inicializo los campos del registro. - FillChar(Registro, SizeOf(TEDIFILE_LUGVEN), 0); - - { Para rellenar el campo REGISTRO_OK del registro mediante el 'move', - añado al principio de AuxLine el byte #0 (valor para 'False'). } - AuxLine := Concat(#0, AuxLine); - Move(AuxLine[1], Registro, LONG_LINEA_LUG+1); // +1 por el byte del concat - - // El registro es correcto si tiene la longitud adecuada. - Registro.REGISTRO_OK := (LongLinea = LONG_LINEA_LUG); - - // Añado el registro a la lista de registros. - New(pRegistro); - Move(Registro, pRegistro^, SizeOf(TEDIFILE_LUGVEN)); - FileData.Add(pRegistro); - Result := True; -end; - -{ TARTVEN_Reader } - -function TARTVEN_Reader.ProcessLine(const ALine: String): Boolean; -var - Registro : TEDIFILE_ARTVEN; - pRegistro : PARTVEN; - LongLinea : Integer; - AuxLine : String; -begin - Result := False; - LongLinea := Length(ALine); - - { Por si la línea fuera más larga o más corta de lo normal, la hago de - de la longitud que debería tener } - AuxLine := Format('%-' + IntTostr(LONG_LINEA_ART) + '.' + IntTostr(LONG_LINEA_ART) + 's', [ALine]); - - // Inicializo los campos del registro. - FillChar(Registro, SizeOf(TEDIFILE_ARTVEN), 0); - - { Para rellenar el campo REGISTRO_OK del registro mediante el 'move', - añado al principio de AuxLine el byte #0 (valor para 'False'). } - AuxLine := Concat(#0, AuxLine); - Move(AuxLine[1], Registro, LONG_LINEA_ART+1); // +1 por el byte del concat - - // El registro es correcto si tiene la longitud adecuada. - Registro.REGISTRO_OK := (LongLinea = LONG_LINEA_ART); - - // Añado el registro a la lista de registros. - New(pRegistro); - Move(Registro, pRegistro^, SizeOf(TEDIFILE_ARTVEN)); - FileData.Add(pRegistro); - Result := True; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/EDI_Inventary_Impl.dfm b/Varela/Varela/Source/Servidor/EDI_Inventary_Impl.dfm deleted file mode 100644 index 29be14a..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Inventary_Impl.dfm +++ /dev/null @@ -1,7 +0,0 @@ -inherited EDI_Inventary: TEDI_Inventary - OldCreateOrder = True - Left = 200 - Top = 200 - Height = 300 - Width = 300 -end diff --git a/Varela/Varela/Source/Servidor/EDI_Inventary_Impl.pas b/Varela/Varela/Source/Servidor/EDI_Inventary_Impl.pas deleted file mode 100644 index 27971a8..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Inventary_Impl.pas +++ /dev/null @@ -1,52 +0,0 @@ -unit EDI_Inventary_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf; - -type - { TEDI_Inventary } - TEDI_Inventary = class(TDARemoteService, IEDI_Inventary) - private - protected - { IEDI_Inventary methods } - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk; - -procedure Create_EDI_Inventary(out anInstance : IUnknown); -begin - anInstance := TEDI_Inventary.Create(nil); -end; - -{ EDI_Inventary } -function TEDI_Inventary.CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean; -begin -end; - -initialization - TROClassFactory.Create('EDI_Inventary', Create_EDI_Inventary, TEDI_Inventary_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/EDI_Log_Impl.dfm b/Varela/Varela/Source/Servidor/EDI_Log_Impl.dfm deleted file mode 100644 index cc39195..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Log_Impl.dfm +++ /dev/null @@ -1,179 +0,0 @@ -object EDI_Log: TEDI_Log - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schEDILog - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object schEDILog: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LOG_CARGA' - SQL = - 'SELECT '#10' ID, REPORT, FECHA, OK, ERROR_MSG'#10' FROM'#10' RDX_LOG_' + - 'CARGA' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'OK' - TableField = 'OK' - end - item - DatasetField = 'ERROR_MSG' - TableField = 'ERROR_MSG' - end - item - DatasetField = 'REPORT' - TableField = 'REPORT' - end> - end> - Name = 'EDILog' - Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REPORT' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OK' - DataType = datBoolean - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ERROR_MSG' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'REPORT' - DataType = datString - Size = 10 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OK' - DataType = datBoolean - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ERROR_MSG' - DataType = datString - Size = 255 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LOG_CARGA' - SQL = - 'INSERT'#10' INTO RDX_LOG_CARGA'#10' (FECHA, REPORT, OK, ERROR_MSG)'#10' ' + - ' VALUES'#10' (:FECHA, :REPORT, :OK, :ERROR_MSG)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_EDILog' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 48 - Top = 16 - end - object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True - Left = 48 - Top = 80 - end -end diff --git a/Varela/Varela/Source/Servidor/EDI_Log_Impl.pas b/Varela/Varela/Source/Servidor/EDI_Log_Impl.pas deleted file mode 100644 index 1b06759..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Log_Impl.pas +++ /dev/null @@ -1,75 +0,0 @@ -unit EDI_Log_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDADataStreamer, uDABinAdapter, uDAClasses, uDAInterfaces; - -type - { TEDI_Log } - TEDI_Log = class(TDARemoteService, IEDI_Log) - DABINAdapter: TDABINAdapter; - schEDILog: TDASchema; - private - protected - { IEDI_Log methods } - procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, - uDataModuleServer, Dialogs; - -procedure Create_EDI_Log(out anInstance : IUnknown); -begin - anInstance := TEDI_Log.Create(NIL); -end; - -{ EDI_Log } -procedure TEDI_Log.InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); -var - cmd : IDASQLCommand; - conn : IDAConnection; -begin - conn := dmServer.ConnectionManager.NewConnection(ConnectionName); - conn.BeginTransaction; - - cmd := schEDILog.NewCommand(conn, 'Insert_EDILog'); - try - cmd.ParamByName('FECHA').AsDateTime := Fecha; - cmd.ParamByName('REPORT').AsString := Report; - if OK then - cmd.ParamByName('OK').AsInteger := 1 - else - cmd.ParamByName('OK').AsInteger := 0; - cmd.ParamByName('ERROR_MSG').AsString := Error_msg; - cmd.Execute; - finally - conn.CommitTransaction; - conn := nil; - end; -end; - -initialization - TROClassFactory.Create('EDI_Log', Create_EDI_Log, TEDI_Log_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/EDI_Sales_Impl.dfm b/Varela/Varela/Source/Servidor/EDI_Sales_Impl.dfm deleted file mode 100644 index 96f3a4b..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Sales_Impl.dfm +++ /dev/null @@ -1,7 +0,0 @@ -inherited EDI_Sales: TEDI_Sales - OldCreateOrder = True - Left = 200 - Top = 200 - Height = 300 - Width = 300 -end diff --git a/Varela/Varela/Source/Servidor/EDI_Sales_Impl.pas b/Varela/Varela/Source/Servidor/EDI_Sales_Impl.pas deleted file mode 100644 index e3a05bd..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Sales_Impl.pas +++ /dev/null @@ -1,52 +0,0 @@ -unit EDI_Sales_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf; - -type - { TEDI_Sales } - TEDI_Sales = class(TDARemoteService, IEDI_Sales) - private - protected - { IEDI_Sales methods } - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk; - -procedure Create_EDI_Sales(out anInstance : IUnknown); -begin - anInstance := TEDI_Sales.Create(nil); -end; - -{ EDI_Sales } -function TEDI_Sales.CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; -begin -end; - -initialization - TROClassFactory.Create('EDI_Sales', Create_EDI_Sales, TEDI_Sales_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/EDI_Utils.pas b/Varela/Varela/Source/Servidor/EDI_Utils.pas deleted file mode 100644 index 61e81b4..0000000 --- a/Varela/Varela/Source/Servidor/EDI_Utils.pas +++ /dev/null @@ -1,40 +0,0 @@ -{*******************************************************} -{ } -{ Administración de puntos de venta } -{ } -{ Copyright (C) 2006 Rodax Software S.L. } -{ } -{*******************************************************} - -unit EDI_Utils; - -interface - -uses - Controls; - -function EDIDateToDateF (const ADate : string; const AFormat : string = 'yyyymmdd' ) : TDate; - -implementation - -uses - SysUtils; - -function EDIDateToDateF (const ADate : string; const AFormat : string) : TDate; -var - aux : string; -begin - if Length(ADate) = 0 then - Result := 0 - else begin - try - if AFormat = 'yyyymmdd' then - Result := EncodeDate( StrToInt(copy(ADate, 1, 4)), StrToInt(copy(ADate, 5, 2)), StrToInt(copy(ADate, 7, 2)) ); - except - Result := 0 - end; - end; -end; - -end. - \ No newline at end of file diff --git a/Varela/Varela/Source/Servidor/RDX_VARELA.daConnections b/Varela/Varela/Source/Servidor/RDX_VARELA.daConnections deleted file mode 100644 index b8d3686..0000000 --- a/Varela/Varela/Source/Servidor/RDX_VARELA.daConnections +++ /dev/null @@ -1 +0,0 @@ -SDAC?Server=DAVID;Database=GFT_VARELA;Integrated Security=SSPI;TrueGFT_VARELA010pbWaitTrue6001 diff --git a/Varela/Varela/Source/Servidor/RDX_VARELA.daDictionary b/Varela/Varela/Source/Servidor/RDX_VARELA.daDictionary deleted file mode 100644 index e6a48a9..0000000 --- a/Varela/Varela/Source/Servidor/RDX_VARELA.daDictionary +++ /dev/null @@ -1 +0,0 @@ -0 diff --git a/Varela/Varela/Source/Servidor/RDX_VARELA.daSchema b/Varela/Varela/Source/Servidor/RDX_VARELA.daSchema deleted file mode 100644 index 0afb08f..0000000 --- a/Varela/Varela/Source/Servidor/RDX_VARELA.daSchema +++ /dev/null @@ -1,35 +0,0 @@ -TrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatFloatCLAVE10TrueTrueFalseFalseCLAVE1FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatCLAVE20TrueTrueFalseFalseCLAVE2FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatCLAVE30TrueTrueFalseFalseCLAVE3FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringEANART0FalseTrueFalseFalseEANARTFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringCODCOM0FalseTrueFalseFalseCODCOMFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMVAR0FalseTrueFalseFalseNUMVARFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringCODPRO0FalseTrueFalseFalseCODPROFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringDESARTCO0FalseTrueFalseFalseDESARTCOFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringDESART0FalseTrueFalseFalseDESARTFalseFalseFalse70TruetaLeftJustifydabtUnknownFalsedatStringNUMCON0FalseTrueFalseFalseNUMCONFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMLIS0FalseTrueFalseFalseNUMLISFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringCONESP10FalseTrueFalseFalseCONESP1FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringCONESP20FalseTrueFalseFalseCONESP2FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringCONESP30FalseTrueFalseFalseCONESP3FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatVALVEN0FalseTrueFalseFalseVALVENFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPRENETCT0FalseTrueFalseFalsePRENETCTFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPREBRUCT0FalseTrueFalseFalsePREBRUCTFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPREINFET0FalseTrueFalseFalsePREINFETFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPREINFFT0FalseTrueFalseFalsePREINFFTFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPRECALCT0FalseTrueFalseFalsePRECALCTFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPRENETCA0FalseTrueFalseFalsePRENETCAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPREBRUCA0FalseTrueFalseFalsePREBRUCAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPREINFEA0FalseTrueFalseFalsePREINFEAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPREINFFA0FalseTrueFalseFalsePREINFFAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPRECALCA0FalseTrueFalseFalsePRECALCAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatBAPRUN10FalseTrueFalseFalseBAPRUN1FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUNIMED10FalseTrueFalseFalseUNIMED1FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatBAPRUN20FalseTrueFalseFalseBAPRUN2FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUNIMED20FalseTrueFalseFalseUNIMED2FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatBAPRUN30FalseTrueFalseFalseBAPRUN3FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUNIMED30FalseTrueFalseFalseUNIMED3FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatBAPRUN40FalseTrueFalseFalseBAPRUN4FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUNIMED40FalseTrueFalseFalseUNIMED4FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatBAPRUN50FalseTrueFalseFalseBAPRUN5FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUNIMED50FalseTrueFalseFalseUNIMED5FalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatCANVEN0FalseTrueFalseFalseCANVENFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatEXIPRO0FalseTrueFalseFalseEXIPROFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatDESEXI0FalseTrueFalseFalseDESEXIFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringESPMEDCV0FalseTrueFalseFalseESPMEDCVFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringESPMEDEP0FalseTrueFalseFalseESPMEDEPFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringESPMEDDE0FalseTrueFalseFalseESPMEDDEFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatCANDEV0FalseTrueFalseFalseCANDEVFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringEANVEN0FalseTrueFalseFalseEANVENFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringNOMVEN0FalseTrueFalseFalseNOMVENFalseFalseFalse70TruetaLeftJustifydabtUnknownFalsedatStringNUMTALON0FalseTrueFalseFalseNUMTALONFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatFloatCANVENNET0FalseTrueFalseFalseCANVENNETFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUMEDVENNET0FalseTrueFalseFalseUMEDVENNETFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatCANESP0FalseTrueFalseFalseCANESPFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUMEDESP0FalseTrueFalseFalseUMEDESPFalseFalseFalse3TrueRDX_ARTVENCLAVE1CLAVE1CLAVE1CLAVE2CLAVE2CLAVE2CLAVE3CLAVE3CLAVE3EANARTEANARTEANARTCODCOMCODCOMCODCOMNUMVARNUMVARNUMVARCODPROCODPROCODPRODESARTCODESARTCODESARTCODESARTDESARTDESARTNUMCONNUMCONNUMCONNUMLISNUMLISNUMLISCONESP1CONESP1CONESP1CONESP2CONESP2CONESP2CONESP3CONESP3CONESP3VALVENVALVENVALVENPRENETCTPRENETCTPRENETCTPREBRUCTPREBRUCTPREBRUCTPREINFETPREINFETPREINFETPREINFFTPREINFFTPREINFFTPRECALCTPRECALCTPRECALCTPRENETCAPRENETCAPRENETCAPREBRUCAPREBRUCAPREBRUCAPREINFEAPREINFEAPREINFEAPREINFFAPREINFFAPREINFFAPRECALCAPRECALCAPRECALCABAPRUN1BAPRUN1BAPRUN1UNIMED1UNIMED1UNIMED1BAPRUN2BAPRUN2BAPRUN2UNIMED2UNIMED2UNIMED2BAPRUN3BAPRUN3BAPRUN3UNIMED3UNIMED3UNIMED3BAPRUN4BAPRUN4BAPRUN4UNIMED4UNIMED4UNIMED4BAPRUN5BAPRUN5BAPRUN5UNIMED5UNIMED5UNIMED5CANVENCANVENCANVENEXIPROEXIPROEXIPRODESEXIDESEXIDESEXIESPMEDCVESPMEDCVESPMEDCVESPMEDEPESPMEDEPESPMEDEPESPMEDDEESPMEDDEESPMEDDECANDEVCANDEVCANDEVEANVENEANVENEANVENNOMVENNOMVENNOMVENNUMTALONNUMTALONNUMTALONCANVENNETCANVENNETCANVENNETUMEDVENNETUMEDVENNETUMEDVENNETCANESPCANESPCANESPUMEDESPUMEDESPUMEDESPGFT_VARELASELECT - CLAVE1, CLAVE2, CLAVE3, EANART, CODCOM, NUMVAR, CODPRO, - DESARTCO, DESART, NUMCON, NUMLIS, CONESP1, CONESP2, - CONESP3, VALVEN, PRENETCT, PREBRUCT, PREINFET, PREINFFT, - PRECALCT, PRENETCA, PREBRUCA, PREINFEA, PREINFFA, PRECALCA, - BAPRUN1, UNIMED1, BAPRUN2, UNIMED2, BAPRUN3, UNIMED3, - BAPRUN4, UNIMED4, BAPRUN5, UNIMED5, CANVEN, EXIPRO, - DESEXI, ESPMEDCV, ESPMEDEP, ESPMEDDE, CANDEV, EANVEN, - NOMVEN, NUMTALON, CANVENNET, UMEDVENNET, CANESP, UMEDESP - FROM - RDX_ARTVENstSQLRDX_ARTVENTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatStringNUMDOC0TrueTrueFalseFalseNUMDOCFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringTIPODOC0FalseTrueFalseFalseTIPODOCFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringTIPOLIQ0FalseTrueFalseFalseTIPOLIQFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHA0FalseTrueFalseFalseFECHAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHALIQ0FalseTrueFalseFalseFECHALIQFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringEMISOR0FalseTrueFalseFalseEMISORFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringRECEPTOR0FalseTrueFalseFalseRECEPTORFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringDPTO0FalseTrueFalseFalseDPTOFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringCENTRO0FalseTrueFalseFalseCENTROFalseFalseFalse17TrueRDX_CABINVNUMDOCNUMDOCNUMDOCTIPODOCTIPODOCTIPODOCTIPOLIQTIPOLIQTIPOLIQFECHAFECHAFECHAFECHALIQFECHALIQFECHALIQEMISOREMISOREMISORRECEPTORRECEPTORRECEPTORDPTODPTODPTOCENTROCENTROCENTROGFT_VARELASELECT - NUMDOC, TIPODOC, TIPOLIQ, FECHA, FECHALIQ, EMISOR, - RECEPTOR, DPTO, CENTRO - FROM - RDX_CABINVstSQLRDX_CABINVTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatFloatCLAVE10TrueTrueFalseFalseCLAVE1FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringNUMINF0FalseTrueFalseFalseNUMINFFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringFUNCION0FalseTrueFalseFalseFUNCIONFalseFalseFalse10TruetaLeftJustifydabtUnknownFalsedatDateTimeFECINI0FalseTrueFalseFalseFECINIFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECFIN0FalseTrueFalseFalseFECFINFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECINF0FalseTrueFalseFalseFECINFFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringPERVEN0FalseTrueFalseFalsePERVENFalseFalseFalse16TruetaLeftJustifydabtUnknownFalsedatStringEANOFI0FalseTrueFalseFalseEANOFIFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANEMI0FalseTrueFalseFalseEANEMIFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANREC0FalseTrueFalseFalseEANRECFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANVEN0FalseTrueFalseFalseEANVENFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANALM0FalseTrueFalseFalseEANALMFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANREP0FalseTrueFalseFalseEANREPFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANPRO0FalseTrueFalseFalseEANPROFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANADMSA0FalseTrueFalseFalseEANADMSAFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringEANREPSR0FalseTrueFalseFalseEANREPSRFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringADMVENSA0FalseTrueFalseFalseADMVENSAFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringREPDEPSR0FalseTrueFalseFalseREPDEPSRFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringEMAILSA0FalseTrueFalseFalseEMAILSAFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMFAXSA0FalseTrueFalseFalseNUMFAXSAFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMTELSA0FalseTrueFalseFalseNUMTELSAFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMTLXSA0FalseTrueFalseFalseNUMTLXSAFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringX400SA0FalseTrueFalseFalseX400SAFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringEMAILSR0FalseTrueFalseFalseEMAILSRFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMFAXSR0FalseTrueFalseFalseNUMFAXSRFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMTELSR0FalseTrueFalseFalseNUMTELSRFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMTLXSR0FalseTrueFalseFalseNUMTLXSRFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringX400SR0FalseTrueFalseFalseX400SRFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMPRE0FalseTrueFalseFalseNUMPREFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMINFSC0FalseTrueFalseFalseNUMINFSCFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatStringNUMCON0FalseTrueFalseFalseNUMCONFalseFalseFalse35TruetaLeftJustifydabtUnknownFalsedatDateTimeFECPRE0FalseTrueFalseFalseFECPREFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECINFSC0FalseTrueFalseFalseFECINFSCFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECCON0FalseTrueFalseFalseFECCONFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringDIVPED0FalseTrueFalseFalseDIVPEDFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringDIVPRE0FalseTrueFalseFalseDIVPREFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringDIVPAG0FalseTrueFalseFalseDIVPAGFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringDIVPEDF0FalseTrueFalseFalseDIVPEDFFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringDIVPREF0FalseTrueFalseFalseDIVPREFFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringDIVPAGF0FalseTrueFalseFalseDIVPAGFFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatTASCAM0FalseTrueFalseFalseTASCAMFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECTAS0FalseTrueFalseFalseFECTASFalseFalseFalse0TrueRDX_CABVENCLAVE1CLAVE1CLAVE1NUMINFNUMINFNUMINFFUNCIONFUNCIONFUNCIONFECINIFECINIFECINIFECFINFECFINFECFINFECINFFECINFFECINFPERVENPERVENPERVENEANOFIEANOFIEANOFIEANEMIEANEMIEANEMIEANRECEANRECEANRECEANVENEANVENEANVENEANALMEANALMEANALMEANREPEANREPEANREPEANPROEANPROEANPROEANADMSAEANADMSAEANADMSAEANREPSREANREPSREANREPSRADMVENSAADMVENSAADMVENSAREPDEPSRREPDEPSRREPDEPSREMAILSAEMAILSAEMAILSANUMFAXSANUMFAXSANUMFAXSANUMTELSANUMTELSANUMTELSANUMTLXSANUMTLXSANUMTLXSAX400SAX400SAX400SAEMAILSREMAILSREMAILSRNUMFAXSRNUMFAXSRNUMFAXSRNUMTELSRNUMTELSRNUMTELSRNUMTLXSRNUMTLXSRNUMTLXSRX400SRX400SRX400SRNUMPRENUMPRENUMPRENUMINFSCNUMINFSCNUMINFSCNUMCONNUMCONNUMCONFECPREFECPREFECPREFECINFSCFECINFSCFECINFSCFECCONFECCONFECCONDIVPEDDIVPEDDIVPEDDIVPREDIVPREDIVPREDIVPAGDIVPAGDIVPAGDIVPEDFDIVPEDFDIVPEDFDIVPREFDIVPREFDIVPREFDIVPAGFDIVPAGFDIVPAGFTASCAMTASCAMTASCAMFECTASFECTASFECTASGFT_VARELASELECT - CLAVE1, NUMINF, FUNCION, FECINI, FECFIN, FECINF, PERVEN, - EANOFI, EANEMI, EANREC, EANVEN, EANALM, EANREP, EANPRO, - EANADMSA, EANREPSR, ADMVENSA, REPDEPSR, EMAILSA, NUMFAXSA, - NUMTELSA, NUMTLXSA, X400SA, EMAILSR, NUMFAXSR, NUMTELSR, - NUMTLXSR, X400SR, NUMPRE, NUMINFSC, NUMCON, FECPRE, - FECINFSC, FECCON, DIVPED, DIVPRE, DIVPAG, DIVPEDF, - DIVPREF, DIVPAGF, TASCAM, FECTAS - FROM - RDX_CABVENstSQLRDX_CABVENTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatStringNUMDOC0TrueTrueFalseFalseNUMDOCFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatFloatNUMLIN0TrueTrueFalseFalseNUMLINFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatNUMCANT0FalseTrueFalseFalseNUMCANTFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringTIPOCANT0FalseTrueFalseFalseTIPOCANTFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatFloatCANTIDAD0FalseTrueFalseFalseCANTIDADFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringCENTRO0FalseTrueFalseFalseCENTROFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringTMOV0FalseTrueFalseFalseTMOVFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringFACT0FalseTrueFalseFalseFACTFalseFalseFalse12TruetaLeftJustifydabtUnknownFalsedatStringDEPTO0FalseTrueFalseFalseDEPTOFalseFalseFalse3TruetaLeftJustifydabtUnknownFalsedatStringIDVEN0FalseTrueFalseFalseIDVENFalseFalseFalse10TrueRDX_CANTINVNUMDOCNUMDOCNUMDOCNUMLINNUMLINNUMLINNUMCANTNUMCANTNUMCANTTIPOCANTTIPOCANTTIPOCANTCANTIDADCANTIDADCANTIDADCENTROCENTROCENTROTMOVTMOVTMOVFACTFACTFACTDEPTODEPTODEPTOIDVENIDVENIDVENGFT_VARELASELECT - NUMDOC, NUMLIN, NUMCANT, TIPOCANT, CANTIDAD, CENTRO, - TMOV, FACT, DEPTO, IDVEN - FROM - RDX_CANTINVstSQLRDX_CANTINVTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatStringNUMDOC0TrueTrueFalseFalseNUMDOCFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatFloatNUMLIN0TrueTrueFalseFalseNUMLINFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringCODART0FalseTrueFalseFalseCODARTFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringFAMILIA0FalseTrueFalseFalseFAMILIAFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringBARRA0FalseTrueFalseFalseBARRAFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringTALLA0FalseTrueFalseFalseTALLAFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringMARCA0FalseTrueFalseFalseMARCAFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringTAMANO0FalseTrueFalseFalseTAMANOFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringSERIE0FalseTrueFalseFalseSERIEFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringCOLOR0FalseTrueFalseFalseCOLORFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringMODELO0FalseTrueFalseFalseMODELOFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringDIBUJO0FalseTrueFalseFalseDIBUJOFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringDESCRIP0FalseTrueFalseFalseDESCRIPFalseFalseFalse70TrueRDX_LININVNUMDOCNUMDOCNUMDOCNUMLINNUMLINNUMLINCODARTCODARTCODARTFAMILIAFAMILIAFAMILIABARRABARRABARRATALLATALLATALLAMARCAMARCAMARCATAMANOTAMANOTAMANOSERIESERIESERIECOLORCOLORCOLORMODELOMODELOMODELODIBUJODIBUJODIBUJODESCRIPDESCRIPDESCRIPGFT_VARELASELECT - NUMDOC, NUMLIN, CODART, FAMILIA, BARRA, TALLA, MARCA, - TAMANO, SERIE, COLOR, MODELO, DIBUJO, DESCRIP - FROM - RDX_LININVstSQLRDX_LININVTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatFloatCLAVE10TrueTrueFalseFalseCLAVE1FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatCLAVE20TrueTrueFalseFalseCLAVE2FalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringEANLUG0FalseTrueFalseFalseEANLUGFalseFalseFalse17TruetaLeftJustifydabtUnknownFalsedatStringLUGVEN0FalseTrueFalseFalseLUGVENFalseFalseFalse70TruetaLeftJustifydabtUnknownFalsedatDateTimeFECINI0FalseTrueFalseFalseFECINIFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECFIN0FalseTrueFalseFalseFECFINFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringPERVEN0FalseTrueFalseFalsePERVENFalseFalseFalse16TrueRDX_LUGVENCLAVE1CLAVE1CLAVE1CLAVE2CLAVE2CLAVE2EANLUGEANLUGEANLUGLUGVENLUGVENLUGVENFECINIFECINIFECINIFECFINFECFINFECFINPERVENPERVENPERVENGFT_VARELASELECT - CLAVE1, CLAVE2, EANLUG, LUGVEN, FECINI, FECFIN, PERVEN - FROM - RDX_LUGVENstSQLRDX_LUGVENRDX_LININVNUMDOCRDX_CABINVNUMDOCFK_RDX_LININV_RDX_CABINVRDX_CANTINVNUMDOC;NUMLINRDX_LININVNUMDOC;NUMLINFK_RDX_CANTINV_RDX_LININVRDX_LUGVENCLAVE1RDX_CABVENCLAVE1FK_RDX_LUGVEN_RDX_CABVENRDX_ARTVENCLAVE1;CLAVE2RDX_LUGVENCLAVE1;CLAVE2FK_RDX_ARTVEN_RDX_LUGVEN0 diff --git a/Varela/Varela/Source/Servidor/RODLFILE.res b/Varela/Varela/Source/Servidor/RODLFILE.res deleted file mode 100644 index 1deefba..0000000 Binary files a/Varela/Varela/Source/Servidor/RODLFILE.res and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/RegExpr.pas b/Varela/Varela/Source/Servidor/RegExpr.pas deleted file mode 100644 index f17279a..0000000 --- a/Varela/Varela/Source/Servidor/RegExpr.pas +++ /dev/null @@ -1,4042 +0,0 @@ -unit RegExpr; - -{ - TRegExpr class library - Delphi Regular Expressions - - Copyright (c) 1999-2004 Andrey V. Sorokin, St.Petersburg, Russia - - You may use this software in any kind of development, - including comercial, redistribute, and modify it freely, - under the following restrictions : - 1. This software is provided as it is, without any kind of - warranty given. Use it at Your own risk.The author is not - responsible for any consequences of use of this software. - 2. The origin of this software may not be mispresented, You - must not claim that You wrote the original software. If - You use this software in any kind of product, it would be - appreciated that there in a information box, or in the - documentation would be an acknowledgement like - - Partial Copyright (c) 2004 Andrey V. Sorokin - http://RegExpStudio.com - mailto:anso@mail.ru - - 3. You may not have any income from distributing this source - (or altered version of it) to other developers. When You - use this product in a comercial package, the source may - not be charged seperatly. - 4. Altered versions must be plainly marked as such, and must - not be misrepresented as being the original software. - 5. RegExp Studio application and all the visual components as - well as documentation is not part of the TRegExpr library - and is not free for usage. - - mailto:anso@mail.ru - http://RegExpStudio.com - http://anso.da.ru/ -} - -interface - -// ======== Determine compiler -{$IFDEF VER80} Sorry, TRegExpr is for 32-bits Delphi only. Delphi 1 is not supported (and whos really care today?!). {$ENDIF} -{$IFDEF VER90} {$DEFINE D2} {$ENDIF} // D2 -{$IFDEF VER93} {$DEFINE D2} {$ENDIF} // CPPB 1 -{$IFDEF VER100} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D3 -{$IFDEF VER110} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // CPPB 3 -{$IFDEF VER120} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D4 -{$IFDEF VER130} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D5 -{$IFDEF VER140} {$DEFINE D6} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D6 -{$IFDEF VER150} {$DEFINE D7} {$DEFINE D6} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D7 -{$IFDEF VER180} {$DEFINE D2007} {$DEFINE D10} {$DEFINE D7} {$DEFINE D6} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D10/D2007 - -// ======== Define base compiler options -{$BOOLEVAL OFF} -{$EXTENDEDSYNTAX ON} -{$LONGSTRINGS ON} -{$OPTIMIZATION ON} -{$IFDEF D6} - {$WARN SYMBOL_PLATFORM OFF} // Suppress .Net warnings -{$ENDIF} -{$IFDEF D7} - {$WARN UNSAFE_CAST OFF} // Suppress .Net warnings - {$WARN UNSAFE_TYPE OFF} // Suppress .Net warnings - {$WARN UNSAFE_CODE OFF} // Suppress .Net warnings -{$ENDIF} -{$IFDEF FPC} - {$MODE DELPHI} // Delphi-compatible mode in FreePascal -{$ENDIF} - -// ======== Define options for TRegExpr engine -{.$DEFINE UniCode} // Unicode support -{$DEFINE RegExpPCodeDump} // p-code dumping (see Dump method) -{$IFNDEF FPC} // the option is not supported in FreePascal - {$DEFINE reRealExceptionAddr} // exceptions will point to appropriate source line, not to Error procedure -{$ENDIF} -{$DEFINE ComplexBraces} // support braces in complex cases -{$IFNDEF UniCode} // the option applicable only for non-UniCode mode - {$DEFINE UseSetOfChar} // Significant optimization by using set of char -{$ENDIF} -{$IFDEF UseSetOfChar} - {$DEFINE UseFirstCharSet} // Fast skip between matches for r.e. that starts with determined set of chars -{$ENDIF} - -// ======== Define Pascal-language options -// Define 'UseAsserts' option (do not edit this definitions). -// Asserts used to catch 'strange bugs' in TRegExpr implementation (when something goes -// completely wrong). You can swith asserts on/off with help of {$C+}/{$C-} compiler options. -{$IFDEF D3} {$DEFINE UseAsserts} {$ENDIF} -{$IFDEF FPC} {$DEFINE UseAsserts} {$ENDIF} - -// Define 'use subroutine parameters default values' option (do not edit this definition). -{$IFDEF D4} {$DEFINE DefParam} {$ENDIF} - -// Define 'OverMeth' options, to use method overloading (do not edit this definitions). -{$IFDEF D5} {$DEFINE OverMeth} {$ENDIF} -{$IFDEF FPC} {$DEFINE OverMeth} {$ENDIF} - -uses - Classes, // TStrings in Split method - SysUtils; // Exception - -type - {$IFDEF UniCode} - PRegExprChar = PWideChar; - RegExprString = WideString; - REChar = WideChar; - {$ELSE} - PRegExprChar = PChar; - RegExprString = AnsiString; //###0.952 was string - REChar = Char; - {$ENDIF} - TREOp = REChar; // internal p-code type //###0.933 - PREOp = ^TREOp; - TRENextOff = integer; // internal Next "pointer" (offset to current p-code) //###0.933 - PRENextOff = ^TRENextOff; // used for extracting Next "pointers" from compiled r.e. //###0.933 - TREBracesArg = integer; // type of {m,n} arguments - PREBracesArg = ^TREBracesArg; - -const - REOpSz = SizeOf (TREOp) div SizeOf (REChar); // size of p-code in RegExprString units - RENextOffSz = SizeOf (TRENextOff) div SizeOf (REChar); // size of Next 'pointer' -"- - REBracesArgSz = SizeOf (TREBracesArg) div SizeOf (REChar); // size of BRACES arguments -"- - -type - TRegExprInvertCaseFunction = function (const Ch : REChar) : REChar - of object; - -const - EscChar = '\'; // 'Escape'-char ('\' in common r.e.) used for escaping metachars (\w, \d etc). - RegExprModifierI : boolean = False; // default value for ModifierI - RegExprModifierR : boolean = True; // default value for ModifierR - RegExprModifierS : boolean = True; // default value for ModifierS - RegExprModifierG : boolean = True; // default value for ModifierG - RegExprModifierM : boolean = False; // default value for ModifierM - RegExprModifierX : boolean = False; // default value for ModifierX - RegExprSpaceChars : RegExprString = // default value for SpaceChars - ' '#$9#$A#$D#$C; - RegExprWordChars : RegExprString = // default value for WordChars - '0123456789' //###0.940 - + 'abcdefghijklmnopqrstuvwxyz' - + 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'; - RegExprLineSeparators : RegExprString =// default value for LineSeparators - #$d#$a{$IFDEF UniCode}+#$b#$c#$2028#$2029#$85{$ENDIF}; //###0.947 - RegExprLinePairedSeparator : RegExprString =// default value for LinePairedSeparator - #$d#$a; - { if You need Unix-styled line separators (only \n), then use: - RegExprLineSeparators = #$a; - RegExprLinePairedSeparator = ''; - } - - -const - NSUBEXP = 15; // max number of subexpression //###0.929 - // Cannot be more than NSUBEXPMAX - // Be carefull - don't use values which overflow CLOSE opcode - // (in this case you'll get compiler erorr). - // Big NSUBEXP will cause more slow work and more stack required - NSUBEXPMAX = 255; // Max possible value for NSUBEXP. //###0.945 - // Don't change it! It's defined by internal TRegExpr design. - - MaxBracesArg = $7FFFFFFF - 1; // max value for {n,m} arguments //###0.933 - - {$IFDEF ComplexBraces} - LoopStackMax = 10; // max depth of loops stack //###0.925 - {$ENDIF} - - TinySetLen = 3; - // if range includes more then TinySetLen chars, //###0.934 - // then use full (32 bytes) ANYOFFULL instead of ANYOF[BUT]TINYSET - // !!! Attension ! If you change TinySetLen, you must - // change code marked as "//!!!TinySet" - - -type - -{$IFDEF UseSetOfChar} - PSetOfREChar = ^TSetOfREChar; - TSetOfREChar = set of REChar; -{$ENDIF} - - TRegExpr = class; - - TRegExprReplaceFunction = function (ARegExpr : TRegExpr): string - of object; - - TRegExpr = class - private - startp : array [0 .. NSUBEXP - 1] of PRegExprChar; // founded expr starting points - endp : array [0 .. NSUBEXP - 1] of PRegExprChar; // founded expr end points - - {$IFDEF ComplexBraces} - LoopStack : array [1 .. LoopStackMax] of integer; // state before entering loop - LoopStackIdx : integer; // 0 - out of all loops - {$ENDIF} - - // The "internal use only" fields to pass info from compile - // to execute that permits the execute phase to run lots faster on - // simple cases. - regstart : REChar; // char that must begin a match; '\0' if none obvious - reganch : REChar; // is the match anchored (at beginning-of-line only)? - regmust : PRegExprChar; // string (pointer into program) that match must include, or nil - regmlen : integer; // length of regmust string - // Regstart and reganch permit very fast decisions on suitable starting points - // for a match, cutting down the work a lot. Regmust permits fast rejection - // of lines that cannot possibly match. The regmust tests are costly enough - // that regcomp() supplies a regmust only if the r.e. contains something - // potentially expensive (at present, the only such thing detected is * or + - // at the start of the r.e., which can involve a lot of backup). Regmlen is - // supplied because the test in regexec() needs it and regcomp() is computing - // it anyway. - {$IFDEF UseFirstCharSet} //###0.929 - FirstCharSet : TSetOfREChar; - {$ENDIF} - - // work variables for Exec's routins - save stack in recursion} - reginput : PRegExprChar; // String-input pointer. - fInputStart : PRegExprChar; // Pointer to first char of input string. - fInputEnd : PRegExprChar; // Pointer to char AFTER last char of input string - - // work variables for compiler's routines - regparse : PRegExprChar; // Input-scan pointer. - regnpar : integer; // count. - regdummy : char; - regcode : PRegExprChar; // Code-emit pointer; @regdummy = don't. - regsize : integer; // Code size. - - regexpbeg : PRegExprChar; // only for error handling. Contains - // pointer to beginning of r.e. while compiling - fExprIsCompiled : boolean; // true if r.e. successfully compiled - - // programm is essentially a linear encoding - // of a nondeterministic finite-state machine (aka syntax charts or - // "railroad normal form" in parsing technology). Each node is an opcode - // plus a "next" pointer, possibly plus an operand. "Next" pointers of - // all nodes except BRANCH implement concatenation; a "next" pointer with - // a BRANCH on both ends of it is connecting two alternatives. (Here we - // have one of the subtle syntax dependencies: an individual BRANCH (as - // opposed to a collection of them) is never concatenated with anything - // because of operator precedence.) The operand of some types of node is - // a literal string; for others, it is a node leading into a sub-FSM. In - // particular, the operand of a BRANCH node is the first node of the branch. - // (NB this is *not* a tree structure: the tail of the branch connects - // to the thing following the set of BRANCHes.) The opcodes are: - programm : PRegExprChar; // Unwarranted chumminess with compiler. - - fExpression : PRegExprChar; // source of compiled r.e. - fInputString : PRegExprChar; // input string - - fLastError : integer; // see Error, LastError - - fModifiers : integer; // modifiers - fCompModifiers : integer; // compiler's copy of modifiers - fProgModifiers : integer; // modifiers values from last programm compilation - - fSpaceChars : RegExprString; //###0.927 - fWordChars : RegExprString; //###0.929 - fInvertCase : TRegExprInvertCaseFunction; //###0.927 - - fLineSeparators : RegExprString; //###0.941 - fLinePairedSeparatorAssigned : boolean; - fLinePairedSeparatorHead, - fLinePairedSeparatorTail : REChar; - {$IFNDEF UniCode} - fLineSeparatorsSet : set of REChar; - {$ENDIF} - - procedure InvalidateProgramm; - // Mark programm as have to be [re]compiled - - function IsProgrammOk : boolean; //###0.941 - // Check if we can use precompiled r.e. or - // [re]compile it if something changed - - function GetExpression : RegExprString; - procedure SetExpression (const s : RegExprString); - - function GetModifierStr : RegExprString; - class function ParseModifiersStr (const AModifiers : RegExprString; - var AModifiersInt : integer) : boolean; //###0.941 class function now - // Parse AModifiers string and return true and set AModifiersInt - // if it's in format 'ismxrg-ismxrg'. - procedure SetModifierStr (const AModifiers : RegExprString); - - function GetModifier (AIndex : integer) : boolean; - procedure SetModifier (AIndex : integer; ASet : boolean); - - procedure Error (AErrorID : integer); virtual; // error handler. - // Default handler raise exception ERegExpr with - // Message = ErrorMsg (AErrorID), ErrorCode = AErrorID - // and CompilerErrorPos = value of property CompilerErrorPos. - - - {==================== Compiler section ===================} - function CompileRegExpr (exp : PRegExprChar) : boolean; - // compile a regular expression into internal code - - procedure Tail (p : PRegExprChar; val : PRegExprChar); - // set the next-pointer at the end of a node chain - - procedure OpTail (p : PRegExprChar; val : PRegExprChar); - // regoptail - regtail on operand of first argument; nop if operandless - - function EmitNode (op : TREOp) : PRegExprChar; - // regnode - emit a node, return location - - procedure EmitC (b : REChar); - // emit (if appropriate) a byte of code - - procedure InsertOperator (op : TREOp; opnd : PRegExprChar; sz : integer); //###0.90 - // insert an operator in front of already-emitted operand - // Means relocating the operand. - - function ParseReg (paren : integer; var flagp : integer) : PRegExprChar; - // regular expression, i.e. main body or parenthesized thing - - function ParseBranch (var flagp : integer) : PRegExprChar; - // one alternative of an | operator - - function ParsePiece (var flagp : integer) : PRegExprChar; - // something followed by possible [*+?] - - function ParseAtom (var flagp : integer) : PRegExprChar; - // the lowest level - - function GetCompilerErrorPos : integer; - // current pos in r.e. - for error hanling - - {$IFDEF UseFirstCharSet} //###0.929 - procedure FillFirstCharSet (prog : PRegExprChar); - {$ENDIF} - - {===================== Mathing section ===================} - function regrepeat (p : PRegExprChar; AMax : integer) : integer; - // repeatedly match something simple, report how many - - function regnext (p : PRegExprChar) : PRegExprChar; - // dig the "next" pointer out of a node - - function MatchPrim (prog : PRegExprChar) : boolean; - // recursively matching routine - - function ExecPrim (AOffset: integer) : boolean; - // Exec for stored InputString - - {$IFDEF RegExpPCodeDump} - function DumpOp (op : REChar) : RegExprString; - {$ENDIF} - - function GetSubExprMatchCount : integer; - function GetMatchPos (Idx : integer) : integer; - function GetMatchLen (Idx : integer) : integer; - function GetMatch (Idx : integer) : RegExprString; - - function GetInputString : RegExprString; - procedure SetInputString (const AInputString : RegExprString); - - {$IFNDEF UseSetOfChar} - function StrScanCI (s : PRegExprChar; ch : REChar) : PRegExprChar; //###0.928 - {$ENDIF} - - procedure SetLineSeparators (const AStr : RegExprString); - procedure SetLinePairedSeparator (const AStr : RegExprString); - function GetLinePairedSeparator : RegExprString; - - public - constructor Create; - destructor Destroy; override; - - class function VersionMajor : integer; //###0.944 - class function VersionMinor : integer; //###0.944 - - property Expression : RegExprString read GetExpression write SetExpression; - // Regular expression. - // For optimization, TRegExpr will automatically compiles it into 'P-code' - // (You can see it with help of Dump method) and stores in internal - // structures. Real [re]compilation occures only when it really needed - - // while calling Exec[Next], Substitute, Dump, etc - // and only if Expression or other P-code affected properties was changed - // after last [re]compilation. - // If any errors while [re]compilation occures, Error method is called - // (by default Error raises exception - see below) - - property ModifierStr : RegExprString read GetModifierStr write SetModifierStr; - // Set/get default values of r.e.syntax modifiers. Modifiers in - // r.e. (?ismx-ismx) will replace this default values. - // If you try to set unsupported modifier, Error will be called - // (by defaul Error raises exception ERegExpr). - - property ModifierI : boolean index 1 read GetModifier write SetModifier; - // Modifier /i - caseinsensitive, initialized from RegExprModifierI - - property ModifierR : boolean index 2 read GetModifier write SetModifier; - // Modifier /r - use r.e.syntax extended for russian, - // (was property ExtSyntaxEnabled in previous versions) - // If true, then à-ÿ additional include russian letter '¸', - // À-ß additional include '¨', and à-ß include all russian symbols. - // You have to turn it off if it may interfere with you national alphabet. - // , initialized from RegExprModifierR - - property ModifierS : boolean index 3 read GetModifier write SetModifier; - // Modifier /s - '.' works as any char (else as [^\n]), - // , initialized from RegExprModifierS - - property ModifierG : boolean index 4 read GetModifier write SetModifier; - // Switching off modifier /g switchs all operators in - // non-greedy style, so if ModifierG = False, then - // all '*' works as '*?', all '+' as '+?' and so on. - // , initialized from RegExprModifierG - - property ModifierM : boolean index 5 read GetModifier write SetModifier; - // Treat string as multiple lines. That is, change `^' and `$' from - // matching at only the very start or end of the string to the start - // or end of any line anywhere within the string. - // , initialized from RegExprModifierM - - property ModifierX : boolean index 6 read GetModifier write SetModifier; - // Modifier /x - eXtended syntax, allow r.e. text formatting, - // see description in the help. Initialized from RegExprModifierX - - function Exec (const AInputString : RegExprString) : boolean; {$IFDEF OverMeth} overload; - {$IFNDEF FPC} // I do not know why FreePascal cannot overload methods with empty param list - function Exec : boolean; overload; //###0.949 - {$ENDIF} - function Exec (AOffset: integer) : boolean; overload; //###0.949 - {$ENDIF} - // match a programm against a string AInputString - // !!! Exec store AInputString into InputString property - // For Delphi 5 and higher available overloaded versions - first without - // parameter (uses already assigned to InputString property value) - // and second that has integer parameter and is same as ExecPos - - function ExecNext : boolean; - // find next match: - // ExecNext; - // works same as - // if MatchLen [0] = 0 then ExecPos (MatchPos [0] + 1) - // else ExecPos (MatchPos [0] + MatchLen [0]); - // but it's more simpler ! - // Raises exception if used without preceeding SUCCESSFUL call to - // Exec* (Exec, ExecPos, ExecNext). So You always must use something like - // if Exec (InputString) then repeat { proceed results} until not ExecNext; - - function ExecPos (AOffset: integer {$IFDEF DefParam}= 1{$ENDIF}) : boolean; - // find match for InputString starting from AOffset position - // (AOffset=1 - first char of InputString) - - property InputString : RegExprString read GetInputString write SetInputString; - // returns current input string (from last Exec call or last assign - // to this property). - // Any assignment to this property clear Match* properties ! - - function Substitute (const ATemplate : RegExprString) : RegExprString; - // Returns ATemplate with '$&' or '$0' replaced by whole r.e. - // occurence and '$n' replaced by occurence of subexpression #n. - // Since v.0.929 '$' used instead of '\' (for future extensions - // and for more Perl-compatibility) and accept more then one digit. - // If you want place into template raw '$' or '\', use prefix '\' - // Example: '1\$ is $2\\rub\\' -> '1$ is \rub\' - // If you want to place raw digit after '$n' you must delimit - // n with curly braces '{}'. - // Example: 'a$12bc' -> 'abc' - // 'a${1}2bc' -> 'a2bc'. - - procedure Split (AInputStr : RegExprString; APieces : TStrings); - // Split AInputStr into APieces by r.e. occurencies - // Internally calls Exec[Next] - - function Replace (AInputStr : RegExprString; - const AReplaceStr : RegExprString; - AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) //###0.946 - : RegExprString; {$IFDEF OverMeth} overload; - function Replace (AInputStr : RegExprString; - AReplaceFunc : TRegExprReplaceFunction) - : RegExprString; overload; - {$ENDIF} - function ReplaceEx (AInputStr : RegExprString; - AReplaceFunc : TRegExprReplaceFunction) - : RegExprString; - // Returns AInputStr with r.e. occurencies replaced by AReplaceStr - // If AUseSubstitution is true, then AReplaceStr will be used - // as template for Substitution methods. - // For example: - // Expression := '({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*'; - // Replace ('BLOCK( test1)', 'def "$1" value "$2"', True); - // will return: def 'BLOCK' value 'test1' - // Replace ('BLOCK( test1)', 'def "$1" value "$2"') - // will return: def "$1" value "$2" - // Internally calls Exec[Next] - // Overloaded version and ReplaceEx operate with call-back function, - // so You can implement really complex functionality. - - property SubExprMatchCount : integer read GetSubExprMatchCount; - // Number of subexpressions has been found in last Exec* call. - // If there are no subexpr. but whole expr was found (Exec* returned True), - // then SubExprMatchCount=0, if no subexpressions nor whole - // r.e. found (Exec* returned false) then SubExprMatchCount=-1. - // Note, that some subexpr. may be not found and for such - // subexpr. MathPos=MatchLen=-1 and Match=''. - // For example: Expression := '(1)?2(3)?'; - // Exec ('123'): SubExprMatchCount=2, Match[0]='123', [1]='1', [2]='3' - // Exec ('12'): SubExprMatchCount=1, Match[0]='12', [1]='1' - // Exec ('23'): SubExprMatchCount=2, Match[0]='23', [1]='', [2]='3' - // Exec ('2'): SubExprMatchCount=0, Match[0]='2' - // Exec ('7') - return False: SubExprMatchCount=-1 - - property MatchPos [Idx : integer] : integer read GetMatchPos; - // pos of entrance subexpr. #Idx into tested in last Exec* - // string. First subexpr. have Idx=1, last - MatchCount, - // whole r.e. have Idx=0. - // Returns -1 if in r.e. no such subexpr. or this subexpr. - // not found in input string. - - property MatchLen [Idx : integer] : integer read GetMatchLen; - // len of entrance subexpr. #Idx r.e. into tested in last Exec* - // string. First subexpr. have Idx=1, last - MatchCount, - // whole r.e. have Idx=0. - // Returns -1 if in r.e. no such subexpr. or this subexpr. - // not found in input string. - // Remember - MatchLen may be 0 (if r.e. match empty string) ! - - property Match [Idx : integer] : RegExprString read GetMatch; - // == copy (InputString, MatchPos [Idx], MatchLen [Idx]) - // Returns '' if in r.e. no such subexpr. or this subexpr. - // not found in input string. - - function LastError : integer; - // Returns ID of last error, 0 if no errors (unusable if - // Error method raises exception) and clear internal status - // into 0 (no errors). - - function ErrorMsg (AErrorID : integer) : RegExprString; virtual; - // Returns Error message for error with ID = AErrorID. - - property CompilerErrorPos : integer read GetCompilerErrorPos; - // Returns pos in r.e. there compiler stopped. - // Usefull for error diagnostics - - property SpaceChars : RegExprString read fSpaceChars write fSpaceChars; //###0.927 - // Contains chars, treated as /s (initially filled with RegExprSpaceChars - // global constant) - - property WordChars : RegExprString read fWordChars write fWordChars; //###0.929 - // Contains chars, treated as /w (initially filled with RegExprWordChars - // global constant) - - property LineSeparators : RegExprString read fLineSeparators write SetLineSeparators; //###0.941 - // line separators (like \n in Unix) - - property LinePairedSeparator : RegExprString read GetLinePairedSeparator write SetLinePairedSeparator; //###0.941 - // paired line separator (like \r\n in DOS and Windows). - // must contain exactly two chars or no chars at all - - class function InvertCaseFunction (const Ch : REChar) : REChar; - // Converts Ch into upper case if it in lower case or in lower - // if it in upper (uses current system local setings) - - property InvertCase : TRegExprInvertCaseFunction read fInvertCase write fInvertCase; //##0.935 - // Set this property if you want to override case-insensitive functionality. - // Create set it to RegExprInvertCaseFunction (InvertCaseFunction by default) - - procedure Compile; //###0.941 - // [Re]compile r.e. Usefull for example for GUI r.e. editors (to check - // all properties validity). - - {$IFDEF RegExpPCodeDump} - function Dump : RegExprString; - // dump a compiled regexp in vaguely comprehensible form - {$ENDIF} - end; - - ERegExpr = class (Exception) - public - ErrorCode : integer; - CompilerErrorPos : integer; - end; - -const - RegExprInvertCaseFunction : TRegExprInvertCaseFunction = {$IFDEF FPC} nil {$ELSE} TRegExpr.InvertCaseFunction{$ENDIF}; - // defaul for InvertCase property - -function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean; -// true if string AInputString match regular expression ARegExpr -// ! will raise exeption if syntax errors in ARegExpr - -procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings); -// Split AInputStr into APieces by r.e. ARegExpr occurencies - -function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString; - AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; //###0.947 -// Returns AInputStr with r.e. occurencies replaced by AReplaceStr -// If AUseSubstitution is true, then AReplaceStr will be used -// as template for Substitution methods. -// For example: -// ReplaceRegExpr ('({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*', -// 'BLOCK( test1)', 'def "$1" value "$2"', True) -// will return: def 'BLOCK' value 'test1' -// ReplaceRegExpr ('({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*', -// 'BLOCK( test1)', 'def "$1" value "$2"') -// will return: def "$1" value "$2" - -function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString; -// Replace all metachars with its safe representation, -// for example 'abc$cd.(' converts into 'abc\$cd\.\(' -// This function usefull for r.e. autogeneration from -// user input - -function RegExprSubExpressions (const ARegExpr : string; - ASubExprs : TStrings; AExtendedSyntax : boolean{$IFDEF DefParam}= False{$ENDIF}) : integer; -// Makes list of subexpressions found in ARegExpr r.e. -// In ASubExps every item represent subexpression, -// from first to last, in format: -// String - subexpression text (without '()') -// low word of Object - starting position in ARegExpr, including '(' -// if exists! (first position is 1) -// high word of Object - length, including starting '(' and ending ')' -// if exist! -// AExtendedSyntax - must be True if modifier /m will be On while -// using the r.e. -// Usefull for GUI editors of r.e. etc (You can find example of using -// in TestRExp.dpr project) -// Returns -// 0 Success. No unbalanced brackets was found; -// -1 There are not enough closing brackets ')'; -// -(n+1) At position n was found opening '[' without //###0.942 -// corresponding closing ']'; -// n At position n was found closing bracket ')' without -// corresponding opening '('. -// If Result <> 0, then ASubExpr can contain empty items or illegal ones - - -implementation - -uses - Windows; // CharUpper/Lower - -const - TRegExprVersionMajor : integer = 0; - TRegExprVersionMinor : integer = 952; - // TRegExpr.VersionMajor/Minor return values of this constants - - MaskModI = 1; // modifier /i bit in fModifiers - MaskModR = 2; // -"- /r - MaskModS = 4; // -"- /s - MaskModG = 8; // -"- /g - MaskModM = 16; // -"- /m - MaskModX = 32; // -"- /x - - {$IFDEF UniCode} - XIgnoredChars = ' '#9#$d#$a; - {$ELSE} - XIgnoredChars = [' ', #9, #$d, #$a]; - {$ENDIF} - -{=============================================================} -{=================== WideString functions ====================} -{=============================================================} - -{$IFDEF UniCode} - -function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprChar; - var - i, Len : Integer; - begin - Len := length (Source); //###0.932 - for i := 1 to Len do - Dest [i - 1] := Source [i]; - Dest [Len] := #0; - Result := Dest; - end; { of function StrPCopy ---------------------------------------------------------------} - -function StrLCopy (Dest, Source: PRegExprChar; MaxLen: Cardinal): PRegExprChar; - var i: Integer; - begin - for i := 0 to MaxLen - 1 do - Dest [i] := Source [i]; - Result := Dest; - end; { of function StrLCopy ---------------------------------------------------------------} - -function StrLen (Str: PRegExprChar): Cardinal; - begin - Result:=0; - while Str [result] <> #0 - do Inc (Result); - end; { of function StrLen ---------------------------------------------------------------} - -function StrPos (Str1, Str2: PRegExprChar): PRegExprChar; - var n: Integer; - begin - Result := nil; - n := Pos (RegExprString (Str2), RegExprString (Str1)); - if n = 0 - then EXIT; - Result := Str1 + n - 1; - end; { of function StrPos ---------------------------------------------------------------} - -function StrLComp (Str1, Str2: PRegExprChar; MaxLen: Cardinal): Integer; - var S1, S2: RegExprString; - begin - S1 := Str1; - S2 := Str2; - if Copy (S1, 1, MaxLen) > Copy (S2, 1, MaxLen) - then Result := 1 - else - if Copy (S1, 1, MaxLen) < Copy (S2, 1, MaxLen) - then Result := -1 - else Result := 0; - end; { function StrLComp ---------------------------------------------------------------} - -function StrScan (Str: PRegExprChar; Chr: WideChar): PRegExprChar; - begin - Result := nil; - while (Str^ <> #0) and (Str^ <> Chr) - do Inc (Str); - if (Str^ <> #0) - then Result := Str; - end; { of function StrScan ---------------------------------------------------------------} - -{$ENDIF} - - -{=============================================================} -{===================== Global functions ======================} -{=============================================================} - -function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean; - var r : TRegExpr; - begin - r := TRegExpr.Create; - try - r.Expression := ARegExpr; - Result := r.Exec (AInputStr); - finally r.Free; - end; - end; { of function ExecRegExpr ---------------------------------------------------------------} - -procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings); - var r : TRegExpr; - begin - APieces.Clear; - r := TRegExpr.Create; - try - r.Expression := ARegExpr; - r.Split (AInputStr, APieces); - finally r.Free; - end; - end; { of procedure SplitRegExpr ---------------------------------------------------------------} - -function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString; - AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; - begin - with TRegExpr.Create do try - Expression := ARegExpr; - Result := Replace (AInputStr, AReplaceStr, AUseSubstitution); - finally Free; - end; - end; { of function ReplaceRegExpr ---------------------------------------------------------------} - -function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString; - const - RegExprMetaSet : RegExprString = '^$.[()|?+*'+EscChar+'{' - + ']}'; // - this last are additional to META. - // Very similar to META array, but slighly changed. - // !Any changes in META array must be synchronized with this set. - var - i, i0, Len : integer; - begin - Result := ''; - Len := length (AStr); - i := 1; - i0 := i; - while i <= Len do begin - if Pos (AStr [i], RegExprMetaSet) > 0 then begin - Result := Result + System.Copy (AStr, i0, i - i0) - + EscChar + AStr [i]; - i0 := i + 1; - end; - inc (i); - end; - Result := Result + System.Copy (AStr, i0, MaxInt); // Tail - end; { of function QuoteRegExprMetaChars ---------------------------------------------------------------} - -function RegExprSubExpressions (const ARegExpr : string; - ASubExprs : TStrings; AExtendedSyntax : boolean{$IFDEF DefParam}= False{$ENDIF}) : integer; - type - TStackItemRec = record //###0.945 - SubExprIdx : integer; - StartPos : integer; - end; - TStackArray = packed array [0 .. NSUBEXPMAX - 1] of TStackItemRec; - var - Len, SubExprLen : integer; - i, i0 : integer; - Modif : integer; - Stack : ^TStackArray; //###0.945 - StackIdx, StackSz : integer; - begin - Result := 0; // no unbalanced brackets found at this very moment - - ASubExprs.Clear; // I don't think that adding to non empty list - // can be usefull, so I simplified algorithm to work only with empty list - - Len := length (ARegExpr); // some optimization tricks - - // first we have to calculate number of subexpression to reserve - // space in Stack array (may be we'll reserve more then need, but - // it's faster then memory reallocation during parsing) - StackSz := 1; // add 1 for entire r.e. - for i := 1 to Len do - if ARegExpr [i] = '(' - then inc (StackSz); -// SetLength (Stack, StackSz); //###0.945 - GetMem (Stack, SizeOf (TStackItemRec) * StackSz); - try - - StackIdx := 0; - i := 1; - while (i <= Len) do begin - case ARegExpr [i] of - '(': begin - if (i < Len) and (ARegExpr [i + 1] = '?') then begin - // this is not subexpression, but comment or other - // Perl extension. We must check is it (?ismxrg-ismxrg) - // and change AExtendedSyntax if /x is changed. - inc (i, 2); // skip '(?' - i0 := i; - while (i <= Len) and (ARegExpr [i] <> ')') - do inc (i); - if i > Len - then Result := -1 // unbalansed '(' - else - if TRegExpr.ParseModifiersStr (System.Copy (ARegExpr, i, i - i0), Modif) - then AExtendedSyntax := (Modif and MaskModX) <> 0; - end - else begin // subexpression starts - ASubExprs.Add (''); // just reserve space - with Stack [StackIdx] do begin - SubExprIdx := ASubExprs.Count - 1; - StartPos := i; - end; - inc (StackIdx); - end; - end; - ')': begin - if StackIdx = 0 - then Result := i // unbalanced ')' - else begin - dec (StackIdx); - with Stack [StackIdx] do begin - SubExprLen := i - StartPos + 1; - ASubExprs.Objects [SubExprIdx] := - TObject (StartPos or (SubExprLen ShL 16)); - ASubExprs [SubExprIdx] := System.Copy ( - ARegExpr, StartPos + 1, SubExprLen - 2); // add without brackets - end; - end; - end; - EscChar: inc (i); // skip quoted symbol - '[': begin - // we have to skip character ranges at once, because they can - // contain '#', and '#' in it must NOT be recognized as eXtended - // comment beginning! - i0 := i; - inc (i); - if ARegExpr [i] = ']' // cannot be 'emty' ranges - this interpretes - then inc (i); // as ']' by itself - while (i <= Len) and (ARegExpr [i] <> ']') do - if ARegExpr [i] = EscChar //###0.942 - then inc (i, 2) // skip 'escaped' char to prevent stopping at '\]' - else inc (i); - if (i > Len) or (ARegExpr [i] <> ']') //###0.942 - then Result := - (i0 + 1); // unbalansed '[' //###0.942 - end; - '#': if AExtendedSyntax then begin - // skip eXtended comments - while (i <= Len) and (ARegExpr [i] <> #$d) and (ARegExpr [i] <> #$a) - // do not use [#$d, #$a] due to UniCode compatibility - do inc (i); - while (i + 1 <= Len) and ((ARegExpr [i + 1] = #$d) or (ARegExpr [i + 1] = #$a)) - do inc (i); // attempt to work with different kinds of line separators - // now we are at the line separator that must be skipped. - end; - // here is no 'else' clause - we simply skip ordinary chars - end; // of case - inc (i); // skip scanned char - // ! can move after Len due to skipping quoted symbol - end; - - // check brackets balance - if StackIdx <> 0 - then Result := -1; // unbalansed '(' - - // check if entire r.e. added - if (ASubExprs.Count = 0) - or ((integer (ASubExprs.Objects [0]) and $FFFF) <> 1) - or (((integer (ASubExprs.Objects [0]) ShR 16) and $FFFF) <> Len) - // whole r.e. wasn't added because it isn't bracketed - // well, we add it now: - then ASubExprs.InsertObject (0, ARegExpr, TObject ((Len ShL 16) or 1)); - - finally FreeMem (Stack); - end; - end; { of function RegExprSubExpressions ---------------------------------------------------------------} - - - -const - MAGIC = TREOp (216);// programm signature - -// name opcode opnd? meaning - EEND = TREOp (0); // - End of program - BOL = TREOp (1); // - Match "" at beginning of line - EOL = TREOp (2); // - Match "" at end of line - ANY = TREOp (3); // - Match any one character - ANYOF = TREOp (4); // Str Match any character in string Str - ANYBUT = TREOp (5); // Str Match any char. not in string Str - BRANCH = TREOp (6); // Node Match this alternative, or the next - BACK = TREOp (7); // - Jump backward (Next < 0) - EXACTLY = TREOp (8); // Str Match string Str - NOTHING = TREOp (9); // - Match empty string - STAR = TREOp (10); // Node Match this (simple) thing 0 or more times - PLUS = TREOp (11); // Node Match this (simple) thing 1 or more times - ANYDIGIT = TREOp (12); // - Match any digit (equiv [0-9]) - NOTDIGIT = TREOp (13); // - Match not digit (equiv [0-9]) - ANYLETTER = TREOp (14); // - Match any letter from property WordChars - NOTLETTER = TREOp (15); // - Match not letter from property WordChars - ANYSPACE = TREOp (16); // - Match any space char (see property SpaceChars) - NOTSPACE = TREOp (17); // - Match not space char (see property SpaceChars) - BRACES = TREOp (18); // Node,Min,Max Match this (simple) thing from Min to Max times. - // Min and Max are TREBracesArg - COMMENT = TREOp (19); // - Comment ;) - EXACTLYCI = TREOp (20); // Str Match string Str case insensitive - ANYOFCI = TREOp (21); // Str Match any character in string Str, case insensitive - ANYBUTCI = TREOp (22); // Str Match any char. not in string Str, case insensitive - LOOPENTRY = TREOp (23); // Node Start of loop (Node - LOOP for this loop) - LOOP = TREOp (24); // Node,Min,Max,LoopEntryJmp - back jump for LOOPENTRY. - // Min and Max are TREBracesArg - // Node - next node in sequence, - // LoopEntryJmp - associated LOOPENTRY node addr - ANYOFTINYSET= TREOp (25); // Chrs Match any one char from Chrs (exactly TinySetLen chars) - ANYBUTTINYSET=TREOp (26); // Chrs Match any one char not in Chrs (exactly TinySetLen chars) - ANYOFFULLSET= TREOp (27); // Set Match any one char from set of char - // - very fast (one CPU instruction !) but takes 32 bytes of p-code - BSUBEXP = TREOp (28); // Idx Match previously matched subexpression #Idx (stored as REChar) //###0.936 - BSUBEXPCI = TREOp (29); // Idx -"- in case-insensitive mode - - // Non-Greedy Style Ops //###0.940 - STARNG = TREOp (30); // Same as START but in non-greedy mode - PLUSNG = TREOp (31); // Same as PLUS but in non-greedy mode - BRACESNG = TREOp (32); // Same as BRACES but in non-greedy mode - LOOPNG = TREOp (33); // Same as LOOP but in non-greedy mode - - // Multiline mode \m - BOLML = TREOp (34); // - Match "" at beginning of line - EOLML = TREOp (35); // - Match "" at end of line - ANYML = TREOp (36); // - Match any one character - - // Word boundary - BOUND = TREOp (37); // Match "" between words //###0.943 - NOTBOUND = TREOp (38); // Match "" not between words //###0.943 - - // !!! Change OPEN value if you add new opcodes !!! - - OPEN = TREOp (39); // - Mark this point in input as start of \n - // OPEN + 1 is \1, etc. - CLOSE = TREOp (ord (OPEN) + NSUBEXP); - // - Analogous to OPEN. - - // !!! Don't add new OpCodes after CLOSE !!! - -// We work with p-code thru pointers, compatible with PRegExprChar. -// Note: all code components (TRENextOff, TREOp, TREBracesArg, etc) -// must have lengths that can be divided by SizeOf (REChar) ! -// A node is TREOp of opcode followed Next "pointer" of TRENextOff type. -// The Next is a offset from the opcode of the node containing it. -// An operand, if any, simply follows the node. (Note that much of -// the code generation knows about this implicit relationship!) -// Using TRENextOff=integer speed up p-code processing. - -// Opcodes description: -// -// BRANCH The set of branches constituting a single choice are hooked -// together with their "next" pointers, since precedence prevents -// anything being concatenated to any individual branch. The -// "next" pointer of the last BRANCH in a choice points to the -// thing following the whole choice. This is also where the -// final "next" pointer of each individual branch points; each -// branch starts with the operand node of a BRANCH node. -// BACK Normal "next" pointers all implicitly point forward; BACK -// exists to make loop structures possible. -// STAR,PLUS,BRACES '?', and complex '*' and '+', are implemented as -// circular BRANCH structures using BACK. Complex '{min,max}' -// - as pair LOOPENTRY-LOOP (see below). Simple cases (one -// character per match) are implemented with STAR, PLUS and -// BRACES for speed and to minimize recursive plunges. -// LOOPENTRY,LOOP {min,max} are implemented as special pair -// LOOPENTRY-LOOP. Each LOOPENTRY initialize loopstack for -// current level. -// OPEN,CLOSE are numbered at compile time. - - -{=============================================================} -{================== Error handling section ===================} -{=============================================================} - -const - reeOk = 0; - reeCompNullArgument = 100; - reeCompRegexpTooBig = 101; - reeCompParseRegTooManyBrackets = 102; - reeCompParseRegUnmatchedBrackets = 103; - reeCompParseRegUnmatchedBrackets2 = 104; - reeCompParseRegJunkOnEnd = 105; - reePlusStarOperandCouldBeEmpty = 106; - reeNestedSQP = 107; - reeBadHexDigit = 108; - reeInvalidRange = 109; - reeParseAtomTrailingBackSlash = 110; - reeNoHexCodeAfterBSlashX = 111; - reeHexCodeAfterBSlashXTooBig = 112; - reeUnmatchedSqBrackets = 113; - reeInternalUrp = 114; - reeQPSBFollowsNothing = 115; - reeTrailingBackSlash = 116; - reeRarseAtomInternalDisaster = 119; - reeBRACESArgTooBig = 122; - reeBracesMinParamGreaterMax = 124; - reeUnclosedComment = 125; - reeComplexBracesNotImplemented = 126; - reeUrecognizedModifier = 127; - reeBadLinePairedSeparator = 128; - reeRegRepeatCalledInappropriately = 1000; - reeMatchPrimMemoryCorruption = 1001; - reeMatchPrimCorruptedPointers = 1002; - reeNoExpression = 1003; - reeCorruptedProgram = 1004; - reeNoInpitStringSpecified = 1005; - reeOffsetMustBeGreaterThen0 = 1006; - reeExecNextWithoutExec = 1007; - reeGetInputStringWithoutInputString = 1008; - reeDumpCorruptedOpcode = 1011; - reeModifierUnsupported = 1013; - reeLoopStackExceeded = 1014; - reeLoopWithoutEntry = 1015; - reeBadPCodeImported = 2000; - -function TRegExpr.ErrorMsg (AErrorID : integer) : RegExprString; - begin - case AErrorID of - reeOk: Result := 'No errors'; - reeCompNullArgument: Result := 'TRegExpr(comp): Null Argument'; - reeCompRegexpTooBig: Result := 'TRegExpr(comp): Regexp Too Big'; - reeCompParseRegTooManyBrackets: Result := 'TRegExpr(comp): ParseReg Too Many ()'; - reeCompParseRegUnmatchedBrackets: Result := 'TRegExpr(comp): ParseReg Unmatched ()'; - reeCompParseRegUnmatchedBrackets2: Result := 'TRegExpr(comp): ParseReg Unmatched ()'; - reeCompParseRegJunkOnEnd: Result := 'TRegExpr(comp): ParseReg Junk On End'; - reePlusStarOperandCouldBeEmpty: Result := 'TRegExpr(comp): *+ Operand Could Be Empty'; - reeNestedSQP: Result := 'TRegExpr(comp): Nested *?+'; - reeBadHexDigit: Result := 'TRegExpr(comp): Bad Hex Digit'; - reeInvalidRange: Result := 'TRegExpr(comp): Invalid [] Range'; - reeParseAtomTrailingBackSlash: Result := 'TRegExpr(comp): Parse Atom Trailing \'; - reeNoHexCodeAfterBSlashX: Result := 'TRegExpr(comp): No Hex Code After \x'; - reeHexCodeAfterBSlashXTooBig: Result := 'TRegExpr(comp): Hex Code After \x Is Too Big'; - reeUnmatchedSqBrackets: Result := 'TRegExpr(comp): Unmatched []'; - reeInternalUrp: Result := 'TRegExpr(comp): Internal Urp'; - reeQPSBFollowsNothing: Result := 'TRegExpr(comp): ?+*{ Follows Nothing'; - reeTrailingBackSlash: Result := 'TRegExpr(comp): Trailing \'; - reeRarseAtomInternalDisaster: Result := 'TRegExpr(comp): RarseAtom Internal Disaster'; - reeBRACESArgTooBig: Result := 'TRegExpr(comp): BRACES Argument Too Big'; - reeBracesMinParamGreaterMax: Result := 'TRegExpr(comp): BRACE Min Param Greater then Max'; - reeUnclosedComment: Result := 'TRegExpr(comp): Unclosed (?#Comment)'; - reeComplexBracesNotImplemented: Result := 'TRegExpr(comp): If you want take part in beta-testing BRACES ''{min,max}'' and non-greedy ops ''*?'', ''+?'', ''??'' for complex cases - remove ''.'' from {.$DEFINE ComplexBraces}'; - reeUrecognizedModifier: Result := 'TRegExpr(comp): Urecognized Modifier'; - reeBadLinePairedSeparator: Result := 'TRegExpr(comp): LinePairedSeparator must countain two different chars or no chars at all'; - - reeRegRepeatCalledInappropriately: Result := 'TRegExpr(exec): RegRepeat Called Inappropriately'; - reeMatchPrimMemoryCorruption: Result := 'TRegExpr(exec): MatchPrim Memory Corruption'; - reeMatchPrimCorruptedPointers: Result := 'TRegExpr(exec): MatchPrim Corrupted Pointers'; - reeNoExpression: Result := 'TRegExpr(exec): Not Assigned Expression Property'; - reeCorruptedProgram: Result := 'TRegExpr(exec): Corrupted Program'; - reeNoInpitStringSpecified: Result := 'TRegExpr(exec): No Input String Specified'; - reeOffsetMustBeGreaterThen0: Result := 'TRegExpr(exec): Offset Must Be Greater Then 0'; - reeExecNextWithoutExec: Result := 'TRegExpr(exec): ExecNext Without Exec[Pos]'; - reeGetInputStringWithoutInputString: Result := 'TRegExpr(exec): GetInputString Without InputString'; - reeDumpCorruptedOpcode: Result := 'TRegExpr(dump): Corrupted Opcode'; - reeLoopStackExceeded: Result := 'TRegExpr(exec): Loop Stack Exceeded'; - reeLoopWithoutEntry: Result := 'TRegExpr(exec): Loop Without LoopEntry !'; - - reeBadPCodeImported: Result := 'TRegExpr(misc): Bad p-code imported'; - else Result := 'Unknown error'; - end; - end; { of procedure TRegExpr.Error ---------------------------------------------------------------} - -function TRegExpr.LastError : integer; - begin - Result := fLastError; - fLastError := reeOk; - end; { of function TRegExpr.LastError ---------------------------------------------------------------} - - -{=============================================================} -{===================== Common section ========================} -{=============================================================} - -class function TRegExpr.VersionMajor : integer; //###0.944 - begin - Result := TRegExprVersionMajor; - end; { of class function TRegExpr.VersionMajor ---------------------------------------------------------------} - -class function TRegExpr.VersionMinor : integer; //###0.944 - begin - Result := TRegExprVersionMinor; - end; { of class function TRegExpr.VersionMinor ---------------------------------------------------------------} - -constructor TRegExpr.Create; - begin - inherited; - programm := nil; - fExpression := nil; - fInputString := nil; - - regexpbeg := nil; - fExprIsCompiled := false; - - ModifierI := RegExprModifierI; - ModifierR := RegExprModifierR; - ModifierS := RegExprModifierS; - ModifierG := RegExprModifierG; - ModifierM := RegExprModifierM; //###0.940 - - SpaceChars := RegExprSpaceChars; //###0.927 - WordChars := RegExprWordChars; //###0.929 - fInvertCase := RegExprInvertCaseFunction; //###0.927 - - fLineSeparators := RegExprLineSeparators; //###0.941 - LinePairedSeparator := RegExprLinePairedSeparator; //###0.941 - end; { of constructor TRegExpr.Create ---------------------------------------------------------------} - -destructor TRegExpr.Destroy; - begin - if programm <> nil - then FreeMem (programm); - if fExpression <> nil - then FreeMem (fExpression); - if fInputString <> nil - then FreeMem (fInputString); - end; { of destructor TRegExpr.Destroy ---------------------------------------------------------------} - -class function TRegExpr.InvertCaseFunction (const Ch : REChar) : REChar; - begin - {$IFDEF UniCode} - if Ch >= #128 - then Result := Ch - else - {$ENDIF} - begin - Result := {$IFDEF FPC}AnsiUpperCase (Ch) [1]{$ELSE} REChar (CharUpper (PChar (Ch))){$ENDIF}; - if Result = Ch - then Result := {$IFDEF FPC}AnsiLowerCase (Ch) [1]{$ELSE} REChar (CharLower (PChar (Ch))){$ENDIF}; - end; - end; { of function TRegExpr.InvertCaseFunction ---------------------------------------------------------------} - -function TRegExpr.GetExpression : RegExprString; - begin - if fExpression <> nil - then Result := fExpression - else Result := ''; - end; { of function TRegExpr.GetExpression ---------------------------------------------------------------} - -procedure TRegExpr.SetExpression (const s : RegExprString); - var - Len : integer; //###0.950 - begin - if (s <> fExpression) or not fExprIsCompiled then begin - fExprIsCompiled := false; - if fExpression <> nil then begin - FreeMem (fExpression); - fExpression := nil; - end; - if s <> '' then begin - Len := length (s); //###0.950 - GetMem (fExpression, (Len + 1) * SizeOf (REChar)); -// StrPCopy (fExpression, s); //###0.950 replaced due to StrPCopy limitation of 255 chars - {$IFDEF UniCode} - StrPCopy (fExpression, Copy (s, 1, Len)); //###0.950 - {$ELSE} - StrLCopy (fExpression, PRegExprChar (s), Len); //###0.950 - {$ENDIF UniCode} - - InvalidateProgramm; //###0.941 - end; - end; - end; { of procedure TRegExpr.SetExpression ---------------------------------------------------------------} - -function TRegExpr.GetSubExprMatchCount : integer; - begin - if Assigned (fInputString) then begin - Result := NSUBEXP - 1; - while (Result > 0) and ((startp [Result] = nil) - or (endp [Result] = nil)) - do dec (Result); - end - else Result := -1; - end; { of function TRegExpr.GetSubExprMatchCount ---------------------------------------------------------------} - -function TRegExpr.GetMatchPos (Idx : integer) : integer; - begin - if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString) - and Assigned (startp [Idx]) and Assigned (endp [Idx]) then begin - Result := (startp [Idx] - fInputString) + 1; - end - else Result := -1; - end; { of function TRegExpr.GetMatchPos ---------------------------------------------------------------} - -function TRegExpr.GetMatchLen (Idx : integer) : integer; - begin - if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString) - and Assigned (startp [Idx]) and Assigned (endp [Idx]) then begin - Result := endp [Idx] - startp [Idx]; - end - else Result := -1; - end; { of function TRegExpr.GetMatchLen ---------------------------------------------------------------} - -function TRegExpr.GetMatch (Idx : integer) : RegExprString; - begin - if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString) - and Assigned (startp [Idx]) and Assigned (endp [Idx]) - //then Result := copy (fInputString, MatchPos [Idx], MatchLen [Idx]) //###0.929 - then SetString (Result, startp [idx], endp [idx] - startp [idx]) - else Result := ''; - end; { of function TRegExpr.GetMatch ---------------------------------------------------------------} - -function TRegExpr.GetModifierStr : RegExprString; - begin - Result := '-'; - - if ModifierI - then Result := 'i' + Result - else Result := Result + 'i'; - if ModifierR - then Result := 'r' + Result - else Result := Result + 'r'; - if ModifierS - then Result := 's' + Result - else Result := Result + 's'; - if ModifierG - then Result := 'g' + Result - else Result := Result + 'g'; - if ModifierM - then Result := 'm' + Result - else Result := Result + 'm'; - if ModifierX - then Result := 'x' + Result - else Result := Result + 'x'; - - if Result [length (Result)] = '-' // remove '-' if all modifiers are 'On' - then System.Delete (Result, length (Result), 1); - end; { of function TRegExpr.GetModifierStr ---------------------------------------------------------------} - -class function TRegExpr.ParseModifiersStr (const AModifiers : RegExprString; -var AModifiersInt : integer) : boolean; -// !!! Be carefull - this is class function and must not use object instance fields - var - i : integer; - IsOn : boolean; - Mask : integer; - begin - Result := true; - IsOn := true; - Mask := 0; // prevent compiler warning - for i := 1 to length (AModifiers) do - if AModifiers [i] = '-' - then IsOn := false - else begin - if Pos (AModifiers [i], 'iI') > 0 - then Mask := MaskModI - else if Pos (AModifiers [i], 'rR') > 0 - then Mask := MaskModR - else if Pos (AModifiers [i], 'sS') > 0 - then Mask := MaskModS - else if Pos (AModifiers [i], 'gG') > 0 - then Mask := MaskModG - else if Pos (AModifiers [i], 'mM') > 0 - then Mask := MaskModM - else if Pos (AModifiers [i], 'xX') > 0 - then Mask := MaskModX - else begin - Result := false; - EXIT; - end; - if IsOn - then AModifiersInt := AModifiersInt or Mask - else AModifiersInt := AModifiersInt and not Mask; - end; - end; { of function TRegExpr.ParseModifiersStr ---------------------------------------------------------------} - -procedure TRegExpr.SetModifierStr (const AModifiers : RegExprString); - begin - if not ParseModifiersStr (AModifiers, fModifiers) - then Error (reeModifierUnsupported); - end; { of procedure TRegExpr.SetModifierStr ---------------------------------------------------------------} - -function TRegExpr.GetModifier (AIndex : integer) : boolean; - var - Mask : integer; - begin - Result := false; - case AIndex of - 1: Mask := MaskModI; - 2: Mask := MaskModR; - 3: Mask := MaskModS; - 4: Mask := MaskModG; - 5: Mask := MaskModM; - 6: Mask := MaskModX; - else begin - Error (reeModifierUnsupported); - EXIT; - end; - end; - Result := (fModifiers and Mask) <> 0; - end; { of function TRegExpr.GetModifier ---------------------------------------------------------------} - -procedure TRegExpr.SetModifier (AIndex : integer; ASet : boolean); - var - Mask : integer; - begin - case AIndex of - 1: Mask := MaskModI; - 2: Mask := MaskModR; - 3: Mask := MaskModS; - 4: Mask := MaskModG; - 5: Mask := MaskModM; - 6: Mask := MaskModX; - else begin - Error (reeModifierUnsupported); - EXIT; - end; - end; - if ASet - then fModifiers := fModifiers or Mask - else fModifiers := fModifiers and not Mask; - end; { of procedure TRegExpr.SetModifier ---------------------------------------------------------------} - - -{=============================================================} -{==================== Compiler section =======================} -{=============================================================} - -procedure TRegExpr.InvalidateProgramm; - begin - if programm <> nil then begin - FreeMem (programm); - programm := nil; - end; - end; { of procedure TRegExpr.InvalidateProgramm ---------------------------------------------------------------} - -procedure TRegExpr.Compile; //###0.941 - begin - if fExpression = nil then begin // No Expression assigned - Error (reeNoExpression); - EXIT; - end; - CompileRegExpr (fExpression); - end; { of procedure TRegExpr.Compile ---------------------------------------------------------------} - -function TRegExpr.IsProgrammOk : boolean; - {$IFNDEF UniCode} - var - i : integer; - {$ENDIF} - begin - Result := false; - - // check modifiers - if fModifiers <> fProgModifiers //###0.941 - then InvalidateProgramm; - - // can we optimize line separators by using sets? - {$IFNDEF UniCode} - fLineSeparatorsSet := []; - for i := 1 to length (fLineSeparators) - do System.Include (fLineSeparatorsSet, fLineSeparators [i]); - {$ENDIF} - - // [Re]compile if needed - if programm = nil - then Compile; //###0.941 - - // check [re]compiled programm - if programm = nil - then EXIT // error was set/raised by Compile (was reeExecAfterCompErr) - else if programm [0] <> MAGIC // Program corrupted. - then Error (reeCorruptedProgram) - else Result := true; - end; { of function TRegExpr.IsProgrammOk ---------------------------------------------------------------} - -procedure TRegExpr.Tail (p : PRegExprChar; val : PRegExprChar); -// set the next-pointer at the end of a node chain - var - scan : PRegExprChar; - temp : PRegExprChar; -// i : int64; - begin - if p = @regdummy - then EXIT; - // Find last node. - scan := p; - REPEAT - temp := regnext (scan); - if temp = nil - then BREAK; - scan := temp; - UNTIL false; - // Set Next 'pointer' - if val < scan - then PRENextOff (scan + REOpSz)^ := - (scan - val) //###0.948 - // work around PWideChar subtraction bug (Delphi uses - // shr after subtraction to calculate widechar distance %-( ) - // so, if difference is negative we have .. the "feature" :( - // I could wrap it in $IFDEF UniCode, but I didn't because - // "P – Q computes the difference between the address given - // by P (the higher address) and the address given by Q (the - // lower address)" - Delphi help quotation. - else PRENextOff (scan + REOpSz)^ := val - scan; //###0.933 - end; { of procedure TRegExpr.Tail ---------------------------------------------------------------} - -procedure TRegExpr.OpTail (p : PRegExprChar; val : PRegExprChar); -// regtail on operand of first argument; nop if operandless - begin - // "Operandless" and "op != BRANCH" are synonymous in practice. - if (p = nil) or (p = @regdummy) or (PREOp (p)^ <> BRANCH) - then EXIT; - Tail (p + REOpSz + RENextOffSz, val); //###0.933 - end; { of procedure TRegExpr.OpTail ---------------------------------------------------------------} - -function TRegExpr.EmitNode (op : TREOp) : PRegExprChar; //###0.933 -// emit a node, return location - begin - Result := regcode; - if Result <> @regdummy then begin - PREOp (regcode)^ := op; - inc (regcode, REOpSz); - PRENextOff (regcode)^ := 0; // Next "pointer" := nil - inc (regcode, RENextOffSz); - end - else inc (regsize, REOpSz + RENextOffSz); // compute code size without code generation - end; { of function TRegExpr.EmitNode ---------------------------------------------------------------} - -procedure TRegExpr.EmitC (b : REChar); -// emit a byte to code - begin - if regcode <> @regdummy then begin - regcode^ := b; - inc (regcode); - end - else inc (regsize); // Type of p-code pointer always is ^REChar - end; { of procedure TRegExpr.EmitC ---------------------------------------------------------------} - -procedure TRegExpr.InsertOperator (op : TREOp; opnd : PRegExprChar; sz : integer); -// insert an operator in front of already-emitted operand -// Means relocating the operand. - var - src, dst, place : PRegExprChar; - i : integer; - begin - if regcode = @regdummy then begin - inc (regsize, sz); - EXIT; - end; - src := regcode; - inc (regcode, sz); - dst := regcode; - while src > opnd do begin - dec (dst); - dec (src); - dst^ := src^; - end; - place := opnd; // Op node, where operand used to be. - PREOp (place)^ := op; - inc (place, REOpSz); - for i := 1 + REOpSz to sz do begin - place^ := #0; - inc (place); - end; - end; { of procedure TRegExpr.InsertOperator ---------------------------------------------------------------} - -function strcspn (s1 : PRegExprChar; s2 : PRegExprChar) : integer; -// find length of initial segment of s1 consisting -// entirely of characters not from s2 - var scan1, scan2 : PRegExprChar; - begin - Result := 0; - scan1 := s1; - while scan1^ <> #0 do begin - scan2 := s2; - while scan2^ <> #0 do - if scan1^ = scan2^ - then EXIT - else inc (scan2); - inc (Result); - inc (scan1) - end; - end; { of function strcspn ---------------------------------------------------------------} - -const -// Flags to be passed up and down. - HASWIDTH = 01; // Known never to match nil string. - SIMPLE = 02; // Simple enough to be STAR/PLUS/BRACES operand. - SPSTART = 04; // Starts with * or +. - WORST = 0; // Worst case. - META : array [0 .. 12] of REChar = ( - '^', '$', '.', '[', '(', ')', '|', '?', '+', '*', EscChar, '{', #0); - // Any modification must be synchronized with QuoteRegExprMetaChars !!! - -{$IFDEF UniCode} - RusRangeLo : array [0 .. 33] of REChar = - (#$430,#$431,#$432,#$433,#$434,#$435,#$451,#$436,#$437, - #$438,#$439,#$43A,#$43B,#$43C,#$43D,#$43E,#$43F, - #$440,#$441,#$442,#$443,#$444,#$445,#$446,#$447, - #$448,#$449,#$44A,#$44B,#$44C,#$44D,#$44E,#$44F,#0); - RusRangeHi : array [0 .. 33] of REChar = - (#$410,#$411,#$412,#$413,#$414,#$415,#$401,#$416,#$417, - #$418,#$419,#$41A,#$41B,#$41C,#$41D,#$41E,#$41F, - #$420,#$421,#$422,#$423,#$424,#$425,#$426,#$427, - #$428,#$429,#$42A,#$42B,#$42C,#$42D,#$42E,#$42F,#0); - RusRangeLoLow = #$430{'à'}; - RusRangeLoHigh = #$44F{'ÿ'}; - RusRangeHiLow = #$410{'À'}; - RusRangeHiHigh = #$42F{'ß'}; -{$ELSE} - RusRangeLo = 'àáâãä叿çèéêëìíîïðñòóôõö÷øùúûüýþÿ'; - RusRangeHi = 'ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖרÙÚÛÜÝÞß'; - RusRangeLoLow = 'à'; - RusRangeLoHigh = 'ÿ'; - RusRangeHiLow = 'À'; - RusRangeHiHigh = 'ß'; -{$ENDIF} - -function TRegExpr.CompileRegExpr (exp : PRegExprChar) : boolean; -// compile a regular expression into internal code -// We can't allocate space until we know how big the compiled form will be, -// but we can't compile it (and thus know how big it is) until we've got a -// place to put the code. So we cheat: we compile it twice, once with code -// generation turned off and size counting turned on, and once "for real". -// This also means that we don't allocate space until we are sure that the -// thing really will compile successfully, and we never have to move the -// code and thus invalidate pointers into it. (Note that it has to be in -// one piece because free() must be able to free it all.) -// Beware that the optimization-preparation code in here knows about some -// of the structure of the compiled regexp. - var - scan, longest : PRegExprChar; - len : cardinal; - flags : integer; - begin - Result := false; // life too dark - - regparse := nil; // for correct error handling - regexpbeg := exp; - try - - if programm <> nil then begin - FreeMem (programm); - programm := nil; - end; - - if exp = nil then begin - Error (reeCompNullArgument); - EXIT; - end; - - fProgModifiers := fModifiers; - // well, may it's paranoia. I'll check it later... !!!!!!!! - - // First pass: determine size, legality. - fCompModifiers := fModifiers; - regparse := exp; - regnpar := 1; - regsize := 0; - regcode := @regdummy; - EmitC (MAGIC); - if ParseReg (0, flags) = nil - then EXIT; - - // Small enough for 2-bytes programm pointers ? - // ###0.933 no real p-code length limits now :))) -// if regsize >= 64 * 1024 then begin -// Error (reeCompRegexpTooBig); -// EXIT; -// end; - - // Allocate space. - GetMem (programm, regsize * SizeOf (REChar)); - - // Second pass: emit code. - fCompModifiers := fModifiers; - regparse := exp; - regnpar := 1; - regcode := programm; - EmitC (MAGIC); - if ParseReg (0, flags) = nil - then EXIT; - - // Dig out information for optimizations. - {$IFDEF UseFirstCharSet} //###0.929 - FirstCharSet := []; - FillFirstCharSet (programm + REOpSz); - {$ENDIF} - regstart := #0; // Worst-case defaults. - reganch := #0; - regmust := nil; - regmlen := 0; - scan := programm + REOpSz; // First BRANCH. - if PREOp (regnext (scan))^ = EEND then begin // Only one top-level choice. - scan := scan + REOpSz + RENextOffSz; - - // Starting-point info. - if PREOp (scan)^ = EXACTLY - then regstart := (scan + REOpSz + RENextOffSz)^ - else if PREOp (scan)^ = BOL - then inc (reganch); - - // If there's something expensive in the r.e., find the longest - // literal string that must appear and make it the regmust. Resolve - // ties in favor of later strings, since the regstart check works - // with the beginning of the r.e. and avoiding duplication - // strengthens checking. Not a strong reason, but sufficient in the - // absence of others. - if (flags and SPSTART) <> 0 then begin - longest := nil; - len := 0; - while scan <> nil do begin - if (PREOp (scan)^ = EXACTLY) - and (strlen (scan + REOpSz + RENextOffSz) >= len) then begin - longest := scan + REOpSz + RENextOffSz; - len := strlen (longest); - end; - scan := regnext (scan); - end; - regmust := longest; - regmlen := len; - end; - end; - - Result := true; - - finally begin - if not Result - then InvalidateProgramm; - regexpbeg := nil; - fExprIsCompiled := Result; //###0.944 - end; - end; - - end; { of function TRegExpr.CompileRegExpr ---------------------------------------------------------------} - -function TRegExpr.ParseReg (paren : integer; var flagp : integer) : PRegExprChar; -// regular expression, i.e. main body or parenthesized thing -// Caller must absorb opening parenthesis. -// Combining parenthesis handling with the base level of regular expression -// is a trifle forced, but the need to tie the tails of the branches to what -// follows makes it hard to avoid. - var - ret, br, ender : PRegExprChar; - parno : integer; - flags : integer; - SavedModifiers : integer; - begin - Result := nil; - flagp := HASWIDTH; // Tentatively. - parno := 0; // eliminate compiler stupid warning - SavedModifiers := fCompModifiers; - - // Make an OPEN node, if parenthesized. - if paren <> 0 then begin - if regnpar >= NSUBEXP then begin - Error (reeCompParseRegTooManyBrackets); - EXIT; - end; - parno := regnpar; - inc (regnpar); - ret := EmitNode (TREOp (ord (OPEN) + parno)); - end - else ret := nil; - - // Pick up the branches, linking them together. - br := ParseBranch (flags); - if br = nil then begin - Result := nil; - EXIT; - end; - if ret <> nil - then Tail (ret, br) // OPEN -> first. - else ret := br; - if (flags and HASWIDTH) = 0 - then flagp := flagp and not HASWIDTH; - flagp := flagp or flags and SPSTART; - while (regparse^ = '|') do begin - inc (regparse); - br := ParseBranch (flags); - if br = nil then begin - Result := nil; - EXIT; - end; - Tail (ret, br); // BRANCH -> BRANCH. - if (flags and HASWIDTH) = 0 - then flagp := flagp and not HASWIDTH; - flagp := flagp or flags and SPSTART; - end; - - // Make a closing node, and hook it on the end. - if paren <> 0 - then ender := EmitNode (TREOp (ord (CLOSE) + parno)) - else ender := EmitNode (EEND); - Tail (ret, ender); - - // Hook the tails of the branches to the closing node. - br := ret; - while br <> nil do begin - OpTail (br, ender); - br := regnext (br); - end; - - // Check for proper termination. - if paren <> 0 then - if regparse^ <> ')' then begin - Error (reeCompParseRegUnmatchedBrackets); - EXIT; - end - else inc (regparse); // skip trailing ')' - if (paren = 0) and (regparse^ <> #0) then begin - if regparse^ = ')' - then Error (reeCompParseRegUnmatchedBrackets2) - else Error (reeCompParseRegJunkOnEnd); - EXIT; - end; - fCompModifiers := SavedModifiers; // restore modifiers of parent - Result := ret; - end; { of function TRegExpr.ParseReg ---------------------------------------------------------------} - -function TRegExpr.ParseBranch (var flagp : integer) : PRegExprChar; -// one alternative of an | operator -// Implements the concatenation operator. - var - ret, chain, latest : PRegExprChar; - flags : integer; - begin - flagp := WORST; // Tentatively. - - ret := EmitNode (BRANCH); - chain := nil; - while (regparse^ <> #0) and (regparse^ <> '|') - and (regparse^ <> ')') do begin - latest := ParsePiece (flags); - if latest = nil then begin - Result := nil; - EXIT; - end; - flagp := flagp or flags and HASWIDTH; - if chain = nil // First piece. - then flagp := flagp or flags and SPSTART - else Tail (chain, latest); - chain := latest; - end; - if chain = nil // Loop ran zero times. - then EmitNode (NOTHING); - Result := ret; - end; { of function TRegExpr.ParseBranch ---------------------------------------------------------------} - -function TRegExpr.ParsePiece (var flagp : integer) : PRegExprChar; -// something followed by possible [*+?{] -// Note that the branching code sequences used for ? and the general cases -// of * and + and { are somewhat optimized: they use the same NOTHING node as -// both the endmarker for their branch list and the body of the last branch. -// It might seem that this node could be dispensed with entirely, but the -// endmarker role is not redundant. - function parsenum (AStart, AEnd : PRegExprChar) : TREBracesArg; - begin - Result := 0; - if AEnd - AStart + 1 > 8 then begin // prevent stupid scanning - Error (reeBRACESArgTooBig); - EXIT; - end; - while AStart <= AEnd do begin - Result := Result * 10 + (ord (AStart^) - ord ('0')); - inc (AStart); - end; - if (Result > MaxBracesArg) or (Result < 0) then begin - Error (reeBRACESArgTooBig); - EXIT; - end; - end; - - var - op : REChar; - NonGreedyOp, NonGreedyCh : boolean; //###0.940 - TheOp : TREOp; //###0.940 - NextNode : PRegExprChar; - flags : integer; - BracesMin, Bracesmax : TREBracesArg; - p, savedparse : PRegExprChar; - - procedure EmitComplexBraces (ABracesMin, ABracesMax : TREBracesArg; - ANonGreedyOp : boolean); //###0.940 - {$IFDEF ComplexBraces} - var - off : integer; - {$ENDIF} - begin - {$IFNDEF ComplexBraces} - Error (reeComplexBracesNotImplemented); - {$ELSE} - if ANonGreedyOp - then TheOp := LOOPNG - else TheOp := LOOP; - InsertOperator (LOOPENTRY, Result, REOpSz + RENextOffSz); - NextNode := EmitNode (TheOp); - if regcode <> @regdummy then begin - off := (Result + REOpSz + RENextOffSz) - - (regcode - REOpSz - RENextOffSz); // back to Atom after LOOPENTRY - PREBracesArg (regcode)^ := ABracesMin; - inc (regcode, REBracesArgSz); - PREBracesArg (regcode)^ := ABracesMax; - inc (regcode, REBracesArgSz); - PRENextOff (regcode)^ := off; - inc (regcode, RENextOffSz); - end - else inc (regsize, REBracesArgSz * 2 + RENextOffSz); - Tail (Result, NextNode); // LOOPENTRY -> LOOP - if regcode <> @regdummy then - Tail (Result + REOpSz + RENextOffSz, NextNode); // Atom -> LOOP - {$ENDIF} - end; - - procedure EmitSimpleBraces (ABracesMin, ABracesMax : TREBracesArg; - ANonGreedyOp : boolean); //###0.940 - begin - if ANonGreedyOp //###0.940 - then TheOp := BRACESNG - else TheOp := BRACES; - InsertOperator (TheOp, Result, REOpSz + RENextOffSz + REBracesArgSz * 2); - if regcode <> @regdummy then begin - PREBracesArg (Result + REOpSz + RENextOffSz)^ := ABracesMin; - PREBracesArg (Result + REOpSz + RENextOffSz + REBracesArgSz)^ := ABracesMax; - end; - end; - - begin - Result := ParseAtom (flags); - if Result = nil - then EXIT; - - op := regparse^; - if not ((op = '*') or (op = '+') or (op = '?') or (op = '{')) then begin - flagp := flags; - EXIT; - end; - if ((flags and HASWIDTH) = 0) and (op <> '?') then begin - Error (reePlusStarOperandCouldBeEmpty); - EXIT; - end; - - case op of - '*': begin - flagp := WORST or SPSTART; - NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 - NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 - if (flags and SIMPLE) = 0 then begin - if NonGreedyOp //###0.940 - then EmitComplexBraces (0, MaxBracesArg, NonGreedyOp) - else begin // Emit x* as (x&|), where & means "self". - InsertOperator (BRANCH, Result, REOpSz + RENextOffSz); // Either x - OpTail (Result, EmitNode (BACK)); // and loop - OpTail (Result, Result); // back - Tail (Result, EmitNode (BRANCH)); // or - Tail (Result, EmitNode (NOTHING)); // nil. - end - end - else begin // Simple - if NonGreedyOp //###0.940 - then TheOp := STARNG - else TheOp := STAR; - InsertOperator (TheOp, Result, REOpSz + RENextOffSz); - end; - if NonGreedyCh //###0.940 - then inc (regparse); // Skip extra char ('?') - end; { of case '*'} - '+': begin - flagp := WORST or SPSTART or HASWIDTH; - NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 - NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 - if (flags and SIMPLE) = 0 then begin - if NonGreedyOp //###0.940 - then EmitComplexBraces (1, MaxBracesArg, NonGreedyOp) - else begin // Emit x+ as x(&|), where & means "self". - NextNode := EmitNode (BRANCH); // Either - Tail (Result, NextNode); - Tail (EmitNode (BACK), Result); // loop back - Tail (NextNode, EmitNode (BRANCH)); // or - Tail (Result, EmitNode (NOTHING)); // nil. - end - end - else begin // Simple - if NonGreedyOp //###0.940 - then TheOp := PLUSNG - else TheOp := PLUS; - InsertOperator (TheOp, Result, REOpSz + RENextOffSz); - end; - if NonGreedyCh //###0.940 - then inc (regparse); // Skip extra char ('?') - end; { of case '+'} - '?': begin - flagp := WORST; - NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 - NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 - if NonGreedyOp then begin //###0.940 // We emit x?? as x{0,1}? - if (flags and SIMPLE) = 0 - then EmitComplexBraces (0, 1, NonGreedyOp) - else EmitSimpleBraces (0, 1, NonGreedyOp); - end - else begin // greedy '?' - InsertOperator (BRANCH, Result, REOpSz + RENextOffSz); // Either x - Tail (Result, EmitNode (BRANCH)); // or - NextNode := EmitNode (NOTHING); // nil. - Tail (Result, NextNode); - OpTail (Result, NextNode); - end; - if NonGreedyCh //###0.940 - then inc (regparse); // Skip extra char ('?') - end; { of case '?'} - '{': begin - savedparse := regparse; - // !!!!!!!!!!!! - // Filip Jirsak's note - what will happen, when we are at the end of regparse? - inc (regparse); - p := regparse; - while Pos (regparse^, '0123456789') > 0 // MUST appear - do inc (regparse); - if (regparse^ <> '}') and (regparse^ <> ',') or (p = regparse) then begin - regparse := savedparse; - flagp := flags; - EXIT; - end; - BracesMin := parsenum (p, regparse - 1); - if regparse^ = ',' then begin - inc (regparse); - p := regparse; - while Pos (regparse^, '0123456789') > 0 - do inc (regparse); - if regparse^ <> '}' then begin - regparse := savedparse; - EXIT; - end; - if p = regparse - then BracesMax := MaxBracesArg - else BracesMax := parsenum (p, regparse - 1); - end - else BracesMax := BracesMin; // {n} == {n,n} - if BracesMin > BracesMax then begin - Error (reeBracesMinParamGreaterMax); - EXIT; - end; - if BracesMin > 0 - then flagp := WORST; - if BracesMax > 0 - then flagp := flagp or HASWIDTH or SPSTART; - - NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 - NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 - if (flags and SIMPLE) <> 0 - then EmitSimpleBraces (BracesMin, BracesMax, NonGreedyOp) - else EmitComplexBraces (BracesMin, BracesMax, NonGreedyOp); - if NonGreedyCh //###0.940 - then inc (regparse); // Skip extra char '?' - end; { of case '{'} -// else // here we can't be - end; { of case op} - - inc (regparse); - if (regparse^ = '*') or (regparse^ = '+') or (regparse^ = '?') or (regparse^ = '{') then begin - Error (reeNestedSQP); - EXIT; - end; - end; { of function TRegExpr.ParsePiece ---------------------------------------------------------------} - -function TRegExpr.ParseAtom (var flagp : integer) : PRegExprChar; -// the lowest level -// Optimization: gobbles an entire sequence of ordinary characters so that -// it can turn them into a single node, which is smaller to store and -// faster to run. Backslashed characters are exceptions, each becoming a -// separate node; the code is simpler that way and it's not worth fixing. - var - ret : PRegExprChar; - flags : integer; - RangeBeg, RangeEnd : REChar; - CanBeRange : boolean; - len : integer; - ender : REChar; - begmodfs : PRegExprChar; - - {$IFDEF UseSetOfChar} //###0.930 - RangePCodeBeg : PRegExprChar; - RangePCodeIdx : integer; - RangeIsCI : boolean; - RangeSet : TSetOfREChar; - RangeLen : integer; - RangeChMin, RangeChMax : REChar; - {$ENDIF} - - procedure EmitExactly (ch : REChar); - begin - if (fCompModifiers and MaskModI) <> 0 - then ret := EmitNode (EXACTLYCI) - else ret := EmitNode (EXACTLY); - EmitC (ch); - EmitC (#0); - flagp := flagp or HASWIDTH or SIMPLE; - end; - - procedure EmitStr (const s : RegExprString); - var i : integer; - begin - for i := 1 to length (s) - do EmitC (s [i]); - end; - - function HexDig (ch : REChar) : integer; - begin - Result := 0; - if (ch >= 'a') and (ch <= 'f') - then ch := REChar (ord (ch) - (ord ('a') - ord ('A'))); - if (ch < '0') or (ch > 'F') or ((ch > '9') and (ch < 'A')) then begin - Error (reeBadHexDigit); - EXIT; - end; - Result := ord (ch) - ord ('0'); - if ch >= 'A' - then Result := Result - (ord ('A') - ord ('9') - 1); - end; - - function EmitRange (AOpCode : REChar) : PRegExprChar; - begin - {$IFDEF UseSetOfChar} - case AOpCode of - ANYBUTCI, ANYBUT: - Result := EmitNode (ANYBUTTINYSET); - else // ANYOFCI, ANYOF - Result := EmitNode (ANYOFTINYSET); - end; - case AOpCode of - ANYBUTCI, ANYOFCI: - RangeIsCI := True; - else // ANYBUT, ANYOF - RangeIsCI := False; - end; - RangePCodeBeg := regcode; - RangePCodeIdx := regsize; - RangeLen := 0; - RangeSet := []; - RangeChMin := #255; - RangeChMax := #0; - {$ELSE} - Result := EmitNode (AOpCode); - // ToDo: - // !!!!!!!!!!!!! Implement ANYOF[BUT]TINYSET generation for UniCode !!!!!!!!!! - {$ENDIF} - end; - -{$IFDEF UseSetOfChar} - procedure EmitRangeCPrim (b : REChar); //###0.930 - begin - if b in RangeSet - then EXIT; - inc (RangeLen); - if b < RangeChMin - then RangeChMin := b; - if b > RangeChMax - then RangeChMax := b; - Include (RangeSet, b); - end; - {$ENDIF} - - procedure EmitRangeC (b : REChar); - {$IFDEF UseSetOfChar} - var - Ch : REChar; - {$ENDIF} - begin - CanBeRange := false; - {$IFDEF UseSetOfChar} - if b <> #0 then begin - EmitRangeCPrim (b); //###0.930 - if RangeIsCI - then EmitRangeCPrim (InvertCase (b)); //###0.930 - end - else begin - {$IFDEF UseAsserts} - Assert (RangeLen > 0, 'TRegExpr.ParseAtom(subroutine EmitRangeC): empty range'); // impossible, but who knows.. - Assert (RangeChMin <= RangeChMax, 'TRegExpr.ParseAtom(subroutine EmitRangeC): RangeChMin > RangeChMax'); // impossible, but who knows.. - {$ENDIF} - if RangeLen <= TinySetLen then begin // emit "tiny set" - if regcode = @regdummy then begin - regsize := RangePCodeIdx + TinySetLen; // RangeChMin/Max !!! - EXIT; - end; - regcode := RangePCodeBeg; - for Ch := RangeChMin to RangeChMax do //###0.930 - if Ch in RangeSet then begin - regcode^ := Ch; - inc (regcode); - end; - // fill rest: - while regcode < RangePCodeBeg + TinySetLen do begin - regcode^ := RangeChMax; - inc (regcode); - end; - end - else begin - if regcode = @regdummy then begin - regsize := RangePCodeIdx + SizeOf (TSetOfREChar); - EXIT; - end; - if (RangePCodeBeg - REOpSz - RENextOffSz)^ = ANYBUTTINYSET - then RangeSet := [#0 .. #255] - RangeSet; - PREOp (RangePCodeBeg - REOpSz - RENextOffSz)^ := ANYOFFULLSET; - regcode := RangePCodeBeg; - Move (RangeSet, regcode^, SizeOf (TSetOfREChar)); - inc (regcode, SizeOf (TSetOfREChar)); - end; - end; - {$ELSE} - EmitC (b); - {$ENDIF} - end; - - procedure EmitSimpleRangeC (b : REChar); - begin - RangeBeg := b; - EmitRangeC (b); - CanBeRange := true; - end; - - procedure EmitRangeStr (const s : RegExprString); - var i : integer; - begin - for i := 1 to length (s) - do EmitRangeC (s [i]); - end; - - function UnQuoteChar (var APtr : PRegExprChar) : REChar; //###0.934 - begin - case APtr^ of - 't': Result := #$9; // tab (HT/TAB) - 'n': Result := #$a; // newline (NL) - 'r': Result := #$d; // car.return (CR) - 'f': Result := #$c; // form feed (FF) - 'a': Result := #$7; // alarm (bell) (BEL) - 'e': Result := #$1b; // escape (ESC) - 'x': begin // hex char - Result := #0; - inc (APtr); - if APtr^ = #0 then begin - Error (reeNoHexCodeAfterBSlashX); - EXIT; - end; - if APtr^ = '{' then begin // \x{nnnn} //###0.936 - REPEAT - inc (APtr); - if APtr^ = #0 then begin - Error (reeNoHexCodeAfterBSlashX); - EXIT; - end; - if APtr^ <> '}' then begin - if (Ord (Result) - ShR (SizeOf (REChar) * 8 - 4)) and $F <> 0 then begin - Error (reeHexCodeAfterBSlashXTooBig); - EXIT; - end; - Result := REChar ((Ord (Result) ShL 4) or HexDig (APtr^)); - // HexDig will cause Error if bad hex digit found - end - else BREAK; - UNTIL False; - end - else begin - Result := REChar (HexDig (APtr^)); - // HexDig will cause Error if bad hex digit found - inc (APtr); - if APtr^ = #0 then begin - Error (reeNoHexCodeAfterBSlashX); - EXIT; - end; - Result := REChar ((Ord (Result) ShL 4) or HexDig (APtr^)); - // HexDig will cause Error if bad hex digit found - end; - end; - else Result := APtr^; - end; - end; - - begin - Result := nil; - flagp := WORST; // Tentatively. - - inc (regparse); - case (regparse - 1)^ of - '^': if ((fCompModifiers and MaskModM) = 0) - or ((fLineSeparators = '') and not fLinePairedSeparatorAssigned) - then ret := EmitNode (BOL) - else ret := EmitNode (BOLML); - '$': if ((fCompModifiers and MaskModM) = 0) - or ((fLineSeparators = '') and not fLinePairedSeparatorAssigned) - then ret := EmitNode (EOL) - else ret := EmitNode (EOLML); - '.': - if (fCompModifiers and MaskModS) <> 0 then begin - ret := EmitNode (ANY); - flagp := flagp or HASWIDTH or SIMPLE; - end - else begin // not /s, so emit [^:LineSeparators:] - ret := EmitNode (ANYML); - flagp := flagp or HASWIDTH; // not so simple ;) -// ret := EmitRange (ANYBUT); -// EmitRangeStr (LineSeparators); //###0.941 -// EmitRangeStr (LinePairedSeparator); // !!! isn't correct if have to accept only paired -// EmitRangeC (#0); -// flagp := flagp or HASWIDTH or SIMPLE; - end; - '[': begin - if regparse^ = '^' then begin // Complement of range. - if (fCompModifiers and MaskModI) <> 0 - then ret := EmitRange (ANYBUTCI) - else ret := EmitRange (ANYBUT); - inc (regparse); - end - else - if (fCompModifiers and MaskModI) <> 0 - then ret := EmitRange (ANYOFCI) - else ret := EmitRange (ANYOF); - - CanBeRange := false; - - if (regparse^ = ']') then begin - EmitSimpleRangeC (regparse^); // []-a] -> ']' .. 'a' - inc (regparse); - end; - - while (regparse^ <> #0) and (regparse^ <> ']') do begin - if (regparse^ = '-') - and ((regparse + 1)^ <> #0) and ((regparse + 1)^ <> ']') - and CanBeRange then begin - inc (regparse); - RangeEnd := regparse^; - if RangeEnd = EscChar then begin - {$IFDEF UniCode} //###0.935 - if (ord ((regparse + 1)^) < 256) - and (char ((regparse + 1)^) - in ['d', 'D', 's', 'S', 'w', 'W']) then begin - {$ELSE} - if (regparse + 1)^ in ['d', 'D', 's', 'S', 'w', 'W'] then begin - {$ENDIF} - EmitRangeC ('-'); // or treat as error ?!! - CONTINUE; - end; - inc (regparse); - RangeEnd := UnQuoteChar (regparse); - end; - - // r.e.ranges extension for russian - if ((fCompModifiers and MaskModR) <> 0) - and (RangeBeg = RusRangeLoLow) and (RangeEnd = RusRangeLoHigh) then begin - EmitRangeStr (RusRangeLo); - end - else if ((fCompModifiers and MaskModR) <> 0) - and (RangeBeg = RusRangeHiLow) and (RangeEnd = RusRangeHiHigh) then begin - EmitRangeStr (RusRangeHi); - end - else if ((fCompModifiers and MaskModR) <> 0) - and (RangeBeg = RusRangeLoLow) and (RangeEnd = RusRangeHiHigh) then begin - EmitRangeStr (RusRangeLo); - EmitRangeStr (RusRangeHi); - end - else begin // standard r.e. handling - if RangeBeg > RangeEnd then begin - Error (reeInvalidRange); - EXIT; - end; - inc (RangeBeg); - EmitRangeC (RangeEnd); // prevent infinite loop if RangeEnd=$ff - while RangeBeg < RangeEnd do begin //###0.929 - EmitRangeC (RangeBeg); - inc (RangeBeg); - end; - end; - inc (regparse); - end - else begin - if regparse^ = EscChar then begin - inc (regparse); - if regparse^ = #0 then begin - Error (reeParseAtomTrailingBackSlash); - EXIT; - end; - case regparse^ of // r.e.extensions - 'd': EmitRangeStr ('0123456789'); - 'w': EmitRangeStr (WordChars); - 's': EmitRangeStr (SpaceChars); - else EmitSimpleRangeC (UnQuoteChar (regparse)); - end; { of case} - end - else EmitSimpleRangeC (regparse^); - inc (regparse); - end; - end; { of while} - EmitRangeC (#0); - if regparse^ <> ']' then begin - Error (reeUnmatchedSqBrackets); - EXIT; - end; - inc (regparse); - flagp := flagp or HASWIDTH or SIMPLE; - end; - '(': begin - if regparse^ = '?' then begin - // check for extended Perl syntax : (?..) - if (regparse + 1)^ = '#' then begin // (?#comment) - inc (regparse, 2); // find closing ')' - while (regparse^ <> #0) and (regparse^ <> ')') - do inc (regparse); - if regparse^ <> ')' then begin - Error (reeUnclosedComment); - EXIT; - end; - inc (regparse); // skip ')' - ret := EmitNode (COMMENT); // comment - end - else begin // modifiers ? - inc (regparse); // skip '?' - begmodfs := regparse; - while (regparse^ <> #0) and (regparse^ <> ')') - do inc (regparse); - if (regparse^ <> ')') - or not ParseModifiersStr (copy (begmodfs, 1, (regparse - begmodfs)), fCompModifiers) then begin - Error (reeUrecognizedModifier); - EXIT; - end; - inc (regparse); // skip ')' - ret := EmitNode (COMMENT); // comment -// Error (reeQPSBFollowsNothing); -// EXIT; - end; - end - else begin - ret := ParseReg (1, flags); - if ret = nil then begin - Result := nil; - EXIT; - end; - flagp := flagp or flags and (HASWIDTH or SPSTART); - end; - end; - #0, '|', ')': begin // Supposed to be caught earlier. - Error (reeInternalUrp); - EXIT; - end; - '?', '+', '*': begin - Error (reeQPSBFollowsNothing); - EXIT; - end; - EscChar: begin - if regparse^ = #0 then begin - Error (reeTrailingBackSlash); - EXIT; - end; - case regparse^ of // r.e.extensions - 'b': ret := EmitNode (BOUND); //###0.943 - 'B': ret := EmitNode (NOTBOUND); //###0.943 - 'A': ret := EmitNode (BOL); //###0.941 - 'Z': ret := EmitNode (EOL); //###0.941 - 'd': begin // r.e.extension - any digit ('0' .. '9') - ret := EmitNode (ANYDIGIT); - flagp := flagp or HASWIDTH or SIMPLE; - end; - 'D': begin // r.e.extension - not digit ('0' .. '9') - ret := EmitNode (NOTDIGIT); - flagp := flagp or HASWIDTH or SIMPLE; - end; - 's': begin // r.e.extension - any space char - {$IFDEF UseSetOfChar} - ret := EmitRange (ANYOF); - EmitRangeStr (SpaceChars); - EmitRangeC (#0); - {$ELSE} - ret := EmitNode (ANYSPACE); - {$ENDIF} - flagp := flagp or HASWIDTH or SIMPLE; - end; - 'S': begin // r.e.extension - not space char - {$IFDEF UseSetOfChar} - ret := EmitRange (ANYBUT); - EmitRangeStr (SpaceChars); - EmitRangeC (#0); - {$ELSE} - ret := EmitNode (NOTSPACE); - {$ENDIF} - flagp := flagp or HASWIDTH or SIMPLE; - end; - 'w': begin // r.e.extension - any english char / digit / '_' - {$IFDEF UseSetOfChar} - ret := EmitRange (ANYOF); - EmitRangeStr (WordChars); - EmitRangeC (#0); - {$ELSE} - ret := EmitNode (ANYLETTER); - {$ENDIF} - flagp := flagp or HASWIDTH or SIMPLE; - end; - 'W': begin // r.e.extension - not english char / digit / '_' - {$IFDEF UseSetOfChar} - ret := EmitRange (ANYBUT); - EmitRangeStr (WordChars); - EmitRangeC (#0); - {$ELSE} - ret := EmitNode (NOTLETTER); - {$ENDIF} - flagp := flagp or HASWIDTH or SIMPLE; - end; - '1' .. '9': begin //###0.936 - if (fCompModifiers and MaskModI) <> 0 - then ret := EmitNode (BSUBEXPCI) - else ret := EmitNode (BSUBEXP); - EmitC (REChar (ord (regparse^) - ord ('0'))); - flagp := flagp or HASWIDTH or SIMPLE; - end; - else EmitExactly (UnQuoteChar (regparse)); - end; { of case} - inc (regparse); - end; - else begin - dec (regparse); - if ((fCompModifiers and MaskModX) <> 0) and // check for eXtended syntax - ((regparse^ = '#') - or ({$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947 - {$ELSE}regparse^ in XIgnoredChars{$ENDIF})) then begin //###0.941 \x - if regparse^ = '#' then begin // Skip eXtended comment - // find comment terminator (group of \n and/or \r) - while (regparse^ <> #0) and (regparse^ <> #$d) and (regparse^ <> #$a) - do inc (regparse); - while (regparse^ = #$d) or (regparse^ = #$a) // skip comment terminator - do inc (regparse); // attempt to support different type of line separators - end - else begin // Skip the blanks! - while {$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947 - {$ELSE}regparse^ in XIgnoredChars{$ENDIF} - do inc (regparse); - end; - ret := EmitNode (COMMENT); // comment - end - else begin - len := strcspn (regparse, META); - if len <= 0 then - if regparse^ <> '{' then begin - Error (reeRarseAtomInternalDisaster); - EXIT; - end - else len := strcspn (regparse + 1, META) + 1; // bad {n,m} - compile as EXATLY - ender := (regparse + len)^; - if (len > 1) - and ((ender = '*') or (ender = '+') or (ender = '?') or (ender = '{')) - then dec (len); // Back off clear of ?+*{ operand. - flagp := flagp or HASWIDTH; - if len = 1 - then flagp := flagp or SIMPLE; - if (fCompModifiers and MaskModI) <> 0 - then ret := EmitNode (EXACTLYCI) - else ret := EmitNode (EXACTLY); - while (len > 0) - and (((fCompModifiers and MaskModX) = 0) or (regparse^ <> '#')) do begin - if ((fCompModifiers and MaskModX) = 0) or not ( //###0.941 - {$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947 - {$ELSE}regparse^ in XIgnoredChars{$ENDIF} ) - then EmitC (regparse^); - inc (regparse); - dec (len); - end; - EmitC (#0); - end; { of if not comment} - end; { of case else} - end; { of case} - - Result := ret; - end; { of function TRegExpr.ParseAtom ---------------------------------------------------------------} - -function TRegExpr.GetCompilerErrorPos : integer; - begin - Result := 0; - if (regexpbeg = nil) or (regparse = nil) - then EXIT; // not in compiling mode ? - Result := regparse - regexpbeg; - end; { of function TRegExpr.GetCompilerErrorPos ---------------------------------------------------------------} - - -{=============================================================} -{===================== Matching section ======================} -{=============================================================} - -{$IFNDEF UseSetOfChar} -function TRegExpr.StrScanCI (s : PRegExprChar; ch : REChar) : PRegExprChar; //###0.928 - now method of TRegExpr - begin - while (s^ <> #0) and (s^ <> ch) and (s^ <> InvertCase (ch)) - do inc (s); - if s^ <> #0 - then Result := s - else Result := nil; - end; { of function TRegExpr.StrScanCI ---------------------------------------------------------------} -{$ENDIF} - -function TRegExpr.regrepeat (p : PRegExprChar; AMax : integer) : integer; -// repeatedly match something simple, report how many - var - scan : PRegExprChar; - opnd : PRegExprChar; - TheMax : integer; - {Ch,} InvCh : REChar; //###0.931 - sestart, seend : PRegExprChar; //###0.936 - begin - Result := 0; - scan := reginput; - opnd := p + REOpSz + RENextOffSz; //OPERAND - TheMax := fInputEnd - scan; - if TheMax > AMax - then TheMax := AMax; - case PREOp (p)^ of - ANY: begin - // note - ANYML cannot be proceeded in regrepeat because can skip - // more than one char at once - Result := TheMax; - inc (scan, Result); - end; - EXACTLY: begin // in opnd can be only ONE char !!! -// Ch := opnd^; // store in register //###0.931 - while (Result < TheMax) and (opnd^ = scan^) do begin - inc (Result); - inc (scan); - end; - end; - EXACTLYCI: begin // in opnd can be only ONE char !!! -// Ch := opnd^; // store in register //###0.931 - while (Result < TheMax) and (opnd^ = scan^) do begin // prevent unneeded InvertCase //###0.931 - inc (Result); - inc (scan); - end; - if Result < TheMax then begin //###0.931 - InvCh := InvertCase (opnd^); // store in register - while (Result < TheMax) and - ((opnd^ = scan^) or (InvCh = scan^)) do begin - inc (Result); - inc (scan); - end; - end; - end; - BSUBEXP: begin //###0.936 - sestart := startp [ord (opnd^)]; - if sestart = nil - then EXIT; - seend := endp [ord (opnd^)]; - if seend = nil - then EXIT; - REPEAT - opnd := sestart; - while opnd < seend do begin - if (scan >= fInputEnd) or (scan^ <> opnd^) - then EXIT; - inc (scan); - inc (opnd); - end; - inc (Result); - reginput := scan; - UNTIL Result >= AMax; - end; - BSUBEXPCI: begin //###0.936 - sestart := startp [ord (opnd^)]; - if sestart = nil - then EXIT; - seend := endp [ord (opnd^)]; - if seend = nil - then EXIT; - REPEAT - opnd := sestart; - while opnd < seend do begin - if (scan >= fInputEnd) or - ((scan^ <> opnd^) and (scan^ <> InvertCase (opnd^))) - then EXIT; - inc (scan); - inc (opnd); - end; - inc (Result); - reginput := scan; - UNTIL Result >= AMax; - end; - ANYDIGIT: - while (Result < TheMax) and - (scan^ >= '0') and (scan^ <= '9') do begin - inc (Result); - inc (scan); - end; - NOTDIGIT: - while (Result < TheMax) and - ((scan^ < '0') or (scan^ > '9')) do begin - inc (Result); - inc (scan); - end; - {$IFNDEF UseSetOfChar} //###0.929 - ANYLETTER: - while (Result < TheMax) and - (Pos (scan^, fWordChars) > 0) //###0.940 - { ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9') - or (scan^ >= 'A') and (scan^ <= 'Z') or (scan^ = '_'))} do begin - inc (Result); - inc (scan); - end; - NOTLETTER: - while (Result < TheMax) and - (Pos (scan^, fWordChars) <= 0) //###0.940 - { not ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9') - or (scan^ >= 'A') and (scan^ <= 'Z') - or (scan^ = '_'))} do begin - inc (Result); - inc (scan); - end; - ANYSPACE: - while (Result < TheMax) and - (Pos (scan^, fSpaceChars) > 0) do begin - inc (Result); - inc (scan); - end; - NOTSPACE: - while (Result < TheMax) and - (Pos (scan^, fSpaceChars) <= 0) do begin - inc (Result); - inc (scan); - end; - {$ENDIF} - ANYOFTINYSET: begin - while (Result < TheMax) and //!!!TinySet - ((scan^ = opnd^) or (scan^ = (opnd + 1)^) - or (scan^ = (opnd + 2)^)) do begin - inc (Result); - inc (scan); - end; - end; - ANYBUTTINYSET: begin - while (Result < TheMax) and //!!!TinySet - (scan^ <> opnd^) and (scan^ <> (opnd + 1)^) - and (scan^ <> (opnd + 2)^) do begin - inc (Result); - inc (scan); - end; - end; - {$IFDEF UseSetOfChar} //###0.929 - ANYOFFULLSET: begin - while (Result < TheMax) and - (scan^ in PSetOfREChar (opnd)^) do begin - inc (Result); - inc (scan); - end; - end; - {$ELSE} - ANYOF: - while (Result < TheMax) and - (StrScan (opnd, scan^) <> nil) do begin - inc (Result); - inc (scan); - end; - ANYBUT: - while (Result < TheMax) and - (StrScan (opnd, scan^) = nil) do begin - inc (Result); - inc (scan); - end; - ANYOFCI: - while (Result < TheMax) and (StrScanCI (opnd, scan^) <> nil) do begin - inc (Result); - inc (scan); - end; - ANYBUTCI: - while (Result < TheMax) and (StrScanCI (opnd, scan^) = nil) do begin - inc (Result); - inc (scan); - end; - {$ENDIF} - else begin // Oh dear. Called inappropriately. - Result := 0; // Best compromise. - Error (reeRegRepeatCalledInappropriately); - EXIT; - end; - end; { of case} - reginput := scan; - end; { of function TRegExpr.regrepeat ---------------------------------------------------------------} - -function TRegExpr.regnext (p : PRegExprChar) : PRegExprChar; -// dig the "next" pointer out of a node - var offset : TRENextOff; - begin - if p = @regdummy then begin - Result := nil; - EXIT; - end; - offset := PRENextOff (p + REOpSz)^; //###0.933 inlined NEXT - if offset = 0 - then Result := nil - else Result := p + offset; - end; { of function TRegExpr.regnext ---------------------------------------------------------------} - -function TRegExpr.MatchPrim (prog : PRegExprChar) : boolean; -// recursively matching routine -// Conceptually the strategy is simple: check to see whether the current -// node matches, call self recursively to see whether the rest matches, -// and then act accordingly. In practice we make some effort to avoid -// recursion, in particular by going through "ordinary" nodes (that don't -// need to know whether the rest of the match failed) by a loop instead of -// by recursion. - var - scan : PRegExprChar; // Current node. - next : PRegExprChar; // Next node. - len : integer; - opnd : PRegExprChar; - no : integer; - save : PRegExprChar; - nextch : REChar; - BracesMin, BracesMax : integer; // we use integer instead of TREBracesArg for better support */+ - {$IFDEF ComplexBraces} - SavedLoopStack : array [1 .. LoopStackMax] of integer; // :(( very bad for recursion - SavedLoopStackIdx : integer; //###0.925 - {$ENDIF} - begin - Result := false; - scan := prog; - - while scan <> nil do begin - len := PRENextOff (scan + 1)^; //###0.932 inlined regnext - if len = 0 - then next := nil - else next := scan + len; - - case scan^ of - NOTBOUND, //###0.943 //!!! think about UseSetOfChar !!! - BOUND: - if (scan^ = BOUND) - xor ( - ((reginput = fInputStart) or (Pos ((reginput - 1)^, fWordChars) <= 0)) - and (reginput^ <> #0) and (Pos (reginput^, fWordChars) > 0) - or - (reginput <> fInputStart) and (Pos ((reginput - 1)^, fWordChars) > 0) - and ((reginput^ = #0) or (Pos (reginput^, fWordChars) <= 0))) - then EXIT; - - BOL: if reginput <> fInputStart - then EXIT; - EOL: if reginput^ <> #0 - then EXIT; - BOLML: if reginput > fInputStart then begin - nextch := (reginput - 1)^; - if (nextch <> fLinePairedSeparatorTail) - or ((reginput - 1) <= fInputStart) - or ((reginput - 2)^ <> fLinePairedSeparatorHead) - then begin - if (nextch = fLinePairedSeparatorHead) - and (reginput^ = fLinePairedSeparatorTail) - then EXIT; // don't stop between paired separator - if - {$IFNDEF UniCode} - not (nextch in fLineSeparatorsSet) - {$ELSE} - (pos (nextch, fLineSeparators) <= 0) - {$ENDIF} - then EXIT; - end; - end; - EOLML: if reginput^ <> #0 then begin - nextch := reginput^; - if (nextch <> fLinePairedSeparatorHead) - or ((reginput + 1)^ <> fLinePairedSeparatorTail) - then begin - if (nextch = fLinePairedSeparatorTail) - and (reginput > fInputStart) - and ((reginput - 1)^ = fLinePairedSeparatorHead) - then EXIT; // don't stop between paired separator - if - {$IFNDEF UniCode} - not (nextch in fLineSeparatorsSet) - {$ELSE} - (pos (nextch, fLineSeparators) <= 0) - {$ENDIF} - then EXIT; - end; - end; - ANY: begin - if reginput^ = #0 - then EXIT; - inc (reginput); - end; - ANYML: begin //###0.941 - if (reginput^ = #0) - or ((reginput^ = fLinePairedSeparatorHead) - and ((reginput + 1)^ = fLinePairedSeparatorTail)) - or {$IFNDEF UniCode} (reginput^ in fLineSeparatorsSet) - {$ELSE} (pos (reginput^, fLineSeparators) > 0) {$ENDIF} - then EXIT; - inc (reginput); - end; - ANYDIGIT: begin - if (reginput^ = #0) or (reginput^ < '0') or (reginput^ > '9') - then EXIT; - inc (reginput); - end; - NOTDIGIT: begin - if (reginput^ = #0) or ((reginput^ >= '0') and (reginput^ <= '9')) - then EXIT; - inc (reginput); - end; - {$IFNDEF UseSetOfChar} //###0.929 - ANYLETTER: begin - if (reginput^ = #0) or (Pos (reginput^, fWordChars) <= 0) //###0.943 - then EXIT; - inc (reginput); - end; - NOTLETTER: begin - if (reginput^ = #0) or (Pos (reginput^, fWordChars) > 0) //###0.943 - then EXIT; - inc (reginput); - end; - ANYSPACE: begin - if (reginput^ = #0) or not (Pos (reginput^, fSpaceChars) > 0) //###0.943 - then EXIT; - inc (reginput); - end; - NOTSPACE: begin - if (reginput^ = #0) or (Pos (reginput^, fSpaceChars) > 0) //###0.943 - then EXIT; - inc (reginput); - end; - {$ENDIF} - EXACTLYCI: begin - opnd := scan + REOpSz + RENextOffSz; // OPERAND - // Inline the first character, for speed. - if (opnd^ <> reginput^) - and (InvertCase (opnd^) <> reginput^) - then EXIT; - len := strlen (opnd); - //###0.929 begin - no := len; - save := reginput; - while no > 1 do begin - inc (save); - inc (opnd); - if (opnd^ <> save^) - and (InvertCase (opnd^) <> save^) - then EXIT; - dec (no); - end; - //###0.929 end - inc (reginput, len); - end; - EXACTLY: begin - opnd := scan + REOpSz + RENextOffSz; // OPERAND - // Inline the first character, for speed. - if opnd^ <> reginput^ - then EXIT; - len := strlen (opnd); - //###0.929 begin - no := len; - save := reginput; - while no > 1 do begin - inc (save); - inc (opnd); - if opnd^ <> save^ - then EXIT; - dec (no); - end; - //###0.929 end - inc (reginput, len); - end; - BSUBEXP: begin //###0.936 - no := ord ((scan + REOpSz + RENextOffSz)^); - if startp [no] = nil - then EXIT; - if endp [no] = nil - then EXIT; - save := reginput; - opnd := startp [no]; - while opnd < endp [no] do begin - if (save >= fInputEnd) or (save^ <> opnd^) - then EXIT; - inc (save); - inc (opnd); - end; - reginput := save; - end; - BSUBEXPCI: begin //###0.936 - no := ord ((scan + REOpSz + RENextOffSz)^); - if startp [no] = nil - then EXIT; - if endp [no] = nil - then EXIT; - save := reginput; - opnd := startp [no]; - while opnd < endp [no] do begin - if (save >= fInputEnd) or - ((save^ <> opnd^) and (save^ <> InvertCase (opnd^))) - then EXIT; - inc (save); - inc (opnd); - end; - reginput := save; - end; - ANYOFTINYSET: begin - if (reginput^ = #0) or //!!!TinySet - ((reginput^ <> (scan + REOpSz + RENextOffSz)^) - and (reginput^ <> (scan + REOpSz + RENextOffSz + 1)^) - and (reginput^ <> (scan + REOpSz + RENextOffSz + 2)^)) - then EXIT; - inc (reginput); - end; - ANYBUTTINYSET: begin - if (reginput^ = #0) or //!!!TinySet - (reginput^ = (scan + REOpSz + RENextOffSz)^) - or (reginput^ = (scan + REOpSz + RENextOffSz + 1)^) - or (reginput^ = (scan + REOpSz + RENextOffSz + 2)^) - then EXIT; - inc (reginput); - end; - {$IFDEF UseSetOfChar} //###0.929 - ANYOFFULLSET: begin - if (reginput^ = #0) - or not (reginput^ in PSetOfREChar (scan + REOpSz + RENextOffSz)^) - then EXIT; - inc (reginput); - end; - {$ELSE} - ANYOF: begin - if (reginput^ = #0) or (StrScan (scan + REOpSz + RENextOffSz, reginput^) = nil) - then EXIT; - inc (reginput); - end; - ANYBUT: begin - if (reginput^ = #0) or (StrScan (scan + REOpSz + RENextOffSz, reginput^) <> nil) - then EXIT; - inc (reginput); - end; - ANYOFCI: begin - if (reginput^ = #0) or (StrScanCI (scan + REOpSz + RENextOffSz, reginput^) = nil) - then EXIT; - inc (reginput); - end; - ANYBUTCI: begin - if (reginput^ = #0) or (StrScanCI (scan + REOpSz + RENextOffSz, reginput^) <> nil) - then EXIT; - inc (reginput); - end; - {$ENDIF} - NOTHING: ; - COMMENT: ; - BACK: ; - Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1) : begin //###0.929 - no := ord (scan^) - ord (OPEN); -// save := reginput; - save := startp [no]; //###0.936 - startp [no] := reginput; //###0.936 - Result := MatchPrim (next); - if not Result //###0.936 - then startp [no] := save; -// if Result and (startp [no] = nil) -// then startp [no] := save; - // Don't set startp if some later invocation of the same - // parentheses already has. - EXIT; - end; - Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): begin //###0.929 - no := ord (scan^) - ord (CLOSE); -// save := reginput; - save := endp [no]; //###0.936 - endp [no] := reginput; //###0.936 - Result := MatchPrim (next); - if not Result //###0.936 - then endp [no] := save; -// if Result and (endp [no] = nil) -// then endp [no] := save; - // Don't set endp if some later invocation of the same - // parentheses already has. - EXIT; - end; - BRANCH: begin - if (next^ <> BRANCH) // No choice. - then next := scan + REOpSz + RENextOffSz // Avoid recursion - else begin - REPEAT - save := reginput; - Result := MatchPrim (scan + REOpSz + RENextOffSz); - if Result - then EXIT; - reginput := save; - scan := regnext (scan); - UNTIL (scan = nil) or (scan^ <> BRANCH); - EXIT; - end; - end; - {$IFDEF ComplexBraces} - LOOPENTRY: begin //###0.925 - no := LoopStackIdx; - inc (LoopStackIdx); - if LoopStackIdx > LoopStackMax then begin - Error (reeLoopStackExceeded); - EXIT; - end; - save := reginput; - LoopStack [LoopStackIdx] := 0; // init loop counter - Result := MatchPrim (next); // execute LOOP - LoopStackIdx := no; // cleanup - if Result - then EXIT; - reginput := save; - EXIT; - end; - LOOP, LOOPNG: begin //###0.940 - if LoopStackIdx <= 0 then begin - Error (reeLoopWithoutEntry); - EXIT; - end; - opnd := scan + PRENextOff (scan + REOpSz + RENextOffSz + 2 * REBracesArgSz)^; - BracesMin := PREBracesArg (scan + REOpSz + RENextOffSz)^; - BracesMax := PREBracesArg (scan + REOpSz + RENextOffSz + REBracesArgSz)^; - save := reginput; - if LoopStack [LoopStackIdx] >= BracesMin then begin // Min alredy matched - we can work - if scan^ = LOOP then begin - // greedy way - first try to max deep of greed ;) - if LoopStack [LoopStackIdx] < BracesMax then begin - inc (LoopStack [LoopStackIdx]); - no := LoopStackIdx; - Result := MatchPrim (opnd); - LoopStackIdx := no; - if Result - then EXIT; - reginput := save; - end; - dec (LoopStackIdx); // Fail. May be we are too greedy? ;) - Result := MatchPrim (next); - if not Result - then reginput := save; - EXIT; - end - else begin - // non-greedy - try just now - Result := MatchPrim (next); - if Result - then EXIT - else reginput := save; // failed - move next and try again - if LoopStack [LoopStackIdx] < BracesMax then begin - inc (LoopStack [LoopStackIdx]); - no := LoopStackIdx; - Result := MatchPrim (opnd); - LoopStackIdx := no; - if Result - then EXIT; - reginput := save; - end; - dec (LoopStackIdx); // Failed - back up - EXIT; - end - end - else begin // first match a min_cnt times - inc (LoopStack [LoopStackIdx]); - no := LoopStackIdx; - Result := MatchPrim (opnd); - LoopStackIdx := no; - if Result - then EXIT; - dec (LoopStack [LoopStackIdx]); - reginput := save; - EXIT; - end; - end; - {$ENDIF} - STAR, PLUS, BRACES, STARNG, PLUSNG, BRACESNG: begin - // Lookahead to avoid useless match attempts when we know - // what character comes next. - nextch := #0; - if next^ = EXACTLY - then nextch := (next + REOpSz + RENextOffSz)^; - BracesMax := MaxInt; // infinite loop for * and + //###0.92 - if (scan^ = STAR) or (scan^ = STARNG) - then BracesMin := 0 // STAR - else if (scan^ = PLUS) or (scan^ = PLUSNG) - then BracesMin := 1 // PLUS - else begin // BRACES - BracesMin := PREBracesArg (scan + REOpSz + RENextOffSz)^; - BracesMax := PREBracesArg (scan + REOpSz + RENextOffSz + REBracesArgSz)^; - end; - save := reginput; - opnd := scan + REOpSz + RENextOffSz; - if (scan^ = BRACES) or (scan^ = BRACESNG) - then inc (opnd, 2 * REBracesArgSz); - - if (scan^ = PLUSNG) or (scan^ = STARNG) or (scan^ = BRACESNG) then begin - // non-greedy mode - BracesMax := regrepeat (opnd, BracesMax); // don't repeat more than BracesMax - // Now we know real Max limit to move forward (for recursion 'back up') - // In some cases it can be faster to check only Min positions first, - // but after that we have to check every position separtely instead - // of fast scannig in loop. - no := BracesMin; - while no <= BracesMax do begin - reginput := save + no; - // If it could work, try it. - if (nextch = #0) or (reginput^ = nextch) then begin - {$IFDEF ComplexBraces} - System.Move (LoopStack, SavedLoopStack, SizeOf (LoopStack)); //###0.925 - SavedLoopStackIdx := LoopStackIdx; - {$ENDIF} - if MatchPrim (next) then begin - Result := true; - EXIT; - end; - {$IFDEF ComplexBraces} - System.Move (SavedLoopStack, LoopStack, SizeOf (LoopStack)); - LoopStackIdx := SavedLoopStackIdx; - {$ENDIF} - end; - inc (no); // Couldn't or didn't - move forward. - end; { of while} - EXIT; - end - else begin // greedy mode - no := regrepeat (opnd, BracesMax); // don't repeat more than max_cnt - while no >= BracesMin do begin - // If it could work, try it. - if (nextch = #0) or (reginput^ = nextch) then begin - {$IFDEF ComplexBraces} - System.Move (LoopStack, SavedLoopStack, SizeOf (LoopStack)); //###0.925 - SavedLoopStackIdx := LoopStackIdx; - {$ENDIF} - if MatchPrim (next) then begin - Result := true; - EXIT; - end; - {$IFDEF ComplexBraces} - System.Move (SavedLoopStack, LoopStack, SizeOf (LoopStack)); - LoopStackIdx := SavedLoopStackIdx; - {$ENDIF} - end; - dec (no); // Couldn't or didn't - back up. - reginput := save + no; - end; { of while} - EXIT; - end; - end; - EEND: begin - Result := true; // Success! - EXIT; - end; - else begin - Error (reeMatchPrimMemoryCorruption); - EXIT; - end; - end; { of case scan^} - scan := next; - end; { of while scan <> nil} - - // We get here only if there's trouble -- normally "case EEND" is the - // terminating point. - Error (reeMatchPrimCorruptedPointers); - end; { of function TRegExpr.MatchPrim ---------------------------------------------------------------} - -{$IFDEF UseFirstCharSet} //###0.929 -procedure TRegExpr.FillFirstCharSet (prog : PRegExprChar); - var - scan : PRegExprChar; // Current node. - next : PRegExprChar; // Next node. - opnd : PRegExprChar; - min_cnt : integer; - begin - scan := prog; - while scan <> nil do begin - next := regnext (scan); - case PREOp (scan)^ of - BSUBEXP, BSUBEXPCI: begin //###0.938 - FirstCharSet := [#0 .. #255]; // :((( we cannot - // optimize r.e. if it starts with back reference - EXIT; - end; - BOL, BOLML: ; // EXIT; //###0.937 - EOL, EOLML: begin //###0.948 was empty in 0.947, was EXIT in 0.937 - Include (FirstCharSet, #0); - if ModifierM - then begin - opnd := PRegExprChar (LineSeparators); - while opnd^ <> #0 do begin - Include (FirstCharSet, opnd^); - inc (opnd); - end; - end; - EXIT; - end; - BOUND, NOTBOUND: ; //###0.943 ?!! - ANY, ANYML: begin // we can better define ANYML !!! - FirstCharSet := [#0 .. #255]; //###0.930 - EXIT; - end; - ANYDIGIT: begin - FirstCharSet := FirstCharSet + ['0' .. '9']; - EXIT; - end; - NOTDIGIT: begin - FirstCharSet := FirstCharSet + ([#0 .. #255] - ['0' .. '9']); //###0.948 FirstCharSet was forgotten - EXIT; - end; - EXACTLYCI: begin - Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^); - Include (FirstCharSet, InvertCase ((scan + REOpSz + RENextOffSz)^)); - EXIT; - end; - EXACTLY: begin - Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^); - EXIT; - end; - ANYOFFULLSET: begin - FirstCharSet := FirstCharSet + PSetOfREChar (scan + REOpSz + RENextOffSz)^; - EXIT; - end; - ANYOFTINYSET: begin - //!!!TinySet - Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^); - Include (FirstCharSet, (scan + REOpSz + RENextOffSz + 1)^); - Include (FirstCharSet, (scan + REOpSz + RENextOffSz + 2)^); - // ... // up to TinySetLen - EXIT; - end; - ANYBUTTINYSET: begin - //!!!TinySet - FirstCharSet := FirstCharSet + ([#0 .. #255] - [ //###0.948 FirstCharSet was forgotten - (scan + REOpSz + RENextOffSz)^, - (scan + REOpSz + RENextOffSz + 1)^, - (scan + REOpSz + RENextOffSz + 2)^]); - // ... // up to TinySetLen - EXIT; - end; - NOTHING: ; - COMMENT: ; - BACK: ; - Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1) : begin //###0.929 - FillFirstCharSet (next); - EXIT; - end; - Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): begin //###0.929 - FillFirstCharSet (next); - EXIT; - end; - BRANCH: begin - if (PREOp (next)^ <> BRANCH) // No choice. - then next := scan + REOpSz + RENextOffSz // Avoid recursion. - else begin - REPEAT - FillFirstCharSet (scan + REOpSz + RENextOffSz); - scan := regnext (scan); - UNTIL (scan = nil) or (PREOp (scan)^ <> BRANCH); - EXIT; - end; - end; - {$IFDEF ComplexBraces} - LOOPENTRY: begin //###0.925 -// LoopStack [LoopStackIdx] := 0; //###0.940 line removed - FillFirstCharSet (next); // execute LOOP - EXIT; - end; - LOOP, LOOPNG: begin //###0.940 - opnd := scan + PRENextOff (scan + REOpSz + RENextOffSz + REBracesArgSz * 2)^; - min_cnt := PREBracesArg (scan + REOpSz + RENextOffSz)^; - FillFirstCharSet (opnd); - if min_cnt = 0 - then FillFirstCharSet (next); - EXIT; - end; - {$ENDIF} - STAR, STARNG: //###0.940 - FillFirstCharSet (scan + REOpSz + RENextOffSz); - PLUS, PLUSNG: begin //###0.940 - FillFirstCharSet (scan + REOpSz + RENextOffSz); - EXIT; - end; - BRACES, BRACESNG: begin //###0.940 - opnd := scan + REOpSz + RENextOffSz + REBracesArgSz * 2; - min_cnt := PREBracesArg (scan + REOpSz + RENextOffSz)^; // BRACES - FillFirstCharSet (opnd); - if min_cnt > 0 - then EXIT; - end; - EEND: begin - FirstCharSet := [#0 .. #255]; //###0.948 - EXIT; - end; - else begin - Error (reeMatchPrimMemoryCorruption); - EXIT; - end; - end; { of case scan^} - scan := next; - end; { of while scan <> nil} - end; { of procedure FillFirstCharSet ---------------------------------------------------------------} -{$ENDIF} - -function TRegExpr.Exec (const AInputString : RegExprString) : boolean; - begin - InputString := AInputString; - Result := ExecPrim (1); - end; { of function TRegExpr.Exec ---------------------------------------------------------------} - -{$IFDEF OverMeth} -{$IFNDEF FPC} -function TRegExpr.Exec : boolean; - begin - Result := ExecPrim (1); - end; { of function TRegExpr.Exec ---------------------------------------------------------------} -{$ENDIF} -function TRegExpr.Exec (AOffset: integer) : boolean; - begin - Result := ExecPrim (AOffset); - end; { of function TRegExpr.Exec ---------------------------------------------------------------} -{$ENDIF} - -function TRegExpr.ExecPos (AOffset: integer {$IFDEF DefParam}= 1{$ENDIF}) : boolean; - begin - Result := ExecPrim (AOffset); - end; { of function TRegExpr.ExecPos ---------------------------------------------------------------} - -function TRegExpr.ExecPrim (AOffset: integer) : boolean; - procedure ClearMatchs; - // Clears matchs array - var i : integer; - begin - for i := 0 to NSUBEXP - 1 do begin - startp [i] := nil; - endp [i] := nil; - end; - end; { of procedure ClearMatchs; -..............................................................} - function RegMatch (str : PRegExprChar) : boolean; - // try match at specific point - begin - //###0.949 removed clearing of start\endp - reginput := str; - Result := MatchPrim (programm + REOpSz); - if Result then begin - startp [0] := str; - endp [0] := reginput; - end; - end; { of function RegMatch -..............................................................} - var - s : PRegExprChar; - StartPtr: PRegExprChar; - InputLen : integer; - begin - Result := false; // Be paranoid... - - ClearMatchs; //###0.949 - // ensure that Match cleared either if optimization tricks or some error - // will lead to leaving ExecPrim without actual search. That is - // importent for ExecNext logic and so on. - - if not IsProgrammOk //###0.929 - then EXIT; - - // Check InputString presence - if not Assigned (fInputString) then begin - Error (reeNoInpitStringSpecified); - EXIT; - end; - - InputLen := length (fInputString); - - //Check that the start position is not negative - if AOffset < 1 then begin - Error (reeOffsetMustBeGreaterThen0); - EXIT; - end; - // Check that the start position is not longer than the line - // If so then exit with nothing found - if AOffset > (InputLen + 1) // for matching empty string after last char. - then EXIT; - - StartPtr := fInputString + AOffset - 1; - - // If there is a "must appear" string, look for it. - if regmust <> nil then begin - s := StartPtr; - REPEAT - s := StrScan (s, regmust [0]); - if s <> nil then begin - if StrLComp (s, regmust, regmlen) = 0 - then BREAK; // Found it. - inc (s); - end; - UNTIL s = nil; - if s = nil // Not present. - then EXIT; - end; - - // Mark beginning of line for ^ . - fInputStart := fInputString; - - // Pointer to end of input stream - for - // pascal-style string processing (may include #0) - fInputEnd := fInputString + InputLen; - - {$IFDEF ComplexBraces} - // no loops started - LoopStackIdx := 0; //###0.925 - {$ENDIF} - - // Simplest case: anchored match need be tried only once. - if reganch <> #0 then begin - Result := RegMatch (StartPtr); - EXIT; - end; - - // Messy cases: unanchored match. - s := StartPtr; - if regstart <> #0 then // We know what char it must start with. - REPEAT - s := StrScan (s, regstart); - if s <> nil then begin - Result := RegMatch (s); - if Result - then EXIT - else ClearMatchs; //###0.949 - inc (s); - end; - UNTIL s = nil - else begin // We don't - general case. - repeat //###0.948 - {$IFDEF UseFirstCharSet} - if s^ in FirstCharSet - then Result := RegMatch (s); - {$ELSE} - Result := RegMatch (s); - {$ENDIF} - if Result or (s^ = #0) // Exit on a match or after testing the end-of-string. - then EXIT - else ClearMatchs; //###0.949 - inc (s); - until false; -(* optimized and fixed by Martin Fuller - empty strings - were not allowed to pass thru in UseFirstCharSet mode - {$IFDEF UseFirstCharSet} //###0.929 - while s^ <> #0 do begin - if s^ in FirstCharSet - then Result := RegMatch (s); - if Result - then EXIT; - inc (s); - end; - {$ELSE} - REPEAT - Result := RegMatch (s); - if Result - then EXIT; - inc (s); - UNTIL s^ = #0; - {$ENDIF} -*) - end; - // Failure - end; { of function TRegExpr.ExecPrim ---------------------------------------------------------------} - -function TRegExpr.ExecNext : boolean; - var offset : integer; - begin - Result := false; - if not Assigned (startp[0]) or not Assigned (endp[0]) then begin - Error (reeExecNextWithoutExec); - EXIT; - end; -// Offset := MatchPos [0] + MatchLen [0]; -// if MatchLen [0] = 0 - Offset := endp [0] - fInputString + 1; //###0.929 - if endp [0] = startp [0] //###0.929 - then inc (Offset); // prevent infinite looping if empty string match r.e. - Result := ExecPrim (Offset); - end; { of function TRegExpr.ExecNext ---------------------------------------------------------------} - -function TRegExpr.GetInputString : RegExprString; - begin - if not Assigned (fInputString) then begin - Error (reeGetInputStringWithoutInputString); - EXIT; - end; - Result := fInputString; - end; { of function TRegExpr.GetInputString ---------------------------------------------------------------} - -procedure TRegExpr.SetInputString (const AInputString : RegExprString); - var - Len : integer; - i : integer; - begin - // clear Match* - before next Exec* call it's undefined - for i := 0 to NSUBEXP - 1 do begin - startp [i] := nil; - endp [i] := nil; - end; - - // need reallocation of input string buffer ? - Len := length (AInputString); - if Assigned (fInputString) and (Length (fInputString) <> Len) then begin - FreeMem (fInputString); - fInputString := nil; - end; - // buffer [re]allocation - if not Assigned (fInputString) - then GetMem (fInputString, (Len + 1) * SizeOf (REChar)); - - // copy input string into buffer - {$IFDEF UniCode} - StrPCopy (fInputString, Copy (AInputString, 1, Len)); //###0.927 - {$ELSE} - StrLCopy (fInputString, PRegExprChar (AInputString), Len); - {$ENDIF} - - { - fInputString : string; - fInputStart, fInputEnd : PRegExprChar; - - SetInputString: - fInputString := AInputString; - UniqueString (fInputString); - fInputStart := PChar (fInputString); - Len := length (fInputString); - fInputEnd := PRegExprChar (integer (fInputStart) + Len); ?? - !! startp/endp âñå ðàâíî áóäåò îïàñíî èñïîëüçîâàòü ? - } - end; { of procedure TRegExpr.SetInputString ---------------------------------------------------------------} - -procedure TRegExpr.SetLineSeparators (const AStr : RegExprString); - begin - if AStr <> fLineSeparators then begin - fLineSeparators := AStr; - InvalidateProgramm; - end; - end; { of procedure TRegExpr.SetLineSeparators ---------------------------------------------------------------} - -procedure TRegExpr.SetLinePairedSeparator (const AStr : RegExprString); - begin - if length (AStr) = 2 then begin - if AStr [1] = AStr [2] then begin - // it's impossible for our 'one-point' checking to support - // two chars separator for identical chars - Error (reeBadLinePairedSeparator); - EXIT; - end; - if not fLinePairedSeparatorAssigned - or (AStr [1] <> fLinePairedSeparatorHead) - or (AStr [2] <> fLinePairedSeparatorTail) then begin - fLinePairedSeparatorAssigned := true; - fLinePairedSeparatorHead := AStr [1]; - fLinePairedSeparatorTail := AStr [2]; - InvalidateProgramm; - end; - end - else if length (AStr) = 0 then begin - if fLinePairedSeparatorAssigned then begin - fLinePairedSeparatorAssigned := false; - InvalidateProgramm; - end; - end - else Error (reeBadLinePairedSeparator); - end; { of procedure TRegExpr.SetLinePairedSeparator ---------------------------------------------------------------} - -function TRegExpr.GetLinePairedSeparator : RegExprString; - begin - if fLinePairedSeparatorAssigned then begin - {$IFDEF UniCode} - // Here is some UniCode 'magic' - // If You do know better decision to concatenate - // two WideChars, please, let me know! - Result := fLinePairedSeparatorHead; //###0.947 - Result := Result + fLinePairedSeparatorTail; - {$ELSE} - Result := fLinePairedSeparatorHead + fLinePairedSeparatorTail; - {$ENDIF} - end - else Result := ''; - end; { of function TRegExpr.GetLinePairedSeparator ---------------------------------------------------------------} - -function TRegExpr.Substitute (const ATemplate : RegExprString) : RegExprString; -// perform substitutions after a regexp match -// completely rewritten in 0.929 - var - TemplateLen : integer; - TemplateBeg, TemplateEnd : PRegExprChar; - p, p0, ResultPtr : PRegExprChar; - ResultLen : integer; - n : integer; - Ch : REChar; - function ParseVarName (var APtr : PRegExprChar) : integer; - // extract name of variable (digits, may be enclosed with - // curly braces) from APtr^, uses TemplateEnd !!! - const - Digits = ['0' .. '9']; - var - p : PRegExprChar; - Delimited : boolean; - begin - Result := 0; - p := APtr; - Delimited := (p < TemplateEnd) and (p^ = '{'); - if Delimited - then inc (p); // skip left curly brace - if (p < TemplateEnd) and (p^ = '&') - then inc (p) // this is '$&' or '${&}' - else - while (p < TemplateEnd) and - {$IFDEF UniCode} //###0.935 - (ord (p^) < 256) and (char (p^) in Digits) - {$ELSE} - (p^ in Digits) - {$ENDIF} - do begin - Result := Result * 10 + (ord (p^) - ord ('0')); //###0.939 - inc (p); - end; - if Delimited then - if (p < TemplateEnd) and (p^ = '}') - then inc (p) // skip right curly brace - else p := APtr; // isn't properly terminated - if p = APtr - then Result := -1; // no valid digits found or no right curly brace - APtr := p; - end; - begin - // Check programm and input string - if not IsProgrammOk - then EXIT; - if not Assigned (fInputString) then begin - Error (reeNoInpitStringSpecified); - EXIT; - end; - // Prepare for working - TemplateLen := length (ATemplate); - if TemplateLen = 0 then begin // prevent nil pointers - Result := ''; - EXIT; - end; - TemplateBeg := pointer (ATemplate); - TemplateEnd := TemplateBeg + TemplateLen; - // Count result length for speed optimization. - ResultLen := 0; - p := TemplateBeg; - while p < TemplateEnd do begin - Ch := p^; - inc (p); - if Ch = '$' - then n := ParseVarName (p) - else n := -1; - if n >= 0 then begin - if (n < NSUBEXP) and Assigned (startp [n]) and Assigned (endp [n]) - then inc (ResultLen, endp [n] - startp [n]); - end - else begin - if (Ch = EscChar) and (p < TemplateEnd) - then inc (p); // quoted or special char followed - inc (ResultLen); - end; - end; - // Get memory. We do it once and it significant speed up work ! - if ResultLen = 0 then begin - Result := ''; - EXIT; - end; - SetString (Result, nil, ResultLen); - // Fill Result - ResultPtr := pointer (Result); - p := TemplateBeg; - while p < TemplateEnd do begin - Ch := p^; - inc (p); - if Ch = '$' - then n := ParseVarName (p) - else n := -1; - if n >= 0 then begin - p0 := startp [n]; - if (n < NSUBEXP) and Assigned (p0) and Assigned (endp [n]) then - while p0 < endp [n] do begin - ResultPtr^ := p0^; - inc (ResultPtr); - inc (p0); - end; - end - else begin - if (Ch = EscChar) and (p < TemplateEnd) then begin // quoted or special char followed - Ch := p^; - inc (p); - end; - ResultPtr^ := Ch; - inc (ResultPtr); - end; - end; - end; { of function TRegExpr.Substitute ---------------------------------------------------------------} - -procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings); - var PrevPos : integer; - begin - PrevPos := 1; - if Exec (AInputStr) then - REPEAT - APieces.Add (System.Copy (AInputStr, PrevPos, MatchPos [0] - PrevPos)); - PrevPos := MatchPos [0] + MatchLen [0]; - UNTIL not ExecNext; - APieces.Add (System.Copy (AInputStr, PrevPos, MaxInt)); // Tail - end; { of procedure TRegExpr.Split ---------------------------------------------------------------} - -function TRegExpr.Replace (AInputStr : RegExprString; const AReplaceStr : RegExprString; - AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; - var - PrevPos : integer; - begin - Result := ''; - PrevPos := 1; - if Exec (AInputStr) then - REPEAT - Result := Result + System.Copy (AInputStr, PrevPos, - MatchPos [0] - PrevPos); - if AUseSubstitution //###0.946 - then Result := Result + Substitute (AReplaceStr) - else Result := Result + AReplaceStr; - PrevPos := MatchPos [0] + MatchLen [0]; - UNTIL not ExecNext; - Result := Result + System.Copy (AInputStr, PrevPos, MaxInt); // Tail - end; { of function TRegExpr.Replace ---------------------------------------------------------------} - -function TRegExpr.ReplaceEx (AInputStr : RegExprString; - AReplaceFunc : TRegExprReplaceFunction) - : RegExprString; - var - PrevPos : integer; - begin - Result := ''; - PrevPos := 1; - if Exec (AInputStr) then - REPEAT - Result := Result + System.Copy (AInputStr, PrevPos, - MatchPos [0] - PrevPos) - + AReplaceFunc (Self); - PrevPos := MatchPos [0] + MatchLen [0]; - UNTIL not ExecNext; - Result := Result + System.Copy (AInputStr, PrevPos, MaxInt); // Tail - end; { of function TRegExpr.ReplaceEx ---------------------------------------------------------------} - - -{$IFDEF OverMeth} -function TRegExpr.Replace (AInputStr : RegExprString; - AReplaceFunc : TRegExprReplaceFunction) - : RegExprString; - begin - ReplaceEx (AInputStr, AReplaceFunc); - end; { of function TRegExpr.Replace ---------------------------------------------------------------} -{$ENDIF} - -{=============================================================} -{====================== Debug section ========================} -{=============================================================} - -{$IFDEF RegExpPCodeDump} -function TRegExpr.DumpOp (op : TREOp) : RegExprString; -// printable representation of opcode - begin - case op of - BOL: Result := 'BOL'; - EOL: Result := 'EOL'; - BOLML: Result := 'BOLML'; - EOLML: Result := 'EOLML'; - BOUND: Result := 'BOUND'; //###0.943 - NOTBOUND: Result := 'NOTBOUND'; //###0.943 - ANY: Result := 'ANY'; - ANYML: Result := 'ANYML'; //###0.941 - ANYLETTER: Result := 'ANYLETTER'; - NOTLETTER: Result := 'NOTLETTER'; - ANYDIGIT: Result := 'ANYDIGIT'; - NOTDIGIT: Result := 'NOTDIGIT'; - ANYSPACE: Result := 'ANYSPACE'; - NOTSPACE: Result := 'NOTSPACE'; - ANYOF: Result := 'ANYOF'; - ANYBUT: Result := 'ANYBUT'; - ANYOFCI: Result := 'ANYOF/CI'; - ANYBUTCI: Result := 'ANYBUT/CI'; - BRANCH: Result := 'BRANCH'; - EXACTLY: Result := 'EXACTLY'; - EXACTLYCI: Result := 'EXACTLY/CI'; - NOTHING: Result := 'NOTHING'; - COMMENT: Result := 'COMMENT'; - BACK: Result := 'BACK'; - EEND: Result := 'END'; - BSUBEXP: Result := 'BSUBEXP'; - BSUBEXPCI: Result := 'BSUBEXP/CI'; - Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1): //###0.929 - Result := Format ('OPEN[%d]', [ord (op) - ord (OPEN)]); - Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): //###0.929 - Result := Format ('CLOSE[%d]', [ord (op) - ord (CLOSE)]); - STAR: Result := 'STAR'; - PLUS: Result := 'PLUS'; - BRACES: Result := 'BRACES'; - {$IFDEF ComplexBraces} - LOOPENTRY: Result := 'LOOPENTRY'; //###0.925 - LOOP: Result := 'LOOP'; //###0.925 - LOOPNG: Result := 'LOOPNG'; //###0.940 - {$ENDIF} - ANYOFTINYSET: Result:= 'ANYOFTINYSET'; - ANYBUTTINYSET:Result:= 'ANYBUTTINYSET'; - {$IFDEF UseSetOfChar} //###0.929 - ANYOFFULLSET: Result:= 'ANYOFFULLSET'; - {$ENDIF} - STARNG: Result := 'STARNG'; //###0.940 - PLUSNG: Result := 'PLUSNG'; //###0.940 - BRACESNG: Result := 'BRACESNG'; //###0.940 - else Error (reeDumpCorruptedOpcode); - end; {of case op} - Result := ':' + Result; - end; { of function TRegExpr.DumpOp ---------------------------------------------------------------} - -function TRegExpr.Dump : RegExprString; -// dump a regexp in vaguely comprehensible form - var - s : PRegExprChar; - op : TREOp; // Arbitrary non-END op. - next : PRegExprChar; - i : integer; - Diff : integer; -{$IFDEF UseSetOfChar} //###0.929 - Ch : REChar; -{$ENDIF} - begin - if not IsProgrammOk //###0.929 - then EXIT; - - op := EXACTLY; - Result := ''; - s := programm + REOpSz; - while op <> EEND do begin // While that wasn't END last time... - op := s^; - Result := Result + Format ('%2d%s', [s - programm, DumpOp (s^)]); // Where, what. - next := regnext (s); - if next = nil // Next ptr. - then Result := Result + ' (0)' - else begin - if next > s //###0.948 PWideChar subtraction workaround (see comments in Tail method for details) - then Diff := next - s - else Diff := - (s - next); - Result := Result + Format (' (%d) ', [(s - programm) + Diff]); - end; - inc (s, REOpSz + RENextOffSz); - if (op = ANYOF) or (op = ANYOFCI) or (op = ANYBUT) or (op = ANYBUTCI) - or (op = EXACTLY) or (op = EXACTLYCI) then begin - // Literal string, where present. - while s^ <> #0 do begin - Result := Result + s^; - inc (s); - end; - inc (s); - end; - if (op = ANYOFTINYSET) or (op = ANYBUTTINYSET) then begin - for i := 1 to TinySetLen do begin - Result := Result + s^; - inc (s); - end; - end; - if (op = BSUBEXP) or (op = BSUBEXPCI) then begin - Result := Result + ' \' + IntToStr (Ord (s^)); - inc (s); - end; - {$IFDEF UseSetOfChar} //###0.929 - if op = ANYOFFULLSET then begin - for Ch := #0 to #255 do - if Ch in PSetOfREChar (s)^ then - if Ch < ' ' - then Result := Result + '#' + IntToStr (Ord (Ch)) //###0.936 - else Result := Result + Ch; - inc (s, SizeOf (TSetOfREChar)); - end; - {$ENDIF} - if (op = BRACES) or (op = BRACESNG) then begin //###0.941 - // show min/max argument of BRACES operator - Result := Result + Format ('{%d,%d}', [PREBracesArg (s)^, PREBracesArg (s + REBracesArgSz)^]); - inc (s, REBracesArgSz * 2); - end; - {$IFDEF ComplexBraces} - if (op = LOOP) or (op = LOOPNG) then begin //###0.940 - Result := Result + Format (' -> (%d) {%d,%d}', [ - (s - programm - (REOpSz + RENextOffSz)) + PRENextOff (s + 2 * REBracesArgSz)^, - PREBracesArg (s)^, PREBracesArg (s + REBracesArgSz)^]); - inc (s, 2 * REBracesArgSz + RENextOffSz); - end; - {$ENDIF} - Result := Result + #$d#$a; - end; { of while} - - // Header fields of interest. - - if regstart <> #0 - then Result := Result + 'start ' + regstart; - if reganch <> #0 - then Result := Result + 'anchored '; - if regmust <> nil - then Result := Result + 'must have ' + regmust; - {$IFDEF UseFirstCharSet} //###0.929 - Result := Result + #$d#$a'FirstCharSet:'; - for Ch := #0 to #255 do - if Ch in FirstCharSet - then begin - if Ch < ' ' - then Result := Result + '#' + IntToStr(Ord(Ch)) //###0.948 - else Result := Result + Ch; - end; - {$ENDIF} - Result := Result + #$d#$a; - end; { of function TRegExpr.Dump ---------------------------------------------------------------} -{$ENDIF} - -{$IFDEF reRealExceptionAddr} -{$OPTIMIZATION ON} -// ReturnAddr works correctly only if compiler optimization is ON -// I placed this method at very end of unit because there are no -// way to restore compiler optimization flag ... -{$ENDIF} -procedure TRegExpr.Error (AErrorID : integer); -{$IFDEF reRealExceptionAddr} - function ReturnAddr : pointer; //###0.938 - asm - mov eax,[ebp+4] - end; -{$ENDIF} - var - e : ERegExpr; - begin - fLastError := AErrorID; // dummy stub - useless because will raise exception - if AErrorID < 1000 // compilation error ? - then e := ERegExpr.Create (ErrorMsg (AErrorID) // yes - show error pos - + ' (pos ' + IntToStr (CompilerErrorPos) + ')') - else e := ERegExpr.Create (ErrorMsg (AErrorID)); - e.ErrorCode := AErrorID; - e.CompilerErrorPos := CompilerErrorPos; - raise e - {$IFDEF reRealExceptionAddr} - At ReturnAddr; //###0.938 - {$ENDIF} - end; { of procedure TRegExpr.Error ---------------------------------------------------------------} - -(* - PCode persistence: - FirstCharSet - programm, regsize - regstart // -> programm - reganch // -> programm - regmust, regmlen // -> programm - fExprIsCompiled -*) - -// be carefull - placed here code will be always compiled with -// compiler optimization flag - -{$IFDEF FPC} -initialization - RegExprInvertCaseFunction := TRegExpr.InvertCaseFunction; - -{$ENDIF} -end. - diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.ddp b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.dfm b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.dfm deleted file mode 100644 index 31a1551..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.dfm +++ /dev/null @@ -1,16 +0,0 @@ -object EDI_Inventary: TEDI_Inventary - OldCreateOrder = True - SessionManager = dmServer.SessionManager - ServiceSchema = dmEDIInventary.schEDIInventary - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 295 - Width = 296 - object DABINAdapter: TDABINAdapter - Left = 64 - Top = 32 - end -end diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.pas b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.pas deleted file mode 100644 index 4c9f420..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/EDI_Inventary_Impl.pas +++ /dev/null @@ -1,139 +0,0 @@ -unit EDI_Inventary_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TEDI_Inventary } - TEDI_Inventary = class(TDARemoteService, IEDI_Inventary) - DABINAdapter: TDABINAdapter; - private - procedure InsertarLog(OK : Boolean; Error_msg : String = ''); - protected - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; - const FicheroCANT: String; out MsgError: String): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer, - JclFileUtils, DateUtils, EDI_Log_Impl, uDataModuleEDI_Inventary; - -procedure Create_EDI_Inventary(out anInstance : IUnknown); -begin - anInstance := TEDI_Inventary.Create(NIL); -end; - -{ EDI_Inventary } -{ TEDI_Inventary } - -function TEDI_Inventary.CargarFicheroEDI(const FicheroCAB, FicheroLIN, - FicheroCANT: String; out MsgError: String): Boolean; -var - ADirEntrada : String; - ADirTemp : String; - NumRegNuevos : Integer; - - procedure GuardarFicheros; - var - AAlmacen : String; - ADate : String; - begin - DateTimeToString(ADate, 'yyyymmddhhnn', Now); - AAlmacen := PathAddSeparator(dmServer.FDirAlmacen); - AAlmacen := PathAddSeparator(AAlmacen + ADate); - if not DirectoryExists(AAlmacen) then - ForceDirectories(AAlmacen); - FileMove(ADirTemp + FicheroCAB, AAlmacen + FicheroCAB); - FileMove(ADirTemp + FicheroLIN, AAlmacen + FicheroLIN); - FileMove(ADirTemp + FicheroCANT, AAlmacen + FicheroCANT); - DeleteDirectory(ADirTemp, False); - end; - -begin - Result := False; - - // Hay que comprobar que existen los ficheros. - ADirEntrada := PathAddSeparator(dmServer.FDirEntrada); - - if not FileExists(ADirEntrada + FicheroCAB) or - not FileExists(ADirEntrada + FicheroLIN) or - not FileExists(ADirEntrada + FicheroCANT) then - begin - MsgError := 'No hay ficheros de datos'; - InsertarLog(False, MsgError + ' (CargarFicheroEDI1 INV)'); - end - else begin - - // Muevo los ficheros de carga a un directorio temporal - ADirTemp := PathAddSeparator(ADirEntrada + GetTempDirectory(ADirEntrada)); - try - if not DirectoryExists(ADirTemp) then - ForceDirectories(ADirTemp); - FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB); - FileMove(ADirEntrada + FicheroLIN, ADirTemp + FicheroLIN); - FileMove(ADirEntrada + FicheroCANT, ADirTemp + FicheroCANT); - except - on E: Exception do - begin - MsgError := E.Message; - InsertarLog(False, MsgError + ' (CargarFicheroEDI2 INV)'); - Exit; - end; - end; - - try - try - dmEDIInventary.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLIN, ADirTemp + FicheroCANT, NumRegNuevos); - if NumRegNuevos > 0 then - InsertarLog(True, Format('Se han cargado %d registros de inventario nuevos', [NumRegNuevos])) - else - InsertarLog(True, 'El fichero se ha cargado pero no hay registros de inventario nuevos'); - Result := True; - finally - GuardarFicheros; - dmServer.BorrarFicherosDeCargaAntiguos; - end; - except - on E: Exception do - begin - MsgError := E.Message; - InsertarLog(False, MsgError + ' (CargarFicheroEDI3 INV)'); - end; - end; - end; -end; - -procedure TEDI_Inventary.InsertarLog(OK: Boolean; Error_msg: String); -var - LogService : IEDI_Log; -begin - LogService := EDI_Log_Impl.TEDI_Log.Create(Self); - try - LogService.InsertarLog(Now, 'INVRPT', OK, Error_msg); - finally - LogService := nil; - end; -end; - -initialization - TROClassFactory.Create('EDI_Inventary', Create_EDI_Inventary, TEDI_Inventary_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/schEDIInventaryClient_Intf.pas b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/schEDIInventaryClient_Intf.pas deleted file mode 100644 index 8903964..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/schEDIInventaryClient_Intf.pas +++ /dev/null @@ -1,742 +0,0 @@ -unit schEDIInventaryClient_Intf; - -interface - -uses - Classes, DB, 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_RDX_CANTINV = '{D890DD46-1103-4942-83FC-8BE8479D1101}'; - RID_RDX_LININV = '{B0D6E128-0438-4CA2-81F9-0893BE9A9A21}'; - RID_RDX_CABINV = '{21FBA86D-243E-4A6E-AC7D-DB040E6AA070}'; - - { Data table names } - nme_RDX_CANTINV = 'RDX_CANTINV'; - nme_RDX_LININV = 'RDX_LININV'; - nme_RDX_CABINV = 'RDX_CABINV'; - - { RDX_CANTINV fields } - fld_RDX_CANTINVNUMDOC = 'NUMDOC'; - fld_RDX_CANTINVNUMLIN = 'NUMLIN'; - fld_RDX_CANTINVNUMCANT = 'NUMCANT'; - fld_RDX_CANTINVTIPOCANT = 'TIPOCANT'; - fld_RDX_CANTINVCANTIDAD = 'CANTIDAD'; - fld_RDX_CANTINVCENTRO = 'CENTRO'; - fld_RDX_CANTINVTMOV = 'TMOV'; - fld_RDX_CANTINVFACT = 'FACT'; - fld_RDX_CANTINVDEPTO = 'DEPTO'; - fld_RDX_CANTINVIDVEN = 'IDVEN'; - - { RDX_CANTINV field indexes } - idx_RDX_CANTINVNUMDOC = 0; - idx_RDX_CANTINVNUMLIN = 1; - idx_RDX_CANTINVNUMCANT = 2; - idx_RDX_CANTINVTIPOCANT = 3; - idx_RDX_CANTINVCANTIDAD = 4; - idx_RDX_CANTINVCENTRO = 5; - idx_RDX_CANTINVTMOV = 6; - idx_RDX_CANTINVFACT = 7; - idx_RDX_CANTINVDEPTO = 8; - idx_RDX_CANTINVIDVEN = 9; - - { RDX_LININV fields } - fld_RDX_LININVNUMDOC = 'NUMDOC'; - fld_RDX_LININVNUMLIN = 'NUMLIN'; - fld_RDX_LININVCODART = 'CODART'; - fld_RDX_LININVFAMILIA = 'FAMILIA'; - fld_RDX_LININVBARRA = 'BARRA'; - fld_RDX_LININVTALLA = 'TALLA'; - fld_RDX_LININVMARCA = 'MARCA'; - fld_RDX_LININVTAMANO = 'TAMANO'; - fld_RDX_LININVSERIE = 'SERIE'; - fld_RDX_LININVCOLOR = 'COLOR'; - fld_RDX_LININVMODELO = 'MODELO'; - fld_RDX_LININVDIBUJO = 'DIBUJO'; - fld_RDX_LININVDESCRIP = 'DESCRIP'; - - { RDX_LININV field indexes } - idx_RDX_LININVNUMDOC = 0; - idx_RDX_LININVNUMLIN = 1; - idx_RDX_LININVCODART = 2; - idx_RDX_LININVFAMILIA = 3; - idx_RDX_LININVBARRA = 4; - idx_RDX_LININVTALLA = 5; - idx_RDX_LININVMARCA = 6; - idx_RDX_LININVTAMANO = 7; - idx_RDX_LININVSERIE = 8; - idx_RDX_LININVCOLOR = 9; - idx_RDX_LININVMODELO = 10; - idx_RDX_LININVDIBUJO = 11; - idx_RDX_LININVDESCRIP = 12; - - { RDX_CABINV fields } - fld_RDX_CABINVNUMDOC = 'NUMDOC'; - fld_RDX_CABINVTIPODOC = 'TIPODOC'; - fld_RDX_CABINVTIPOLIQ = 'TIPOLIQ'; - fld_RDX_CABINVFECHA = 'FECHA'; - fld_RDX_CABINVFECHALIQ = 'FECHALIQ'; - fld_RDX_CABINVEMISOR = 'EMISOR'; - fld_RDX_CABINVRECEPTOR = 'RECEPTOR'; - fld_RDX_CABINVDPTO = 'DPTO'; - fld_RDX_CABINVCENTRO = 'CENTRO'; - fld_RDX_CABINVFECHA_CARGA = 'FECHA_CARGA'; - - { RDX_CABINV field indexes } - idx_RDX_CABINVNUMDOC = 0; - idx_RDX_CABINVTIPODOC = 1; - idx_RDX_CABINVTIPOLIQ = 2; - idx_RDX_CABINVFECHA = 3; - idx_RDX_CABINVFECHALIQ = 4; - idx_RDX_CABINVEMISOR = 5; - idx_RDX_CABINVRECEPTOR = 6; - idx_RDX_CABINVDPTO = 7; - idx_RDX_CABINVCENTRO = 8; - idx_RDX_CABINVFECHA_CARGA = 9; - -type - { IRDX_CANTINV } - IRDX_CANTINV = interface(IDAStronglyTypedDataTable) - ['{2D19DA25-B122-468C-BB44-9B28F4025A0B}'] - { Property getters and setters } - function GetNUMDOCValue: String; - procedure SetNUMDOCValue(const aValue: String); - function GetNUMLINValue: Float; - procedure SetNUMLINValue(const aValue: Float); - function GetNUMCANTValue: Float; - procedure SetNUMCANTValue(const aValue: Float); - function GetTIPOCANTValue: String; - procedure SetTIPOCANTValue(const aValue: String); - function GetCANTIDADValue: Float; - procedure SetCANTIDADValue(const aValue: Float); - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetTMOVValue: String; - procedure SetTMOVValue(const aValue: String); - function GetFACTValue: String; - procedure SetFACTValue(const aValue: String); - function GetDEPTOValue: String; - procedure SetDEPTOValue(const aValue: String); - function GetIDVENValue: String; - procedure SetIDVENValue(const aValue: String); - - - { Properties } - property NUMDOC: String read GetNUMDOCValue write SetNUMDOCValue; - property NUMLIN: Float read GetNUMLINValue write SetNUMLINValue; - property NUMCANT: Float read GetNUMCANTValue write SetNUMCANTValue; - property TIPOCANT: String read GetTIPOCANTValue write SetTIPOCANTValue; - property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property TMOV: String read GetTMOVValue write SetTMOVValue; - property FACT: String read GetFACTValue write SetFACTValue; - property DEPTO: String read GetDEPTOValue write SetDEPTOValue; - property IDVEN: String read GetIDVENValue write SetIDVENValue; - end; - - { TRDX_CANTINVDataTableRules } - TRDX_CANTINVDataTableRules = class(TDADataTableRules, IRDX_CANTINV) - private - protected - { Property getters and setters } - function GetNUMDOCValue: String; virtual; - procedure SetNUMDOCValue(const aValue: String); virtual; - function GetNUMLINValue: Float; virtual; - procedure SetNUMLINValue(const aValue: Float); virtual; - function GetNUMCANTValue: Float; virtual; - procedure SetNUMCANTValue(const aValue: Float); virtual; - function GetTIPOCANTValue: String; virtual; - procedure SetTIPOCANTValue(const aValue: String); virtual; - function GetCANTIDADValue: Float; virtual; - procedure SetCANTIDADValue(const aValue: Float); virtual; - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetTMOVValue: String; virtual; - procedure SetTMOVValue(const aValue: String); virtual; - function GetFACTValue: String; virtual; - procedure SetFACTValue(const aValue: String); virtual; - function GetDEPTOValue: String; virtual; - procedure SetDEPTOValue(const aValue: String); virtual; - function GetIDVENValue: String; virtual; - procedure SetIDVENValue(const aValue: String); virtual; - - { Properties } - property NUMDOC: String read GetNUMDOCValue write SetNUMDOCValue; - property NUMLIN: Float read GetNUMLINValue write SetNUMLINValue; - property NUMCANT: Float read GetNUMCANTValue write SetNUMCANTValue; - property TIPOCANT: String read GetTIPOCANTValue write SetTIPOCANTValue; - property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property TMOV: String read GetTMOVValue write SetTMOVValue; - property FACT: String read GetFACTValue write SetFACTValue; - property DEPTO: String read GetDEPTOValue write SetDEPTOValue; - property IDVEN: String read GetIDVENValue write SetIDVENValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IRDX_LININV } - IRDX_LININV = interface(IDAStronglyTypedDataTable) - ['{7DF3D736-0E00-441C-A777-864BD96FA2A4}'] - { Property getters and setters } - function GetNUMDOCValue: String; - procedure SetNUMDOCValue(const aValue: String); - function GetNUMLINValue: Float; - procedure SetNUMLINValue(const aValue: Float); - function GetCODARTValue: String; - procedure SetCODARTValue(const aValue: String); - function GetFAMILIAValue: String; - procedure SetFAMILIAValue(const aValue: String); - function GetBARRAValue: String; - procedure SetBARRAValue(const aValue: String); - function GetTALLAValue: String; - procedure SetTALLAValue(const aValue: String); - function GetMARCAValue: String; - procedure SetMARCAValue(const aValue: String); - function GetTAMANOValue: String; - procedure SetTAMANOValue(const aValue: String); - function GetSERIEValue: String; - procedure SetSERIEValue(const aValue: String); - function GetCOLORValue: String; - procedure SetCOLORValue(const aValue: String); - function GetMODELOValue: String; - procedure SetMODELOValue(const aValue: String); - function GetDIBUJOValue: String; - procedure SetDIBUJOValue(const aValue: String); - function GetDESCRIPValue: String; - procedure SetDESCRIPValue(const aValue: String); - - - { Properties } - property NUMDOC: String read GetNUMDOCValue write SetNUMDOCValue; - property NUMLIN: Float read GetNUMLINValue write SetNUMLINValue; - property CODART: String read GetCODARTValue write SetCODARTValue; - property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; - property BARRA: String read GetBARRAValue write SetBARRAValue; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property MARCA: String read GetMARCAValue write SetMARCAValue; - property TAMANO: String read GetTAMANOValue write SetTAMANOValue; - property SERIE: String read GetSERIEValue write SetSERIEValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property MODELO: String read GetMODELOValue write SetMODELOValue; - property DIBUJO: String read GetDIBUJOValue write SetDIBUJOValue; - property DESCRIP: String read GetDESCRIPValue write SetDESCRIPValue; - end; - - { TRDX_LININVDataTableRules } - TRDX_LININVDataTableRules = class(TDADataTableRules, IRDX_LININV) - private - protected - { Property getters and setters } - function GetNUMDOCValue: String; virtual; - procedure SetNUMDOCValue(const aValue: String); virtual; - function GetNUMLINValue: Float; virtual; - procedure SetNUMLINValue(const aValue: Float); virtual; - function GetCODARTValue: String; virtual; - procedure SetCODARTValue(const aValue: String); virtual; - function GetFAMILIAValue: String; virtual; - procedure SetFAMILIAValue(const aValue: String); virtual; - function GetBARRAValue: String; virtual; - procedure SetBARRAValue(const aValue: String); virtual; - function GetTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetMARCAValue: String; virtual; - procedure SetMARCAValue(const aValue: String); virtual; - function GetTAMANOValue: String; virtual; - procedure SetTAMANOValue(const aValue: String); virtual; - function GetSERIEValue: String; virtual; - procedure SetSERIEValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetMODELOValue: String; virtual; - procedure SetMODELOValue(const aValue: String); virtual; - function GetDIBUJOValue: String; virtual; - procedure SetDIBUJOValue(const aValue: String); virtual; - function GetDESCRIPValue: String; virtual; - procedure SetDESCRIPValue(const aValue: String); virtual; - - { Properties } - property NUMDOC: String read GetNUMDOCValue write SetNUMDOCValue; - property NUMLIN: Float read GetNUMLINValue write SetNUMLINValue; - property CODART: String read GetCODARTValue write SetCODARTValue; - property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; - property BARRA: String read GetBARRAValue write SetBARRAValue; - property TALLA: String read GetTALLAValue write SetTALLAValue; - property MARCA: String read GetMARCAValue write SetMARCAValue; - property TAMANO: String read GetTAMANOValue write SetTAMANOValue; - property SERIE: String read GetSERIEValue write SetSERIEValue; - property COLOR: String read GetCOLORValue write SetCOLORValue; - property MODELO: String read GetMODELOValue write SetMODELOValue; - property DIBUJO: String read GetDIBUJOValue write SetDIBUJOValue; - property DESCRIP: String read GetDESCRIPValue write SetDESCRIPValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IRDX_CABINV } - IRDX_CABINV = interface(IDAStronglyTypedDataTable) - ['{4373F992-8872-4C21-BF37-CB9EB6F816CF}'] - { Property getters and setters } - function GetNUMDOCValue: String; - procedure SetNUMDOCValue(const aValue: String); - function GetTIPODOCValue: String; - procedure SetTIPODOCValue(const aValue: String); - function GetTIPOLIQValue: String; - procedure SetTIPOLIQValue(const aValue: String); - function GetFECHAValue: DateTime; - procedure SetFECHAValue(const aValue: DateTime); - function GetFECHALIQValue: DateTime; - procedure SetFECHALIQValue(const aValue: DateTime); - function GetEMISORValue: String; - procedure SetEMISORValue(const aValue: String); - function GetRECEPTORValue: String; - procedure SetRECEPTORValue(const aValue: String); - function GetDPTOValue: String; - procedure SetDPTOValue(const aValue: String); - function GetCENTROValue: String; - procedure SetCENTROValue(const aValue: String); - function GetFECHA_CARGAValue: DateTime; - procedure SetFECHA_CARGAValue(const aValue: DateTime); - - - { Properties } - property NUMDOC: String read GetNUMDOCValue write SetNUMDOCValue; - property TIPODOC: String read GetTIPODOCValue write SetTIPODOCValue; - property TIPOLIQ: String read GetTIPOLIQValue write SetTIPOLIQValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property FECHALIQ: DateTime read GetFECHALIQValue write SetFECHALIQValue; - property EMISOR: String read GetEMISORValue write SetEMISORValue; - property RECEPTOR: String read GetRECEPTORValue write SetRECEPTORValue; - property DPTO: String read GetDPTOValue write SetDPTOValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property FECHA_CARGA: DateTime read GetFECHA_CARGAValue write SetFECHA_CARGAValue; - end; - - { TRDX_CABINVDataTableRules } - TRDX_CABINVDataTableRules = class(TDADataTableRules, IRDX_CABINV) - private - protected - { Property getters and setters } - function GetNUMDOCValue: String; virtual; - procedure SetNUMDOCValue(const aValue: String); virtual; - function GetTIPODOCValue: String; virtual; - procedure SetTIPODOCValue(const aValue: String); virtual; - function GetTIPOLIQValue: String; virtual; - procedure SetTIPOLIQValue(const aValue: String); virtual; - function GetFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetFECHALIQValue: DateTime; virtual; - procedure SetFECHALIQValue(const aValue: DateTime); virtual; - function GetEMISORValue: String; virtual; - procedure SetEMISORValue(const aValue: String); virtual; - function GetRECEPTORValue: String; virtual; - procedure SetRECEPTORValue(const aValue: String); virtual; - function GetDPTOValue: String; virtual; - procedure SetDPTOValue(const aValue: String); virtual; - function GetCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetFECHA_CARGAValue: DateTime; virtual; - procedure SetFECHA_CARGAValue(const aValue: DateTime); virtual; - - { Properties } - property NUMDOC: String read GetNUMDOCValue write SetNUMDOCValue; - property TIPODOC: String read GetTIPODOCValue write SetTIPODOCValue; - property TIPOLIQ: String read GetTIPOLIQValue write SetTIPOLIQValue; - property FECHA: DateTime read GetFECHAValue write SetFECHAValue; - property FECHALIQ: DateTime read GetFECHALIQValue write SetFECHALIQValue; - property EMISOR: String read GetEMISORValue write SetEMISORValue; - property RECEPTOR: String read GetRECEPTORValue write SetRECEPTORValue; - property DPTO: String read GetDPTOValue write SetDPTOValue; - property CENTRO: String read GetCENTROValue write SetCENTROValue; - property FECHA_CARGA: DateTime read GetFECHA_CARGAValue write SetFECHA_CARGAValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TRDX_CANTINVDataTableRules } -constructor TRDX_CANTINVDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRDX_CANTINVDataTableRules.Destroy; -begin - inherited; -end; - -function TRDX_CANTINVDataTableRules.GetNUMDOCValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVNUMDOC].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetNUMDOCValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVNUMDOC].AsString := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetNUMLINValue: Float; -begin - result := DataTable.Fields[idx_RDX_CANTINVNUMLIN].AsFloat; -end; - -procedure TRDX_CANTINVDataTableRules.SetNUMLINValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_CANTINVNUMLIN].AsFloat := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetNUMCANTValue: Float; -begin - result := DataTable.Fields[idx_RDX_CANTINVNUMCANT].AsFloat; -end; - -procedure TRDX_CANTINVDataTableRules.SetNUMCANTValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_CANTINVNUMCANT].AsFloat := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetTIPOCANTValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVTIPOCANT].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetTIPOCANTValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVTIPOCANT].AsString := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetCANTIDADValue: Float; -begin - result := DataTable.Fields[idx_RDX_CANTINVCANTIDAD].AsFloat; -end; - -procedure TRDX_CANTINVDataTableRules.SetCANTIDADValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_CANTINVCANTIDAD].AsFloat := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVCENTRO].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVCENTRO].AsString := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetTMOVValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVTMOV].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetTMOVValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVTMOV].AsString := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetFACTValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVFACT].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetFACTValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVFACT].AsString := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetDEPTOValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVDEPTO].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetDEPTOValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVDEPTO].AsString := aValue; -end; - -function TRDX_CANTINVDataTableRules.GetIDVENValue: String; -begin - result := DataTable.Fields[idx_RDX_CANTINVIDVEN].AsString; -end; - -procedure TRDX_CANTINVDataTableRules.SetIDVENValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CANTINVIDVEN].AsString := aValue; -end; - - -{ TRDX_LININVDataTableRules } -constructor TRDX_LININVDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRDX_LININVDataTableRules.Destroy; -begin - inherited; -end; - -function TRDX_LININVDataTableRules.GetNUMDOCValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVNUMDOC].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetNUMDOCValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVNUMDOC].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetNUMLINValue: Float; -begin - result := DataTable.Fields[idx_RDX_LININVNUMLIN].AsFloat; -end; - -procedure TRDX_LININVDataTableRules.SetNUMLINValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_LININVNUMLIN].AsFloat := aValue; -end; - -function TRDX_LININVDataTableRules.GetCODARTValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVCODART].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetCODARTValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVCODART].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetFAMILIAValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVFAMILIA].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetFAMILIAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVFAMILIA].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetBARRAValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVBARRA].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetBARRAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVBARRA].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetTALLAValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVTALLA].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetTALLAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVTALLA].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetMARCAValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVMARCA].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetMARCAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVMARCA].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetTAMANOValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVTAMANO].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetTAMANOValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVTAMANO].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetSERIEValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVSERIE].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetSERIEValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVSERIE].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetCOLORValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVCOLOR].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetCOLORValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVCOLOR].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetMODELOValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVMODELO].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetMODELOValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVMODELO].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetDIBUJOValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVDIBUJO].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetDIBUJOValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVDIBUJO].AsString := aValue; -end; - -function TRDX_LININVDataTableRules.GetDESCRIPValue: String; -begin - result := DataTable.Fields[idx_RDX_LININVDESCRIP].AsString; -end; - -procedure TRDX_LININVDataTableRules.SetDESCRIPValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LININVDESCRIP].AsString := aValue; -end; - - -{ TRDX_CABINVDataTableRules } -constructor TRDX_CABINVDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRDX_CABINVDataTableRules.Destroy; -begin - inherited; -end; - -function TRDX_CABINVDataTableRules.GetNUMDOCValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVNUMDOC].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetNUMDOCValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVNUMDOC].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetTIPODOCValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVTIPODOC].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetTIPODOCValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVTIPODOC].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetTIPOLIQValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVTIPOLIQ].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetTIPOLIQValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVTIPOLIQ].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetFECHAValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABINVFECHA].AsDateTime; -end; - -procedure TRDX_CABINVDataTableRules.SetFECHAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABINVFECHA].AsDateTime := aValue; -end; - -function TRDX_CABINVDataTableRules.GetFECHALIQValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABINVFECHALIQ].AsDateTime; -end; - -procedure TRDX_CABINVDataTableRules.SetFECHALIQValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABINVFECHALIQ].AsDateTime := aValue; -end; - -function TRDX_CABINVDataTableRules.GetEMISORValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVEMISOR].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetEMISORValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVEMISOR].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetRECEPTORValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVRECEPTOR].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetRECEPTORValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVRECEPTOR].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetDPTOValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVDPTO].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetDPTOValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVDPTO].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetCENTROValue: String; -begin - result := DataTable.Fields[idx_RDX_CABINVCENTRO].AsString; -end; - -procedure TRDX_CABINVDataTableRules.SetCENTROValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABINVCENTRO].AsString := aValue; -end; - -function TRDX_CABINVDataTableRules.GetFECHA_CARGAValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABINVFECHA_CARGA].AsDateTime; -end; - -procedure TRDX_CABINVDataTableRules.SetFECHA_CARGAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABINVFECHA_CARGA].AsDateTime := aValue; -end; - - -initialization - RegisterDataTableRules(RID_RDX_CANTINV, TRDX_CANTINVDataTableRules); - RegisterDataTableRules(RID_RDX_LININV, TRDX_LININVDataTableRules); - RegisterDataTableRules(RID_RDX_CABINV, TRDX_CABINVDataTableRules); - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/schEDIInventaryServer_Intf.pas b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/schEDIInventaryServer_Intf.pas deleted file mode 100644 index 5429a9a..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/schEDIInventaryServer_Intf.pas +++ /dev/null @@ -1,855 +0,0 @@ -unit schEDIInventaryServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schEDIInventaryClient_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_RDX_CANTINVDelta = '{C803322D-5148-44E9-A06D-99D8B2E2781E}'; - RID_RDX_LININVDelta = '{59D21195-BB34-4A91-BD02-D48649A8F4B9}'; - RID_RDX_CABINVDelta = '{9A135F09-4540-4DAE-B701-2CDA92E0519B}'; - -type - { IRDX_CANTINVDelta } - IRDX_CANTINVDelta = interface(IRDX_CANTINV) - ['{C803322D-5148-44E9-A06D-99D8B2E2781E}'] - { Property getters and setters } - function GetOldNUMDOCValue : String; - function GetOldNUMLINValue : Float; - function GetOldNUMCANTValue : Float; - function GetOldTIPOCANTValue : String; - function GetOldCANTIDADValue : Float; - function GetOldCENTROValue : String; - function GetOldTMOVValue : String; - function GetOldFACTValue : String; - function GetOldDEPTOValue : String; - function GetOldIDVENValue : String; - - { Properties } - property OldNUMDOC : String read GetOldNUMDOCValue; - property OldNUMLIN : Float read GetOldNUMLINValue; - property OldNUMCANT : Float read GetOldNUMCANTValue; - property OldTIPOCANT : String read GetOldTIPOCANTValue; - property OldCANTIDAD : Float read GetOldCANTIDADValue; - property OldCENTRO : String read GetOldCENTROValue; - property OldTMOV : String read GetOldTMOVValue; - property OldFACT : String read GetOldFACTValue; - property OldDEPTO : String read GetOldDEPTOValue; - property OldIDVEN : String read GetOldIDVENValue; - end; - - { TRDX_CANTINVBusinessProcessorRules } - TRDX_CANTINVBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_CANTINV, IRDX_CANTINVDelta) - private - protected - { Property getters and setters } - function GetNUMDOCValue: String; virtual; - function GetOldNUMDOCValue: String; virtual; - procedure SetNUMDOCValue(const aValue: String); virtual; - function GetNUMLINValue: Float; virtual; - function GetOldNUMLINValue: Float; virtual; - procedure SetNUMLINValue(const aValue: Float); virtual; - function GetNUMCANTValue: Float; virtual; - function GetOldNUMCANTValue: Float; virtual; - procedure SetNUMCANTValue(const aValue: Float); virtual; - function GetTIPOCANTValue: String; virtual; - function GetOldTIPOCANTValue: String; virtual; - procedure SetTIPOCANTValue(const aValue: String); virtual; - function GetCANTIDADValue: Float; virtual; - function GetOldCANTIDADValue: Float; virtual; - procedure SetCANTIDADValue(const aValue: Float); virtual; - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetTMOVValue: String; virtual; - function GetOldTMOVValue: String; virtual; - procedure SetTMOVValue(const aValue: String); virtual; - function GetFACTValue: String; virtual; - function GetOldFACTValue: String; virtual; - procedure SetFACTValue(const aValue: String); virtual; - function GetDEPTOValue: String; virtual; - function GetOldDEPTOValue: String; virtual; - procedure SetDEPTOValue(const aValue: String); virtual; - function GetIDVENValue: String; virtual; - function GetOldIDVENValue: String; virtual; - procedure SetIDVENValue(const aValue: String); virtual; - - { Properties } - property NUMDOC : String read GetNUMDOCValue write SetNUMDOCValue; - property OldNUMDOC : String read GetOldNUMDOCValue; - property NUMLIN : Float read GetNUMLINValue write SetNUMLINValue; - property OldNUMLIN : Float read GetOldNUMLINValue; - property NUMCANT : Float read GetNUMCANTValue write SetNUMCANTValue; - property OldNUMCANT : Float read GetOldNUMCANTValue; - property TIPOCANT : String read GetTIPOCANTValue write SetTIPOCANTValue; - property OldTIPOCANT : String read GetOldTIPOCANTValue; - property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue; - property OldCANTIDAD : Float read GetOldCANTIDADValue; - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property TMOV : String read GetTMOVValue write SetTMOVValue; - property OldTMOV : String read GetOldTMOVValue; - property FACT : String read GetFACTValue write SetFACTValue; - property OldFACT : String read GetOldFACTValue; - property DEPTO : String read GetDEPTOValue write SetDEPTOValue; - property OldDEPTO : String read GetOldDEPTOValue; - property IDVEN : String read GetIDVENValue write SetIDVENValue; - property OldIDVEN : String read GetOldIDVENValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IRDX_LININVDelta } - IRDX_LININVDelta = interface(IRDX_LININV) - ['{59D21195-BB34-4A91-BD02-D48649A8F4B9}'] - { Property getters and setters } - function GetOldNUMDOCValue : String; - function GetOldNUMLINValue : Float; - function GetOldCODARTValue : String; - function GetOldFAMILIAValue : String; - function GetOldBARRAValue : String; - function GetOldTALLAValue : String; - function GetOldMARCAValue : String; - function GetOldTAMANOValue : String; - function GetOldSERIEValue : String; - function GetOldCOLORValue : String; - function GetOldMODELOValue : String; - function GetOldDIBUJOValue : String; - function GetOldDESCRIPValue : String; - - { Properties } - property OldNUMDOC : String read GetOldNUMDOCValue; - property OldNUMLIN : Float read GetOldNUMLINValue; - property OldCODART : String read GetOldCODARTValue; - property OldFAMILIA : String read GetOldFAMILIAValue; - property OldBARRA : String read GetOldBARRAValue; - property OldTALLA : String read GetOldTALLAValue; - property OldMARCA : String read GetOldMARCAValue; - property OldTAMANO : String read GetOldTAMANOValue; - property OldSERIE : String read GetOldSERIEValue; - property OldCOLOR : String read GetOldCOLORValue; - property OldMODELO : String read GetOldMODELOValue; - property OldDIBUJO : String read GetOldDIBUJOValue; - property OldDESCRIP : String read GetOldDESCRIPValue; - end; - - { TRDX_LININVBusinessProcessorRules } - TRDX_LININVBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_LININV, IRDX_LININVDelta) - private - protected - { Property getters and setters } - function GetNUMDOCValue: String; virtual; - function GetOldNUMDOCValue: String; virtual; - procedure SetNUMDOCValue(const aValue: String); virtual; - function GetNUMLINValue: Float; virtual; - function GetOldNUMLINValue: Float; virtual; - procedure SetNUMLINValue(const aValue: Float); virtual; - function GetCODARTValue: String; virtual; - function GetOldCODARTValue: String; virtual; - procedure SetCODARTValue(const aValue: String); virtual; - function GetFAMILIAValue: String; virtual; - function GetOldFAMILIAValue: String; virtual; - procedure SetFAMILIAValue(const aValue: String); virtual; - function GetBARRAValue: String; virtual; - function GetOldBARRAValue: String; virtual; - procedure SetBARRAValue(const aValue: String); virtual; - function GetTALLAValue: String; virtual; - function GetOldTALLAValue: String; virtual; - procedure SetTALLAValue(const aValue: String); virtual; - function GetMARCAValue: String; virtual; - function GetOldMARCAValue: String; virtual; - procedure SetMARCAValue(const aValue: String); virtual; - function GetTAMANOValue: String; virtual; - function GetOldTAMANOValue: String; virtual; - procedure SetTAMANOValue(const aValue: String); virtual; - function GetSERIEValue: String; virtual; - function GetOldSERIEValue: String; virtual; - procedure SetSERIEValue(const aValue: String); virtual; - function GetCOLORValue: String; virtual; - function GetOldCOLORValue: String; virtual; - procedure SetCOLORValue(const aValue: String); virtual; - function GetMODELOValue: String; virtual; - function GetOldMODELOValue: String; virtual; - procedure SetMODELOValue(const aValue: String); virtual; - function GetDIBUJOValue: String; virtual; - function GetOldDIBUJOValue: String; virtual; - procedure SetDIBUJOValue(const aValue: String); virtual; - function GetDESCRIPValue: String; virtual; - function GetOldDESCRIPValue: String; virtual; - procedure SetDESCRIPValue(const aValue: String); virtual; - - { Properties } - property NUMDOC : String read GetNUMDOCValue write SetNUMDOCValue; - property OldNUMDOC : String read GetOldNUMDOCValue; - property NUMLIN : Float read GetNUMLINValue write SetNUMLINValue; - property OldNUMLIN : Float read GetOldNUMLINValue; - property CODART : String read GetCODARTValue write SetCODARTValue; - property OldCODART : String read GetOldCODARTValue; - property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; - property OldFAMILIA : String read GetOldFAMILIAValue; - property BARRA : String read GetBARRAValue write SetBARRAValue; - property OldBARRA : String read GetOldBARRAValue; - property TALLA : String read GetTALLAValue write SetTALLAValue; - property OldTALLA : String read GetOldTALLAValue; - property MARCA : String read GetMARCAValue write SetMARCAValue; - property OldMARCA : String read GetOldMARCAValue; - property TAMANO : String read GetTAMANOValue write SetTAMANOValue; - property OldTAMANO : String read GetOldTAMANOValue; - property SERIE : String read GetSERIEValue write SetSERIEValue; - property OldSERIE : String read GetOldSERIEValue; - property COLOR : String read GetCOLORValue write SetCOLORValue; - property OldCOLOR : String read GetOldCOLORValue; - property MODELO : String read GetMODELOValue write SetMODELOValue; - property OldMODELO : String read GetOldMODELOValue; - property DIBUJO : String read GetDIBUJOValue write SetDIBUJOValue; - property OldDIBUJO : String read GetOldDIBUJOValue; - property DESCRIP : String read GetDESCRIPValue write SetDESCRIPValue; - property OldDESCRIP : String read GetOldDESCRIPValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IRDX_CABINVDelta } - IRDX_CABINVDelta = interface(IRDX_CABINV) - ['{9A135F09-4540-4DAE-B701-2CDA92E0519B}'] - { Property getters and setters } - function GetOldNUMDOCValue : String; - function GetOldTIPODOCValue : String; - function GetOldTIPOLIQValue : String; - function GetOldFECHAValue : DateTime; - function GetOldFECHALIQValue : DateTime; - function GetOldEMISORValue : String; - function GetOldRECEPTORValue : String; - function GetOldDPTOValue : String; - function GetOldCENTROValue : String; - function GetOldFECHA_CARGAValue : DateTime; - - { Properties } - property OldNUMDOC : String read GetOldNUMDOCValue; - property OldTIPODOC : String read GetOldTIPODOCValue; - property OldTIPOLIQ : String read GetOldTIPOLIQValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property OldFECHALIQ : DateTime read GetOldFECHALIQValue; - property OldEMISOR : String read GetOldEMISORValue; - property OldRECEPTOR : String read GetOldRECEPTORValue; - property OldDPTO : String read GetOldDPTOValue; - property OldCENTRO : String read GetOldCENTROValue; - property OldFECHA_CARGA : DateTime read GetOldFECHA_CARGAValue; - end; - - { TRDX_CABINVBusinessProcessorRules } - TRDX_CABINVBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_CABINV, IRDX_CABINVDelta) - private - protected - { Property getters and setters } - function GetNUMDOCValue: String; virtual; - function GetOldNUMDOCValue: String; virtual; - procedure SetNUMDOCValue(const aValue: String); virtual; - function GetTIPODOCValue: String; virtual; - function GetOldTIPODOCValue: String; virtual; - procedure SetTIPODOCValue(const aValue: String); virtual; - function GetTIPOLIQValue: String; virtual; - function GetOldTIPOLIQValue: String; virtual; - procedure SetTIPOLIQValue(const aValue: String); virtual; - function GetFECHAValue: DateTime; virtual; - function GetOldFECHAValue: DateTime; virtual; - procedure SetFECHAValue(const aValue: DateTime); virtual; - function GetFECHALIQValue: DateTime; virtual; - function GetOldFECHALIQValue: DateTime; virtual; - procedure SetFECHALIQValue(const aValue: DateTime); virtual; - function GetEMISORValue: String; virtual; - function GetOldEMISORValue: String; virtual; - procedure SetEMISORValue(const aValue: String); virtual; - function GetRECEPTORValue: String; virtual; - function GetOldRECEPTORValue: String; virtual; - procedure SetRECEPTORValue(const aValue: String); virtual; - function GetDPTOValue: String; virtual; - function GetOldDPTOValue: String; virtual; - procedure SetDPTOValue(const aValue: String); virtual; - function GetCENTROValue: String; virtual; - function GetOldCENTROValue: String; virtual; - procedure SetCENTROValue(const aValue: String); virtual; - function GetFECHA_CARGAValue: DateTime; virtual; - function GetOldFECHA_CARGAValue: DateTime; virtual; - procedure SetFECHA_CARGAValue(const aValue: DateTime); virtual; - - { Properties } - property NUMDOC : String read GetNUMDOCValue write SetNUMDOCValue; - property OldNUMDOC : String read GetOldNUMDOCValue; - property TIPODOC : String read GetTIPODOCValue write SetTIPODOCValue; - property OldTIPODOC : String read GetOldTIPODOCValue; - property TIPOLIQ : String read GetTIPOLIQValue write SetTIPOLIQValue; - property OldTIPOLIQ : String read GetOldTIPOLIQValue; - property FECHA : DateTime read GetFECHAValue write SetFECHAValue; - property OldFECHA : DateTime read GetOldFECHAValue; - property FECHALIQ : DateTime read GetFECHALIQValue write SetFECHALIQValue; - property OldFECHALIQ : DateTime read GetOldFECHALIQValue; - property EMISOR : String read GetEMISORValue write SetEMISORValue; - property OldEMISOR : String read GetOldEMISORValue; - property RECEPTOR : String read GetRECEPTORValue write SetRECEPTORValue; - property OldRECEPTOR : String read GetOldRECEPTORValue; - property DPTO : String read GetDPTOValue write SetDPTOValue; - property OldDPTO : String read GetOldDPTOValue; - property CENTRO : String read GetCENTROValue write SetCENTROValue; - property OldCENTRO : String read GetOldCENTROValue; - property FECHA_CARGA : DateTime read GetFECHA_CARGAValue write SetFECHA_CARGAValue; - property OldFECHA_CARGA : DateTime read GetOldFECHA_CARGAValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TRDX_CANTINVBusinessProcessorRules } -constructor TRDX_CANTINVBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRDX_CANTINVBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetNUMDOCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVNUMDOC]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldNUMDOCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVNUMDOC]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetNUMDOCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVNUMDOC] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetNUMLINValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVNUMLIN]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldNUMLINValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVNUMLIN]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetNUMLINValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVNUMLIN] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetNUMCANTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVNUMCANT]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldNUMCANTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVNUMCANT]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetNUMCANTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVNUMCANT] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetTIPOCANTValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVTIPOCANT]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldTIPOCANTValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVTIPOCANT]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetTIPOCANTValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVTIPOCANT] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetCANTIDADValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVCANTIDAD]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldCANTIDADValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVCANTIDAD]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetCANTIDADValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVCANTIDAD] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVCENTRO]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVCENTRO]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVCENTRO] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetTMOVValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVTMOV]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldTMOVValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVTMOV]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetTMOVValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVTMOV] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetFACTValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVFACT]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldFACTValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVFACT]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetFACTValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVFACT] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetDEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVDEPTO]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldDEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVDEPTO]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetDEPTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVDEPTO] := aValue; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetIDVENValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVIDVEN]; -end; - -function TRDX_CANTINVBusinessProcessorRules.GetOldIDVENValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CANTINVIDVEN]; -end; - -procedure TRDX_CANTINVBusinessProcessorRules.SetIDVENValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CANTINVIDVEN] := aValue; -end; - - -{ TRDX_LININVBusinessProcessorRules } -constructor TRDX_LININVBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRDX_LININVBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRDX_LININVBusinessProcessorRules.GetNUMDOCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVNUMDOC]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldNUMDOCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVNUMDOC]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetNUMDOCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVNUMDOC] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetNUMLINValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVNUMLIN]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldNUMLINValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVNUMLIN]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetNUMLINValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVNUMLIN] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetCODARTValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVCODART]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldCODARTValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVCODART]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetCODARTValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVCODART] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetFAMILIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVFAMILIA]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldFAMILIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVFAMILIA]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetFAMILIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVFAMILIA] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetBARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVBARRA]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldBARRAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVBARRA]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetBARRAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVBARRA] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVTALLA]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldTALLAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVTALLA]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetTALLAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVTALLA] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetMARCAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVMARCA]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldMARCAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVMARCA]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetMARCAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVMARCA] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetTAMANOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVTAMANO]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldTAMANOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVTAMANO]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetTAMANOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVTAMANO] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetSERIEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVSERIE]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldSERIEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVSERIE]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetSERIEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVSERIE] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVCOLOR]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldCOLORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVCOLOR]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetCOLORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVCOLOR] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetMODELOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVMODELO]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldMODELOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVMODELO]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetMODELOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVMODELO] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetDIBUJOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVDIBUJO]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldDIBUJOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVDIBUJO]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetDIBUJOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVDIBUJO] := aValue; -end; - -function TRDX_LININVBusinessProcessorRules.GetDESCRIPValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVDESCRIP]; -end; - -function TRDX_LININVBusinessProcessorRules.GetOldDESCRIPValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LININVDESCRIP]; -end; - -procedure TRDX_LININVBusinessProcessorRules.SetDESCRIPValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LININVDESCRIP] := aValue; -end; - - -{ TRDX_CABINVBusinessProcessorRules } -constructor TRDX_CABINVBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRDX_CABINVBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRDX_CABINVBusinessProcessorRules.GetNUMDOCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVNUMDOC]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldNUMDOCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVNUMDOC]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetNUMDOCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVNUMDOC] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetTIPODOCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVTIPODOC]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldTIPODOCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVTIPODOC]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetTIPODOCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVTIPODOC] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetTIPOLIQValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVTIPOLIQ]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldTIPOLIQValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVTIPOLIQ]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetTIPOLIQValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVTIPOLIQ] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVFECHA]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldFECHAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVFECHA]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVFECHA] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetFECHALIQValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVFECHALIQ]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldFECHALIQValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVFECHALIQ]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetFECHALIQValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVFECHALIQ] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetEMISORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVEMISOR]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldEMISORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVEMISOR]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetEMISORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVEMISOR] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetRECEPTORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVRECEPTOR]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldRECEPTORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVRECEPTOR]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetRECEPTORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVRECEPTOR] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetDPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVDPTO]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldDPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVDPTO]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetDPTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVDPTO] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVCENTRO]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldCENTROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVCENTRO]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetCENTROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVCENTRO] := aValue; -end; - -function TRDX_CABINVBusinessProcessorRules.GetFECHA_CARGAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVFECHA_CARGA]; -end; - -function TRDX_CABINVBusinessProcessorRules.GetOldFECHA_CARGAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABINVFECHA_CARGA]; -end; - -procedure TRDX_CABINVBusinessProcessorRules.SetFECHA_CARGAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABINVFECHA_CARGA] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID_RDX_CANTINVDelta, TRDX_CANTINVBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RDX_LININVDelta, TRDX_LININVBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RDX_CABINVDelta, TRDX_CABINVBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uBizEDIInventary.pas b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uBizEDIInventary.pas deleted file mode 100644 index 51c3f6e..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uBizEDIInventary.pas +++ /dev/null @@ -1,323 +0,0 @@ -unit uBizEDIInventary; - -interface - -uses - uDAInterfaces, uDADataTable, Classes, - DB, Controls, schEDIInventaryClient_Intf; - -const - BIZ_INVRPT_CAB = 'BizInvRptCab'; - BIZ_INVRPT_LIN = 'BizInvRptLin'; - BIZ_INVRPT_CANT = 'BizInvRptCant'; - -type - IBizEDIInv_Cab = interface(IRDX_CABINV) - ['{95AB3EC1-B8CC-4DB0-8052-03D1D225AC69}'] - end; - - IBizEDIInv_Lin = interface(IRDX_LININV) - ['{171361CD-EC4F-479C-9E86-2D369DEC4EA9}'] - end; - - IBizEDIInv_Cant = interface(IRDX_CANTINV) - ['{A91F8700-BD74-475A-8677-B349BB79FC07}'] - end; - - TBizEDIInv_Cab = class(TRDX_CABINVDataTableRules, IBizEDIInv_Cab) - protected - procedure SetNUMDOCValue(const aValue: String); override; - procedure SetTIPODOCValue(const aValue: String); override; - procedure SetTIPOLIQValue(const aValue: String); override; - procedure SetFECHAValue(const aValue: DateTime); override; - procedure SetFECHALIQValue(const aValue: DateTime); override; - procedure SetEMISORValue(const aValue: String); override; - procedure SetRECEPTORValue(const aValue: String); override; - procedure SetDPTOValue(const aValue: String); override; - procedure SetCENTROValue(const aValue: String); override; - end; - - TBizEDIInv_Lin = class(TRDX_LININVDataTableRules, IBizEDIInv_Lin) - protected - procedure SetNUMDOCValue(const aValue: String); override; - procedure SetNUMLINValue(const aValue: Float); override; - procedure SetCODARTValue(const aValue: String); override; - procedure SetFAMILIAValue(const aValue: String); override; - procedure SetBARRAValue(const aValue: String); override; - procedure SetTALLAValue(const aValue: String); override; - procedure SetMARCAValue(const aValue: String); override; - procedure SetTAMANOValue(const aValue: String); override; - procedure SetSERIEValue(const aValue: String); override; - procedure SetCOLORValue(const aValue: String); override; - procedure SetMODELOValue(const aValue: String); override; - procedure SetDIBUJOValue(const aValue: String); override; - procedure SetDESCRIPValue(const aValue: String); override; - end; - - TBizEDIInv_Cant = class(TRDX_CANTINVDataTableRules, IBizEDIInv_Cant) - protected - procedure SetNUMDOCValue(const aValue: String); override; - procedure SetNUMLINValue(const aValue: Float); override; - procedure SetNUMCANTValue(const aValue: Float); override; - procedure SetTIPOCANTValue(const aValue: String); override; - procedure SetCANTIDADValue(const aValue: Float); override; - procedure SetCENTROValue(const aValue: String); override; - procedure SetTMOVValue(const aValue: String); override; - procedure SetFACTValue(const aValue: String); override; - procedure SetDEPTOValue(const aValue: String); override; - procedure SetIDVENValue(const aValue: String); override; - end; - - -implementation - -uses - Variants; - -{ TBizEDIInv_Cab } - -procedure TBizEDIInv_Cab.SetCENTROValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABINVCENTRO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVCENTRO].AsString := aValue; -end; - -procedure TBizEDIInv_Cab.SetDPTOValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABINVDPTO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVDPTO].AsString := aValue; -end; - -procedure TBizEDIInv_Cab.SetEMISORValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABINVEMISOR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVEMISOR].AsString := aValue; -end; - -procedure TBizEDIInv_Cab.SetFECHALIQValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABINVFECHALIQ].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVFECHALIQ].AsDateTime := aValue; -end; - -procedure TBizEDIInv_Cab.SetFECHAValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABINVFECHA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVFECHA].AsDateTime := aValue; -end; - -procedure TBizEDIInv_Cab.SetNUMDOCValue(const aValue: String); -begin - inherited; -end; - -procedure TBizEDIInv_Cab.SetRECEPTORValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABINVRECEPTOR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVRECEPTOR].AsString := aValue; -end; - -procedure TBizEDIInv_Cab.SetTIPODOCValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABINVTIPODOC].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVTIPODOC].AsString := aValue; -end; - -procedure TBizEDIInv_Cab.SetTIPOLIQValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABINVTIPOLIQ].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABINVTIPOLIQ].AsString := aValue; -end; - -{ TBizEDIInv_Lin } - -procedure TBizEDIInv_Lin.SetBARRAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVBARRA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVBARRA].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetCODARTValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVCODART].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVCODART].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetCOLORValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVCOLOR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVCOLOR].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetDESCRIPValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVDESCRIP].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVDESCRIP].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetDIBUJOValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVDIBUJO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVDIBUJO].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetFAMILIAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVFAMILIA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVFAMILIA].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetMARCAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVMARCA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVMARCA].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetMODELOValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVMODELO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVMODELO].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetNUMDOCValue(const aValue: String); -begin - inherited; -end; - -procedure TBizEDIInv_Lin.SetNUMLINValue(const aValue: Float); -begin - inherited; -end; - -procedure TBizEDIInv_Lin.SetSERIEValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVSERIE].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVSERIE].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetTALLAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVTALLA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVTALLA].AsString := aValue; -end; - -procedure TBizEDIInv_Lin.SetTAMANOValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_LININVTAMANO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LININVTAMANO].AsString := aValue; -end; - -{ TBizEDIInv_Cant } - -procedure TBizEDIInv_Cant.SetCANTIDADValue(const aValue: Float); -begin - inherited; -end; - -procedure TBizEDIInv_Cant.SetCENTROValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CANTINVCENTRO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CANTINVCENTRO].AsString := aValue; -end; - -procedure TBizEDIInv_Cant.SetDEPTOValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CANTINVDEPTO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CANTINVDEPTO].AsString := aValue; -end; - -procedure TBizEDIInv_Cant.SetFACTValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CANTINVFACT].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CANTINVFACT].AsString := aValue; -end; - -procedure TBizEDIInv_Cant.SetIDVENValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CANTINVIDVEN].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CANTINVIDVEN].AsString := aValue; -end; - -procedure TBizEDIInv_Cant.SetNUMCANTValue(const aValue: Float); -begin - inherited; -end; - -procedure TBizEDIInv_Cant.SetNUMDOCValue(const aValue: String); -begin - inherited; -end; - -procedure TBizEDIInv_Cant.SetNUMLINValue(const aValue: Float); -begin - inherited; -end; - -procedure TBizEDIInv_Cant.SetTIPOCANTValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CANTINVTIPOCANT].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CANTINVTIPOCANT].AsString := aValue; -end; - -procedure TBizEDIInv_Cant.SetTMOVValue(const aValue: String); -begin - inherited; - -end; - -initialization - RegisterDataTableRules(BIZ_INVRPT_CAB, TBizEDIInv_Cab); - RegisterDataTableRules(BIZ_INVRPT_LIN, TBizEDIInv_Lin); - RegisterDataTableRules(BIZ_INVRPT_CANT, TBizEDIInv_Cant); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.ddp b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.dfm b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.dfm deleted file mode 100644 index 164e687..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.dfm +++ /dev/null @@ -1,1061 +0,0 @@ -object dmEDIInventary: TdmEDIInventary - OldCreateOrder = False - Height = 185 - Width = 396 - object schEDIInventary: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_CANTINV' - SQL = - 'SELECT '#10' NUMDOC, NUMLIN, NUMCANT, TIPOCANT, CANTIDAD, CENTRO,' + - ' '#10' TMOV, FACT, DEPTO, IDVEN'#10' FROM'#10' RDX_CANTINV' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMDOC' - TableField = 'NUMDOC' - end - item - DatasetField = 'NUMLIN' - TableField = 'NUMLIN' - end - item - DatasetField = 'NUMCANT' - TableField = 'NUMCANT' - end - item - DatasetField = 'TIPOCANT' - TableField = 'TIPOCANT' - end - item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'TMOV' - TableField = 'TMOV' - end - item - DatasetField = 'FACT' - TableField = 'FACT' - end - item - DatasetField = 'DEPTO' - TableField = 'DEPTO' - end - item - DatasetField = 'IDVEN' - TableField = 'IDVEN' - end> - end> - Name = 'RDX_CANTINV' - Fields = < - item - Name = 'NUMDOC' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMLIN' - DataType = datFloat - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMCANT' - DataType = datFloat - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPOCANT' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANTIDAD' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TMOV' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FACT' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DEPTO' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IDVEN' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LININV' - SQL = - 'SELECT '#10' NUMDOC, NUMLIN, CODART, FAMILIA, BARRA, TALLA, MARCA' + - ', '#10' TAMANO, SERIE, COLOR, MODELO, DIBUJO, DESCRIP'#10' FROM'#10' ' + - 'RDX_LININV' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMDOC' - TableField = 'NUMDOC' - end - item - DatasetField = 'NUMLIN' - TableField = 'NUMLIN' - end - item - DatasetField = 'CODART' - TableField = 'CODART' - end - item - DatasetField = 'FAMILIA' - TableField = 'FAMILIA' - end - item - DatasetField = 'BARRA' - TableField = 'BARRA' - end - item - DatasetField = 'TALLA' - TableField = 'TALLA' - end - item - DatasetField = 'MARCA' - TableField = 'MARCA' - end - item - DatasetField = 'TAMANO' - TableField = 'TAMANO' - end - item - DatasetField = 'SERIE' - TableField = 'SERIE' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' - end - item - DatasetField = 'MODELO' - TableField = 'MODELO' - end - item - DatasetField = 'DIBUJO' - TableField = 'DIBUJO' - end - item - DatasetField = 'DESCRIP' - TableField = 'DESCRIP' - end> - end> - Name = 'RDX_LININV' - Fields = < - item - Name = 'NUMDOC' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMLIN' - DataType = datFloat - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODART' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FAMILIA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BARRA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TALLA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'MARCA' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TAMANO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'SERIE' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'COLOR' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'MODELO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIBUJO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESCRIP' - DataType = datString - Size = 70 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_CABINV' - SQL = - 'SELECT '#10' NUMDOC, TIPODOC, TIPOLIQ, FECHA, FECHALIQ, EMISOR, '#10 + - ' RECEPTOR, DPTO, CENTRO, FECHA_CARGA'#10' FROM'#10' RDX_CABINV' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'NUMDOC' - TableField = 'NUMDOC' - end - item - DatasetField = 'TIPODOC' - TableField = 'TIPODOC' - end - item - DatasetField = 'TIPOLIQ' - TableField = 'TIPOLIQ' - end - item - DatasetField = 'FECHA' - TableField = 'FECHA' - end - item - DatasetField = 'FECHALIQ' - TableField = 'FECHALIQ' - end - item - DatasetField = 'EMISOR' - TableField = 'EMISOR' - end - item - DatasetField = 'RECEPTOR' - TableField = 'RECEPTOR' - end - item - DatasetField = 'DPTO' - TableField = 'DPTO' - end - item - DatasetField = 'CENTRO' - TableField = 'CENTRO' - end - item - DatasetField = 'FECHA_CARGA' - TableField = 'FECHA_CARGA' - end> - end> - Name = 'RDX_CABINV' - Fields = < - item - Name = 'NUMDOC' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPODOC' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPOLIQ' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHALIQ' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EMISOR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RECEPTOR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DPTO' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_CARGA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'RETURN_VALUE' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptResult - end> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = 'RDX_P_SET_ULTIMOINVENTARIO' - StatementType = stStoredProcedure - ColumnMappings = <> - end> - Name = 'RDX_P_SET_ULTIMOINVENTARIO' - end - item - Params = < - item - Name = 'RETURN_VALUE' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptResult - end> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = 'RDX_P_CARGAR_INVENTARIOEDI' - StatementType = stStoredProcedure - ColumnMappings = <> - end> - Name = 'RDX_P_CARGAR_INVENTARIOEDI' - end - item - Params = < - item - Name = 'NUMDOC' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TIPODOC' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TIPOLIQ' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHALIQ' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EMISOR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'RECEPTOR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DPTO' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_CARGA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_CABINV' - SQL = - 'INSERT'#10' INTO RDX_CABINV'#10' (NUMDOC, TIPODOC, TIPOLIQ, FECHA, F' + - 'ECHALIQ, EMISOR, '#10' RECEPTOR, DPTO, CENTRO, FECHA_CARGA)'#10' VA' + - 'LUES'#10' (:NUMDOC, :TIPODOC, :TIPOLIQ, :FECHA, :FECHALIQ, :EMISO' + - 'R, '#10' :RECEPTOR, :DPTO, :CENTRO, CURRENT_TIMESTAMP)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_RDX_CABINV' - end - item - Params = < - item - Name = 'NUMDOC' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMLIN' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODART' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FAMILIA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'BARRA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TALLA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'MARCA' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TAMANO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'SERIE' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'COLOR' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'MODELO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIBUJO' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DESCRIP' - DataType = datString - Size = 70 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LININV' - SQL = - 'INSERT'#10' INTO RDX_LININV'#10' (NUMDOC, NUMLIN, CODART, FAMILIA, B' + - 'ARRA, TALLA, MARCA, '#10' TAMANO, SERIE, COLOR, MODELO, DIBUJO, ' + - 'DESCRIP)'#10' VALUES'#10' (:NUMDOC, :NUMLIN, :CODART, :FAMILIA, :BAR' + - 'RA, :TALLA, '#10' :MARCA, :TAMANO, :SERIE, :COLOR, :MODELO, :DIB' + - 'UJO, '#10' :DESCRIP)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_RDX_LININV' - end - item - Params = < - item - Name = 'NUMDOC' - DataType = datString - Size = 25 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMLIN' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMCANT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TIPOCANT' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CANTIDAD' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CENTRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TMOV' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FACT' - DataType = datString - Size = 12 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DEPTO' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'IDVEN' - DataType = datString - Size = 10 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_CANTINV' - SQL = - 'INSERT'#10' INTO RDX_CANTINV'#10' (NUMDOC, NUMLIN, NUMCANT, TIPOCANT' + - ', CANTIDAD, CENTRO, '#10' TMOV, FACT, DEPTO, IDVEN)'#10' VALUES'#10' ' + - ' (:NUMDOC, :NUMLIN, :NUMCANT, :TIPOCANT, :CANTIDAD, :CENTRO, '#10' ' + - ' :TMOV, :FACT, :DEPTO, :IDVEN)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_RDX_CANTINV' - end> - RelationShips = < - item - Name = 'FK_RDX_LININV_RDX_CABINV' - MasterDatasetName = 'RDX_CABINV' - MasterFields = 'NUMDOC' - DetailDatasetName = 'RDX_LININV' - DetailFields = 'NUMDOC' - RelationshipType = rtForeignKey - end - item - Name = 'FK_RDX_CANTINV_RDX_LININV' - MasterDatasetName = 'RDX_LININV' - MasterFields = 'NUMDOC;NUMLIN' - DetailDatasetName = 'RDX_CANTINV' - DetailFields = 'NUMDOC;NUMLIN' - RelationshipType = rtForeignKey - end> - UpdateRules = < - item - Name = 'Insert RDX_CABINV' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'RDX_CABINV' - FailureBehavior = fbRaiseException - end - item - Name = 'Insert RDX_LININV' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'RDX_LININV' - FailureBehavior = fbRaiseException - end - item - Name = 'Insert RDX_CANTINV' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'RDX_CANTINV' - FailureBehavior = fbRaiseException - end - item - Name = 'Update RDX_CABINV' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'RDX_CABINV' - FailureBehavior = fbRaiseException - end - item - Name = 'Update RDX_LININV' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'RDX_LININV' - FailureBehavior = fbRaiseException - end - item - Name = 'Update RDX_CANTINV' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'RDX_CANTINV' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RDX_CANTINV' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'RDX_CANTINV' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RDX_LININV' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'RDX_LININV' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RDX_CABINV' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'RDX_CABINV' - FailureBehavior = fbRaiseException - end> - Version = 0 - Left = 56 - Top = 16 - end -end diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.pas b/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.pas deleted file mode 100644 index e6b95a2..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.pas +++ /dev/null @@ -1,318 +0,0 @@ -unit uDataModuleEDI_Inventary; - -interface - -uses - SysUtils, Classes, JvComponentBase, JvLogFile, uDAClasses, - uDABusinessProcessor, uDAScriptingProvider, uDADataTable, uDACDSDataTable, - uDataModuleServer, uBizEDIInventary, EDI_Reader, EDI_Inventary_Impl, - EDI_INVRPT, uDAInterfaces; - -type - TdmEDIInventary = class(TDataModule) - schEDIInventary: TDASchema; - private - function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean; - function InsertarLineas(const ALinData : TEDIFileData; var NumRegNuevos : integer) : Boolean; - function InsertarCantidades(const ACantData : TEDIFileData; var NumRegNuevos : integer) : Boolean; - procedure InsertarLog(OK : Boolean; Error_msg : String = ''); - function GenerarInventarioEDI: Boolean; - function MarcarRegistrosUltimoInventarioEDI: Boolean; - public - function CargarFicheros(const FicheroCAB: String; const FicheroLIN: String; - const FicheroCANT: String; var NumRegNuevos: Integer ): Boolean; - end; - -var - dmEDIInventary: TdmEDIInventary; - -implementation - -uses - Controls, Forms, uDataTableUtils, DB, - Dialogs, Variants, schEDIInventaryClient_Intf, EDI_Utils, EDI_Log_Impl, - VARELA_Intf; - -{$R *.dfm} - -{ TdmEDIInventary } - -function TdmEDIInventary.CargarFicheros(const FicheroCAB, FicheroLIN, - FicheroCANT: String; var NumRegNuevos: Integer ): Boolean; -var - Cab_Reader : TCABINV_Reader; - Lin_Reader : TLININV_Reader; - Cant_Reader : TCANTINV_Reader; - - NumRegNuevosCab : Integer; - NumRegNuevosLin : Integer; - NumRegNuevosCant : Integer; -begin - Result := True; - - Cab_Reader := TCABINV_Reader.Create; - try - Cab_Reader.Filename := FicheroCAB; - Cab_Reader.ReadFile; - Result := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab); - finally - FreeAndNIL(Cab_Reader); - end; - - if Result then - begin - Lin_Reader := TLININV_Reader.Create; - try - Lin_Reader.Filename := FicheroLIN; - Lin_Reader.ReadFile; - Result := InsertarLineas (Lin_Reader.FileData, NumRegNuevosLin); - finally - FreeAndNIL(Lin_Reader); - end; - - if Result then - begin - Cant_Reader := TCANTINV_Reader.Create; - try - Cant_Reader.Filename := FicheroCANT; - Cant_Reader.ReadFile; - Result := InsertarCantidades(Cant_Reader.FileData, NumRegNuevosCant); - finally - Cant_Reader.Free; - end; - end; - end; - - if Result then - begin - NumRegNuevos := NumRegNuevosCant; - Result := GenerarInventarioEDI; - if Result then - Result := MarcarRegistrosUltimoInventarioEDI; - end; -end; - -function TdmEDIInventary.GenerarInventarioEDI: Boolean; -var - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - ACommand := schEDIInventary.NewCommand(AConnection, 'RDX_P_CARGAR_INVENTARIOEDI'); - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (GenerarInventarioEDI)'); - end - end; -end; - -function TdmEDIInventary.InsertarCabecera(const ACabData: TEDIFileData; - var NumRegNuevos : integer) : Boolean; -var - i : integer; - Registro : PCABINV; - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - NumRegNuevos := 0; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - - for i := 0 to ACabData.Count - 1 do - begin - Registro := ACabData[i]; - - if not Registro.REGISTRO_OK then - Continue; - - ACommand := schEDIInventary.NewCommand(AConnection, 'Insert_RDX_CABINV'); - with ACommand do - begin - ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC); - ParamByName('TIPODOC').AsString := Trim(Registro.TIPODOC); - ParamByName('TIPOLIQ').AsString := Trim(Registro.TIPOLIQ); - ParamByName('FECHA').AsDateTime := EDIDateToDateF(Trim(Registro.FECHA)); - ParamByName('FECHALIQ').AsDateTime := EDIDateToDateF(Trim(Registro.FECHALIQ)); - ParamByName('EMISOR').AsString := Trim(Registro.EMISOR); - ParamByName('RECEPTOR').AsString := Trim(Registro.RECEPTOR); - ParamByName('DPTO').AsString := Trim(Registro.DPTO); - ParamByName('CENTRO').AsString := Trim(Registro.CENTRO); - end; - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - NumRegNuevos := NumRegNuevos + 1; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (InsertarCabecera INV)'); - end - end; - end; //for -end; - -function TdmEDIInventary.InsertarCantidades(const ACantData: TEDIFileData; - var NumRegNuevos : integer) : Boolean; -var - i : integer; - Registro : PCANTINV; - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - NumRegNuevos := 0; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - - for i := 0 to ACantData.Count - 1 do - begin - Registro := ACantData[i]; - - if not Registro.REGISTRO_OK then - Continue; - - ACommand := schEDIInventary.NewCommand(AConnection, 'Insert_RDX_CANTINV'); - with ACommand do - begin - ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC); - ParamByName('NUMLIN').AsInteger := StrToInt(Trim(Registro.NUMLIN)); - ParamByName('NUMCANT').AsInteger := StrToInt(Trim(Registro.NUMCANT)); - ParamByName('TIPOCANT').AsString := Trim(Registro.TIPOCANT); - ParamByName('CANTIDAD').AsFloat := StrToFloat(Trim(Registro.CANTIDAD)); - ParamByName('CENTRO').AsString := Trim(Registro.CENTRO); - ParamByName('TMOV').AsString := Trim(Registro.TMOV); - ParamByName('FACT').AsString := Trim(Registro.FACT); - ParamByName('DEPTO').AsString := Trim(Registro.DEPTO); - ParamByName('IDVEN').AsString := Trim(Registro.IDVEN); - end; - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - NumRegNuevos := NumRegNuevos + 1; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (InsertarCantidades INV)'); - end - end; - end; //for -end; - -function TdmEDIInventary.InsertarLineas(const ALinData: TEDIFileData; - var NumRegNuevos : integer) : Boolean; -var - i : integer; - Registro : PLININV; - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - NumRegNuevos := 0; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - - for i := 0 to ALinData.Count - 1 do - begin - Registro := ALinData[i]; - - if not Registro.REGISTRO_OK then - Continue; - - ACommand := schEDIInventary.NewCommand(AConnection, 'Insert_RDX_LININV'); - with ACommand do - begin - ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC); - ParamByName('NUMLIN').AsInteger := StrToInt(Trim(Registro.NUMLIN)); - ParamByName('CODART').AsString := Trim(Registro.CODART); - ParamByName('FAMILIA').AsString := Trim(Registro.FAMILIA); - ParamByName('BARRA').AsString := Trim(Registro.BARRA); - ParamByName('TALLA').AsString := Trim(Registro.TALLA); - ParamByName('MARCA').AsString := Trim(Registro.MARCA); - ParamByName('TAMANO').AsString := Trim(Registro.TAMANO); - ParamByName('SERIE').AsString := Trim(Registro.SERIE); - ParamByName('COLOR').AsString := Trim(Registro.COLOR); - ParamByName('MODELO').AsString := Trim(Registro.MODELO); - ParamByName('DIBUJO').AsString := Trim(Registro.DIBUJO); - ParamByName('DESCRIP').AsString := Trim(Registro.DESCRIP); - end; - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - NumRegNuevos := NumRegNuevos + 1; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (InsertarLineas INV)'); - end - end; - end; //for - Result := True; -end; - - -procedure TdmEDIInventary.InsertarLog(OK: Boolean; Error_msg: String); -var - LogService : IEDI_Log; -begin - LogService := EDI_Log_Impl.TEDI_Log.Create(Self); - try - LogService.InsertarLog(Now, 'INVRPT', OK, Error_msg); - finally - LogService := nil; - end; -end; - -function TdmEDIInventary.MarcarRegistrosUltimoInventarioEDI: Boolean; -var - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - ACommand := schEDIInventary.NewCommand(AConnection, 'RDX_P_SET_ULTIMOINVENTARIO'); - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (MarcarRegistrosUltimoInventarioEDI)'); - end - end; -end; - -initialization - dmEDIInventary := TdmEDIInventary.Create(nil); - -finalization - FreeAndNil(dmEDIInventary); - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.ddp b/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.dfm b/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.dfm deleted file mode 100644 index 2638b6c..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.dfm +++ /dev/null @@ -1,17 +0,0 @@ -object EDI_Sales: TEDI_Sales - OldCreateOrder = True - SessionManager = dmServer.SessionManager - ConnectionName = 'GFT_VARELA' - ServiceSchema = dmEDISales.schEDISales - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object DABINAdapter: TDABINAdapter - Left = 64 - Top = 32 - end -end diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.pas b/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.pas deleted file mode 100644 index f7d8bc9..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Impl.pas +++ /dev/null @@ -1,143 +0,0 @@ -unit EDI_Sales_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDAScriptingProvider, uDADataTable, - uDACDSDataTable, uDABusinessProcessor, uDABINAdapter, uDADataStreamer; - -type - { TEDI_Sales } - TEDI_Sales = class(TDARemoteService, IEDI_Sales) - DABINAdapter: TDABINAdapter; - private - procedure InsertarLog(OK : Boolean; Error_msg : String = ''); - protected - function CargarFicheroEDI(const FicheroCAB: String; - const FicheroLUG: String; const FicheroART: String; - out MsgError: String): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDAInterfaces, - Dialogs, uDataModuleEDI_Sales, uDataModuleServer, - JclFileUtils, DateUtils, EDI_Log_Impl; - -procedure Create_EDI_Sales(out anInstance : IUnknown); -begin - anInstance := TEDI_Sales.Create(NIL); -end; - -{ EDI_Sales } -function TEDI_Sales.CargarFicheroEDI(const FicheroCAB: String; - const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; -var - ADirEntrada : String; - ADirTemp : String; - NumRegNuevos : Integer; - - procedure GuardarFicheros; - var - AAlmacen : String; - ADate : String; - begin - DateTimeToString(ADate, 'yyyymmddhhnn', Now); - AAlmacen := PathAddSeparator(dmServer.FDirAlmacen); - AAlmacen := PathAddSeparator(AAlmacen + ADate); - if not DirectoryExists(AAlmacen) then - ForceDirectories(AAlmacen); - FileMove(ADirTemp + FicheroCAB, AAlmacen + FicheroCAB); - FileMove(ADirTemp + FicheroLUG, AAlmacen + FicheroLUG); - FileMove(ADirTemp + FicheroART, AAlmacen + FicheroART); - FileMove(ADirTemp + FicheroART, AAlmacen + 'CONVEN.TXT'); - DeleteDirectory(ADirTemp, False); - end; - -begin - Result := False; - NumRegNuevos := 0; - - // Hay que comprobar que existen los ficheros. - ADirEntrada := PathAddSeparator(dmServer.FDirEntrada); - - if not FileExists(ADirEntrada + FicheroCAB) or - not FileExists(ADirEntrada + FicheroLUG) or - not FileExists(ADirEntrada + FicheroART) then - begin - MsgError := 'No hay ficheros de datos'; - InsertarLog(False, MsgError + ' (CargarFicheroEDI1 SLS)'); - end - else begin - - // Muevo los ficheros de carga a un directorio temporal - ADirTemp := PathAddSeparator(ADirEntrada + GetTempDirectory(ADirEntrada)); - try - if not DirectoryExists(ADirTemp) then - ForceDirectories(ADirTemp); - FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB); - FileMove(ADirEntrada + FicheroLUG, ADirTemp + FicheroLUG); - FileMove(ADirEntrada + FicheroART, ADirTemp + FicheroART); - FileMove(ADirEntrada + FicheroART, ADirTemp + 'CONVEN.TXT'); - except - on E: Exception do - begin - MsgError := E.Message; - InsertarLog(False, MsgError + ' (CargarFicheroEDI2 SLS)'); - Exit; - end; - end; - - try - try - dmEDISales.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLUG, ADirTemp + FicheroART, NumRegNuevos); - if NumRegNuevos > 0 then - InsertarLog(True, Format('Se han cargado %d registros de ventas nuevos', [NumRegNuevos])) - else - InsertarLog(True, 'El fichero se ha cargado pero no hay registros de ventas nuevos'); - Result := True; - finally - GuardarFicheros; - dmServer.BorrarFicherosDeCargaAntiguos; - end; - except - on E: Exception do - begin - MsgError := E.Message; - InsertarLog(False, MsgError + ' (CargarFicheroEDI3 SLS)'); - end; - end; - end; -end; - -procedure TEDI_Sales.InsertarLog(OK: Boolean; Error_msg: String); -var - LogService : IEDI_Log; -begin - LogService := EDI_Log_Impl.TEDI_Log.Create(Self); - try - LogService.InsertarLog(Now, 'SLSRPT', OK, Error_msg); - finally - LogService := nil; - end; -end; - -initialization - TROClassFactory.Create('EDI_Sales', Create_EDI_Sales, TEDI_Sales_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Types.pas b/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Types.pas deleted file mode 100644 index cb3a387..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/EDI_Sales_Types.pas +++ /dev/null @@ -1,9 +0,0 @@ -unit EDI_Sales_Types; - -interface - - - -implementation - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/schEDISalesClient_Intf.pas b/Varela/Varela/Source/Servidor/Services/EDI_Sales/schEDISalesClient_Intf.pas deleted file mode 100644 index ccbf38c..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/schEDISalesClient_Intf.pas +++ /dev/null @@ -1,1948 +0,0 @@ -unit schEDISalesClient_Intf; - -interface - -uses - Classes, DB, 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_RDX_ARTVEN = '{D0532CCF-994D-4445-B3AC-544120B18841}'; - RID_RDX_CABVEN = '{9B9CC64F-37C7-4B46-BF30-02E8CB14ED5B}'; - RID_RDX_LUGVEN = '{8CBF6BF1-7E83-43F2-BC61-6F692B9137CC}'; - - { Data table names } - nme_RDX_ARTVEN = 'RDX_ARTVEN'; - nme_RDX_CABVEN = 'RDX_CABVEN'; - nme_RDX_LUGVEN = 'RDX_LUGVEN'; - - { RDX_ARTVEN fields } - fld_RDX_ARTVENCLAVE1 = 'CLAVE1'; - fld_RDX_ARTVENCLAVE2 = 'CLAVE2'; - fld_RDX_ARTVENCLAVE3 = 'CLAVE3'; - fld_RDX_ARTVENEANART = 'EANART'; - fld_RDX_ARTVENCODCOM = 'CODCOM'; - fld_RDX_ARTVENNUMVAR = 'NUMVAR'; - fld_RDX_ARTVENCODPRO = 'CODPRO'; - fld_RDX_ARTVENDESARTCO = 'DESARTCO'; - fld_RDX_ARTVENDESART = 'DESART'; - fld_RDX_ARTVENNUMCON = 'NUMCON'; - fld_RDX_ARTVENNUMLIS = 'NUMLIS'; - fld_RDX_ARTVENCONESP1 = 'CONESP1'; - fld_RDX_ARTVENCONESP2 = 'CONESP2'; - fld_RDX_ARTVENCONESP3 = 'CONESP3'; - fld_RDX_ARTVENVALVEN = 'VALVEN'; - fld_RDX_ARTVENPRENETCT = 'PRENETCT'; - fld_RDX_ARTVENPREBRUCT = 'PREBRUCT'; - fld_RDX_ARTVENPREINFET = 'PREINFET'; - fld_RDX_ARTVENPREINFFT = 'PREINFFT'; - fld_RDX_ARTVENPRECALCT = 'PRECALCT'; - fld_RDX_ARTVENPRENETCA = 'PRENETCA'; - fld_RDX_ARTVENPREBRUCA = 'PREBRUCA'; - fld_RDX_ARTVENPREINFEA = 'PREINFEA'; - fld_RDX_ARTVENPREINFFA = 'PREINFFA'; - fld_RDX_ARTVENPRECALCA = 'PRECALCA'; - fld_RDX_ARTVENBAPRUN1 = 'BAPRUN1'; - fld_RDX_ARTVENUNIMED1 = 'UNIMED1'; - fld_RDX_ARTVENBAPRUN2 = 'BAPRUN2'; - fld_RDX_ARTVENUNIMED2 = 'UNIMED2'; - fld_RDX_ARTVENBAPRUN3 = 'BAPRUN3'; - fld_RDX_ARTVENUNIMED3 = 'UNIMED3'; - fld_RDX_ARTVENBAPRUN4 = 'BAPRUN4'; - fld_RDX_ARTVENUNIMED4 = 'UNIMED4'; - fld_RDX_ARTVENBAPRUN5 = 'BAPRUN5'; - fld_RDX_ARTVENUNIMED5 = 'UNIMED5'; - fld_RDX_ARTVENCANVEN = 'CANVEN'; - fld_RDX_ARTVENEXIPRO = 'EXIPRO'; - fld_RDX_ARTVENDESEXI = 'DESEXI'; - fld_RDX_ARTVENESPMEDCV = 'ESPMEDCV'; - fld_RDX_ARTVENESPMEDEP = 'ESPMEDEP'; - fld_RDX_ARTVENESPMEDDE = 'ESPMEDDE'; - fld_RDX_ARTVENCANDEV = 'CANDEV'; - fld_RDX_ARTVENEANVEN = 'EANVEN'; - fld_RDX_ARTVENNOMVEN = 'NOMVEN'; - fld_RDX_ARTVENNUMTALON = 'NUMTALON'; - fld_RDX_ARTVENCANVENNET = 'CANVENNET'; - fld_RDX_ARTVENUMEDVENNET = 'UMEDVENNET'; - fld_RDX_ARTVENCANESP = 'CANESP'; - fld_RDX_ARTVENUMEDESP = 'UMEDESP'; - - { RDX_ARTVEN field indexes } - idx_RDX_ARTVENCLAVE1 = 0; - idx_RDX_ARTVENCLAVE2 = 1; - idx_RDX_ARTVENCLAVE3 = 2; - idx_RDX_ARTVENEANART = 3; - idx_RDX_ARTVENCODCOM = 4; - idx_RDX_ARTVENNUMVAR = 5; - idx_RDX_ARTVENCODPRO = 6; - idx_RDX_ARTVENDESARTCO = 7; - idx_RDX_ARTVENDESART = 8; - idx_RDX_ARTVENNUMCON = 9; - idx_RDX_ARTVENNUMLIS = 10; - idx_RDX_ARTVENCONESP1 = 11; - idx_RDX_ARTVENCONESP2 = 12; - idx_RDX_ARTVENCONESP3 = 13; - idx_RDX_ARTVENVALVEN = 14; - idx_RDX_ARTVENPRENETCT = 15; - idx_RDX_ARTVENPREBRUCT = 16; - idx_RDX_ARTVENPREINFET = 17; - idx_RDX_ARTVENPREINFFT = 18; - idx_RDX_ARTVENPRECALCT = 19; - idx_RDX_ARTVENPRENETCA = 20; - idx_RDX_ARTVENPREBRUCA = 21; - idx_RDX_ARTVENPREINFEA = 22; - idx_RDX_ARTVENPREINFFA = 23; - idx_RDX_ARTVENPRECALCA = 24; - idx_RDX_ARTVENBAPRUN1 = 25; - idx_RDX_ARTVENUNIMED1 = 26; - idx_RDX_ARTVENBAPRUN2 = 27; - idx_RDX_ARTVENUNIMED2 = 28; - idx_RDX_ARTVENBAPRUN3 = 29; - idx_RDX_ARTVENUNIMED3 = 30; - idx_RDX_ARTVENBAPRUN4 = 31; - idx_RDX_ARTVENUNIMED4 = 32; - idx_RDX_ARTVENBAPRUN5 = 33; - idx_RDX_ARTVENUNIMED5 = 34; - idx_RDX_ARTVENCANVEN = 35; - idx_RDX_ARTVENEXIPRO = 36; - idx_RDX_ARTVENDESEXI = 37; - idx_RDX_ARTVENESPMEDCV = 38; - idx_RDX_ARTVENESPMEDEP = 39; - idx_RDX_ARTVENESPMEDDE = 40; - idx_RDX_ARTVENCANDEV = 41; - idx_RDX_ARTVENEANVEN = 42; - idx_RDX_ARTVENNOMVEN = 43; - idx_RDX_ARTVENNUMTALON = 44; - idx_RDX_ARTVENCANVENNET = 45; - idx_RDX_ARTVENUMEDVENNET = 46; - idx_RDX_ARTVENCANESP = 47; - idx_RDX_ARTVENUMEDESP = 48; - - { RDX_CABVEN fields } - fld_RDX_CABVENCLAVE1 = 'CLAVE1'; - fld_RDX_CABVENNUMINF = 'NUMINF'; - fld_RDX_CABVENFUNCION = 'FUNCION'; - fld_RDX_CABVENFECINI = 'FECINI'; - fld_RDX_CABVENFECFIN = 'FECFIN'; - fld_RDX_CABVENFECINF = 'FECINF'; - fld_RDX_CABVENPERVENINI = 'PERVENINI'; - fld_RDX_CABVENPERVENFIN = 'PERVENFIN'; - fld_RDX_CABVENEANOFI = 'EANOFI'; - fld_RDX_CABVENEANEMI = 'EANEMI'; - fld_RDX_CABVENEANREC = 'EANREC'; - fld_RDX_CABVENEANVEN = 'EANVEN'; - fld_RDX_CABVENEANALM = 'EANALM'; - fld_RDX_CABVENEANREP = 'EANREP'; - fld_RDX_CABVENEANPRO = 'EANPRO'; - fld_RDX_CABVENEANADMSA = 'EANADMSA'; - fld_RDX_CABVENEANREPSR = 'EANREPSR'; - fld_RDX_CABVENADMVENSA = 'ADMVENSA'; - fld_RDX_CABVENREPDEPSR = 'REPDEPSR'; - fld_RDX_CABVENEMAILSA = 'EMAILSA'; - fld_RDX_CABVENNUMFAXSA = 'NUMFAXSA'; - fld_RDX_CABVENNUMTELSA = 'NUMTELSA'; - fld_RDX_CABVENNUMTLXSA = 'NUMTLXSA'; - fld_RDX_CABVENX400SA = 'X400SA'; - fld_RDX_CABVENEMAILSR = 'EMAILSR'; - fld_RDX_CABVENNUMFAXSR = 'NUMFAXSR'; - fld_RDX_CABVENNUMTELSR = 'NUMTELSR'; - fld_RDX_CABVENNUMTLXSR = 'NUMTLXSR'; - fld_RDX_CABVENX400SR = 'X400SR'; - fld_RDX_CABVENNUMPRE = 'NUMPRE'; - fld_RDX_CABVENNUMINFSC = 'NUMINFSC'; - fld_RDX_CABVENNUMCON = 'NUMCON'; - fld_RDX_CABVENFECPRE = 'FECPRE'; - fld_RDX_CABVENFECINFSC = 'FECINFSC'; - fld_RDX_CABVENFECCON = 'FECCON'; - fld_RDX_CABVENDIVPED = 'DIVPED'; - fld_RDX_CABVENDIVPRE = 'DIVPRE'; - fld_RDX_CABVENDIVPAG = 'DIVPAG'; - fld_RDX_CABVENDIVPEDF = 'DIVPEDF'; - fld_RDX_CABVENDIVPREF = 'DIVPREF'; - fld_RDX_CABVENDIVPAGF = 'DIVPAGF'; - fld_RDX_CABVENTASCAM = 'TASCAM'; - fld_RDX_CABVENFECTAS = 'FECTAS'; - - { RDX_CABVEN field indexes } - idx_RDX_CABVENCLAVE1 = 0; - idx_RDX_CABVENNUMINF = 1; - idx_RDX_CABVENFUNCION = 2; - idx_RDX_CABVENFECINI = 3; - idx_RDX_CABVENFECFIN = 4; - idx_RDX_CABVENFECINF = 5; - idx_RDX_CABVENPERVENINI = 6; - idx_RDX_CABVENPERVENFIN = 7; - idx_RDX_CABVENEANOFI = 8; - idx_RDX_CABVENEANEMI = 9; - idx_RDX_CABVENEANREC = 10; - idx_RDX_CABVENEANVEN = 11; - idx_RDX_CABVENEANALM = 12; - idx_RDX_CABVENEANREP = 13; - idx_RDX_CABVENEANPRO = 14; - idx_RDX_CABVENEANADMSA = 15; - idx_RDX_CABVENEANREPSR = 16; - idx_RDX_CABVENADMVENSA = 17; - idx_RDX_CABVENREPDEPSR = 18; - idx_RDX_CABVENEMAILSA = 19; - idx_RDX_CABVENNUMFAXSA = 20; - idx_RDX_CABVENNUMTELSA = 21; - idx_RDX_CABVENNUMTLXSA = 22; - idx_RDX_CABVENX400SA = 23; - idx_RDX_CABVENEMAILSR = 24; - idx_RDX_CABVENNUMFAXSR = 25; - idx_RDX_CABVENNUMTELSR = 26; - idx_RDX_CABVENNUMTLXSR = 27; - idx_RDX_CABVENX400SR = 28; - idx_RDX_CABVENNUMPRE = 29; - idx_RDX_CABVENNUMINFSC = 30; - idx_RDX_CABVENNUMCON = 31; - idx_RDX_CABVENFECPRE = 32; - idx_RDX_CABVENFECINFSC = 33; - idx_RDX_CABVENFECCON = 34; - idx_RDX_CABVENDIVPED = 35; - idx_RDX_CABVENDIVPRE = 36; - idx_RDX_CABVENDIVPAG = 37; - idx_RDX_CABVENDIVPEDF = 38; - idx_RDX_CABVENDIVPREF = 39; - idx_RDX_CABVENDIVPAGF = 40; - idx_RDX_CABVENTASCAM = 41; - idx_RDX_CABVENFECTAS = 42; - - { RDX_LUGVEN fields } - fld_RDX_LUGVENCLAVE1 = 'CLAVE1'; - fld_RDX_LUGVENCLAVE2 = 'CLAVE2'; - fld_RDX_LUGVENEANLUG = 'EANLUG'; - fld_RDX_LUGVENLUGVEN = 'LUGVEN'; - fld_RDX_LUGVENFECINI = 'FECINI'; - fld_RDX_LUGVENFECFIN = 'FECFIN'; - fld_RDX_LUGVENPERVENINI = 'PERVENINI'; - fld_RDX_LUGVENPERVENFIN = 'PERVENFIN'; - - { RDX_LUGVEN field indexes } - idx_RDX_LUGVENCLAVE1 = 0; - idx_RDX_LUGVENCLAVE2 = 1; - idx_RDX_LUGVENEANLUG = 2; - idx_RDX_LUGVENLUGVEN = 3; - idx_RDX_LUGVENFECINI = 4; - idx_RDX_LUGVENFECFIN = 5; - idx_RDX_LUGVENPERVENINI = 6; - idx_RDX_LUGVENPERVENFIN = 7; - -type - { IRDX_ARTVEN } - IRDX_ARTVEN = interface(IDAStronglyTypedDataTable) - ['{9EC1A018-B12C-49B8-A8D7-852A5453C9B0}'] - { Property getters and setters } - function GetCLAVE1Value: Float; - procedure SetCLAVE1Value(const aValue: Float); - function GetCLAVE2Value: Float; - procedure SetCLAVE2Value(const aValue: Float); - function GetCLAVE3Value: Float; - procedure SetCLAVE3Value(const aValue: Float); - function GetEANARTValue: String; - procedure SetEANARTValue(const aValue: String); - function GetCODCOMValue: String; - procedure SetCODCOMValue(const aValue: String); - function GetNUMVARValue: String; - procedure SetNUMVARValue(const aValue: String); - function GetCODPROValue: String; - procedure SetCODPROValue(const aValue: String); - function GetDESARTCOValue: String; - procedure SetDESARTCOValue(const aValue: String); - function GetDESARTValue: String; - procedure SetDESARTValue(const aValue: String); - function GetNUMCONValue: String; - procedure SetNUMCONValue(const aValue: String); - function GetNUMLISValue: String; - procedure SetNUMLISValue(const aValue: String); - function GetCONESP1Value: String; - procedure SetCONESP1Value(const aValue: String); - function GetCONESP2Value: String; - procedure SetCONESP2Value(const aValue: String); - function GetCONESP3Value: String; - procedure SetCONESP3Value(const aValue: String); - function GetVALVENValue: Float; - procedure SetVALVENValue(const aValue: Float); - function GetPRENETCTValue: Float; - procedure SetPRENETCTValue(const aValue: Float); - function GetPREBRUCTValue: Float; - procedure SetPREBRUCTValue(const aValue: Float); - function GetPREINFETValue: Float; - procedure SetPREINFETValue(const aValue: Float); - function GetPREINFFTValue: Float; - procedure SetPREINFFTValue(const aValue: Float); - function GetPRECALCTValue: Float; - procedure SetPRECALCTValue(const aValue: Float); - function GetPRENETCAValue: Float; - procedure SetPRENETCAValue(const aValue: Float); - function GetPREBRUCAValue: Float; - procedure SetPREBRUCAValue(const aValue: Float); - function GetPREINFEAValue: Float; - procedure SetPREINFEAValue(const aValue: Float); - function GetPREINFFAValue: Float; - procedure SetPREINFFAValue(const aValue: Float); - function GetPRECALCAValue: Float; - procedure SetPRECALCAValue(const aValue: Float); - function GetBAPRUN1Value: Float; - procedure SetBAPRUN1Value(const aValue: Float); - function GetUNIMED1Value: String; - procedure SetUNIMED1Value(const aValue: String); - function GetBAPRUN2Value: Float; - procedure SetBAPRUN2Value(const aValue: Float); - function GetUNIMED2Value: String; - procedure SetUNIMED2Value(const aValue: String); - function GetBAPRUN3Value: Float; - procedure SetBAPRUN3Value(const aValue: Float); - function GetUNIMED3Value: String; - procedure SetUNIMED3Value(const aValue: String); - function GetBAPRUN4Value: Float; - procedure SetBAPRUN4Value(const aValue: Float); - function GetUNIMED4Value: String; - procedure SetUNIMED4Value(const aValue: String); - function GetBAPRUN5Value: Float; - procedure SetBAPRUN5Value(const aValue: Float); - function GetUNIMED5Value: String; - procedure SetUNIMED5Value(const aValue: String); - function GetCANVENValue: Float; - procedure SetCANVENValue(const aValue: Float); - function GetEXIPROValue: Float; - procedure SetEXIPROValue(const aValue: Float); - function GetDESEXIValue: Float; - procedure SetDESEXIValue(const aValue: Float); - function GetESPMEDCVValue: String; - procedure SetESPMEDCVValue(const aValue: String); - function GetESPMEDEPValue: String; - procedure SetESPMEDEPValue(const aValue: String); - function GetESPMEDDEValue: String; - procedure SetESPMEDDEValue(const aValue: String); - function GetCANDEVValue: Float; - procedure SetCANDEVValue(const aValue: Float); - function GetEANVENValue: String; - procedure SetEANVENValue(const aValue: String); - function GetNOMVENValue: String; - procedure SetNOMVENValue(const aValue: String); - function GetNUMTALONValue: String; - procedure SetNUMTALONValue(const aValue: String); - function GetCANVENNETValue: Float; - procedure SetCANVENNETValue(const aValue: Float); - function GetUMEDVENNETValue: String; - procedure SetUMEDVENNETValue(const aValue: String); - function GetCANESPValue: Float; - procedure SetCANESPValue(const aValue: Float); - function GetUMEDESPValue: String; - procedure SetUMEDESPValue(const aValue: String); - - - { Properties } - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Float read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Float read GetCLAVE3Value write SetCLAVE3Value; - property EANART: String read GetEANARTValue write SetEANARTValue; - property CODCOM: String read GetCODCOMValue write SetCODCOMValue; - property NUMVAR: String read GetNUMVARValue write SetNUMVARValue; - property CODPRO: String read GetCODPROValue write SetCODPROValue; - property DESARTCO: String read GetDESARTCOValue write SetDESARTCOValue; - property DESART: String read GetDESARTValue write SetDESARTValue; - property NUMCON: String read GetNUMCONValue write SetNUMCONValue; - property NUMLIS: String read GetNUMLISValue write SetNUMLISValue; - property CONESP1: String read GetCONESP1Value write SetCONESP1Value; - property CONESP2: String read GetCONESP2Value write SetCONESP2Value; - property CONESP3: String read GetCONESP3Value write SetCONESP3Value; - property VALVEN: Float read GetVALVENValue write SetVALVENValue; - property PRENETCT: Float read GetPRENETCTValue write SetPRENETCTValue; - property PREBRUCT: Float read GetPREBRUCTValue write SetPREBRUCTValue; - property PREINFET: Float read GetPREINFETValue write SetPREINFETValue; - property PREINFFT: Float read GetPREINFFTValue write SetPREINFFTValue; - property PRECALCT: Float read GetPRECALCTValue write SetPRECALCTValue; - property PRENETCA: Float read GetPRENETCAValue write SetPRENETCAValue; - property PREBRUCA: Float read GetPREBRUCAValue write SetPREBRUCAValue; - property PREINFEA: Float read GetPREINFEAValue write SetPREINFEAValue; - property PREINFFA: Float read GetPREINFFAValue write SetPREINFFAValue; - property PRECALCA: Float read GetPRECALCAValue write SetPRECALCAValue; - property BAPRUN1: Float read GetBAPRUN1Value write SetBAPRUN1Value; - property UNIMED1: String read GetUNIMED1Value write SetUNIMED1Value; - property BAPRUN2: Float read GetBAPRUN2Value write SetBAPRUN2Value; - property UNIMED2: String read GetUNIMED2Value write SetUNIMED2Value; - property BAPRUN3: Float read GetBAPRUN3Value write SetBAPRUN3Value; - property UNIMED3: String read GetUNIMED3Value write SetUNIMED3Value; - property BAPRUN4: Float read GetBAPRUN4Value write SetBAPRUN4Value; - property UNIMED4: String read GetUNIMED4Value write SetUNIMED4Value; - property BAPRUN5: Float read GetBAPRUN5Value write SetBAPRUN5Value; - property UNIMED5: String read GetUNIMED5Value write SetUNIMED5Value; - property CANVEN: Float read GetCANVENValue write SetCANVENValue; - property EXIPRO: Float read GetEXIPROValue write SetEXIPROValue; - property DESEXI: Float read GetDESEXIValue write SetDESEXIValue; - property ESPMEDCV: String read GetESPMEDCVValue write SetESPMEDCVValue; - property ESPMEDEP: String read GetESPMEDEPValue write SetESPMEDEPValue; - property ESPMEDDE: String read GetESPMEDDEValue write SetESPMEDDEValue; - property CANDEV: Float read GetCANDEVValue write SetCANDEVValue; - property EANVEN: String read GetEANVENValue write SetEANVENValue; - property NOMVEN: String read GetNOMVENValue write SetNOMVENValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CANVENNET: Float read GetCANVENNETValue write SetCANVENNETValue; - property UMEDVENNET: String read GetUMEDVENNETValue write SetUMEDVENNETValue; - property CANESP: Float read GetCANESPValue write SetCANESPValue; - property UMEDESP: String read GetUMEDESPValue write SetUMEDESPValue; - end; - - { TRDX_ARTVENDataTableRules } - TRDX_ARTVENDataTableRules = class(TDADataTableRules, IRDX_ARTVEN) - private - protected - { Property getters and setters } - function GetCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Float; virtual; - procedure SetCLAVE2Value(const aValue: Float); virtual; - function GetCLAVE3Value: Float; virtual; - procedure SetCLAVE3Value(const aValue: Float); virtual; - function GetEANARTValue: String; virtual; - procedure SetEANARTValue(const aValue: String); virtual; - function GetCODCOMValue: String; virtual; - procedure SetCODCOMValue(const aValue: String); virtual; - function GetNUMVARValue: String; virtual; - procedure SetNUMVARValue(const aValue: String); virtual; - function GetCODPROValue: String; virtual; - procedure SetCODPROValue(const aValue: String); virtual; - function GetDESARTCOValue: String; virtual; - procedure SetDESARTCOValue(const aValue: String); virtual; - function GetDESARTValue: String; virtual; - procedure SetDESARTValue(const aValue: String); virtual; - function GetNUMCONValue: String; virtual; - procedure SetNUMCONValue(const aValue: String); virtual; - function GetNUMLISValue: String; virtual; - procedure SetNUMLISValue(const aValue: String); virtual; - function GetCONESP1Value: String; virtual; - procedure SetCONESP1Value(const aValue: String); virtual; - function GetCONESP2Value: String; virtual; - procedure SetCONESP2Value(const aValue: String); virtual; - function GetCONESP3Value: String; virtual; - procedure SetCONESP3Value(const aValue: String); virtual; - function GetVALVENValue: Float; virtual; - procedure SetVALVENValue(const aValue: Float); virtual; - function GetPRENETCTValue: Float; virtual; - procedure SetPRENETCTValue(const aValue: Float); virtual; - function GetPREBRUCTValue: Float; virtual; - procedure SetPREBRUCTValue(const aValue: Float); virtual; - function GetPREINFETValue: Float; virtual; - procedure SetPREINFETValue(const aValue: Float); virtual; - function GetPREINFFTValue: Float; virtual; - procedure SetPREINFFTValue(const aValue: Float); virtual; - function GetPRECALCTValue: Float; virtual; - procedure SetPRECALCTValue(const aValue: Float); virtual; - function GetPRENETCAValue: Float; virtual; - procedure SetPRENETCAValue(const aValue: Float); virtual; - function GetPREBRUCAValue: Float; virtual; - procedure SetPREBRUCAValue(const aValue: Float); virtual; - function GetPREINFEAValue: Float; virtual; - procedure SetPREINFEAValue(const aValue: Float); virtual; - function GetPREINFFAValue: Float; virtual; - procedure SetPREINFFAValue(const aValue: Float); virtual; - function GetPRECALCAValue: Float; virtual; - procedure SetPRECALCAValue(const aValue: Float); virtual; - function GetBAPRUN1Value: Float; virtual; - procedure SetBAPRUN1Value(const aValue: Float); virtual; - function GetUNIMED1Value: String; virtual; - procedure SetUNIMED1Value(const aValue: String); virtual; - function GetBAPRUN2Value: Float; virtual; - procedure SetBAPRUN2Value(const aValue: Float); virtual; - function GetUNIMED2Value: String; virtual; - procedure SetUNIMED2Value(const aValue: String); virtual; - function GetBAPRUN3Value: Float; virtual; - procedure SetBAPRUN3Value(const aValue: Float); virtual; - function GetUNIMED3Value: String; virtual; - procedure SetUNIMED3Value(const aValue: String); virtual; - function GetBAPRUN4Value: Float; virtual; - procedure SetBAPRUN4Value(const aValue: Float); virtual; - function GetUNIMED4Value: String; virtual; - procedure SetUNIMED4Value(const aValue: String); virtual; - function GetBAPRUN5Value: Float; virtual; - procedure SetBAPRUN5Value(const aValue: Float); virtual; - function GetUNIMED5Value: String; virtual; - procedure SetUNIMED5Value(const aValue: String); virtual; - function GetCANVENValue: Float; virtual; - procedure SetCANVENValue(const aValue: Float); virtual; - function GetEXIPROValue: Float; virtual; - procedure SetEXIPROValue(const aValue: Float); virtual; - function GetDESEXIValue: Float; virtual; - procedure SetDESEXIValue(const aValue: Float); virtual; - function GetESPMEDCVValue: String; virtual; - procedure SetESPMEDCVValue(const aValue: String); virtual; - function GetESPMEDEPValue: String; virtual; - procedure SetESPMEDEPValue(const aValue: String); virtual; - function GetESPMEDDEValue: String; virtual; - procedure SetESPMEDDEValue(const aValue: String); virtual; - function GetCANDEVValue: Float; virtual; - procedure SetCANDEVValue(const aValue: Float); virtual; - function GetEANVENValue: String; virtual; - procedure SetEANVENValue(const aValue: String); virtual; - function GetNOMVENValue: String; virtual; - procedure SetNOMVENValue(const aValue: String); virtual; - function GetNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCANVENNETValue: Float; virtual; - procedure SetCANVENNETValue(const aValue: Float); virtual; - function GetUMEDVENNETValue: String; virtual; - procedure SetUMEDVENNETValue(const aValue: String); virtual; - function GetCANESPValue: Float; virtual; - procedure SetCANESPValue(const aValue: Float); virtual; - function GetUMEDESPValue: String; virtual; - procedure SetUMEDESPValue(const aValue: String); virtual; - - { Properties } - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Float read GetCLAVE2Value write SetCLAVE2Value; - property CLAVE3: Float read GetCLAVE3Value write SetCLAVE3Value; - property EANART: String read GetEANARTValue write SetEANARTValue; - property CODCOM: String read GetCODCOMValue write SetCODCOMValue; - property NUMVAR: String read GetNUMVARValue write SetNUMVARValue; - property CODPRO: String read GetCODPROValue write SetCODPROValue; - property DESARTCO: String read GetDESARTCOValue write SetDESARTCOValue; - property DESART: String read GetDESARTValue write SetDESARTValue; - property NUMCON: String read GetNUMCONValue write SetNUMCONValue; - property NUMLIS: String read GetNUMLISValue write SetNUMLISValue; - property CONESP1: String read GetCONESP1Value write SetCONESP1Value; - property CONESP2: String read GetCONESP2Value write SetCONESP2Value; - property CONESP3: String read GetCONESP3Value write SetCONESP3Value; - property VALVEN: Float read GetVALVENValue write SetVALVENValue; - property PRENETCT: Float read GetPRENETCTValue write SetPRENETCTValue; - property PREBRUCT: Float read GetPREBRUCTValue write SetPREBRUCTValue; - property PREINFET: Float read GetPREINFETValue write SetPREINFETValue; - property PREINFFT: Float read GetPREINFFTValue write SetPREINFFTValue; - property PRECALCT: Float read GetPRECALCTValue write SetPRECALCTValue; - property PRENETCA: Float read GetPRENETCAValue write SetPRENETCAValue; - property PREBRUCA: Float read GetPREBRUCAValue write SetPREBRUCAValue; - property PREINFEA: Float read GetPREINFEAValue write SetPREINFEAValue; - property PREINFFA: Float read GetPREINFFAValue write SetPREINFFAValue; - property PRECALCA: Float read GetPRECALCAValue write SetPRECALCAValue; - property BAPRUN1: Float read GetBAPRUN1Value write SetBAPRUN1Value; - property UNIMED1: String read GetUNIMED1Value write SetUNIMED1Value; - property BAPRUN2: Float read GetBAPRUN2Value write SetBAPRUN2Value; - property UNIMED2: String read GetUNIMED2Value write SetUNIMED2Value; - property BAPRUN3: Float read GetBAPRUN3Value write SetBAPRUN3Value; - property UNIMED3: String read GetUNIMED3Value write SetUNIMED3Value; - property BAPRUN4: Float read GetBAPRUN4Value write SetBAPRUN4Value; - property UNIMED4: String read GetUNIMED4Value write SetUNIMED4Value; - property BAPRUN5: Float read GetBAPRUN5Value write SetBAPRUN5Value; - property UNIMED5: String read GetUNIMED5Value write SetUNIMED5Value; - property CANVEN: Float read GetCANVENValue write SetCANVENValue; - property EXIPRO: Float read GetEXIPROValue write SetEXIPROValue; - property DESEXI: Float read GetDESEXIValue write SetDESEXIValue; - property ESPMEDCV: String read GetESPMEDCVValue write SetESPMEDCVValue; - property ESPMEDEP: String read GetESPMEDEPValue write SetESPMEDEPValue; - property ESPMEDDE: String read GetESPMEDDEValue write SetESPMEDDEValue; - property CANDEV: Float read GetCANDEVValue write SetCANDEVValue; - property EANVEN: String read GetEANVENValue write SetEANVENValue; - property NOMVEN: String read GetNOMVENValue write SetNOMVENValue; - property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; - property CANVENNET: Float read GetCANVENNETValue write SetCANVENNETValue; - property UMEDVENNET: String read GetUMEDVENNETValue write SetUMEDVENNETValue; - property CANESP: Float read GetCANESPValue write SetCANESPValue; - property UMEDESP: String read GetUMEDESPValue write SetUMEDESPValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IRDX_CABVEN } - IRDX_CABVEN = interface(IDAStronglyTypedDataTable) - ['{5180F5AB-5BAF-4C8C-80F8-498D0D1252B5}'] - { Property getters and setters } - function GetCLAVE1Value: Float; - procedure SetCLAVE1Value(const aValue: Float); - function GetNUMINFValue: String; - procedure SetNUMINFValue(const aValue: String); - function GetFUNCIONValue: String; - procedure SetFUNCIONValue(const aValue: String); - function GetFECINIValue: DateTime; - procedure SetFECINIValue(const aValue: DateTime); - function GetFECFINValue: DateTime; - procedure SetFECFINValue(const aValue: DateTime); - function GetFECINFValue: DateTime; - procedure SetFECINFValue(const aValue: DateTime); - function GetPERVENINIValue: DateTime; - procedure SetPERVENINIValue(const aValue: DateTime); - function GetPERVENFINValue: DateTime; - procedure SetPERVENFINValue(const aValue: DateTime); - function GetEANOFIValue: String; - procedure SetEANOFIValue(const aValue: String); - function GetEANEMIValue: String; - procedure SetEANEMIValue(const aValue: String); - function GetEANRECValue: String; - procedure SetEANRECValue(const aValue: String); - function GetEANVENValue: String; - procedure SetEANVENValue(const aValue: String); - function GetEANALMValue: String; - procedure SetEANALMValue(const aValue: String); - function GetEANREPValue: String; - procedure SetEANREPValue(const aValue: String); - function GetEANPROValue: String; - procedure SetEANPROValue(const aValue: String); - function GetEANADMSAValue: String; - procedure SetEANADMSAValue(const aValue: String); - function GetEANREPSRValue: String; - procedure SetEANREPSRValue(const aValue: String); - function GetADMVENSAValue: String; - procedure SetADMVENSAValue(const aValue: String); - function GetREPDEPSRValue: String; - procedure SetREPDEPSRValue(const aValue: String); - function GetEMAILSAValue: String; - procedure SetEMAILSAValue(const aValue: String); - function GetNUMFAXSAValue: String; - procedure SetNUMFAXSAValue(const aValue: String); - function GetNUMTELSAValue: String; - procedure SetNUMTELSAValue(const aValue: String); - function GetNUMTLXSAValue: String; - procedure SetNUMTLXSAValue(const aValue: String); - function GetX400SAValue: String; - procedure SetX400SAValue(const aValue: String); - function GetEMAILSRValue: String; - procedure SetEMAILSRValue(const aValue: String); - function GetNUMFAXSRValue: String; - procedure SetNUMFAXSRValue(const aValue: String); - function GetNUMTELSRValue: String; - procedure SetNUMTELSRValue(const aValue: String); - function GetNUMTLXSRValue: String; - procedure SetNUMTLXSRValue(const aValue: String); - function GetX400SRValue: String; - procedure SetX400SRValue(const aValue: String); - function GetNUMPREValue: String; - procedure SetNUMPREValue(const aValue: String); - function GetNUMINFSCValue: String; - procedure SetNUMINFSCValue(const aValue: String); - function GetNUMCONValue: String; - procedure SetNUMCONValue(const aValue: String); - function GetFECPREValue: DateTime; - procedure SetFECPREValue(const aValue: DateTime); - function GetFECINFSCValue: DateTime; - procedure SetFECINFSCValue(const aValue: DateTime); - function GetFECCONValue: DateTime; - procedure SetFECCONValue(const aValue: DateTime); - function GetDIVPEDValue: String; - procedure SetDIVPEDValue(const aValue: String); - function GetDIVPREValue: String; - procedure SetDIVPREValue(const aValue: String); - function GetDIVPAGValue: String; - procedure SetDIVPAGValue(const aValue: String); - function GetDIVPEDFValue: String; - procedure SetDIVPEDFValue(const aValue: String); - function GetDIVPREFValue: String; - procedure SetDIVPREFValue(const aValue: String); - function GetDIVPAGFValue: String; - procedure SetDIVPAGFValue(const aValue: String); - function GetTASCAMValue: Float; - procedure SetTASCAMValue(const aValue: Float); - function GetFECTASValue: DateTime; - procedure SetFECTASValue(const aValue: DateTime); - - - { Properties } - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property FUNCION: String read GetFUNCIONValue write SetFUNCIONValue; - property FECINI: DateTime read GetFECINIValue write SetFECINIValue; - property FECFIN: DateTime read GetFECFINValue write SetFECFINValue; - property FECINF: DateTime read GetFECINFValue write SetFECINFValue; - property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue; - property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue; - property EANOFI: String read GetEANOFIValue write SetEANOFIValue; - property EANEMI: String read GetEANEMIValue write SetEANEMIValue; - property EANREC: String read GetEANRECValue write SetEANRECValue; - property EANVEN: String read GetEANVENValue write SetEANVENValue; - property EANALM: String read GetEANALMValue write SetEANALMValue; - property EANREP: String read GetEANREPValue write SetEANREPValue; - property EANPRO: String read GetEANPROValue write SetEANPROValue; - property EANADMSA: String read GetEANADMSAValue write SetEANADMSAValue; - property EANREPSR: String read GetEANREPSRValue write SetEANREPSRValue; - property ADMVENSA: String read GetADMVENSAValue write SetADMVENSAValue; - property REPDEPSR: String read GetREPDEPSRValue write SetREPDEPSRValue; - property EMAILSA: String read GetEMAILSAValue write SetEMAILSAValue; - property NUMFAXSA: String read GetNUMFAXSAValue write SetNUMFAXSAValue; - property NUMTELSA: String read GetNUMTELSAValue write SetNUMTELSAValue; - property NUMTLXSA: String read GetNUMTLXSAValue write SetNUMTLXSAValue; - property X400SA: String read GetX400SAValue write SetX400SAValue; - property EMAILSR: String read GetEMAILSRValue write SetEMAILSRValue; - property NUMFAXSR: String read GetNUMFAXSRValue write SetNUMFAXSRValue; - property NUMTELSR: String read GetNUMTELSRValue write SetNUMTELSRValue; - property NUMTLXSR: String read GetNUMTLXSRValue write SetNUMTLXSRValue; - property X400SR: String read GetX400SRValue write SetX400SRValue; - property NUMPRE: String read GetNUMPREValue write SetNUMPREValue; - property NUMINFSC: String read GetNUMINFSCValue write SetNUMINFSCValue; - property NUMCON: String read GetNUMCONValue write SetNUMCONValue; - property FECPRE: DateTime read GetFECPREValue write SetFECPREValue; - property FECINFSC: DateTime read GetFECINFSCValue write SetFECINFSCValue; - property FECCON: DateTime read GetFECCONValue write SetFECCONValue; - property DIVPED: String read GetDIVPEDValue write SetDIVPEDValue; - property DIVPRE: String read GetDIVPREValue write SetDIVPREValue; - property DIVPAG: String read GetDIVPAGValue write SetDIVPAGValue; - property DIVPEDF: String read GetDIVPEDFValue write SetDIVPEDFValue; - property DIVPREF: String read GetDIVPREFValue write SetDIVPREFValue; - property DIVPAGF: String read GetDIVPAGFValue write SetDIVPAGFValue; - property TASCAM: Float read GetTASCAMValue write SetTASCAMValue; - property FECTAS: DateTime read GetFECTASValue write SetFECTASValue; - end; - - { TRDX_CABVENDataTableRules } - TRDX_CABVENDataTableRules = class(TDADataTableRules, IRDX_CABVEN) - private - protected - { Property getters and setters } - function GetCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetFUNCIONValue: String; virtual; - procedure SetFUNCIONValue(const aValue: String); virtual; - function GetFECINIValue: DateTime; virtual; - procedure SetFECINIValue(const aValue: DateTime); virtual; - function GetFECFINValue: DateTime; virtual; - procedure SetFECFINValue(const aValue: DateTime); virtual; - function GetFECINFValue: DateTime; virtual; - procedure SetFECINFValue(const aValue: DateTime); virtual; - function GetPERVENINIValue: DateTime; virtual; - procedure SetPERVENINIValue(const aValue: DateTime); virtual; - function GetPERVENFINValue: DateTime; virtual; - procedure SetPERVENFINValue(const aValue: DateTime); virtual; - function GetEANOFIValue: String; virtual; - procedure SetEANOFIValue(const aValue: String); virtual; - function GetEANEMIValue: String; virtual; - procedure SetEANEMIValue(const aValue: String); virtual; - function GetEANRECValue: String; virtual; - procedure SetEANRECValue(const aValue: String); virtual; - function GetEANVENValue: String; virtual; - procedure SetEANVENValue(const aValue: String); virtual; - function GetEANALMValue: String; virtual; - procedure SetEANALMValue(const aValue: String); virtual; - function GetEANREPValue: String; virtual; - procedure SetEANREPValue(const aValue: String); virtual; - function GetEANPROValue: String; virtual; - procedure SetEANPROValue(const aValue: String); virtual; - function GetEANADMSAValue: String; virtual; - procedure SetEANADMSAValue(const aValue: String); virtual; - function GetEANREPSRValue: String; virtual; - procedure SetEANREPSRValue(const aValue: String); virtual; - function GetADMVENSAValue: String; virtual; - procedure SetADMVENSAValue(const aValue: String); virtual; - function GetREPDEPSRValue: String; virtual; - procedure SetREPDEPSRValue(const aValue: String); virtual; - function GetEMAILSAValue: String; virtual; - procedure SetEMAILSAValue(const aValue: String); virtual; - function GetNUMFAXSAValue: String; virtual; - procedure SetNUMFAXSAValue(const aValue: String); virtual; - function GetNUMTELSAValue: String; virtual; - procedure SetNUMTELSAValue(const aValue: String); virtual; - function GetNUMTLXSAValue: String; virtual; - procedure SetNUMTLXSAValue(const aValue: String); virtual; - function GetX400SAValue: String; virtual; - procedure SetX400SAValue(const aValue: String); virtual; - function GetEMAILSRValue: String; virtual; - procedure SetEMAILSRValue(const aValue: String); virtual; - function GetNUMFAXSRValue: String; virtual; - procedure SetNUMFAXSRValue(const aValue: String); virtual; - function GetNUMTELSRValue: String; virtual; - procedure SetNUMTELSRValue(const aValue: String); virtual; - function GetNUMTLXSRValue: String; virtual; - procedure SetNUMTLXSRValue(const aValue: String); virtual; - function GetX400SRValue: String; virtual; - procedure SetX400SRValue(const aValue: String); virtual; - function GetNUMPREValue: String; virtual; - procedure SetNUMPREValue(const aValue: String); virtual; - function GetNUMINFSCValue: String; virtual; - procedure SetNUMINFSCValue(const aValue: String); virtual; - function GetNUMCONValue: String; virtual; - procedure SetNUMCONValue(const aValue: String); virtual; - function GetFECPREValue: DateTime; virtual; - procedure SetFECPREValue(const aValue: DateTime); virtual; - function GetFECINFSCValue: DateTime; virtual; - procedure SetFECINFSCValue(const aValue: DateTime); virtual; - function GetFECCONValue: DateTime; virtual; - procedure SetFECCONValue(const aValue: DateTime); virtual; - function GetDIVPEDValue: String; virtual; - procedure SetDIVPEDValue(const aValue: String); virtual; - function GetDIVPREValue: String; virtual; - procedure SetDIVPREValue(const aValue: String); virtual; - function GetDIVPAGValue: String; virtual; - procedure SetDIVPAGValue(const aValue: String); virtual; - function GetDIVPEDFValue: String; virtual; - procedure SetDIVPEDFValue(const aValue: String); virtual; - function GetDIVPREFValue: String; virtual; - procedure SetDIVPREFValue(const aValue: String); virtual; - function GetDIVPAGFValue: String; virtual; - procedure SetDIVPAGFValue(const aValue: String); virtual; - function GetTASCAMValue: Float; virtual; - procedure SetTASCAMValue(const aValue: Float); virtual; - function GetFECTASValue: DateTime; virtual; - procedure SetFECTASValue(const aValue: DateTime); virtual; - - { Properties } - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property NUMINF: String read GetNUMINFValue write SetNUMINFValue; - property FUNCION: String read GetFUNCIONValue write SetFUNCIONValue; - property FECINI: DateTime read GetFECINIValue write SetFECINIValue; - property FECFIN: DateTime read GetFECFINValue write SetFECFINValue; - property FECINF: DateTime read GetFECINFValue write SetFECINFValue; - property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue; - property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue; - property EANOFI: String read GetEANOFIValue write SetEANOFIValue; - property EANEMI: String read GetEANEMIValue write SetEANEMIValue; - property EANREC: String read GetEANRECValue write SetEANRECValue; - property EANVEN: String read GetEANVENValue write SetEANVENValue; - property EANALM: String read GetEANALMValue write SetEANALMValue; - property EANREP: String read GetEANREPValue write SetEANREPValue; - property EANPRO: String read GetEANPROValue write SetEANPROValue; - property EANADMSA: String read GetEANADMSAValue write SetEANADMSAValue; - property EANREPSR: String read GetEANREPSRValue write SetEANREPSRValue; - property ADMVENSA: String read GetADMVENSAValue write SetADMVENSAValue; - property REPDEPSR: String read GetREPDEPSRValue write SetREPDEPSRValue; - property EMAILSA: String read GetEMAILSAValue write SetEMAILSAValue; - property NUMFAXSA: String read GetNUMFAXSAValue write SetNUMFAXSAValue; - property NUMTELSA: String read GetNUMTELSAValue write SetNUMTELSAValue; - property NUMTLXSA: String read GetNUMTLXSAValue write SetNUMTLXSAValue; - property X400SA: String read GetX400SAValue write SetX400SAValue; - property EMAILSR: String read GetEMAILSRValue write SetEMAILSRValue; - property NUMFAXSR: String read GetNUMFAXSRValue write SetNUMFAXSRValue; - property NUMTELSR: String read GetNUMTELSRValue write SetNUMTELSRValue; - property NUMTLXSR: String read GetNUMTLXSRValue write SetNUMTLXSRValue; - property X400SR: String read GetX400SRValue write SetX400SRValue; - property NUMPRE: String read GetNUMPREValue write SetNUMPREValue; - property NUMINFSC: String read GetNUMINFSCValue write SetNUMINFSCValue; - property NUMCON: String read GetNUMCONValue write SetNUMCONValue; - property FECPRE: DateTime read GetFECPREValue write SetFECPREValue; - property FECINFSC: DateTime read GetFECINFSCValue write SetFECINFSCValue; - property FECCON: DateTime read GetFECCONValue write SetFECCONValue; - property DIVPED: String read GetDIVPEDValue write SetDIVPEDValue; - property DIVPRE: String read GetDIVPREValue write SetDIVPREValue; - property DIVPAG: String read GetDIVPAGValue write SetDIVPAGValue; - property DIVPEDF: String read GetDIVPEDFValue write SetDIVPEDFValue; - property DIVPREF: String read GetDIVPREFValue write SetDIVPREFValue; - property DIVPAGF: String read GetDIVPAGFValue write SetDIVPAGFValue; - property TASCAM: Float read GetTASCAMValue write SetTASCAMValue; - property FECTAS: DateTime read GetFECTASValue write SetFECTASValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IRDX_LUGVEN } - IRDX_LUGVEN = interface(IDAStronglyTypedDataTable) - ['{1F9C102A-BE07-4CEC-BBE3-7B062C9F8618}'] - { Property getters and setters } - function GetCLAVE1Value: Float; - procedure SetCLAVE1Value(const aValue: Float); - function GetCLAVE2Value: Integer; - procedure SetCLAVE2Value(const aValue: Integer); - function GetEANLUGValue: String; - procedure SetEANLUGValue(const aValue: String); - function GetLUGVENValue: String; - procedure SetLUGVENValue(const aValue: String); - function GetFECINIValue: DateTime; - procedure SetFECINIValue(const aValue: DateTime); - function GetFECFINValue: DateTime; - procedure SetFECFINValue(const aValue: DateTime); - function GetPERVENINIValue: DateTime; - procedure SetPERVENINIValue(const aValue: DateTime); - function GetPERVENFINValue: DateTime; - procedure SetPERVENFINValue(const aValue: DateTime); - - - { Properties } - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property EANLUG: String read GetEANLUGValue write SetEANLUGValue; - property LUGVEN: String read GetLUGVENValue write SetLUGVENValue; - property FECINI: DateTime read GetFECINIValue write SetFECINIValue; - property FECFIN: DateTime read GetFECFINValue write SetFECFINValue; - property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue; - property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue; - end; - - { TRDX_LUGVENDataTableRules } - TRDX_LUGVENDataTableRules = class(TDADataTableRules, IRDX_LUGVEN) - private - protected - { Property getters and setters } - function GetCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetEANLUGValue: String; virtual; - procedure SetEANLUGValue(const aValue: String); virtual; - function GetLUGVENValue: String; virtual; - procedure SetLUGVENValue(const aValue: String); virtual; - function GetFECINIValue: DateTime; virtual; - procedure SetFECINIValue(const aValue: DateTime); virtual; - function GetFECFINValue: DateTime; virtual; - procedure SetFECFINValue(const aValue: DateTime); virtual; - function GetPERVENINIValue: DateTime; virtual; - procedure SetPERVENINIValue(const aValue: DateTime); virtual; - function GetPERVENFINValue: DateTime; virtual; - procedure SetPERVENFINValue(const aValue: DateTime); virtual; - - { Properties } - property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; - property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; - property EANLUG: String read GetEANLUGValue write SetEANLUGValue; - property LUGVEN: String read GetLUGVENValue write SetLUGVENValue; - property FECINI: DateTime read GetFECINIValue write SetFECINIValue; - property FECFIN: DateTime read GetFECFINValue write SetFECFINValue; - property PERVENINI: DateTime read GetPERVENINIValue write SetPERVENINIValue; - property PERVENFIN: DateTime read GetPERVENFINValue write SetPERVENFINValue; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants; - -{ TRDX_ARTVENDataTableRules } -constructor TRDX_ARTVENDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRDX_ARTVENDataTableRules.Destroy; -begin - inherited; -end; - -function TRDX_ARTVENDataTableRules.GetCLAVE1Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCLAVE1].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCLAVE1Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCLAVE1].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCLAVE2Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCLAVE2].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCLAVE2Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCLAVE2].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCLAVE3Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCLAVE3].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCLAVE3Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCLAVE3].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetEANARTValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENEANART].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetEANARTValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENEANART].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCODCOMValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENCODCOM].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetCODCOMValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENCODCOM].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetNUMVARValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENNUMVAR].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetNUMVARValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENNUMVAR].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCODPROValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENCODPRO].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetCODPROValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENCODPRO].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetDESARTCOValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENDESARTCO].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetDESARTCOValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENDESARTCO].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetDESARTValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENDESART].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetDESARTValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENDESART].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetNUMCONValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENNUMCON].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetNUMCONValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENNUMCON].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetNUMLISValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENNUMLIS].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetNUMLISValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENNUMLIS].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCONESP1Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENCONESP1].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetCONESP1Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENCONESP1].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCONESP2Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENCONESP2].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetCONESP2Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENCONESP2].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCONESP3Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENCONESP3].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetCONESP3Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENCONESP3].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetVALVENValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENVALVEN].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetVALVENValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENVALVEN].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPRENETCTValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPRENETCT].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPRENETCTValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPRENETCT].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPREBRUCTValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPREBRUCT].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPREBRUCTValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPREBRUCT].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPREINFETValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPREINFET].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPREINFETValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPREINFET].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPREINFFTValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPREINFFT].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPREINFFTValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPREINFFT].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPRECALCTValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPRECALCT].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPRECALCTValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPRECALCT].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPRENETCAValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPRENETCA].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPRENETCAValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPRENETCA].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPREBRUCAValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPREBRUCA].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPREBRUCAValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPREBRUCA].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPREINFEAValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPREINFEA].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPREINFEAValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPREINFEA].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPREINFFAValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPREINFFA].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPREINFFAValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPREINFFA].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetPRECALCAValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENPRECALCA].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetPRECALCAValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENPRECALCA].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetBAPRUN1Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENBAPRUN1].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetBAPRUN1Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENBAPRUN1].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUNIMED1Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUNIMED1].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUNIMED1Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUNIMED1].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetBAPRUN2Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENBAPRUN2].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetBAPRUN2Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENBAPRUN2].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUNIMED2Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUNIMED2].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUNIMED2Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUNIMED2].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetBAPRUN3Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENBAPRUN3].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetBAPRUN3Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENBAPRUN3].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUNIMED3Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUNIMED3].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUNIMED3Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUNIMED3].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetBAPRUN4Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENBAPRUN4].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetBAPRUN4Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENBAPRUN4].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUNIMED4Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUNIMED4].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUNIMED4Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUNIMED4].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetBAPRUN5Value: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENBAPRUN5].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetBAPRUN5Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENBAPRUN5].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUNIMED5Value: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUNIMED5].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUNIMED5Value(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUNIMED5].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCANVENValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCANVEN].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCANVENValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCANVEN].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetEXIPROValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENEXIPRO].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetEXIPROValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENEXIPRO].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetDESEXIValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENDESEXI].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetDESEXIValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENDESEXI].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetESPMEDCVValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENESPMEDCV].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetESPMEDCVValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENESPMEDCV].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetESPMEDEPValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENESPMEDEP].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetESPMEDEPValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENESPMEDEP].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetESPMEDDEValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENESPMEDDE].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetESPMEDDEValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENESPMEDDE].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCANDEVValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCANDEV].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCANDEVValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCANDEV].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetEANVENValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENEANVEN].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetEANVENValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENEANVEN].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetNOMVENValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENNOMVEN].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetNOMVENValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENNOMVEN].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetNUMTALONValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENNUMTALON].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetNUMTALONValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENNUMTALON].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCANVENNETValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCANVENNET].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCANVENNETValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCANVENNET].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUMEDVENNETValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUMEDVENNET].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUMEDVENNETValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUMEDVENNET].AsString := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetCANESPValue: Float; -begin - result := DataTable.Fields[idx_RDX_ARTVENCANESP].AsFloat; -end; - -procedure TRDX_ARTVENDataTableRules.SetCANESPValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_ARTVENCANESP].AsFloat := aValue; -end; - -function TRDX_ARTVENDataTableRules.GetUMEDESPValue: String; -begin - result := DataTable.Fields[idx_RDX_ARTVENUMEDESP].AsString; -end; - -procedure TRDX_ARTVENDataTableRules.SetUMEDESPValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_ARTVENUMEDESP].AsString := aValue; -end; - - -{ TRDX_CABVENDataTableRules } -constructor TRDX_CABVENDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRDX_CABVENDataTableRules.Destroy; -begin - inherited; -end; - -function TRDX_CABVENDataTableRules.GetCLAVE1Value: Float; -begin - result := DataTable.Fields[idx_RDX_CABVENCLAVE1].AsFloat; -end; - -procedure TRDX_CABVENDataTableRules.SetCLAVE1Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_CABVENCLAVE1].AsFloat := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMINFValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMINF].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMINFValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMINF].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFUNCIONValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENFUNCION].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetFUNCIONValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENFUNCION].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECINIValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECINI].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECINIValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECINI].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECFINValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECFIN].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECFINValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECFIN].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECINFValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECINF].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECINFValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECINF].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetPERVENINIValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENPERVENINI].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetPERVENINIValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENPERVENINI].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetPERVENFINValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENPERVENFIN].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetPERVENFINValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENPERVENFIN].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANOFIValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANOFI].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANOFIValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANOFI].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANEMIValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANEMI].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANEMIValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANEMI].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANRECValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANREC].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANRECValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANREC].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANVENValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANVEN].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANVENValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANVEN].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANALMValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANALM].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANALMValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANALM].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANREPValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANREP].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANREPValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANREP].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANPROValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANPRO].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANPROValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANPRO].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANADMSAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANADMSA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANADMSAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANADMSA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEANREPSRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEANREPSR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEANREPSRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEANREPSR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetADMVENSAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENADMVENSA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetADMVENSAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENADMVENSA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetREPDEPSRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENREPDEPSR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetREPDEPSRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENREPDEPSR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEMAILSAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEMAILSA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEMAILSAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEMAILSA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMFAXSAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMFAXSAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMTELSAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMTELSA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMTELSAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMTELSA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMTLXSAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMTLXSA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMTLXSAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMTLXSA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetX400SAValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENX400SA].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetX400SAValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENX400SA].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetEMAILSRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENEMAILSR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetEMAILSRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENEMAILSR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMFAXSRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMFAXSR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMFAXSRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMFAXSR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMTELSRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMTELSR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMTELSRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMTELSR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMTLXSRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMTLXSR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMTLXSRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMTLXSR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetX400SRValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENX400SR].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetX400SRValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENX400SR].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMPREValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMPRE].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMPREValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMPRE].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMINFSCValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMINFSC].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMINFSCValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMINFSC].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetNUMCONValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENNUMCON].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetNUMCONValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENNUMCON].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECPREValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECPRE].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECPREValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECPRE].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECINFSCValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECINFSC].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECINFSCValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECINFSC].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECCONValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECCON].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECCONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECCON].AsDateTime := aValue; -end; - -function TRDX_CABVENDataTableRules.GetDIVPEDValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENDIVPED].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetDIVPEDValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENDIVPED].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetDIVPREValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENDIVPRE].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetDIVPREValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENDIVPRE].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetDIVPAGValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENDIVPAG].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetDIVPAGValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENDIVPAG].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetDIVPEDFValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENDIVPEDF].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetDIVPEDFValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENDIVPEDF].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetDIVPREFValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENDIVPREF].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetDIVPREFValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENDIVPREF].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetDIVPAGFValue: String; -begin - result := DataTable.Fields[idx_RDX_CABVENDIVPAGF].AsString; -end; - -procedure TRDX_CABVENDataTableRules.SetDIVPAGFValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_CABVENDIVPAGF].AsString := aValue; -end; - -function TRDX_CABVENDataTableRules.GetTASCAMValue: Float; -begin - result := DataTable.Fields[idx_RDX_CABVENTASCAM].AsFloat; -end; - -procedure TRDX_CABVENDataTableRules.SetTASCAMValue(const aValue: Float); -begin - DataTable.Fields[idx_RDX_CABVENTASCAM].AsFloat := aValue; -end; - -function TRDX_CABVENDataTableRules.GetFECTASValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_CABVENFECTAS].AsDateTime; -end; - -procedure TRDX_CABVENDataTableRules.SetFECTASValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_CABVENFECTAS].AsDateTime := aValue; -end; - - -{ TRDX_LUGVENDataTableRules } -constructor TRDX_LUGVENDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TRDX_LUGVENDataTableRules.Destroy; -begin - inherited; -end; - -function TRDX_LUGVENDataTableRules.GetCLAVE1Value: Float; -begin - result := DataTable.Fields[idx_RDX_LUGVENCLAVE1].AsFloat; -end; - -procedure TRDX_LUGVENDataTableRules.SetCLAVE1Value(const aValue: Float); -begin - DataTable.Fields[idx_RDX_LUGVENCLAVE1].AsFloat := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetCLAVE2Value: Integer; -begin - result := DataTable.Fields[idx_RDX_LUGVENCLAVE2].AsInteger; -end; - -procedure TRDX_LUGVENDataTableRules.SetCLAVE2Value(const aValue: Integer); -begin - DataTable.Fields[idx_RDX_LUGVENCLAVE2].AsInteger := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetEANLUGValue: String; -begin - result := DataTable.Fields[idx_RDX_LUGVENEANLUG].AsString; -end; - -procedure TRDX_LUGVENDataTableRules.SetEANLUGValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LUGVENEANLUG].AsString := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetLUGVENValue: String; -begin - result := DataTable.Fields[idx_RDX_LUGVENLUGVEN].AsString; -end; - -procedure TRDX_LUGVENDataTableRules.SetLUGVENValue(const aValue: String); -begin - DataTable.Fields[idx_RDX_LUGVENLUGVEN].AsString := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetFECINIValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_LUGVENFECINI].AsDateTime; -end; - -procedure TRDX_LUGVENDataTableRules.SetFECINIValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_LUGVENFECINI].AsDateTime := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetFECFINValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_LUGVENFECFIN].AsDateTime; -end; - -procedure TRDX_LUGVENDataTableRules.SetFECFINValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_LUGVENFECFIN].AsDateTime := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetPERVENINIValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_LUGVENPERVENINI].AsDateTime; -end; - -procedure TRDX_LUGVENDataTableRules.SetPERVENINIValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_LUGVENPERVENINI].AsDateTime := aValue; -end; - -function TRDX_LUGVENDataTableRules.GetPERVENFINValue: DateTime; -begin - result := DataTable.Fields[idx_RDX_LUGVENPERVENFIN].AsDateTime; -end; - -procedure TRDX_LUGVENDataTableRules.SetPERVENFINValue(const aValue: DateTime); -begin - DataTable.Fields[idx_RDX_LUGVENPERVENFIN].AsDateTime := aValue; -end; - - -initialization - RegisterDataTableRules(RID_RDX_ARTVEN, TRDX_ARTVENDataTableRules); - RegisterDataTableRules(RID_RDX_CABVEN, TRDX_CABVENDataTableRules); - RegisterDataTableRules(RID_RDX_LUGVEN, TRDX_LUGVENDataTableRules); - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/schEDISalesServer_Intf.pas b/Varela/Varela/Source/Servidor/Services/EDI_Sales/schEDISalesServer_Intf.pas deleted file mode 100644 index 8c11867..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/schEDISalesServer_Intf.pas +++ /dev/null @@ -1,2329 +0,0 @@ -unit schEDISalesServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schEDISalesClient_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_RDX_ARTVENDelta = '{DBADAFB4-396F-45CF-969C-0E310CE772EF}'; - RID_RDX_CABVENDelta = '{EDFAD481-7C5C-49FE-9B6C-9F498CEC065D}'; - RID_RDX_LUGVENDelta = '{51ECAB19-FE1D-4141-82A8-F4078ADA6B11}'; - -type - { IRDX_ARTVENDelta } - IRDX_ARTVENDelta = interface(IRDX_ARTVEN) - ['{DBADAFB4-396F-45CF-969C-0E310CE772EF}'] - { Property getters and setters } - function GetOldCLAVE1Value : Float; - function GetOldCLAVE2Value : Float; - function GetOldCLAVE3Value : Float; - function GetOldEANARTValue : String; - function GetOldCODCOMValue : String; - function GetOldNUMVARValue : String; - function GetOldCODPROValue : String; - function GetOldDESARTCOValue : String; - function GetOldDESARTValue : String; - function GetOldNUMCONValue : String; - function GetOldNUMLISValue : String; - function GetOldCONESP1Value : String; - function GetOldCONESP2Value : String; - function GetOldCONESP3Value : String; - function GetOldVALVENValue : Float; - function GetOldPRENETCTValue : Float; - function GetOldPREBRUCTValue : Float; - function GetOldPREINFETValue : Float; - function GetOldPREINFFTValue : Float; - function GetOldPRECALCTValue : Float; - function GetOldPRENETCAValue : Float; - function GetOldPREBRUCAValue : Float; - function GetOldPREINFEAValue : Float; - function GetOldPREINFFAValue : Float; - function GetOldPRECALCAValue : Float; - function GetOldBAPRUN1Value : Float; - function GetOldUNIMED1Value : String; - function GetOldBAPRUN2Value : Float; - function GetOldUNIMED2Value : String; - function GetOldBAPRUN3Value : Float; - function GetOldUNIMED3Value : String; - function GetOldBAPRUN4Value : Float; - function GetOldUNIMED4Value : String; - function GetOldBAPRUN5Value : Float; - function GetOldUNIMED5Value : String; - function GetOldCANVENValue : Float; - function GetOldEXIPROValue : Float; - function GetOldDESEXIValue : Float; - function GetOldESPMEDCVValue : String; - function GetOldESPMEDEPValue : String; - function GetOldESPMEDDEValue : String; - function GetOldCANDEVValue : Float; - function GetOldEANVENValue : String; - function GetOldNOMVENValue : String; - function GetOldNUMTALONValue : String; - function GetOldCANVENNETValue : Float; - function GetOldUMEDVENNETValue : String; - function GetOldCANESPValue : Float; - function GetOldUMEDESPValue : String; - - { Properties } - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property OldCLAVE2 : Float read GetOldCLAVE2Value; - property OldCLAVE3 : Float read GetOldCLAVE3Value; - property OldEANART : String read GetOldEANARTValue; - property OldCODCOM : String read GetOldCODCOMValue; - property OldNUMVAR : String read GetOldNUMVARValue; - property OldCODPRO : String read GetOldCODPROValue; - property OldDESARTCO : String read GetOldDESARTCOValue; - property OldDESART : String read GetOldDESARTValue; - property OldNUMCON : String read GetOldNUMCONValue; - property OldNUMLIS : String read GetOldNUMLISValue; - property OldCONESP1 : String read GetOldCONESP1Value; - property OldCONESP2 : String read GetOldCONESP2Value; - property OldCONESP3 : String read GetOldCONESP3Value; - property OldVALVEN : Float read GetOldVALVENValue; - property OldPRENETCT : Float read GetOldPRENETCTValue; - property OldPREBRUCT : Float read GetOldPREBRUCTValue; - property OldPREINFET : Float read GetOldPREINFETValue; - property OldPREINFFT : Float read GetOldPREINFFTValue; - property OldPRECALCT : Float read GetOldPRECALCTValue; - property OldPRENETCA : Float read GetOldPRENETCAValue; - property OldPREBRUCA : Float read GetOldPREBRUCAValue; - property OldPREINFEA : Float read GetOldPREINFEAValue; - property OldPREINFFA : Float read GetOldPREINFFAValue; - property OldPRECALCA : Float read GetOldPRECALCAValue; - property OldBAPRUN1 : Float read GetOldBAPRUN1Value; - property OldUNIMED1 : String read GetOldUNIMED1Value; - property OldBAPRUN2 : Float read GetOldBAPRUN2Value; - property OldUNIMED2 : String read GetOldUNIMED2Value; - property OldBAPRUN3 : Float read GetOldBAPRUN3Value; - property OldUNIMED3 : String read GetOldUNIMED3Value; - property OldBAPRUN4 : Float read GetOldBAPRUN4Value; - property OldUNIMED4 : String read GetOldUNIMED4Value; - property OldBAPRUN5 : Float read GetOldBAPRUN5Value; - property OldUNIMED5 : String read GetOldUNIMED5Value; - property OldCANVEN : Float read GetOldCANVENValue; - property OldEXIPRO : Float read GetOldEXIPROValue; - property OldDESEXI : Float read GetOldDESEXIValue; - property OldESPMEDCV : String read GetOldESPMEDCVValue; - property OldESPMEDEP : String read GetOldESPMEDEPValue; - property OldESPMEDDE : String read GetOldESPMEDDEValue; - property OldCANDEV : Float read GetOldCANDEVValue; - property OldEANVEN : String read GetOldEANVENValue; - property OldNOMVEN : String read GetOldNOMVENValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property OldCANVENNET : Float read GetOldCANVENNETValue; - property OldUMEDVENNET : String read GetOldUMEDVENNETValue; - property OldCANESP : Float read GetOldCANESPValue; - property OldUMEDESP : String read GetOldUMEDESPValue; - end; - - { TRDX_ARTVENBusinessProcessorRules } - TRDX_ARTVENBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_ARTVEN, IRDX_ARTVENDelta) - private - protected - { Property getters and setters } - function GetCLAVE1Value: Float; virtual; - function GetOldCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Float; virtual; - function GetOldCLAVE2Value: Float; virtual; - procedure SetCLAVE2Value(const aValue: Float); virtual; - function GetCLAVE3Value: Float; virtual; - function GetOldCLAVE3Value: Float; virtual; - procedure SetCLAVE3Value(const aValue: Float); virtual; - function GetEANARTValue: String; virtual; - function GetOldEANARTValue: String; virtual; - procedure SetEANARTValue(const aValue: String); virtual; - function GetCODCOMValue: String; virtual; - function GetOldCODCOMValue: String; virtual; - procedure SetCODCOMValue(const aValue: String); virtual; - function GetNUMVARValue: String; virtual; - function GetOldNUMVARValue: String; virtual; - procedure SetNUMVARValue(const aValue: String); virtual; - function GetCODPROValue: String; virtual; - function GetOldCODPROValue: String; virtual; - procedure SetCODPROValue(const aValue: String); virtual; - function GetDESARTCOValue: String; virtual; - function GetOldDESARTCOValue: String; virtual; - procedure SetDESARTCOValue(const aValue: String); virtual; - function GetDESARTValue: String; virtual; - function GetOldDESARTValue: String; virtual; - procedure SetDESARTValue(const aValue: String); virtual; - function GetNUMCONValue: String; virtual; - function GetOldNUMCONValue: String; virtual; - procedure SetNUMCONValue(const aValue: String); virtual; - function GetNUMLISValue: String; virtual; - function GetOldNUMLISValue: String; virtual; - procedure SetNUMLISValue(const aValue: String); virtual; - function GetCONESP1Value: String; virtual; - function GetOldCONESP1Value: String; virtual; - procedure SetCONESP1Value(const aValue: String); virtual; - function GetCONESP2Value: String; virtual; - function GetOldCONESP2Value: String; virtual; - procedure SetCONESP2Value(const aValue: String); virtual; - function GetCONESP3Value: String; virtual; - function GetOldCONESP3Value: String; virtual; - procedure SetCONESP3Value(const aValue: String); virtual; - function GetVALVENValue: Float; virtual; - function GetOldVALVENValue: Float; virtual; - procedure SetVALVENValue(const aValue: Float); virtual; - function GetPRENETCTValue: Float; virtual; - function GetOldPRENETCTValue: Float; virtual; - procedure SetPRENETCTValue(const aValue: Float); virtual; - function GetPREBRUCTValue: Float; virtual; - function GetOldPREBRUCTValue: Float; virtual; - procedure SetPREBRUCTValue(const aValue: Float); virtual; - function GetPREINFETValue: Float; virtual; - function GetOldPREINFETValue: Float; virtual; - procedure SetPREINFETValue(const aValue: Float); virtual; - function GetPREINFFTValue: Float; virtual; - function GetOldPREINFFTValue: Float; virtual; - procedure SetPREINFFTValue(const aValue: Float); virtual; - function GetPRECALCTValue: Float; virtual; - function GetOldPRECALCTValue: Float; virtual; - procedure SetPRECALCTValue(const aValue: Float); virtual; - function GetPRENETCAValue: Float; virtual; - function GetOldPRENETCAValue: Float; virtual; - procedure SetPRENETCAValue(const aValue: Float); virtual; - function GetPREBRUCAValue: Float; virtual; - function GetOldPREBRUCAValue: Float; virtual; - procedure SetPREBRUCAValue(const aValue: Float); virtual; - function GetPREINFEAValue: Float; virtual; - function GetOldPREINFEAValue: Float; virtual; - procedure SetPREINFEAValue(const aValue: Float); virtual; - function GetPREINFFAValue: Float; virtual; - function GetOldPREINFFAValue: Float; virtual; - procedure SetPREINFFAValue(const aValue: Float); virtual; - function GetPRECALCAValue: Float; virtual; - function GetOldPRECALCAValue: Float; virtual; - procedure SetPRECALCAValue(const aValue: Float); virtual; - function GetBAPRUN1Value: Float; virtual; - function GetOldBAPRUN1Value: Float; virtual; - procedure SetBAPRUN1Value(const aValue: Float); virtual; - function GetUNIMED1Value: String; virtual; - function GetOldUNIMED1Value: String; virtual; - procedure SetUNIMED1Value(const aValue: String); virtual; - function GetBAPRUN2Value: Float; virtual; - function GetOldBAPRUN2Value: Float; virtual; - procedure SetBAPRUN2Value(const aValue: Float); virtual; - function GetUNIMED2Value: String; virtual; - function GetOldUNIMED2Value: String; virtual; - procedure SetUNIMED2Value(const aValue: String); virtual; - function GetBAPRUN3Value: Float; virtual; - function GetOldBAPRUN3Value: Float; virtual; - procedure SetBAPRUN3Value(const aValue: Float); virtual; - function GetUNIMED3Value: String; virtual; - function GetOldUNIMED3Value: String; virtual; - procedure SetUNIMED3Value(const aValue: String); virtual; - function GetBAPRUN4Value: Float; virtual; - function GetOldBAPRUN4Value: Float; virtual; - procedure SetBAPRUN4Value(const aValue: Float); virtual; - function GetUNIMED4Value: String; virtual; - function GetOldUNIMED4Value: String; virtual; - procedure SetUNIMED4Value(const aValue: String); virtual; - function GetBAPRUN5Value: Float; virtual; - function GetOldBAPRUN5Value: Float; virtual; - procedure SetBAPRUN5Value(const aValue: Float); virtual; - function GetUNIMED5Value: String; virtual; - function GetOldUNIMED5Value: String; virtual; - procedure SetUNIMED5Value(const aValue: String); virtual; - function GetCANVENValue: Float; virtual; - function GetOldCANVENValue: Float; virtual; - procedure SetCANVENValue(const aValue: Float); virtual; - function GetEXIPROValue: Float; virtual; - function GetOldEXIPROValue: Float; virtual; - procedure SetEXIPROValue(const aValue: Float); virtual; - function GetDESEXIValue: Float; virtual; - function GetOldDESEXIValue: Float; virtual; - procedure SetDESEXIValue(const aValue: Float); virtual; - function GetESPMEDCVValue: String; virtual; - function GetOldESPMEDCVValue: String; virtual; - procedure SetESPMEDCVValue(const aValue: String); virtual; - function GetESPMEDEPValue: String; virtual; - function GetOldESPMEDEPValue: String; virtual; - procedure SetESPMEDEPValue(const aValue: String); virtual; - function GetESPMEDDEValue: String; virtual; - function GetOldESPMEDDEValue: String; virtual; - procedure SetESPMEDDEValue(const aValue: String); virtual; - function GetCANDEVValue: Float; virtual; - function GetOldCANDEVValue: Float; virtual; - procedure SetCANDEVValue(const aValue: Float); virtual; - function GetEANVENValue: String; virtual; - function GetOldEANVENValue: String; virtual; - procedure SetEANVENValue(const aValue: String); virtual; - function GetNOMVENValue: String; virtual; - function GetOldNOMVENValue: String; virtual; - procedure SetNOMVENValue(const aValue: String); virtual; - function GetNUMTALONValue: String; virtual; - function GetOldNUMTALONValue: String; virtual; - procedure SetNUMTALONValue(const aValue: String); virtual; - function GetCANVENNETValue: Float; virtual; - function GetOldCANVENNETValue: Float; virtual; - procedure SetCANVENNETValue(const aValue: Float); virtual; - function GetUMEDVENNETValue: String; virtual; - function GetOldUMEDVENNETValue: String; virtual; - procedure SetUMEDVENNETValue(const aValue: String); virtual; - function GetCANESPValue: Float; virtual; - function GetOldCANESPValue: Float; virtual; - procedure SetCANESPValue(const aValue: Float); virtual; - function GetUMEDESPValue: String; virtual; - function GetOldUMEDESPValue: String; virtual; - procedure SetUMEDESPValue(const aValue: String); virtual; - - { Properties } - property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property CLAVE2 : Float read GetCLAVE2Value write SetCLAVE2Value; - property OldCLAVE2 : Float read GetOldCLAVE2Value; - property CLAVE3 : Float read GetCLAVE3Value write SetCLAVE3Value; - property OldCLAVE3 : Float read GetOldCLAVE3Value; - property EANART : String read GetEANARTValue write SetEANARTValue; - property OldEANART : String read GetOldEANARTValue; - property CODCOM : String read GetCODCOMValue write SetCODCOMValue; - property OldCODCOM : String read GetOldCODCOMValue; - property NUMVAR : String read GetNUMVARValue write SetNUMVARValue; - property OldNUMVAR : String read GetOldNUMVARValue; - property CODPRO : String read GetCODPROValue write SetCODPROValue; - property OldCODPRO : String read GetOldCODPROValue; - property DESARTCO : String read GetDESARTCOValue write SetDESARTCOValue; - property OldDESARTCO : String read GetOldDESARTCOValue; - property DESART : String read GetDESARTValue write SetDESARTValue; - property OldDESART : String read GetOldDESARTValue; - property NUMCON : String read GetNUMCONValue write SetNUMCONValue; - property OldNUMCON : String read GetOldNUMCONValue; - property NUMLIS : String read GetNUMLISValue write SetNUMLISValue; - property OldNUMLIS : String read GetOldNUMLISValue; - property CONESP1 : String read GetCONESP1Value write SetCONESP1Value; - property OldCONESP1 : String read GetOldCONESP1Value; - property CONESP2 : String read GetCONESP2Value write SetCONESP2Value; - property OldCONESP2 : String read GetOldCONESP2Value; - property CONESP3 : String read GetCONESP3Value write SetCONESP3Value; - property OldCONESP3 : String read GetOldCONESP3Value; - property VALVEN : Float read GetVALVENValue write SetVALVENValue; - property OldVALVEN : Float read GetOldVALVENValue; - property PRENETCT : Float read GetPRENETCTValue write SetPRENETCTValue; - property OldPRENETCT : Float read GetOldPRENETCTValue; - property PREBRUCT : Float read GetPREBRUCTValue write SetPREBRUCTValue; - property OldPREBRUCT : Float read GetOldPREBRUCTValue; - property PREINFET : Float read GetPREINFETValue write SetPREINFETValue; - property OldPREINFET : Float read GetOldPREINFETValue; - property PREINFFT : Float read GetPREINFFTValue write SetPREINFFTValue; - property OldPREINFFT : Float read GetOldPREINFFTValue; - property PRECALCT : Float read GetPRECALCTValue write SetPRECALCTValue; - property OldPRECALCT : Float read GetOldPRECALCTValue; - property PRENETCA : Float read GetPRENETCAValue write SetPRENETCAValue; - property OldPRENETCA : Float read GetOldPRENETCAValue; - property PREBRUCA : Float read GetPREBRUCAValue write SetPREBRUCAValue; - property OldPREBRUCA : Float read GetOldPREBRUCAValue; - property PREINFEA : Float read GetPREINFEAValue write SetPREINFEAValue; - property OldPREINFEA : Float read GetOldPREINFEAValue; - property PREINFFA : Float read GetPREINFFAValue write SetPREINFFAValue; - property OldPREINFFA : Float read GetOldPREINFFAValue; - property PRECALCA : Float read GetPRECALCAValue write SetPRECALCAValue; - property OldPRECALCA : Float read GetOldPRECALCAValue; - property BAPRUN1 : Float read GetBAPRUN1Value write SetBAPRUN1Value; - property OldBAPRUN1 : Float read GetOldBAPRUN1Value; - property UNIMED1 : String read GetUNIMED1Value write SetUNIMED1Value; - property OldUNIMED1 : String read GetOldUNIMED1Value; - property BAPRUN2 : Float read GetBAPRUN2Value write SetBAPRUN2Value; - property OldBAPRUN2 : Float read GetOldBAPRUN2Value; - property UNIMED2 : String read GetUNIMED2Value write SetUNIMED2Value; - property OldUNIMED2 : String read GetOldUNIMED2Value; - property BAPRUN3 : Float read GetBAPRUN3Value write SetBAPRUN3Value; - property OldBAPRUN3 : Float read GetOldBAPRUN3Value; - property UNIMED3 : String read GetUNIMED3Value write SetUNIMED3Value; - property OldUNIMED3 : String read GetOldUNIMED3Value; - property BAPRUN4 : Float read GetBAPRUN4Value write SetBAPRUN4Value; - property OldBAPRUN4 : Float read GetOldBAPRUN4Value; - property UNIMED4 : String read GetUNIMED4Value write SetUNIMED4Value; - property OldUNIMED4 : String read GetOldUNIMED4Value; - property BAPRUN5 : Float read GetBAPRUN5Value write SetBAPRUN5Value; - property OldBAPRUN5 : Float read GetOldBAPRUN5Value; - property UNIMED5 : String read GetUNIMED5Value write SetUNIMED5Value; - property OldUNIMED5 : String read GetOldUNIMED5Value; - property CANVEN : Float read GetCANVENValue write SetCANVENValue; - property OldCANVEN : Float read GetOldCANVENValue; - property EXIPRO : Float read GetEXIPROValue write SetEXIPROValue; - property OldEXIPRO : Float read GetOldEXIPROValue; - property DESEXI : Float read GetDESEXIValue write SetDESEXIValue; - property OldDESEXI : Float read GetOldDESEXIValue; - property ESPMEDCV : String read GetESPMEDCVValue write SetESPMEDCVValue; - property OldESPMEDCV : String read GetOldESPMEDCVValue; - property ESPMEDEP : String read GetESPMEDEPValue write SetESPMEDEPValue; - property OldESPMEDEP : String read GetOldESPMEDEPValue; - property ESPMEDDE : String read GetESPMEDDEValue write SetESPMEDDEValue; - property OldESPMEDDE : String read GetOldESPMEDDEValue; - property CANDEV : Float read GetCANDEVValue write SetCANDEVValue; - property OldCANDEV : Float read GetOldCANDEVValue; - property EANVEN : String read GetEANVENValue write SetEANVENValue; - property OldEANVEN : String read GetOldEANVENValue; - property NOMVEN : String read GetNOMVENValue write SetNOMVENValue; - property OldNOMVEN : String read GetOldNOMVENValue; - property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; - property OldNUMTALON : String read GetOldNUMTALONValue; - property CANVENNET : Float read GetCANVENNETValue write SetCANVENNETValue; - property OldCANVENNET : Float read GetOldCANVENNETValue; - property UMEDVENNET : String read GetUMEDVENNETValue write SetUMEDVENNETValue; - property OldUMEDVENNET : String read GetOldUMEDVENNETValue; - property CANESP : Float read GetCANESPValue write SetCANESPValue; - property OldCANESP : Float read GetOldCANESPValue; - property UMEDESP : String read GetUMEDESPValue write SetUMEDESPValue; - property OldUMEDESP : String read GetOldUMEDESPValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IRDX_CABVENDelta } - IRDX_CABVENDelta = interface(IRDX_CABVEN) - ['{EDFAD481-7C5C-49FE-9B6C-9F498CEC065D}'] - { Property getters and setters } - function GetOldCLAVE1Value : Float; - function GetOldNUMINFValue : String; - function GetOldFUNCIONValue : String; - function GetOldFECINIValue : DateTime; - function GetOldFECFINValue : DateTime; - function GetOldFECINFValue : DateTime; - function GetOldPERVENINIValue : DateTime; - function GetOldPERVENFINValue : DateTime; - function GetOldEANOFIValue : String; - function GetOldEANEMIValue : String; - function GetOldEANRECValue : String; - function GetOldEANVENValue : String; - function GetOldEANALMValue : String; - function GetOldEANREPValue : String; - function GetOldEANPROValue : String; - function GetOldEANADMSAValue : String; - function GetOldEANREPSRValue : String; - function GetOldADMVENSAValue : String; - function GetOldREPDEPSRValue : String; - function GetOldEMAILSAValue : String; - function GetOldNUMFAXSAValue : String; - function GetOldNUMTELSAValue : String; - function GetOldNUMTLXSAValue : String; - function GetOldX400SAValue : String; - function GetOldEMAILSRValue : String; - function GetOldNUMFAXSRValue : String; - function GetOldNUMTELSRValue : String; - function GetOldNUMTLXSRValue : String; - function GetOldX400SRValue : String; - function GetOldNUMPREValue : String; - function GetOldNUMINFSCValue : String; - function GetOldNUMCONValue : String; - function GetOldFECPREValue : DateTime; - function GetOldFECINFSCValue : DateTime; - function GetOldFECCONValue : DateTime; - function GetOldDIVPEDValue : String; - function GetOldDIVPREValue : String; - function GetOldDIVPAGValue : String; - function GetOldDIVPEDFValue : String; - function GetOldDIVPREFValue : String; - function GetOldDIVPAGFValue : String; - function GetOldTASCAMValue : Float; - function GetOldFECTASValue : DateTime; - - { Properties } - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property OldNUMINF : String read GetOldNUMINFValue; - property OldFUNCION : String read GetOldFUNCIONValue; - property OldFECINI : DateTime read GetOldFECINIValue; - property OldFECFIN : DateTime read GetOldFECFINValue; - property OldFECINF : DateTime read GetOldFECINFValue; - property OldPERVENINI : DateTime read GetOldPERVENINIValue; - property OldPERVENFIN : DateTime read GetOldPERVENFINValue; - property OldEANOFI : String read GetOldEANOFIValue; - property OldEANEMI : String read GetOldEANEMIValue; - property OldEANREC : String read GetOldEANRECValue; - property OldEANVEN : String read GetOldEANVENValue; - property OldEANALM : String read GetOldEANALMValue; - property OldEANREP : String read GetOldEANREPValue; - property OldEANPRO : String read GetOldEANPROValue; - property OldEANADMSA : String read GetOldEANADMSAValue; - property OldEANREPSR : String read GetOldEANREPSRValue; - property OldADMVENSA : String read GetOldADMVENSAValue; - property OldREPDEPSR : String read GetOldREPDEPSRValue; - property OldEMAILSA : String read GetOldEMAILSAValue; - property OldNUMFAXSA : String read GetOldNUMFAXSAValue; - property OldNUMTELSA : String read GetOldNUMTELSAValue; - property OldNUMTLXSA : String read GetOldNUMTLXSAValue; - property OldX400SA : String read GetOldX400SAValue; - property OldEMAILSR : String read GetOldEMAILSRValue; - property OldNUMFAXSR : String read GetOldNUMFAXSRValue; - property OldNUMTELSR : String read GetOldNUMTELSRValue; - property OldNUMTLXSR : String read GetOldNUMTLXSRValue; - property OldX400SR : String read GetOldX400SRValue; - property OldNUMPRE : String read GetOldNUMPREValue; - property OldNUMINFSC : String read GetOldNUMINFSCValue; - property OldNUMCON : String read GetOldNUMCONValue; - property OldFECPRE : DateTime read GetOldFECPREValue; - property OldFECINFSC : DateTime read GetOldFECINFSCValue; - property OldFECCON : DateTime read GetOldFECCONValue; - property OldDIVPED : String read GetOldDIVPEDValue; - property OldDIVPRE : String read GetOldDIVPREValue; - property OldDIVPAG : String read GetOldDIVPAGValue; - property OldDIVPEDF : String read GetOldDIVPEDFValue; - property OldDIVPREF : String read GetOldDIVPREFValue; - property OldDIVPAGF : String read GetOldDIVPAGFValue; - property OldTASCAM : Float read GetOldTASCAMValue; - property OldFECTAS : DateTime read GetOldFECTASValue; - end; - - { TRDX_CABVENBusinessProcessorRules } - TRDX_CABVENBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_CABVEN, IRDX_CABVENDelta) - private - protected - { Property getters and setters } - function GetCLAVE1Value: Float; virtual; - function GetOldCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetNUMINFValue: String; virtual; - function GetOldNUMINFValue: String; virtual; - procedure SetNUMINFValue(const aValue: String); virtual; - function GetFUNCIONValue: String; virtual; - function GetOldFUNCIONValue: String; virtual; - procedure SetFUNCIONValue(const aValue: String); virtual; - function GetFECINIValue: DateTime; virtual; - function GetOldFECINIValue: DateTime; virtual; - procedure SetFECINIValue(const aValue: DateTime); virtual; - function GetFECFINValue: DateTime; virtual; - function GetOldFECFINValue: DateTime; virtual; - procedure SetFECFINValue(const aValue: DateTime); virtual; - function GetFECINFValue: DateTime; virtual; - function GetOldFECINFValue: DateTime; virtual; - procedure SetFECINFValue(const aValue: DateTime); virtual; - function GetPERVENINIValue: DateTime; virtual; - function GetOldPERVENINIValue: DateTime; virtual; - procedure SetPERVENINIValue(const aValue: DateTime); virtual; - function GetPERVENFINValue: DateTime; virtual; - function GetOldPERVENFINValue: DateTime; virtual; - procedure SetPERVENFINValue(const aValue: DateTime); virtual; - function GetEANOFIValue: String; virtual; - function GetOldEANOFIValue: String; virtual; - procedure SetEANOFIValue(const aValue: String); virtual; - function GetEANEMIValue: String; virtual; - function GetOldEANEMIValue: String; virtual; - procedure SetEANEMIValue(const aValue: String); virtual; - function GetEANRECValue: String; virtual; - function GetOldEANRECValue: String; virtual; - procedure SetEANRECValue(const aValue: String); virtual; - function GetEANVENValue: String; virtual; - function GetOldEANVENValue: String; virtual; - procedure SetEANVENValue(const aValue: String); virtual; - function GetEANALMValue: String; virtual; - function GetOldEANALMValue: String; virtual; - procedure SetEANALMValue(const aValue: String); virtual; - function GetEANREPValue: String; virtual; - function GetOldEANREPValue: String; virtual; - procedure SetEANREPValue(const aValue: String); virtual; - function GetEANPROValue: String; virtual; - function GetOldEANPROValue: String; virtual; - procedure SetEANPROValue(const aValue: String); virtual; - function GetEANADMSAValue: String; virtual; - function GetOldEANADMSAValue: String; virtual; - procedure SetEANADMSAValue(const aValue: String); virtual; - function GetEANREPSRValue: String; virtual; - function GetOldEANREPSRValue: String; virtual; - procedure SetEANREPSRValue(const aValue: String); virtual; - function GetADMVENSAValue: String; virtual; - function GetOldADMVENSAValue: String; virtual; - procedure SetADMVENSAValue(const aValue: String); virtual; - function GetREPDEPSRValue: String; virtual; - function GetOldREPDEPSRValue: String; virtual; - procedure SetREPDEPSRValue(const aValue: String); virtual; - function GetEMAILSAValue: String; virtual; - function GetOldEMAILSAValue: String; virtual; - procedure SetEMAILSAValue(const aValue: String); virtual; - function GetNUMFAXSAValue: String; virtual; - function GetOldNUMFAXSAValue: String; virtual; - procedure SetNUMFAXSAValue(const aValue: String); virtual; - function GetNUMTELSAValue: String; virtual; - function GetOldNUMTELSAValue: String; virtual; - procedure SetNUMTELSAValue(const aValue: String); virtual; - function GetNUMTLXSAValue: String; virtual; - function GetOldNUMTLXSAValue: String; virtual; - procedure SetNUMTLXSAValue(const aValue: String); virtual; - function GetX400SAValue: String; virtual; - function GetOldX400SAValue: String; virtual; - procedure SetX400SAValue(const aValue: String); virtual; - function GetEMAILSRValue: String; virtual; - function GetOldEMAILSRValue: String; virtual; - procedure SetEMAILSRValue(const aValue: String); virtual; - function GetNUMFAXSRValue: String; virtual; - function GetOldNUMFAXSRValue: String; virtual; - procedure SetNUMFAXSRValue(const aValue: String); virtual; - function GetNUMTELSRValue: String; virtual; - function GetOldNUMTELSRValue: String; virtual; - procedure SetNUMTELSRValue(const aValue: String); virtual; - function GetNUMTLXSRValue: String; virtual; - function GetOldNUMTLXSRValue: String; virtual; - procedure SetNUMTLXSRValue(const aValue: String); virtual; - function GetX400SRValue: String; virtual; - function GetOldX400SRValue: String; virtual; - procedure SetX400SRValue(const aValue: String); virtual; - function GetNUMPREValue: String; virtual; - function GetOldNUMPREValue: String; virtual; - procedure SetNUMPREValue(const aValue: String); virtual; - function GetNUMINFSCValue: String; virtual; - function GetOldNUMINFSCValue: String; virtual; - procedure SetNUMINFSCValue(const aValue: String); virtual; - function GetNUMCONValue: String; virtual; - function GetOldNUMCONValue: String; virtual; - procedure SetNUMCONValue(const aValue: String); virtual; - function GetFECPREValue: DateTime; virtual; - function GetOldFECPREValue: DateTime; virtual; - procedure SetFECPREValue(const aValue: DateTime); virtual; - function GetFECINFSCValue: DateTime; virtual; - function GetOldFECINFSCValue: DateTime; virtual; - procedure SetFECINFSCValue(const aValue: DateTime); virtual; - function GetFECCONValue: DateTime; virtual; - function GetOldFECCONValue: DateTime; virtual; - procedure SetFECCONValue(const aValue: DateTime); virtual; - function GetDIVPEDValue: String; virtual; - function GetOldDIVPEDValue: String; virtual; - procedure SetDIVPEDValue(const aValue: String); virtual; - function GetDIVPREValue: String; virtual; - function GetOldDIVPREValue: String; virtual; - procedure SetDIVPREValue(const aValue: String); virtual; - function GetDIVPAGValue: String; virtual; - function GetOldDIVPAGValue: String; virtual; - procedure SetDIVPAGValue(const aValue: String); virtual; - function GetDIVPEDFValue: String; virtual; - function GetOldDIVPEDFValue: String; virtual; - procedure SetDIVPEDFValue(const aValue: String); virtual; - function GetDIVPREFValue: String; virtual; - function GetOldDIVPREFValue: String; virtual; - procedure SetDIVPREFValue(const aValue: String); virtual; - function GetDIVPAGFValue: String; virtual; - function GetOldDIVPAGFValue: String; virtual; - procedure SetDIVPAGFValue(const aValue: String); virtual; - function GetTASCAMValue: Float; virtual; - function GetOldTASCAMValue: Float; virtual; - procedure SetTASCAMValue(const aValue: Float); virtual; - function GetFECTASValue: DateTime; virtual; - function GetOldFECTASValue: DateTime; virtual; - procedure SetFECTASValue(const aValue: DateTime); virtual; - - { Properties } - property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property NUMINF : String read GetNUMINFValue write SetNUMINFValue; - property OldNUMINF : String read GetOldNUMINFValue; - property FUNCION : String read GetFUNCIONValue write SetFUNCIONValue; - property OldFUNCION : String read GetOldFUNCIONValue; - property FECINI : DateTime read GetFECINIValue write SetFECINIValue; - property OldFECINI : DateTime read GetOldFECINIValue; - property FECFIN : DateTime read GetFECFINValue write SetFECFINValue; - property OldFECFIN : DateTime read GetOldFECFINValue; - property FECINF : DateTime read GetFECINFValue write SetFECINFValue; - property OldFECINF : DateTime read GetOldFECINFValue; - property PERVENINI : DateTime read GetPERVENINIValue write SetPERVENINIValue; - property OldPERVENINI : DateTime read GetOldPERVENINIValue; - property PERVENFIN : DateTime read GetPERVENFINValue write SetPERVENFINValue; - property OldPERVENFIN : DateTime read GetOldPERVENFINValue; - property EANOFI : String read GetEANOFIValue write SetEANOFIValue; - property OldEANOFI : String read GetOldEANOFIValue; - property EANEMI : String read GetEANEMIValue write SetEANEMIValue; - property OldEANEMI : String read GetOldEANEMIValue; - property EANREC : String read GetEANRECValue write SetEANRECValue; - property OldEANREC : String read GetOldEANRECValue; - property EANVEN : String read GetEANVENValue write SetEANVENValue; - property OldEANVEN : String read GetOldEANVENValue; - property EANALM : String read GetEANALMValue write SetEANALMValue; - property OldEANALM : String read GetOldEANALMValue; - property EANREP : String read GetEANREPValue write SetEANREPValue; - property OldEANREP : String read GetOldEANREPValue; - property EANPRO : String read GetEANPROValue write SetEANPROValue; - property OldEANPRO : String read GetOldEANPROValue; - property EANADMSA : String read GetEANADMSAValue write SetEANADMSAValue; - property OldEANADMSA : String read GetOldEANADMSAValue; - property EANREPSR : String read GetEANREPSRValue write SetEANREPSRValue; - property OldEANREPSR : String read GetOldEANREPSRValue; - property ADMVENSA : String read GetADMVENSAValue write SetADMVENSAValue; - property OldADMVENSA : String read GetOldADMVENSAValue; - property REPDEPSR : String read GetREPDEPSRValue write SetREPDEPSRValue; - property OldREPDEPSR : String read GetOldREPDEPSRValue; - property EMAILSA : String read GetEMAILSAValue write SetEMAILSAValue; - property OldEMAILSA : String read GetOldEMAILSAValue; - property NUMFAXSA : String read GetNUMFAXSAValue write SetNUMFAXSAValue; - property OldNUMFAXSA : String read GetOldNUMFAXSAValue; - property NUMTELSA : String read GetNUMTELSAValue write SetNUMTELSAValue; - property OldNUMTELSA : String read GetOldNUMTELSAValue; - property NUMTLXSA : String read GetNUMTLXSAValue write SetNUMTLXSAValue; - property OldNUMTLXSA : String read GetOldNUMTLXSAValue; - property X400SA : String read GetX400SAValue write SetX400SAValue; - property OldX400SA : String read GetOldX400SAValue; - property EMAILSR : String read GetEMAILSRValue write SetEMAILSRValue; - property OldEMAILSR : String read GetOldEMAILSRValue; - property NUMFAXSR : String read GetNUMFAXSRValue write SetNUMFAXSRValue; - property OldNUMFAXSR : String read GetOldNUMFAXSRValue; - property NUMTELSR : String read GetNUMTELSRValue write SetNUMTELSRValue; - property OldNUMTELSR : String read GetOldNUMTELSRValue; - property NUMTLXSR : String read GetNUMTLXSRValue write SetNUMTLXSRValue; - property OldNUMTLXSR : String read GetOldNUMTLXSRValue; - property X400SR : String read GetX400SRValue write SetX400SRValue; - property OldX400SR : String read GetOldX400SRValue; - property NUMPRE : String read GetNUMPREValue write SetNUMPREValue; - property OldNUMPRE : String read GetOldNUMPREValue; - property NUMINFSC : String read GetNUMINFSCValue write SetNUMINFSCValue; - property OldNUMINFSC : String read GetOldNUMINFSCValue; - property NUMCON : String read GetNUMCONValue write SetNUMCONValue; - property OldNUMCON : String read GetOldNUMCONValue; - property FECPRE : DateTime read GetFECPREValue write SetFECPREValue; - property OldFECPRE : DateTime read GetOldFECPREValue; - property FECINFSC : DateTime read GetFECINFSCValue write SetFECINFSCValue; - property OldFECINFSC : DateTime read GetOldFECINFSCValue; - property FECCON : DateTime read GetFECCONValue write SetFECCONValue; - property OldFECCON : DateTime read GetOldFECCONValue; - property DIVPED : String read GetDIVPEDValue write SetDIVPEDValue; - property OldDIVPED : String read GetOldDIVPEDValue; - property DIVPRE : String read GetDIVPREValue write SetDIVPREValue; - property OldDIVPRE : String read GetOldDIVPREValue; - property DIVPAG : String read GetDIVPAGValue write SetDIVPAGValue; - property OldDIVPAG : String read GetOldDIVPAGValue; - property DIVPEDF : String read GetDIVPEDFValue write SetDIVPEDFValue; - property OldDIVPEDF : String read GetOldDIVPEDFValue; - property DIVPREF : String read GetDIVPREFValue write SetDIVPREFValue; - property OldDIVPREF : String read GetOldDIVPREFValue; - property DIVPAGF : String read GetDIVPAGFValue write SetDIVPAGFValue; - property OldDIVPAGF : String read GetOldDIVPAGFValue; - property TASCAM : Float read GetTASCAMValue write SetTASCAMValue; - property OldTASCAM : Float read GetOldTASCAMValue; - property FECTAS : DateTime read GetFECTASValue write SetFECTASValue; - property OldFECTAS : DateTime read GetOldFECTASValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IRDX_LUGVENDelta } - IRDX_LUGVENDelta = interface(IRDX_LUGVEN) - ['{51ECAB19-FE1D-4141-82A8-F4078ADA6B11}'] - { Property getters and setters } - function GetOldCLAVE1Value : Float; - function GetOldCLAVE2Value : Integer; - function GetOldEANLUGValue : String; - function GetOldLUGVENValue : String; - function GetOldFECINIValue : DateTime; - function GetOldFECFINValue : DateTime; - function GetOldPERVENINIValue : DateTime; - function GetOldPERVENFINValue : DateTime; - - { Properties } - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property OldEANLUG : String read GetOldEANLUGValue; - property OldLUGVEN : String read GetOldLUGVENValue; - property OldFECINI : DateTime read GetOldFECINIValue; - property OldFECFIN : DateTime read GetOldFECFINValue; - property OldPERVENINI : DateTime read GetOldPERVENINIValue; - property OldPERVENFIN : DateTime read GetOldPERVENFINValue; - end; - - { TRDX_LUGVENBusinessProcessorRules } - TRDX_LUGVENBusinessProcessorRules = class(TDABusinessProcessorRules, IRDX_LUGVEN, IRDX_LUGVENDelta) - private - protected - { Property getters and setters } - function GetCLAVE1Value: Float; virtual; - function GetOldCLAVE1Value: Float; virtual; - procedure SetCLAVE1Value(const aValue: Float); virtual; - function GetCLAVE2Value: Integer; virtual; - function GetOldCLAVE2Value: Integer; virtual; - procedure SetCLAVE2Value(const aValue: Integer); virtual; - function GetEANLUGValue: String; virtual; - function GetOldEANLUGValue: String; virtual; - procedure SetEANLUGValue(const aValue: String); virtual; - function GetLUGVENValue: String; virtual; - function GetOldLUGVENValue: String; virtual; - procedure SetLUGVENValue(const aValue: String); virtual; - function GetFECINIValue: DateTime; virtual; - function GetOldFECINIValue: DateTime; virtual; - procedure SetFECINIValue(const aValue: DateTime); virtual; - function GetFECFINValue: DateTime; virtual; - function GetOldFECFINValue: DateTime; virtual; - procedure SetFECFINValue(const aValue: DateTime); virtual; - function GetPERVENINIValue: DateTime; virtual; - function GetOldPERVENINIValue: DateTime; virtual; - procedure SetPERVENINIValue(const aValue: DateTime); virtual; - function GetPERVENFINValue: DateTime; virtual; - function GetOldPERVENFINValue: DateTime; virtual; - procedure SetPERVENFINValue(const aValue: DateTime); virtual; - - { Properties } - property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; - property OldCLAVE1 : Float read GetOldCLAVE1Value; - property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; - property OldCLAVE2 : Integer read GetOldCLAVE2Value; - property EANLUG : String read GetEANLUGValue write SetEANLUGValue; - property OldEANLUG : String read GetOldEANLUGValue; - property LUGVEN : String read GetLUGVENValue write SetLUGVENValue; - property OldLUGVEN : String read GetOldLUGVENValue; - property FECINI : DateTime read GetFECINIValue write SetFECINIValue; - property OldFECINI : DateTime read GetOldFECINIValue; - property FECFIN : DateTime read GetFECFINValue write SetFECFINValue; - property OldFECFIN : DateTime read GetOldFECFINValue; - property PERVENINI : DateTime read GetPERVENINIValue write SetPERVENINIValue; - property OldPERVENINI : DateTime read GetOldPERVENINIValue; - property PERVENFIN : DateTime read GetPERVENFINValue write SetPERVENFINValue; - property OldPERVENFIN : DateTime read GetOldPERVENFINValue; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers; - -{ TRDX_ARTVENBusinessProcessorRules } -constructor TRDX_ARTVENBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRDX_ARTVENBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE1]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCLAVE1]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE1] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCLAVE2Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE2]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCLAVE2Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCLAVE2]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCLAVE2Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE2] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCLAVE3Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE3]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCLAVE3Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCLAVE3]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCLAVE3Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCLAVE3] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetEANARTValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANART]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldEANARTValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENEANART]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetEANARTValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANART] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCODCOMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODCOM]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCODCOMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCODCOM]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCODCOMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODCOM] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetNUMVARValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMVAR]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldNUMVARValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMVAR]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetNUMVARValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMVAR] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCODPROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODPRO]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCODPROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCODPRO]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCODPROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCODPRO] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetDESARTCOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESARTCO]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldDESARTCOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENDESARTCO]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetDESARTCOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESARTCO] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetDESARTValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESART]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldDESARTValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENDESART]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetDESARTValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESART] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetNUMCONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMCON]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldNUMCONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMCON]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetNUMCONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMCON] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetNUMLISValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMLIS]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldNUMLISValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMLIS]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetNUMLISValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMLIS] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCONESP1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP1]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCONESP1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCONESP1]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCONESP1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP1] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCONESP2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP2]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCONESP2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCONESP2]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCONESP2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP2] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCONESP3Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP3]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCONESP3Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCONESP3]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCONESP3Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCONESP3] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetVALVENValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENVALVEN]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldVALVENValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENVALVEN]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetVALVENValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENVALVEN] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPRENETCTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCT]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPRENETCTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRENETCT]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPRENETCTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCT] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPREBRUCTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCT]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPREBRUCTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREBRUCT]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPREBRUCTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCT] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPREINFETValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFET]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFETValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFET]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFETValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFET] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPREINFFTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFT]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFFTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFFT]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFFTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFT] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPRECALCTValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCT]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPRECALCTValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRECALCT]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPRECALCTValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCT] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPRENETCAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCA]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPRENETCAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRENETCA]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPRENETCAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRENETCA] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPREBRUCAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCA]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPREBRUCAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREBRUCA]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPREBRUCAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREBRUCA] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPREINFEAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFEA]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFEAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFEA]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFEAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFEA] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPREINFFAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFA]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPREINFFAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPREINFFA]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPREINFFAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPREINFFA] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetPRECALCAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCA]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldPRECALCAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENPRECALCA]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetPRECALCAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENPRECALCA] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN1]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN1]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN1] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUNIMED1Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED1]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED1Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED1]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED1Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED1] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN2Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN2]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN2Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN2]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN2Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN2] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUNIMED2Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED2]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED2Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED2]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED2Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED2] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN3Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN3]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN3Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN3]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN3Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN3] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUNIMED3Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED3]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED3Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED3]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED3Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED3] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN4Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN4]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN4Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN4]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN4Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN4] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUNIMED4Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED4]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED4Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED4]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED4Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED4] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetBAPRUN5Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN5]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldBAPRUN5Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENBAPRUN5]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetBAPRUN5Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENBAPRUN5] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUNIMED5Value: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED5]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUNIMED5Value: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUNIMED5]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUNIMED5Value(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUNIMED5] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCANVENValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVEN]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCANVENValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANVEN]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCANVENValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVEN] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetEXIPROValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEXIPRO]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldEXIPROValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENEXIPRO]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetEXIPROValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEXIPRO] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetDESEXIValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESEXI]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldDESEXIValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENDESEXI]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetDESEXIValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENDESEXI] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetESPMEDCVValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDCV]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldESPMEDCVValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENESPMEDCV]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetESPMEDCVValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDCV] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetESPMEDEPValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDEP]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldESPMEDEPValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENESPMEDEP]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetESPMEDEPValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDEP] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetESPMEDDEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDDE]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldESPMEDDEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENESPMEDDE]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetESPMEDDEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENESPMEDDE] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCANDEVValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANDEV]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCANDEVValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANDEV]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCANDEVValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANDEV] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetEANVENValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANVEN]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldEANVENValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENEANVEN]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetEANVENValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENEANVEN] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetNOMVENValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNOMVEN]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldNOMVENValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNOMVEN]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetNOMVENValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNOMVEN] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMTALON]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldNUMTALONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENNUMTALON]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetNUMTALONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENNUMTALON] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCANVENNETValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVENNET]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCANVENNETValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANVENNET]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCANVENNETValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANVENNET] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUMEDVENNETValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDVENNET]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUMEDVENNETValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUMEDVENNET]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUMEDVENNETValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDVENNET] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetCANESPValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANESP]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldCANESPValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENCANESP]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetCANESPValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENCANESP] := aValue; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetUMEDESPValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDESP]; -end; - -function TRDX_ARTVENBusinessProcessorRules.GetOldUMEDESPValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_ARTVENUMEDESP]; -end; - -procedure TRDX_ARTVENBusinessProcessorRules.SetUMEDESPValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_ARTVENUMEDESP] := aValue; -end; - - -{ TRDX_CABVENBusinessProcessorRules } -constructor TRDX_CABVENBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRDX_CABVENBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRDX_CABVENBusinessProcessorRules.GetCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENCLAVE1]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENCLAVE1]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENCLAVE1] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINF]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMINFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMINF]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMINFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINF] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFUNCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFUNCION]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFUNCIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFUNCION]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFUNCIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFUNCION] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINI]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECINI]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECINIValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINI] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECFIN]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECFIN]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECFINValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECFIN] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECINFValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINF]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECINFValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECINF]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECINFValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINF] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetPERVENINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENINI]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldPERVENINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENPERVENINI]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetPERVENINIValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENINI] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetPERVENFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENFIN]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldPERVENFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENPERVENFIN]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetPERVENFINValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENPERVENFIN] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANOFIValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANOFI]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANOFIValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANOFI]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANOFIValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANOFI] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANEMIValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANEMI]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANEMIValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANEMI]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANEMIValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANEMI] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANRECValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREC]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANRECValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANREC]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANRECValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREC] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANVENValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANVEN]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANVENValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANVEN]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANVENValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANVEN] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANALMValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANALM]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANALMValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANALM]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANALMValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANALM] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANREPValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREP]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANREPValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANREP]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANREPValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREP] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANPROValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANPRO]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANPROValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANPRO]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANPROValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANPRO] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANADMSAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANADMSA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANADMSAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANADMSA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANADMSAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANADMSA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEANREPSRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREPSR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEANREPSRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEANREPSR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEANREPSRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEANREPSR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetADMVENSAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENADMVENSA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldADMVENSAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENADMVENSA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetADMVENSAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENADMVENSA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetREPDEPSRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENREPDEPSR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldREPDEPSRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENREPDEPSR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetREPDEPSRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENREPDEPSR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEMAILSAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEMAILSAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEMAILSA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEMAILSAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMFAXSAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMFAXSAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMFAXSA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMFAXSAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMTELSAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMTELSAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTELSA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMTELSAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMTLXSAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMTLXSAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTLXSA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMTLXSAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetX400SAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SA]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldX400SAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENX400SA]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetX400SAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SA] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetEMAILSRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldEMAILSRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENEMAILSR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetEMAILSRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENEMAILSR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMFAXSRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMFAXSRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMFAXSR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMFAXSRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMFAXSR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMTELSRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMTELSRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTELSR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMTELSRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTELSR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMTLXSRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMTLXSRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMTLXSR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMTLXSRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMTLXSR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetX400SRValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SR]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldX400SRValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENX400SR]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetX400SRValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENX400SR] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMPREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMPRE]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMPREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMPRE]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMPREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMPRE] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMINFSCValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINFSC]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMINFSCValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMINFSC]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMINFSCValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMINFSC] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetNUMCONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMCON]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldNUMCONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENNUMCON]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetNUMCONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENNUMCON] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECPREValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECPRE]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECPREValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECPRE]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECPREValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECPRE] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECINFSCValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINFSC]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECINFSCValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECINFSC]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECINFSCValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECINFSC] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECCONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECCON]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECCONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECCON]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECCONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECCON] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetDIVPEDValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPED]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldDIVPEDValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPED]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetDIVPEDValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPED] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetDIVPREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPRE]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldDIVPREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPRE]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetDIVPREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPRE] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetDIVPAGValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAG]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldDIVPAGValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPAG]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetDIVPAGValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAG] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetDIVPEDFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPEDF]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldDIVPEDFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPEDF]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetDIVPEDFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPEDF] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetDIVPREFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPREF]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldDIVPREFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPREF]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetDIVPREFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPREF] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetDIVPAGFValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAGF]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldDIVPAGFValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENDIVPAGF]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetDIVPAGFValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENDIVPAGF] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetTASCAMValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENTASCAM]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldTASCAMValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENTASCAM]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetTASCAMValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENTASCAM] := aValue; -end; - -function TRDX_CABVENBusinessProcessorRules.GetFECTASValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECTAS]; -end; - -function TRDX_CABVENBusinessProcessorRules.GetOldFECTASValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_CABVENFECTAS]; -end; - -procedure TRDX_CABVENBusinessProcessorRules.SetFECTASValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_CABVENFECTAS] := aValue; -end; - - -{ TRDX_LUGVENBusinessProcessorRules } -constructor TRDX_LUGVENBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TRDX_LUGVENBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE1]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldCLAVE1Value: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENCLAVE1]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE1] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE2]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldCLAVE2Value: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENCLAVE2]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENCLAVE2] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetEANLUGValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENEANLUG]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldEANLUGValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENEANLUG]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetEANLUGValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENEANLUG] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetLUGVENValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENLUGVEN]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldLUGVENValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENLUGVEN]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetLUGVENValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENLUGVEN] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetFECINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECINI]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldFECINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENFECINI]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetFECINIValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECINI] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetFECFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECFIN]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldFECFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENFECFIN]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetFECFINValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENFECFIN] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetPERVENINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENINI]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldPERVENINIValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENPERVENINI]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetPERVENINIValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENINI] := aValue; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetPERVENFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENFIN]; -end; - -function TRDX_LUGVENBusinessProcessorRules.GetOldPERVENFINValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_RDX_LUGVENPERVENFIN]; -end; - -procedure TRDX_LUGVENBusinessProcessorRules.SetPERVENFINValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_RDX_LUGVENPERVENFIN] := aValue; -end; - - -initialization - RegisterBusinessProcessorRules(RID_RDX_ARTVENDelta, TRDX_ARTVENBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RDX_CABVENDelta, TRDX_CABVENBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_RDX_LUGVENDelta, TRDX_LUGVENBusinessProcessorRules); - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uBizEDISales.pas b/Varela/Varela/Source/Servidor/Services/EDI_Sales/uBizEDISales.pas deleted file mode 100644 index a6e6cdc..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uBizEDISales.pas +++ /dev/null @@ -1,476 +0,0 @@ -unit uBizEDISales; - -interface - -uses - uDAInterfaces, uDADataTable, schEDISalesClient_Intf, Classes, - DB, Controls; - -const - BIZ_SLSRPT_CAB = 'BizSlsRptCab'; - BIZ_SLSRPT_LUG = 'BizSlsRptLug'; - BIZ_SLSRPT_ART = 'BizSlsRptArt'; - -type - IBizEDISls_Cab = interface(IRDX_CABVEN) - ['{E7A9D79B-C28F-48BC-A592-EF8C28CD8DFF}'] - end; - - IBizEDISls_Lug = interface(IRDX_LUGVEN) - ['{C3438D84-14A3-4501-879D-C24AE7847DBB}'] - end; - - IBizEDISls_Art = interface(IRDX_ARTVEN) - ['{8A2A5662-D75D-469A-95EB-03C02D2CD1F7}'] - end; - - TBizEDISls_Cab = class(TRDX_CABVENDataTableRules, IBizEDISls_Cab) - protected - procedure SetCLAVE1Value(const aValue: Float); override; - procedure SetNUMINFValue(const aValue: String); override; - procedure SetFUNCIONValue(const aValue: String); override; - - procedure SetEANOFIValue(const aValue: String); override; - procedure SetEANEMIValue(const aValue: String); override; - procedure SetEANRECValue(const aValue: String); override; - procedure SetEANVENValue(const aValue: String); override; - procedure SetEANALMValue(const aValue: String); override; - procedure SetEANREPValue(const aValue: String); override; - procedure SetEANPROValue(const aValue: String); override; - procedure SetEANADMSAValue(const aValue: String); override; - procedure SetEANREPSRValue(const aValue: String); override; - procedure SetADMVENSAValue(const aValue: String); override; - procedure SetREPDEPSRValue(const aValue: String); override; - procedure SetEMAILSAValue(const aValue: String); override; - procedure SetNUMFAXSAValue(const aValue: String); override; - procedure SetNUMTELSAValue(const aValue: String); override; - procedure SetNUMTLXSAValue(const aValue: String); override; - procedure SetX400SAValue(const aValue: String); override; - procedure SetEMAILSRValue(const aValue: String); override; - procedure SetNUMFAXSRValue(const aValue: String); override; - procedure SetNUMTELSRValue(const aValue: String); override; - procedure SetNUMTLXSRValue(const aValue: String); override; - procedure SetX400SRValue(const aValue: String); override; - procedure SetNUMPREValue(const aValue: String); override; - procedure SetNUMINFSCValue(const aValue: String); override; - procedure SetNUMCONValue(const aValue: String); override; - procedure SetDIVPEDValue(const aValue: String); override; - procedure SetDIVPREValue(const aValue: String); override; - procedure SetDIVPAGValue(const aValue: String); override; - procedure SetDIVPEDFValue(const aValue: String); override; - procedure SetDIVPREFValue(const aValue: String); override; - procedure SetDIVPAGFValue(const aValue: String); override; - - procedure SetTASCAMValue(const aValue: Float); override; - - procedure SetFECINIValue(const aValue: DateTime); override; - procedure SetFECFINValue(const aValue: DateTime); override; - procedure SetFECINFValue(const aValue: DateTime); override; - procedure SetFECPREValue(const aValue: DateTime); override; - procedure SetFECINFSCValue(const aValue: DateTime); override; - procedure SetFECCONValue(const aValue: DateTime); override; - procedure SetFECTASValue(const aValue: DateTime); override; - procedure SetPERVENINIValue(const aValue: DateTime); override; - procedure SetPERVENFINValue(const aValue: DateTime); override; - end; - - - TBizEDISls_Lug = class(TRDX_LUGVENDataTableRules, IBizEDISls_Lug) - protected - procedure SetFECINIValue(const aValue: DateTime); override; - procedure SetFECFINValue(const aValue: DateTime); override; - procedure SetPERVENINIValue(const aValue: DateTime); override; - procedure SetPERVENFINValue(const aValue: DateTime); override; - end; - - TBizEDISls_Art = class(TRDX_ARTVENDataTableRules, IBizEDISls_Art) - protected - end; - -implementation - -{ TBizEDISls_Cab } - -uses - Variants; - -procedure TBizEDISls_Cab.SetADMVENSAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENADMVENSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENADMVENSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetCLAVE1Value(const aValue: Float); -begin - inherited; -end; - -procedure TBizEDISls_Cab.SetDIVPAGFValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENDIVPAGF].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENDIVPAGF].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetDIVPAGValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENDIVPAG].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENDIVPAG].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetDIVPEDFValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENDIVPEDF].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENDIVPEDF].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetDIVPEDValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENDIVPED].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENDIVPED].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetDIVPREFValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENDIVPREF].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENDIVPREF].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetDIVPREValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENDIVPRE].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENDIVPRE].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANADMSAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANADMSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANADMSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANALMValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANALM].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANALM].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANEMIValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANEMI].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANEMI].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANOFIValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANOFI].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANOFI].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANPROValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANPRO].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANPRO].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANRECValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANREC].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANREC].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANREPSRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANREPSR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANREPSR].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANREPValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANREP].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANREP].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEANVENValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEANVEN].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEANVEN].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEMAILSAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEMAILSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEMAILSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetEMAILSRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENEMAILSR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENEMAILSR].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetFECCONValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECCON].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECCON].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFECFINValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECFIN].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECFIN].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFECINFSCValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECINFSC].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECINFSC].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFECINFValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECINF].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECINF].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFECINIValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECINI].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECINI].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFECPREValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECPRE].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECPRE].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFECTASValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENFECTAS].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFECTAS].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetFUNCIONValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENFUNCION].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENFUNCION].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMCONValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMCON].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMCON].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMFAXSAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMFAXSRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMFAXSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMINFSCValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMINFSC].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMINFSC].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMINFValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMINF].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMINF].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMPREValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMPRE].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMPRE].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMTELSAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMTELSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMTELSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMTELSRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMTELSR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMTELSR].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMTLXSAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMTLXSA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMTLXSA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetNUMTLXSRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENNUMTLXSR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENNUMTLXSR].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetPERVENFINValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENPERVENFIN].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENPERVENFIN].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetPERVENINIValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_CABVENPERVENINI].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENPERVENINI].AsDateTime := aValue; -end; - -procedure TBizEDISls_Cab.SetREPDEPSRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENREPDEPSR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENREPDEPSR].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetTASCAMValue(const aValue: Float); -begin - inherited; -end; - -procedure TBizEDISls_Cab.SetX400SAValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENX400SA].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENX400SA].AsString := aValue; -end; - -procedure TBizEDISls_Cab.SetX400SRValue(const aValue: String); -begin - if Length(aValue) = 0 then - DataTable.Fields[idx_RDX_CABVENX400SR].AsVariant := NULL - else - DataTable.Fields[idx_RDX_CABVENX400SR].AsString := aValue; -end; - -{ TBizEDISls_Lug } - -procedure TBizEDISls_Lug.SetFECFINValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_LUGVENFECFIN].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LUGVENFECFIN].AsDateTime := aValue; -end; - -procedure TBizEDISls_Lug.SetFECINIValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_LUGVENFECINI].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LUGVENFECINI].AsDateTime := aValue; -end; - -procedure TBizEDISls_Lug.SetPERVENFINValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_LUGVENPERVENFIN].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LUGVENPERVENFIN].AsDateTime := aValue; -end; - -procedure TBizEDISls_Lug.SetPERVENINIValue(const aValue: DateTime); -begin - if aValue = 0 then - DataTable.Fields[idx_RDX_LUGVENPERVENINI].AsVariant := NULL - else - DataTable.Fields[idx_RDX_LUGVENPERVENINI].AsDateTime := aValue; -end; - -initialization - RegisterDataTableRules(BIZ_SLSRPT_CAB, TBizEDISls_Cab); - RegisterDataTableRules(BIZ_SLSRPT_LUG, TBizEDISls_Lug); - RegisterDataTableRules(BIZ_SLSRPT_ART, TBizEDISls_Art); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.ddp b/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.dfm b/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.dfm deleted file mode 100644 index 571803f..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.dfm +++ /dev/null @@ -1,2699 +0,0 @@ -object dmEDISales: TdmEDISales - OldCreateOrder = False - Height = 184 - Width = 379 - object schEDISales: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_ARTVEN' - SQL = - 'SELECT '#10' CLAVE1, CLAVE2, CLAVE3, EANART, CODCOM, NUMVAR, CODP' + - 'RO, '#10' DESARTCO, DESART, NUMCON, NUMLIS, CONESP1, CONESP2, '#10' ' + - ' CONESP3, VALVEN, PRENETCT, PREBRUCT, PREINFET, PREINFFT, '#10' ' + - 'PRECALCT, PRENETCA, PREBRUCA, PREINFEA, PREINFFA, PRECALCA, '#10' ' + - ' BAPRUN1, UNIMED1, BAPRUN2, UNIMED2, BAPRUN3, UNIMED3, '#10' BAPR' + - 'UN4, UNIMED4, BAPRUN5, UNIMED5, CANVEN, EXIPRO, '#10' DESEXI, ESP' + - 'MEDCV, ESPMEDEP, ESPMEDDE, CANDEV, EANVEN, '#10' NOMVEN, NUMTALON' + - ', CANVENNET, UMEDVENNET, CANESP, UMEDESP'#10' FROM'#10' RDX_ARTVEN' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'CLAVE2' - TableField = 'CLAVE2' - end - item - DatasetField = 'CLAVE3' - TableField = 'CLAVE3' - end - item - DatasetField = 'EANART' - TableField = 'EANART' - end - item - DatasetField = 'CODCOM' - TableField = 'CODCOM' - end - item - DatasetField = 'NUMVAR' - TableField = 'NUMVAR' - end - item - DatasetField = 'CODPRO' - TableField = 'CODPRO' - end - item - DatasetField = 'DESARTCO' - TableField = 'DESARTCO' - end - item - DatasetField = 'DESART' - TableField = 'DESART' - end - item - DatasetField = 'NUMCON' - TableField = 'NUMCON' - end - item - DatasetField = 'NUMLIS' - TableField = 'NUMLIS' - end - item - DatasetField = 'CONESP1' - TableField = 'CONESP1' - end - item - DatasetField = 'CONESP2' - TableField = 'CONESP2' - end - item - DatasetField = 'CONESP3' - TableField = 'CONESP3' - end - item - DatasetField = 'VALVEN' - TableField = 'VALVEN' - end - item - DatasetField = 'PRENETCT' - TableField = 'PRENETCT' - end - item - DatasetField = 'PREBRUCT' - TableField = 'PREBRUCT' - end - item - DatasetField = 'PREINFET' - TableField = 'PREINFET' - end - item - DatasetField = 'PREINFFT' - TableField = 'PREINFFT' - end - item - DatasetField = 'PRECALCT' - TableField = 'PRECALCT' - end - item - DatasetField = 'PRENETCA' - TableField = 'PRENETCA' - end - item - DatasetField = 'PREBRUCA' - TableField = 'PREBRUCA' - end - item - DatasetField = 'PREINFEA' - TableField = 'PREINFEA' - end - item - DatasetField = 'PREINFFA' - TableField = 'PREINFFA' - end - item - DatasetField = 'PRECALCA' - TableField = 'PRECALCA' - end - item - DatasetField = 'BAPRUN1' - TableField = 'BAPRUN1' - end - item - DatasetField = 'UNIMED1' - TableField = 'UNIMED1' - end - item - DatasetField = 'BAPRUN2' - TableField = 'BAPRUN2' - end - item - DatasetField = 'UNIMED2' - TableField = 'UNIMED2' - end - item - DatasetField = 'BAPRUN3' - TableField = 'BAPRUN3' - end - item - DatasetField = 'UNIMED3' - TableField = 'UNIMED3' - end - item - DatasetField = 'BAPRUN4' - TableField = 'BAPRUN4' - end - item - DatasetField = 'UNIMED4' - TableField = 'UNIMED4' - end - item - DatasetField = 'BAPRUN5' - TableField = 'BAPRUN5' - end - item - DatasetField = 'UNIMED5' - TableField = 'UNIMED5' - end - item - DatasetField = 'CANVEN' - TableField = 'CANVEN' - end - item - DatasetField = 'EXIPRO' - TableField = 'EXIPRO' - end - item - DatasetField = 'DESEXI' - TableField = 'DESEXI' - end - item - DatasetField = 'ESPMEDCV' - TableField = 'ESPMEDCV' - end - item - DatasetField = 'ESPMEDEP' - TableField = 'ESPMEDEP' - end - item - DatasetField = 'ESPMEDDE' - TableField = 'ESPMEDDE' - end - item - DatasetField = 'CANDEV' - TableField = 'CANDEV' - end - item - DatasetField = 'EANVEN' - TableField = 'EANVEN' - end - item - DatasetField = 'NOMVEN' - TableField = 'NOMVEN' - end - item - DatasetField = 'NUMTALON' - TableField = 'NUMTALON' - end - item - DatasetField = 'CANVENNET' - TableField = 'CANVENNET' - end - item - DatasetField = 'UMEDVENNET' - TableField = 'UMEDVENNET' - end - item - DatasetField = 'CANESP' - TableField = 'CANESP' - end - item - DatasetField = 'UMEDESP' - TableField = 'UMEDESP' - end> - end> - Name = 'RDX_ARTVEN' - Fields = < - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE2' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE3' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANART' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODCOM' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMVAR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODPRO' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESARTCO' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESART' - DataType = datString - Size = 70 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMCON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMLIS' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONESP1' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONESP2' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONESP3' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VALVEN' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRENETCT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PREBRUCT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PREINFET' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PREINFFT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRECALCT' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRENETCA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PREBRUCA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PREINFEA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PREINFFA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PRECALCA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BAPRUN1' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UNIMED1' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BAPRUN2' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UNIMED2' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BAPRUN3' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UNIMED3' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BAPRUN4' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UNIMED4' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BAPRUN5' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UNIMED5' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANVEN' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EXIPRO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESEXI' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESPMEDCV' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESPMEDEP' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ESPMEDDE' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANDEV' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANVEN' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NOMVEN' - DataType = datString - Size = 70 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANVENNET' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UMEDVENNET' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANESP' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'UMEDESP' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_CABVEN' - SQL = - 'SELECT '#10' CLAVE1, NUMINF, FUNCION, FECINI, FECFIN, FECINF, PER' + - 'VENINI, PERVENFIN,'#10' EANOFI, EANEMI, EANREC, EANVEN, EANALM, E' + - 'ANREP, EANPRO, '#10' EANADMSA, EANREPSR, ADMVENSA, REPDEPSR, EMAI' + - 'LSA, NUMFAXSA, '#10' NUMTELSA, NUMTLXSA, X400SA, EMAILSR, NUMFAXS' + - 'R, NUMTELSR, '#10' NUMTLXSR, X400SR, NUMPRE, NUMINFSC, NUMCON, FE' + - 'CPRE, '#10' FECINFSC, FECCON, DIVPED, DIVPRE, DIVPAG, DIVPEDF, '#10' ' + - ' DIVPREF, DIVPAGF, TASCAM, FECTAS, FECHA_CARGA'#10' FROM'#10' RDX_' + - 'CABVEN' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'NUMINF' - TableField = 'NUMINF' - end - item - DatasetField = 'FUNCION' - TableField = 'FUNCION' - end - item - DatasetField = 'FECINI' - TableField = 'FECINI' - end - item - DatasetField = 'FECFIN' - TableField = 'FECFIN' - end - item - DatasetField = 'FECINF' - TableField = 'FECINF' - end - item - DatasetField = 'EANOFI' - TableField = 'EANOFI' - end - item - DatasetField = 'EANEMI' - TableField = 'EANEMI' - end - item - DatasetField = 'EANREC' - TableField = 'EANREC' - end - item - DatasetField = 'EANVEN' - TableField = 'EANVEN' - end - item - DatasetField = 'EANALM' - TableField = 'EANALM' - end - item - DatasetField = 'EANREP' - TableField = 'EANREP' - end - item - DatasetField = 'EANPRO' - TableField = 'EANPRO' - end - item - DatasetField = 'EANADMSA' - TableField = 'EANADMSA' - end - item - DatasetField = 'EANREPSR' - TableField = 'EANREPSR' - end - item - DatasetField = 'ADMVENSA' - TableField = 'ADMVENSA' - end - item - DatasetField = 'REPDEPSR' - TableField = 'REPDEPSR' - end - item - DatasetField = 'EMAILSA' - TableField = 'EMAILSA' - end - item - DatasetField = 'NUMFAXSA' - TableField = 'NUMFAXSA' - end - item - DatasetField = 'NUMTELSA' - TableField = 'NUMTELSA' - end - item - DatasetField = 'NUMTLXSA' - TableField = 'NUMTLXSA' - end - item - DatasetField = 'X400SA' - TableField = 'X400SA' - end - item - DatasetField = 'EMAILSR' - TableField = 'EMAILSR' - end - item - DatasetField = 'NUMFAXSR' - TableField = 'NUMFAXSR' - end - item - DatasetField = 'NUMTELSR' - TableField = 'NUMTELSR' - end - item - DatasetField = 'NUMTLXSR' - TableField = 'NUMTLXSR' - end - item - DatasetField = 'X400SR' - TableField = 'X400SR' - end - item - DatasetField = 'NUMPRE' - TableField = 'NUMPRE' - end - item - DatasetField = 'NUMINFSC' - TableField = 'NUMINFSC' - end - item - DatasetField = 'NUMCON' - TableField = 'NUMCON' - end - item - DatasetField = 'FECPRE' - TableField = 'FECPRE' - end - item - DatasetField = 'FECINFSC' - TableField = 'FECINFSC' - end - item - DatasetField = 'FECCON' - TableField = 'FECCON' - end - item - DatasetField = 'DIVPED' - TableField = 'DIVPED' - end - item - DatasetField = 'DIVPRE' - TableField = 'DIVPRE' - end - item - DatasetField = 'DIVPAG' - TableField = 'DIVPAG' - end - item - DatasetField = 'DIVPEDF' - TableField = 'DIVPEDF' - end - item - DatasetField = 'DIVPREF' - TableField = 'DIVPREF' - end - item - DatasetField = 'DIVPAGF' - TableField = 'DIVPAGF' - end - item - DatasetField = 'TASCAM' - TableField = 'TASCAM' - end - item - DatasetField = 'FECTAS' - TableField = 'FECTAS' - end - item - DatasetField = 'PERVENINI' - TableField = 'PERVENINI' - end - item - DatasetField = 'PERVENFIN' - TableField = 'PERVENFIN' - end - item - DatasetField = 'FECHA_CARGA' - TableField = 'FECHA_CARGA' - end> - end> - Name = 'RDX_CABVEN' - Fields = < - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FUNCION' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECINI' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECFIN' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECINF' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PERVENINI' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PERVENFIN' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANOFI' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANEMI' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANREC' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANVEN' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANALM' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANREP' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANPRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANADMSA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANREPSR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ADMVENSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REPDEPSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EMAILSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMFAXSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTELSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTLXSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'X400SA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EMAILSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMFAXSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTELSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMTLXSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'X400SR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMPRE' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMINFSC' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NUMCON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECPRE' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECINFSC' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECCON' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIVPED' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIVPRE' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIVPAG' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIVPEDF' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIVPREF' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DIVPAGF' - DataType = datString - Size = 3 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TASCAM' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECTAS' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_CARGA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = <> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LUGVEN' - SQL = - 'SELECT '#10' CLAVE1, CLAVE2, EANLUG, LUGVEN, FECINI, FECFIN, PERV' + - 'ENINI, '#10' PERVENFIN'#10' FROM'#10' RDX_LUGVEN' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CLAVE1' - TableField = 'CLAVE1' - end - item - DatasetField = 'CLAVE2' - TableField = 'CLAVE2' - end - item - DatasetField = 'EANLUG' - TableField = 'EANLUG' - end - item - DatasetField = 'LUGVEN' - TableField = 'LUGVEN' - end - item - DatasetField = 'FECINI' - TableField = 'FECINI' - end - item - DatasetField = 'FECFIN' - TableField = 'FECFIN' - end - item - DatasetField = 'PERVENINI' - TableField = 'PERVENINI' - end - item - DatasetField = 'PERVENFIN' - TableField = 'PERVENFIN' - end> - end> - Name = 'RDX_LUGVEN' - Fields = < - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CLAVE2' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EANLUG' - DataType = datString - Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'LUGVEN' - DataType = datString - Size = 70 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECINI' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECFIN' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PERVENINI' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PERVENFIN' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'RETURN_VALUE' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptResult - end> - Statements = < - item - Connection = 'GFT_VARELA' - SQL = 'RDX_P_CARGAR_VENTASEDI' - StatementType = stStoredProcedure - ColumnMappings = <> - end> - Name = 'RDX_P_CARGAR_VENTASEDI' - end - item - Params = < - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMINF' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FUNCION' - DataType = datString - Size = 10 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECINI' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECFIN' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECINF' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANOFI' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANEMI' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANREC' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANVEN' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANALM' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANREP' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANPRO' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANADMSA' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANREPSR' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ADMVENSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'REPDEPSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EMAILSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMFAXSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMTELSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMTLXSA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'X400SA' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EMAILSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMFAXSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMTELSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMTLXSR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'X400SR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMPRE' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMINFSC' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMCON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECPRE' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECINFSC' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECCON' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIVPED' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIVPRE' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIVPAG' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIVPEDF' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIVPREF' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DIVPAGF' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'TASCAM' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECTAS' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PERVENINI' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PERVENFIN' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECHA_CARGA' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_CABVEN' - SQL = - 'INSERT'#10' INTO RDX_CABVEN'#10' (CLAVE1, NUMINF, FUNCION, FECINI, F' + - 'ECFIN, FECINF, EANOFI, '#10' EANEMI, EANREC, EANVEN, EANALM, EAN' + - 'REP, EANPRO, EANADMSA, '#10' EANREPSR, ADMVENSA, REPDEPSR, EMAIL' + - 'SA, NUMFAXSA, NUMTELSA, '#10' NUMTLXSA, X400SA, EMAILSR, NUMFAXS' + - 'R, NUMTELSR, NUMTLXSR, '#10' X400SR, NUMPRE, NUMINFSC, NUMCON, F' + - 'ECPRE, FECINFSC, '#10' FECCON, DIVPED, DIVPRE, DIVPAG, DIVPEDF, ' + - 'DIVPREF, DIVPAGF, '#10' TASCAM, FECTAS, PERVENINI, PERVENFIN, FE' + - 'CHA_CARGA)'#10' VALUES'#10' (:CLAVE1, :NUMINF, :FUNCION, :FECINI, :F' + - 'ECFIN, :FECINF, '#10' :EANOFI, :EANEMI, :EANREC, :EANVEN, :EANAL' + - 'M, :EANREP, '#10' :EANPRO, :EANADMSA, :EANREPSR, :ADMVENSA, :REP' + - 'DEPSR, '#10' :EMAILSA, :NUMFAXSA, :NUMTELSA, :NUMTLXSA, :X400SA,' + - ' '#10' :EMAILSR, :NUMFAXSR, :NUMTELSR, :NUMTLXSR, :X400SR, '#10' ' + - ' :NUMPRE, :NUMINFSC, :NUMCON, :FECPRE, :FECINFSC, :FECCON, '#10' ' + - ' :DIVPED, :DIVPRE, :DIVPAG, :DIVPEDF, :DIVPREF, :DIVPAGF, '#10' ' + - ':TASCAM, :FECTAS, :PERVENINI, :PERVENFIN, CURRENT_TIMESTAMP)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_RDX_CABVEN' - end - item - Params = < - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE2' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANLUG' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'LUGVEN' - DataType = datString - Size = 70 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECINI' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'FECFIN' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PERVENINI' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PERVENFIN' - DataType = datDateTime - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_LUGVEN' - SQL = - 'INSERT'#10' INTO RDX_LUGVEN'#10' (CLAVE1, CLAVE2, EANLUG, LUGVEN, FE' + - 'CINI, FECFIN, PERVENINI, '#10' PERVENFIN)'#10' VALUES'#10' (:CLAVE1,' + - ' :CLAVE2, :EANLUG, :LUGVEN, :FECINI, :FECFIN, '#10' :PERVENINI, ' + - ':PERVENFIN)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_RDX_LUGVEN' - end - item - Params = < - item - Name = 'CLAVE1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE2' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CLAVE3' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANART' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODCOM' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMVAR' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CODPRO' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DESARTCO' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DESART' - DataType = datString - Size = 70 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMCON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMLIS' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CONESP1' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CONESP2' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CONESP3' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VALVEN' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PRENETCT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PREBRUCT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PREINFET' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PREINFFT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PRECALCT' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PRENETCA' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PREBRUCA' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PREINFEA' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PREINFFA' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'PRECALCA' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'BAPRUN1' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UNIMED1' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'BAPRUN2' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UNIMED2' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'BAPRUN3' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UNIMED3' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'BAPRUN4' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UNIMED4' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'BAPRUN5' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UNIMED5' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CANVEN' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EXIPRO' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DESEXI' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ESPMEDCV' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ESPMEDEP' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ESPMEDDE' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CANDEV' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'EANVEN' - DataType = datString - Size = 17 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NOMVEN' - DataType = datString - Size = 70 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NUMTALON' - DataType = datString - Size = 35 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CANVENNET' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UMEDVENNET' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'CANESP' - DataType = datFloat - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'UMEDESP' - DataType = datString - Size = 3 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_ARTVEN' - SQL = - 'INSERT'#10' INTO RDX_ARTVEN'#10' (CLAVE1, CLAVE2, CLAVE3, EANART, CO' + - 'DCOM, NUMVAR, CODPRO, '#10' DESARTCO, DESART, NUMCON, NUMLIS, CO' + - 'NESP1, CONESP2, '#10' CONESP3, VALVEN, PRENETCT, PREBRUCT, PREIN' + - 'FET, PREINFFT, '#10' PRECALCT, PRENETCA, PREBRUCA, PREINFEA, PRE' + - 'INFFA, PRECALCA, '#10' BAPRUN1, UNIMED1, BAPRUN2, UNIMED2, BAPRU' + - 'N3, UNIMED3, '#10' BAPRUN4, UNIMED4, BAPRUN5, UNIMED5, CANVEN, E' + - 'XIPRO, '#10' DESEXI, ESPMEDCV, ESPMEDEP, ESPMEDDE, CANDEV, EANVE' + - 'N, '#10' NOMVEN, NUMTALON, CANVENNET, UMEDVENNET, CANESP, UMEDES' + - 'P)'#10' VALUES'#10' (:CLAVE1, :CLAVE2, :CLAVE3, :EANART, :CODCOM, :N' + - 'UMVAR, '#10' :CODPRO, :DESARTCO, :DESART, :NUMCON, :NUMLIS, :CON' + - 'ESP1, '#10' :CONESP2, :CONESP3, :VALVEN, :PRENETCT, :PREBRUCT, '#10 + - ' :PREINFET, :PREINFFT, :PRECALCT, :PRENETCA, :PREBRUCA, '#10' ' + - ' :PREINFEA, :PREINFFA, :PRECALCA, :BAPRUN1, :UNIMED1, '#10' :BA' + - 'PRUN2, :UNIMED2, :BAPRUN3, :UNIMED3, :BAPRUN4, :UNIMED4, '#10' :' + - 'BAPRUN5, :UNIMED5, :CANVEN, :EXIPRO, :DESEXI, :ESPMEDCV, '#10' :' + - 'ESPMEDEP, :ESPMEDDE, :CANDEV, :EANVEN, :NOMVEN, :NUMTALON, '#10' ' + - ' :CANVENNET, :UMEDVENNET, :CANESP, :UMEDESP)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_RDX_ARTVEN' - end> - RelationShips = < - item - Name = 'FK_RDX_LUGVEN_RDX_CABVEN' - MasterDatasetName = 'RDX_CABVEN' - MasterFields = 'CLAVE1' - DetailDatasetName = 'RDX_LUGVEN' - DetailFields = 'CLAVE1' - RelationshipType = rtForeignKey - end - item - Name = 'FK_RDX_ARTVEN_RDX_LUGVEN' - MasterDatasetName = 'RDX_LUGVEN' - MasterFields = 'CLAVE1;CLAVE2' - DetailDatasetName = 'RDX_ARTVEN' - DetailFields = 'CLAVE1;CLAVE2' - RelationshipType = rtForeignKey - end> - UpdateRules = < - item - Name = 'Insert RDX_CABVEN' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'RDX_CABVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Insert RDX_LUGVEN' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'RDX_LUGVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Insert RDX_ARTVEN' - DoUpdate = False - DoInsert = True - DoDelete = False - DatasetName = 'RDX_ARTVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Update RDX_CABVEN' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'RDX_CABVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Update RDX_LUGVEN' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'RDX_LUGVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Update RDX_ARTVEN' - DoUpdate = True - DoInsert = False - DoDelete = False - DatasetName = 'RDX_ARTVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RDX_ARTVEN' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'RDX_ARTVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RDX_LUGVEN' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'RDX_LUGVEN' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RDX_CABVEN' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'RDX_CABVEN' - FailureBehavior = fbRaiseException - end> - Version = 0 - Left = 48 - Top = 16 - end -end diff --git a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.pas b/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.pas deleted file mode 100644 index 1208366..0000000 --- a/Varela/Varela/Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.pas +++ /dev/null @@ -1,483 +0,0 @@ -unit uDataModuleEDI_Sales; - -interface - -uses - SysUtils, Classes, uDAScriptingProvider, uDADataTable, uDACDSDataTable, - uBizEDISales, uDAEngine, uDAADODriver, uDABINAdapter, - uDABusinessProcessor, uDAClasses, EDI_Reader, JvComponentBase; - -type - TdmEDISales = class(TDataModule) - schEDISales: TDASchema; - private - function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean; - function InsertarLugares(const ALugData : TEDIFileData; var NumRegNuevos : integer) : Boolean; - function InsertarArticulos(const AArtData : TEDIFileData; var NumRegNuevos : integer) : Boolean; - function GenerarVentasEDI: Boolean; - procedure InsertarLog(OK : Boolean; Error_msg : String = ''); - public - function CargarFicheros(const FicheroCAB: String; const FicheroLUG: String; - const FicheroART: String; var NumRegNuevos: Integer ): Boolean; - end; - -var - dmEDISales: TdmEDISales; - -implementation - -uses - EDI_Sales_Impl, Controls, Forms, uDataTableUtils, EDI_SLSRPT, uDAInterfaces, - Dialogs, schEDISalesClient_Intf, uDataModuleServer, Variants, EDI_Utils, - VARELA_Intf, EDI_Log_Impl, DB; - -{$R *.dfm} - -{ TdmEDISales } - -function TdmEDISales.CargarFicheros(const FicheroCAB: String; const FicheroLUG: String; - const FicheroART: String; var NumRegNuevos: Integer ): Boolean; -var - Cab_Reader : TCABVEN_Reader; - Lug_Reader : TLUGVEN_Reader; - Art_Reader : TARTVEN_Reader; - - NumRegNuevosCab : Integer; - NumRegNuevosLug : Integer; - NumRegNuevosArt : Integer; -begin - Result := True; - - Cab_Reader := TCABVEN_Reader.Create; - try - Cab_Reader.Filename := FicheroCAB; - Cab_Reader.ReadFile; - Result := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab); - finally - FreeAndNIL(Cab_Reader); - end; - - if Result then - begin - Lug_Reader := TLUGVEN_Reader.Create; - try - Lug_Reader.Filename := FicheroLUG; - Lug_Reader.ReadFile; - Result := InsertarLugares (Lug_Reader.FileData, NumRegNuevosLug); - finally - FreeAndNIL(Lug_Reader); - end; - - if Result then - begin - Art_Reader := TARTVEN_Reader.Create; - try - Art_Reader.Filename := FicheroART; - Art_Reader.ReadFile; - Result := InsertarArticulos(Art_Reader.FileData, NumRegNuevosArt); - finally - FreeAndNil(Art_Reader); - end; - end; - end; - - if Result then - begin - NumRegNuevos := NumRegNuevosArt; - Result := GenerarVentasEDI; - end; -end; - -function TdmEDISales.GenerarVentasEDI: Boolean; -var - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - ACommand := schEDISales.NewCommand(AConnection, 'RDX_P_CARGAR_VENTASEDI'); - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (GenerarVentasEDI)'); - end - end; -end; - -function TdmEDISales.InsertarArticulos(const AArtData: TEDIFileData; - var NumRegNuevos : integer): Boolean; -var - i : integer; - Registro : PARTVEN; - AuxStr : String; - AuxInt : Integer; - AuxNum : Double; - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - NumRegNuevos := 0; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - - for i := 0 to AArtData.Count - 1 do - begin - Registro := AArtData[i]; - - if not Registro.REGISTRO_OK then - Continue; - - ACommand := schEDISales.NewCommand(AConnection, 'Insert_RDX_ARTVEN'); - with ACommand do - begin - ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1)); - ParamByName('CLAVE2').AsFloat := StrToInt(Trim(Registro.CLAVE2)); - ParamByName('CLAVE3').AsFloat := StrToInt(Trim(Registro.CLAVE3)); - - ParamByName('EANART').AsString := Trim(Registro.EANART); - ParamByName('CODCOM').AsString := Trim(Registro.CODCOM); - ParamByName('NUMVAR').AsString := Trim(Registro.NUMVAR); - ParamByName('CODPRO').AsString := Trim(Registro.CODPRO); - ParamByName('DESARTCO').AsString := Trim(Registro.DESARTCO); - ParamByName('DESART').AsString := Trim(Registro.DESART); - ParamByName('NUMCON').AsString := Trim(Registro.NUMCON); - ParamByName('NUMLIS').AsString := Trim(Registro.NUMLIS); - ParamByName('CONESP1').AsString := Trim(Registro.CONESP1); - ParamByName('CONESP2').AsString := Trim(Registro.CONESP2); - ParamByName('CONESP3').AsString := Trim(Registro.CONESP3); - - ParamByName('VALVEN').AsVariant := Null; - AuxStr := Trim(Registro.VALVEN); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('VALVEN').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PRENETCT').AsVariant := Null; - AuxStr := Trim(Registro.PRENETCT); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PRENETCT').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PREBRUCT').AsVariant := Null; - AuxStr := Trim(Registro.PREBRUCT); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PREBRUCT').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PREINFET').AsVariant := Null; - AuxStr := Trim(Registro.PREINFET); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PREINFET').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PREINFFT').AsVariant := Null; - AuxStr := Trim(Registro.PREINFFT); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PREINFFT').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PRECALCT').AsVariant := Null; - AuxStr := Trim(Registro.PRECALCT); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PRECALCT').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PRENETCA').AsVariant := Null; - AuxStr := Trim(Registro.PRENETCA); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PRENETCA').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PREBRUCA').AsVariant := Null; - AuxStr := Trim(Registro.PREBRUCA); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PREBRUCA').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PREINFEA').AsVariant := Null; - AuxStr := Trim(Registro.PREINFEA); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PREINFEA').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PREINFFA').AsVariant := Null; - AuxStr := Trim(Registro.PREINFFA); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PREINFFA').AsFloat := AuxNum/1000; //N(15,3) - - ParamByName('PRECALCA').AsVariant := Null; - AuxStr := Trim(Registro.PRECALCA); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('PRECALCA').AsFloat := AuxNum/1000; //N(15,3) - - - ParamByName('BAPRUN1').AsVariant := Null; - AuxStr := Trim(Registro.BAPRUN1); - if TryStrToInt (AuxStr, AuxInt) then - ParamByName('BAPRUN1').AsInteger := AuxInt; - ParamByName('UNIMED1').AsString := Trim(Registro.UNIMED1); - - ParamByName('BAPRUN2').AsVariant := Null; - AuxStr := Trim(Registro.BAPRUN2); - if TryStrToInt (AuxStr, AuxInt) then - ParamByName('BAPRUN2').AsInteger := AuxInt; - ParamByName('UNIMED2').AsString := Trim(Registro.UNIMED2); - - ParamByName('BAPRUN3').AsVariant := Null; - AuxStr := Trim(Registro.BAPRUN3); - if TryStrToInt (AuxStr, AuxInt) then - ParamByName('BAPRUN3').AsInteger := AuxInt; - ParamByName('UNIMED3').AsString := Trim(Registro.UNIMED3); - - ParamByName('BAPRUN4').AsVariant := Null; - AuxStr := Trim(Registro.BAPRUN4); - if TryStrToInt (AuxStr, AuxInt) then - ParamByName('BAPRUN4').AsInteger := AuxInt; - ParamByName('UNIMED4').AsString := Trim(Registro.UNIMED4); - - ParamByName('BAPRUN5').AsVariant := Null; - AuxStr := Trim(Registro.BAPRUN5); - if TryStrToInt (AuxStr, AuxInt) then - ParamByName('BAPRUN5').AsInteger := AuxInt; - ParamByName('UNIMED5').AsString := Trim(Registro.UNIMED5); - - ParamByName('CANVEN').AsVariant := Null; - AuxStr := Trim(Registro.CANVEN); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('CANVEN').AsFloat := AuxNum/1000; // N(15,3) - - ParamByName('EXIPRO').AsVariant := Null; - AuxStr := Trim(Registro.EXIPRO); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('EXIPRO').AsFloat := AuxNum/1000; // N(15,3) - - ParamByName('DESEXI').AsVariant := Null; - AuxStr := Trim(Registro.DESEXI); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('DESEXI').AsFloat := AuxNum/1000; // N(15,3) - - ParamByName('ESPMEDCV').AsString := Trim(Registro.ESPMEDCV); - ParamByName('ESPMEDEP').AsString := Trim(Registro.ESPMEDEP); - ParamByName('ESPMEDDE').AsString := Trim(Registro.ESPMEDDE); - - ParamByName('CANDEV').AsVariant := Null; - AuxStr := Trim(Registro.CANDEV); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('CANDEV').AsFloat := AuxNum/1000; // N(15,3) - - ParamByName('EANVEN').AsString := Trim(Registro.EANVEN); - ParamByName('NOMVEN').AsString := Trim(Registro.NOMVEN); - ParamByName('NUMTALON').AsString := Trim(Registro.NUMTALON); - - ParamByName('CANVENNET').AsVariant := Null; - AuxStr := Trim(Registro.CANVENNET); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('CANVENNET').AsFloat := AuxNum/1000; // N(15,3) - ParamByName('UMEDVENNET').AsString := Trim(Registro.UMEDVENNET); - - ParamByName('CANESP').AsVariant := Null; - AuxStr := Trim(Registro.CANESP); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('CANESP').AsFloat := AuxNum/1000; // N(15,3) - ParamByName('UMEDESP').AsString := Trim(Registro.UMEDESP); - end; - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - NumRegNuevos := NumRegNuevos + 1; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (InsertarArticulos SLS)'); - end - end; - end; //for -end; - -function TdmEDISales.InsertarCabecera(const ACabData: TEDIFileData; - var NumRegNuevos : integer): Boolean; -var - i : integer; - Registro : PCABVEN; - AuxStr : String; - AuxNum : Double; - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - NumRegNuevos := 0; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - - for i := 0 to ACabData.Count - 1 do - begin - Registro := ACabData[i]; - - if not Registro.REGISTRO_OK then - Continue; - - ACommand := schEDISales.NewCommand(AConnection, 'Insert_RDX_CABVEN'); - with ACommand do - begin - ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1)); - ParamByName('NUMINF').AsString := Trim(Registro.NUMINF); - ParamByName('FUNCION').AsString := Trim(Registro.FUNCION); - - ParamByName('FECINI').AsDateTime := EDIDateToDateF(Trim(Registro.FECINI)); - ParamByName('FECFIN').AsDateTime := EDIDateToDateF(Trim(Registro.FECFIN)); - ParamByName('FECINF').AsDateTime := EDIDateToDateF(Trim(Registro.FECINF)); - - ParamByName('PERVENINI').AsVariant := Null; - ParamByName('PERVENFIN').AsVariant := Null; - if Length(Trim(Registro.PERVEN)) = 16 then - begin - ParamByName('PERVENINI').AsDateTime := EDIDateToDateF(Copy(Trim(Registro.PERVEN), 0, 8)); - ParamByName('PERVENFIN').AsDateTime := EDIDateToDateF(Copy(Trim(Registro.PERVEN), 9, 8)); - end; - - ParamByName('EANOFI').AsString := Trim(Registro.EANOFI); - ParamByName('EANEMI').AsString := Trim(Registro.EANEMI); - ParamByName('EANREC').AsString := Trim(Registro.EANREC); - ParamByName('EANVEN').AsString := Trim(Registro.EANVEN); - ParamByName('EANALM').AsString := Trim(Registro.EANALM); - ParamByName('EANREP').AsString := Trim(Registro.EANREP); - ParamByName('EANPRO').AsString := Trim(Registro.EANPRO); - ParamByName('EANADMSA').AsString := Trim(Registro.EANADMSA); - ParamByName('EANREPSR').AsString := Trim(Registro.EANREPSR); - ParamByName('ADMVENSA').AsString := Trim(Registro.ADMVENSA); - ParamByName('REPDEPSR').AsString := Trim(Registro.REPDEPSR); - - ParamByName('EMAILSA').AsString := Trim(Registro.EMAILSA); - ParamByName('NUMFAXSA').AsString := Trim(Registro.NUMFAXSA); - ParamByName('NUMTELSA').AsString := Trim(Registro.NUMTELSA); - ParamByName('NUMTLXSA').AsString := Trim(Registro.NUMTLXSA); - ParamByName('X400SA').AsString := Trim(Registro.X400SA); - - ParamByName('EMAILSR').AsString := Trim(Registro.EMAILSR); - ParamByName('NUMFAXSR').AsString := Trim(Registro.NUMFAXSR); - ParamByName('NUMTELSR').AsString := Trim(Registro.NUMTELSR); - ParamByName('NUMTLXSR').AsString := Trim(Registro.NUMTLXSR); - ParamByName('X400SR').AsString := Trim(Registro.X400SR); - - ParamByName('NUMPRE').AsString := Trim(Registro.NUMPRE); - ParamByName('NUMINFSC').AsString := Trim(Registro.NUMINFSC); - ParamByName('NUMCON').AsString := Trim(Registro.NUMCON); - - ParamByName('FECPRE').AsDateTime := EDIDateToDateF(Trim(Registro.FECPRE)); - ParamByName('FECINFSC').AsDateTime := EDIDateToDateF(Trim(Registro.FECINFSC)); - ParamByName('FECCON').AsDateTime := EDIDateToDateF(Trim(Registro.FECCON)); - - ParamByName('DIVPED').AsString := Trim(Registro.DIVPED); - ParamByName('DIVPRE').AsString := Trim(Registro.DIVPRE); - ParamByName('DIVPAG').AsString := Trim(Registro.DIVPAG); - ParamByName('DIVPEDF').AsString := Trim(Registro.DIVPEDF); - ParamByName('DIVPREF').AsString := Trim(Registro.DIVPREF); - ParamByName('DIVPAGF').AsString := Trim(Registro.DIVPAGF); - - ParamByName('TASCAM').AsVariant := Null; - AuxStr := Trim(Registro.TASCAM); - if TryStrToFloat (AuxStr, AuxNum) then - ParamByName('TASCAM').AsFloat := AuxNum/1000; // N(15,3) - - ParamByName('FECTAS').AsDateTime := EDIDateToDateF(Trim(Registro.FECTAS)); - end; // with - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - NumRegNuevos := NumRegNuevos + 1; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + ' (InsertarCabecera SLS)'); - end - end; - - end; //for -end; - - -procedure TdmEDISales.InsertarLog(OK: Boolean; Error_msg: String); -var - LogService : IEDI_Log; -begin - LogService := EDI_Log_Impl.TEDI_Log.Create(Self); - try - LogService.InsertarLog(Now, 'SLSRPT', OK, Error_msg); - finally - LogService := nil; - end; -end; - -function TdmEDISales.InsertarLugares(const ALugData: TEDIFileData; - var NumRegNuevos : integer): Boolean; -var - i : integer; - Registro : PLUGVEN; - ACommand: IDASQLCommand; - AConnection : IDAConnection; -begin - Result := False; - NumRegNuevos := 0; - AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); - - for i := 0 to ALugData.Count - 1 do - begin - Registro := ALugData[i]; - - if not Registro.REGISTRO_OK then - Continue; - - ACommand := schEDISales.NewCommand(AConnection, 'Insert_RDX_LUGVEN'); - with ACommand do - begin - ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1)); - ParamByName('CLAVE2').AsInteger := StrToInt(Trim(Registro.CLAVE2)); - ParamByName('EANLUG').AsString := Trim(Registro.EANLUG); - ParamByName('LUGVEN').AsString := Trim(Registro.LUGVEN); - - ParamByName('FECINI').AsDateTime := EDIDateToDateF(Trim(Registro.FECINI)); - ParamByName('FECFIN').AsDateTime := EDIDateToDateF(Trim(Registro.FECFIN)); - - ParamByName('PERVENINI').AsVariant := Null; - ParamByName('PERVENFIN').AsVariant := Null; - if Length(Trim(Registro.PERVEN)) >= 8 then - begin - ParamByName('PERVENINI').AsDateTime := EDIDateToDateF(Copy(Trim(Registro.PERVEN), 0, 8)); - if Length(Trim(Registro.PERVEN)) = 16 then - ParamByName('PERVENFIN').AsDateTime := EDIDateToDateF(Copy(Trim(Registro.PERVEN), 9, 8)) - end - end; // with - - AConnection.BeginTransaction; - try - ACommand.Execute; - AConnection.CommitTransaction; - NumRegNuevos := NumRegNuevos + 1; - Result := True; - except - on E : Exception do - begin - AConnection.RollbackTransaction; - if Pos('PRIMARY KEY', E.Message) = 0 then - InsertarLog(False, e.Message + '(InsertarLugares SLS)'); - end - end; - end; //for -end; - - -initialization - dmEDISales := TdmEDISales.Create(nil); - -finalization - FreeAndNil(dmEDISales); - -end. - diff --git a/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.ddp b/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.dfm b/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.dfm deleted file mode 100644 index a3e035b..0000000 --- a/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.dfm +++ /dev/null @@ -1,99 +0,0 @@ -object srvLogin: TsrvLogin - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schLogin - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 220 - Width = 339 - object schLogin: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = < - item - Name = 'USERID' - DataType = datString - BlobType = dabtUnknown - Value = 'zeus' - ParamType = daptInput - end - item - Name = 'PASSWORD' - DataType = datString - BlobType = dabtUnknown - Value = 'zvg' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'USUARIOS' - SQL = - 'SELECT'#10' CLAVE AS ID, PASSW AS PASS'#10' FROM'#10' USUARIOS'#10' WH' + - 'ERE CLAVE = :USERID AND'#10' PASSW = :PASSWORD;' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'CLAVE' - SQLOrigin = 'ID' - end - item - DatasetField = 'PASS' - TableField = 'PASSW' - SQLOrigin = 'PASS' - end> - end> - Name = 'GetLoginInfo' - Fields = < - item - Name = 'ID' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PASS' - DataType = datString - Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = <> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 56 - Top = 24 - end - object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True - Left = 56 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.pas b/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.pas deleted file mode 100644 index 901804b..0000000 --- a/Varela/Varela/Source/Servidor/Services/Login/srvLogin_Impl.pas +++ /dev/null @@ -1,135 +0,0 @@ -unit srvLogin_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, uDAInterfaces, DARemoteService_Impl, DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDADataTable, uDABINAdapter, - uDADataStreamer; - -type - { TsrvLogin } - TsrvLogin = class(TDARemoteService, IsrvLogin) - DABINAdapter: TDABINAdapter; - schLogin: TDASchema; - private - protected - function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean; - procedure Logout; - function UpdateUsers(const UsersDelta: Binary): Binary; - function SetUserPassword(const UserID: String; const NewPassword: String): Boolean; - function Ping : Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer, Dialogs, IB, Variants; - - -procedure Create_srvLogin(out anInstance : IUnknown); -begin - anInstance := TsrvLogin.Create(NIL); -end; - -{ TsrvLogin } - -function TsrvLogin.Login(const UserID, Password: String; - out LoginInfo: TLoginInfo): Boolean; -var - dsUserInfo : IDADataset; -begin - LoginInfo := NIL; - Result := False; - - dsUserInfo := schLogin.NewDataset(Connection, 'GetLoginInfo'); - with dsUserInfo do - begin - ParamByName('UserID').AsString := UserID; - ParamByName('Password').AsString := Password; - Open; - end; - - //dsUserInfo := schLogin.NewDataset(Connection, 'GetLoginInfo', ['UserID', 'Password'], [UserID, Password]); - - if not (dsUserInfo.IsEmpty) then - try - Result := TRUE; - - // Packages the user information that will be sent back to the client. - // This information will be used in many places client-side and when issing service calls - // so it's good practice to cache it there - LoginInfo := TLoginInfo.Create; - FillROStruct(dsUserInfo, LoginInfo); - LoginInfo.UserID := UserID; - LoginInfo.SessionID := GUIDToString(Session.SessionID); - //LoginInfo.Roles.Add(VarToStr(dsUserInfo.FieldValues[3])); - - // Collects the privileges for this user as a comma separated list of strings -{ privs := Schema.NewDataset(Connection, ds_GetUserPrivileges, ['UserInc'], [LoginInfo.UserInc]); - - while not privs.EOF do begin - LoginInfo.Privileges := LoginInfo.Privileges+Trim(VarToStr(privs.FieldValues[0]))+','; - privs.Next; - end; - LoginInfo.Privileges := Copy(LoginInfo.Privileges,1,Length(LoginInfo.Privileges)-1); - - - // Stores all the information we retrieved in the current session since it might be - // necessary for other services} - Session.SaveStruct(LoginInfo); - except - FreeAndNIL(LoginInfo); - raise - end; -end; - -procedure TsrvLogin.Logout; -begin - DestroySession; -end; - -function TsrvLogin.Ping: Boolean; -begin - Result := True; -end; - -function TsrvLogin.SetUserPassword(const UserID, - NewPassword: String): Boolean; -var - dsCommand : IDASQLCommand; - i : Integer; -begin - Result := False; - dsCommand := schLogin.NewCommand(Connection, 'SetUserPassword'); - with dsCommand do - begin - ParamByName('UserID').AsString := UserID; - ParamByName('Password').AsString := NewPassword; - i := Execute; - end; - if i > 0 then - Result := True; -end; - -function TsrvLogin.UpdateUsers(const UsersDelta: Binary): Binary; -begin - // -end; - -initialization - TROClassFactory.Create('srvLogin', Create_srvLogin, TsrvLogin_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.ddp b/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.dfm b/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.dfm deleted file mode 100644 index 51978be..0000000 --- a/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.dfm +++ /dev/null @@ -1,6 +0,0 @@ -object srvTransfereciaFicheros: TsrvTransfereciaFicheros - OldCreateOrder = True - SessionManager = dmServer.SessionManager - Height = 292 - Width = 296 -end diff --git a/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.pas b/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.pas deleted file mode 100644 index 5c48ec2..0000000 --- a/Varela/Varela/Source/Servidor/Services/TransferenciaFicheros/srvTransfereciaFicheros_Impl.pas +++ /dev/null @@ -1,104 +0,0 @@ -unit srvTransfereciaFicheros_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf; - -type - { TsrvTransfereciaFicheros } - TsrvTransfereciaFicheros = class(TRORemoteDataModule, IsrvTransfereciaFicheros) - private - function getFileDirectory: String; - protected - { IsrvTransfereciaFicheros methods } - procedure DownloadSequence(const Filename: String; const Sequence: Integer; out Filedata: Binary; out Filesize: Int64); - procedure UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary); - procedure UploadFinished(const Filename: String; const Filesize: Int64); - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer, - JclFileUtils; - -procedure Create_srvTransfereciaFicheros(out anInstance : IUnknown); -begin - anInstance := TsrvTransfereciaFicheros.Create(NIL); -end; - -{ srvTransfereciaFicheros } -procedure TsrvTransfereciaFicheros.DownloadSequence(const Filename: String; const Sequence: Integer; out Filedata: Binary; out Filesize: Int64); -const - Block: Integer = 65536; -var - Position: Int64; - MemStream: TFileStream; - localfilename:String; -begin - fileData := Binary.Create; - localfilename:=getFileDirectory+filename; - if not FileExists(localfilename) then exit; - MemStream:=TFileStream.Create(localfilename,fmopenRead); - try - FileSize := MemStream.Size; - Position := Block * (Sequence - 1); - if Position <= FileSize then begin - MemStream.Position := Position; - if Position + Block > FileSize then - fileData.CopyFrom(MemStream, FileSize - Position) - else - fileData.CopyFrom(MemStream, Block); - end; - finally - MemStream.Free; - end; -end; - -function TsrvTransfereciaFicheros.getFileDirectory: String; -begin - result := PathAddSeparator(dmServer.FDirEntrada); -end; - -procedure TsrvTransfereciaFicheros.UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary); -var - NewFile: TFileStream; - localfilename:String; -begin - Localfilename:= GetFileDirectory + Filename; - if isfirst and Fileexists(localfilename) then DeleteFile(localfilename); - if FileExists(localfilename) - then NewFile := TFileStream.Create(localfilename,fmOpenReadWrite) - else NewFile := TFileStream.Create(localfilename,fmCreate); - try - NewFile.Seek(0,soFromEnd); - filedata.SaveToStream(NewFile); - finally - NewFile.Free; - end; -end; - -procedure TsrvTransfereciaFicheros.UploadFinished(const Filename: String; const Filesize: Int64); -begin -// (EventRepository as IFileEvents_Writer).OnNewFileAvailable(Session.SessionID, Filename, Filesize); -end; - -initialization - TROClassFactory.Create('srvTransfereciaFicheros', Create_srvTransfereciaFicheros, TsrvTransfereciaFicheros_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/VARELA.RODL b/Varela/Varela/Source/Servidor/VARELA.RODL deleted file mode 100644 index 32036dc..0000000 --- a/Varela/Varela/Source/Servidor/VARELA.RODL +++ /dev/null @@ -1,378 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Varela/Varela/Source/Servidor/VARELA_Intf.pas b/Varela/Varela/Source/Servidor/VARELA_Intf.pas deleted file mode 100644 index e80b443..0000000 --- a/Varela/Varela/Source/Servidor/VARELA_Intf.pas +++ /dev/null @@ -1,1079 +0,0 @@ -unit VARELA_Intf; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ Do not modify this unit manually, or your changes will be lost when this } -{ unit is regenerated the next time you compile the project. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, TypInfo, - {RemObjects:} uROXMLIntf, uROClasses, uROClient, uROTypes, uROClientIntf, - {Used RODLs:} DataAbstract3_Intf; - -const - { Library ID } - LibraryUID = '{AD45905A-2C7F-4295-A913-3D4F93CE82CF}'; - TargetNamespace = ''; - - { Service Interface ID's } - IEDI_Inventary_IID : TGUID = '{079CAD81-712F-48D0-ACD9-3677BBB9B2AD}'; - IEDI_Sales_IID : TGUID = '{A9A65D73-350D-4530-AF81-FF69845C6B61}'; - IsrvLogin_IID : TGUID = '{6B132AE4-D45F-4AE8-8215-E95789358329}'; - IsrvVentasTerminadas_IID : TGUID = '{755D5EC4-06FD-4C26-BCD1-5C8F112B18A1}'; - IsrvInformes_IID : TGUID = '{78BEEBFF-E26F-48BB-82AF-F8D09A47E446}'; - IsrvTransfereciaFicheros_IID : TGUID = '{2A7AFE06-0600-46ED-9B7A-C694A1191311}'; - IsrvControles_IID : TGUID = '{A0C11144-A1B7-408D-BA07-63565D587662}'; - IsrvVentasEnProceso_IID : TGUID = '{1ADA4BDF-C8B6-4CD7-910B-EDB44C10ABDB}'; - IEDI_Log_IID : TGUID = '{F4EBB9F5-A0CC-4AF7-8B81-98ED00FA95B1}'; - IsrvReferenciaGenerica_IID : TGUID = '{994518CC-96BD-4976-ABC6-9B421A4B65D3}'; - IsrvRecepciones_IID : TGUID = '{02EB4B9C-155E-477C-AE2D-3E73B7846AB3}'; - IsrvDevoluciones_IID : TGUID = '{87C31D12-C353-437F-A7A3-10882373AB54}'; - IsrvTraspasos_IID : TGUID = '{47DA82A0-51AD-477A-85B3-CE9EEAAB29D6}'; - IsrvStock_IID : TGUID = '{F617B727-5B8B-4645-BBB2-3D645AB31981}'; - IsrvParametros_IID : TGUID = '{E5177628-952A-4217-80C0-36F59E423EC4}'; - - { Event ID's } - -type - { Forward declarations } - IEDI_Inventary = interface; - IEDI_Sales = interface; - IsrvLogin = interface; - IsrvVentasTerminadas = interface; - IsrvInformes = interface; - IsrvTransfereciaFicheros = interface; - IsrvControles = interface; - IsrvVentasEnProceso = interface; - IEDI_Log = interface; - IsrvReferenciaGenerica = interface; - IsrvRecepciones = interface; - IsrvDevoluciones = interface; - IsrvTraspasos = interface; - IsrvStock = interface; - IsrvParametros = interface; - - - TLoginInfo = class; - - - { TLoginInfo } - TLoginInfo = class(TDALoginInfo) - private - fRoles: TDAStringArray; - function GetRoles: TDAStringArray; - public - procedure Assign(iSource: TPersistent); override; - procedure ReadComplex(ASerializer: TObject); override; - procedure WriteComplex(ASerializer: TObject); override; - published - property Roles:TDAStringArray read GetRoles write fRoles; - end; - - { TLoginInfoCollection } - TLoginInfoCollection = class(TDALoginInfoCollection) - protected - constructor Create(aItemClass: TCollectionItemClass); overload; - function GetItems(aIndex: integer): TLoginInfo; - procedure SetItems(aIndex: integer; const Value: TLoginInfo); - public - constructor Create; overload; - function Add: TLoginInfo; reintroduce; - property Items[Index: integer]:TLoginInfo read GetItems write SetItems; default; - end; - - { IEDI_Inventary } - IEDI_Inventary = interface(IDARemoteService) - ['{079CAD81-712F-48D0-ACD9-3677BBB9B2AD}'] - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean; - end; - - { CoEDI_Inventary } - CoEDI_Inventary = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Inventary; - end; - - { TEDI_Inventary_Proxy } - TEDI_Inventary_Proxy = class(TDARemoteService_Proxy, IEDI_Inventary) - protected - function __GetInterfaceName:string; override; - - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean; - end; - - { IEDI_Sales } - IEDI_Sales = interface(IDARemoteService) - ['{A9A65D73-350D-4530-AF81-FF69845C6B61}'] - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; - end; - - { CoEDI_Sales } - CoEDI_Sales = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Sales; - end; - - { TEDI_Sales_Proxy } - TEDI_Sales_Proxy = class(TDARemoteService_Proxy, IEDI_Sales) - protected - function __GetInterfaceName:string; override; - - function CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; - end; - - { IsrvLogin } - IsrvLogin = interface - ['{6B132AE4-D45F-4AE8-8215-E95789358329}'] - function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean; - procedure Logout; - function Ping: Boolean; - function SetUserPassword(const UserID: String; const NewPassword: String): Boolean; - function UpdateUsers(const UsersDelta: Binary): Binary; - end; - - { CosrvLogin } - CosrvLogin = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin; - end; - - { TsrvLogin_Proxy } - TsrvLogin_Proxy = class(TROProxy, IsrvLogin) - protected - function __GetInterfaceName:string; override; - - function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean; - procedure Logout; - function Ping: Boolean; - function SetUserPassword(const UserID: String; const NewPassword: String): Boolean; - function UpdateUsers(const UsersDelta: Binary): Binary; - end; - - { IsrvVentasTerminadas } - IsrvVentasTerminadas = interface(IDARemoteService) - ['{755D5EC4-06FD-4C26-BCD1-5C8F112B18A1}'] - function GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; - function GetSchema(const DatasetName: String; const Columns: String): Binary; - function GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; - function GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; - end; - - { CosrvVentasTerminadas } - CosrvVentasTerminadas = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasTerminadas; - end; - - { TsrvVentasTerminadas_Proxy } - TsrvVentasTerminadas_Proxy = class(TDARemoteService_Proxy, IsrvVentasTerminadas) - protected - function __GetInterfaceName:string; override; - - function GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; - function GetSchema(const DatasetName: String; const Columns: String): Binary; - function GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; - function GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; - end; - - { IsrvInformes } - IsrvInformes = interface(IDARemoteService) - ['{78BEEBFF-E26F-48BB-82AF-F8D09A47E446}'] - end; - - { CosrvInformes } - CosrvInformes = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInformes; - end; - - { TsrvInformes_Proxy } - TsrvInformes_Proxy = class(TDARemoteService_Proxy, IsrvInformes) - protected - function __GetInterfaceName:string; override; - - end; - - { IsrvTransfereciaFicheros } - IsrvTransfereciaFicheros = interface - ['{2A7AFE06-0600-46ED-9B7A-C694A1191311}'] - procedure UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary); - procedure UploadFinished(const Filename: String; const Filesize: Int64); - end; - - { CosrvTransfereciaFicheros } - CosrvTransfereciaFicheros = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTransfereciaFicheros; - end; - - { TsrvTransfereciaFicheros_Proxy } - TsrvTransfereciaFicheros_Proxy = class(TROProxy, IsrvTransfereciaFicheros) - protected - function __GetInterfaceName:string; override; - - procedure UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary); - procedure UploadFinished(const Filename: String; const Filesize: Int64); - end; - - { IsrvControles } - IsrvControles = interface(IDARemoteService) - ['{A0C11144-A1B7-408D-BA07-63565D587662}'] - end; - - { CosrvControles } - CosrvControles = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvControles; - end; - - { TsrvControles_Proxy } - TsrvControles_Proxy = class(TDARemoteService_Proxy, IsrvControles) - protected - function __GetInterfaceName:string; override; - - end; - - { IsrvVentasEnProceso } - IsrvVentasEnProceso = interface(IDARemoteService) - ['{1ADA4BDF-C8B6-4CD7-910B-EDB44C10ABDB}'] - function GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; - function GetSchema(const DatasetName: String; const Columns: String): Binary; - end; - - { CosrvVentasEnProceso } - CosrvVentasEnProceso = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasEnProceso; - end; - - { TsrvVentasEnProceso_Proxy } - TsrvVentasEnProceso_Proxy = class(TDARemoteService_Proxy, IsrvVentasEnProceso) - protected - function __GetInterfaceName:string; override; - - function GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; - function GetSchema(const DatasetName: String; const Columns: String): Binary; - end; - - { IEDI_Log } - IEDI_Log = interface(IDARemoteService) - ['{F4EBB9F5-A0CC-4AF7-8B81-98ED00FA95B1}'] - procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); - end; - - { CoEDI_Log } - CoEDI_Log = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Log; - end; - - { TEDI_Log_Proxy } - TEDI_Log_Proxy = class(TDARemoteService_Proxy, IEDI_Log) - protected - function __GetInterfaceName:string; override; - - procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); - end; - - { IsrvReferenciaGenerica } - IsrvReferenciaGenerica = interface(IDARemoteService) - ['{994518CC-96BD-4976-ABC6-9B421A4B65D3}'] - function GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; - function GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary; - procedure PasarProductosAEspera(const Centro: String; const Vendedor: String); - end; - - { CosrvReferenciaGenerica } - CosrvReferenciaGenerica = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferenciaGenerica; - end; - - { TsrvReferenciaGenerica_Proxy } - TsrvReferenciaGenerica_Proxy = class(TDARemoteService_Proxy, IsrvReferenciaGenerica) - protected - function __GetInterfaceName:string; override; - - function GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; - function GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary; - procedure PasarProductosAEspera(const Centro: String; const Vendedor: String); - end; - - { IsrvRecepciones } - IsrvRecepciones = interface(IDARemoteService) - ['{02EB4B9C-155E-477C-AE2D-3E73B7846AB3}'] - end; - - { CosrvRecepciones } - CosrvRecepciones = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecepciones; - end; - - { TsrvRecepciones_Proxy } - TsrvRecepciones_Proxy = class(TDARemoteService_Proxy, IsrvRecepciones) - protected - function __GetInterfaceName:string; override; - - end; - - { IsrvDevoluciones } - IsrvDevoluciones = interface(IDARemoteService) - ['{87C31D12-C353-437F-A7A3-10882373AB54}'] - end; - - { CosrvDevoluciones } - CosrvDevoluciones = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvDevoluciones; - end; - - { TsrvDevoluciones_Proxy } - TsrvDevoluciones_Proxy = class(TDARemoteService_Proxy, IsrvDevoluciones) - protected - function __GetInterfaceName:string; override; - - end; - - { IsrvTraspasos } - IsrvTraspasos = interface(IDARemoteService) - ['{47DA82A0-51AD-477A-85B3-CE9EEAAB29D6}'] - end; - - { CosrvTraspasos } - CosrvTraspasos = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTraspasos; - end; - - { TsrvTraspasos_Proxy } - TsrvTraspasos_Proxy = class(TDARemoteService_Proxy, IsrvTraspasos) - protected - function __GetInterfaceName:string; override; - - end; - - { IsrvStock } - IsrvStock = interface(IDARemoteService) - ['{F617B727-5B8B-4645-BBB2-3D645AB31981}'] - end; - - { CosrvStock } - CosrvStock = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvStock; - end; - - { TsrvStock_Proxy } - TsrvStock_Proxy = class(TDARemoteService_Proxy, IsrvStock) - protected - function __GetInterfaceName:string; override; - - end; - - { IsrvParametros } - IsrvParametros = interface(IDARemoteService) - ['{E5177628-952A-4217-80C0-36F59E423EC4}'] - end; - - { CosrvParametros } - CosrvParametros = class - class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvParametros; - end; - - { TsrvParametros_Proxy } - TsrvParametros_Proxy = class(TDARemoteService_Proxy, IsrvParametros) - protected - function __GetInterfaceName:string; override; - - end; - -implementation - -uses - {vcl:} SysUtils, - {RemObjects:} uROEventRepository, uROSerializer, uRORes; - -{ TLoginInfo } - -procedure TLoginInfo.Assign(iSource: TPersistent); -var lSource: VARELA_Intf.TLoginInfo; -begin - inherited Assign(iSource); - if (iSource is VARELA_Intf.TLoginInfo) then begin - lSource := VARELA_Intf.TLoginInfo(iSource); - Roles.Assign(lSource.Roles); - end; -end; - -function TLoginInfo.GetRoles: TDAStringArray; -begin - if (fRoles = nil) then fRoles := TDAStringArray.Create(); - result := fRoles; -end; - -procedure TLoginInfo.ReadComplex(ASerializer: TObject); -var - l_Attributes: TDAStringArray; - l_Data: Binary; - l_Privileges: TDAStringArray; - l_Roles: TDAStringArray; - l_SessionID: String; - l_UserID: String; -begin - if TROSerializer(ASerializer).RecordStrictOrder then begin - inherited; - l_Roles := Roles; - TROSerializer(ASerializer).ReadArray('Roles', TDAStringArray, l_Roles); - if Roles <> l_Roles then Roles.Free; - Roles := l_Roles; - end - else begin - l_Attributes := Attributes; - TROSerializer(ASerializer).ReadArray('Attributes', TDAStringArray, l_Attributes); - if Attributes <> l_Attributes then Attributes.Free; - Attributes := l_Attributes; - l_Data := Data; - TROSerializer(ASerializer).ReadBinary('Data', l_Data); - if Data <> l_Data then Data.Free; - Data := l_Data; - l_Privileges := Privileges; - TROSerializer(ASerializer).ReadArray('Privileges', TDAStringArray, l_Privileges); - if Privileges <> l_Privileges then Privileges.Free; - Privileges := l_Privileges; - l_Roles := Roles; - TROSerializer(ASerializer).ReadArray('Roles', TDAStringArray, l_Roles); - if Roles <> l_Roles then Roles.Free; - Roles := l_Roles; - l_SessionID := SessionID; - TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID); - SessionID := l_SessionID; - l_UserID := UserID; - TROSerializer(ASerializer).ReadUTF8String('UserID', l_UserID); - UserID := l_UserID; - end; -end; - -procedure TLoginInfo.WriteComplex(ASerializer: TObject); -var - l_Attributes: TDAStringArray; - l_Data: Binary; - l_Privileges: TDAStringArray; - l_Roles: TDAStringArray; - l_SessionID: String; - l_UserID: String; -begin - if TROSerializer(ASerializer).RecordStrictOrder then begin - inherited; - l_Roles := Roles; - TROSerializer(ASerializer).WriteArray('Roles', l_Roles); - end - else begin - l_Attributes := Attributes; - TROSerializer(ASerializer).WriteArray('Attributes', l_Attributes); - l_Data := Data; - TROSerializer(ASerializer).WriteBinary('Data', l_Data); - l_Privileges := Privileges; - TROSerializer(ASerializer).WriteArray('Privileges', l_Privileges); - l_Roles := Roles; - TROSerializer(ASerializer).WriteArray('Roles', l_Roles); - l_SessionID := SessionID; - TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID); - l_UserID := UserID; - TROSerializer(ASerializer).WriteUTF8String('UserID', l_UserID); - end; -end; - -{ TLoginInfoCollection } -constructor TLoginInfoCollection.Create; -begin - inherited Create(TLoginInfo); -end; - -constructor TLoginInfoCollection.Create(aItemClass: TCollectionItemClass); -begin - inherited Create(aItemClass); -end; - -function TLoginInfoCollection.Add: TLoginInfo; -begin - result := TLoginInfo(inherited Add); -end; - -function TLoginInfoCollection.GetItems(aIndex: integer): TLoginInfo; -begin - result := TLoginInfo(inherited Items[aIndex]); -end; - -procedure TLoginInfoCollection.SetItems(aIndex: integer; const Value: TLoginInfo); -begin - TLoginInfo(inherited Items[aIndex]).Assign(Value); -end; - -{ CoEDI_Inventary } - -class function CoEDI_Inventary.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Inventary; -begin - result := TEDI_Inventary_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TEDI_Inventary_Proxy } - -function TEDI_Inventary_Proxy.__GetInterfaceName:string; -begin - result := 'EDI_Inventary'; -end; - -function TEDI_Inventary_Proxy.CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean; -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'CargarFicheroEDI'); - __Message.Write('FicheroCAB', TypeInfo(String), FicheroCAB, []); - __Message.Write('FicheroLIN', TypeInfo(String), FicheroLIN, []); - __Message.Write('FicheroCANT', TypeInfo(String), FicheroCANT, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Boolean), result, []); - __Message.Read('MsgError', TypeInfo(String), MsgError, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CoEDI_Sales } - -class function CoEDI_Sales.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Sales; -begin - result := TEDI_Sales_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TEDI_Sales_Proxy } - -function TEDI_Sales_Proxy.__GetInterfaceName:string; -begin - result := 'EDI_Sales'; -end; - -function TEDI_Sales_Proxy.CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'CargarFicheroEDI'); - __Message.Write('FicheroCAB', TypeInfo(String), FicheroCAB, []); - __Message.Write('FicheroLUG', TypeInfo(String), FicheroLUG, []); - __Message.Write('FicheroART', TypeInfo(String), FicheroART, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Boolean), result, []); - __Message.Read('MsgError', TypeInfo(String), MsgError, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CosrvLogin } - -class function CosrvLogin.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin; -begin - result := TsrvLogin_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TsrvLogin_Proxy } - -function TsrvLogin_Proxy.__GetInterfaceName:string; -begin - result := 'srvLogin'; -end; - -function TsrvLogin_Proxy.Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean; -begin - try - LoginInfo := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Login'); - __Message.Write('UserID', TypeInfo(String), UserID, []); - __Message.Write('Password', TypeInfo(String), Password, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Boolean), result, []); - __Message.Read('LoginInfo', TypeInfo(VARELA_Intf.TLoginInfo), LoginInfo, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -procedure TsrvLogin_Proxy.Logout; -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Logout'); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - finally - __Message.FreeStream; - end -end; - -function TsrvLogin_Proxy.Ping: Boolean; -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'Ping'); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Boolean), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvLogin_Proxy.SetUserPassword(const UserID: String; const NewPassword: String): Boolean; -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'SetUserPassword'); - __Message.Write('UserID', TypeInfo(String), UserID, []); - __Message.Write('NewPassword', TypeInfo(String), NewPassword, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Boolean), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvLogin_Proxy.UpdateUsers(const UsersDelta: Binary): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'UpdateUsers'); - __Message.Write('UsersDelta', TypeInfo(Binary), UsersDelta, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CosrvVentasTerminadas } - -class function CosrvVentasTerminadas.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasTerminadas; -begin - result := TsrvVentasTerminadas_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TsrvVentasTerminadas_Proxy } - -function TsrvVentasTerminadas_Proxy.__GetInterfaceName:string; -begin - result := 'srvVentasTerminadas'; -end; - -function TsrvVentasTerminadas_Proxy.GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetDataEx'); - __Message.Write('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Write('Columns', TypeInfo(String), Columns, []); - __Message.Write('Params', TypeInfo(String), Params, []); - __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvVentasTerminadas_Proxy.GetSchema(const DatasetName: String; const Columns: String): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetSchema'); - __Message.Write('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Write('Columns', TypeInfo(String), Columns, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvVentasTerminadas_Proxy.GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetDataCrossTab'); - __Message.Write('FechaIni', TypeInfo(String), FechaIni, []); - __Message.Write('FechaFin', TypeInfo(String), FechaFin, []); - __Message.Write('Coleccion', TypeInfo(String), Coleccion, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvVentasTerminadas_Proxy.GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetSchemaCrossTab'); - __Message.Write('FechaIni', TypeInfo(String), FechaIni, []); - __Message.Write('FechaFin', TypeInfo(String), FechaFin, []); - __Message.Write('Coleccion', TypeInfo(String), Coleccion, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CosrvInformes } - -class function CosrvInformes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInformes; -begin - result := TsrvInformes_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvInformes_Proxy.__GetInterfaceName:string; -begin - result := 'srvInformes'; -end; - -{ CosrvTransfereciaFicheros } - -class function CosrvTransfereciaFicheros.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTransfereciaFicheros; -begin - result := TsrvTransfereciaFicheros_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TsrvTransfereciaFicheros_Proxy } - -function TsrvTransfereciaFicheros_Proxy.__GetInterfaceName:string; -begin - result := 'srvTransfereciaFicheros'; -end; - -procedure TsrvTransfereciaFicheros_Proxy.UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary); -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'UploadChunk'); - __Message.Write('IsFirst', TypeInfo(Boolean), IsFirst, []); - __Message.Write('Filename', TypeInfo(String), Filename, []); - __Message.Write('Filedata', TypeInfo(Binary), Filedata, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -procedure TsrvTransfereciaFicheros_Proxy.UploadFinished(const Filename: String; const Filesize: Int64); -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'UploadFinished'); - __Message.Write('Filename', TypeInfo(String), Filename, []); - __Message.Write('Filesize', TypeInfo(Int64), Filesize, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CosrvControles } - -class function CosrvControles.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvControles; -begin - result := TsrvControles_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvControles_Proxy.__GetInterfaceName:string; -begin - result := 'srvControles'; -end; - -{ CosrvVentasEnProceso } - -class function CosrvVentasEnProceso.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvVentasEnProceso; -begin - result := TsrvVentasEnProceso_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TsrvVentasEnProceso_Proxy } - -function TsrvVentasEnProceso_Proxy.__GetInterfaceName:string; -begin - result := 'srvVentasEnProceso'; -end; - -function TsrvVentasEnProceso_Proxy.GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetData'); - __Message.Write('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Write('Columns', TypeInfo(String), Columns, []); - __Message.Write('Params', TypeInfo(String), Params, []); - __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvVentasEnProceso_Proxy.GetSchema(const DatasetName: String; const Columns: String): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetSchema'); - __Message.Write('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Write('Columns', TypeInfo(String), Columns, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CoEDI_Log } - -class function CoEDI_Log.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IEDI_Log; -begin - result := TEDI_Log_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TEDI_Log_Proxy } - -function TEDI_Log_Proxy.__GetInterfaceName:string; -begin - result := 'EDI_Log'; -end; - -procedure TEDI_Log_Proxy.InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'InsertarLog'); - __Message.Write('Fecha', TypeInfo(DateTime), Fecha, [paIsDateTime]); - __Message.Write('Report', TypeInfo(String), Report, []); - __Message.Write('OK', TypeInfo(Boolean), OK, []); - __Message.Write('Error_msg', TypeInfo(String), Error_msg, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CosrvReferenciaGenerica } - -class function CosrvReferenciaGenerica.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferenciaGenerica; -begin - result := TsrvReferenciaGenerica_Proxy.Create(aMessage, aTransportChannel); -end; - -{ TsrvReferenciaGenerica_Proxy } - -function TsrvReferenciaGenerica_Proxy.__GetInterfaceName:string; -begin - result := 'srvReferenciaGenerica'; -end; - -function TsrvReferenciaGenerica_Proxy.GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GetProducto'); - __Message.Write('Codigo', TypeInfo(String), Codigo, []); - __Message.Write('Talla', TypeInfo(String), Talla, []); - __Message.Write('Color', TypeInfo(String), Color, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Boolean), result, []); - __Message.Read('CodigoBarras', TypeInfo(String), CodigoBarras, []); - __Message.Read('Descripcion', TypeInfo(String), Descripcion, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -function TsrvReferenciaGenerica_Proxy.GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary; -begin - try - result := nil; - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'GenerateReport'); - __Message.Write('Centro', TypeInfo(String), Centro, []); - __Message.Write('Vendedor', TypeInfo(String), Vendedor, []); - __Message.Write('Estado', TypeInfo(String), Estado, []); - __Message.Write('FiltroUsuario', TypeInfo(String), FiltroUsuario, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - __Message.Read('Result', TypeInfo(Binary), result, []); - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -procedure TsrvReferenciaGenerica_Proxy.PasarProductosAEspera(const Centro: String; const Vendedor: String); -begin - try - __Message.InitializeRequestMessage(__TransportChannel, 'VARELA', __InterfaceName, 'PasarProductosAEspera'); - __Message.Write('Centro', TypeInfo(String), Centro, []); - __Message.Write('Vendedor', TypeInfo(String), Vendedor, []); - __Message.Finalize; - - __TransportChannel.Dispatch(__Message); - - finally - __Message.UnsetAttributes(__TransportChannel); - __Message.FreeStream; - end -end; - -{ CosrvRecepciones } - -class function CosrvRecepciones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRecepciones; -begin - result := TsrvRecepciones_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvRecepciones_Proxy.__GetInterfaceName:string; -begin - result := 'srvRecepciones'; -end; - -{ CosrvDevoluciones } - -class function CosrvDevoluciones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvDevoluciones; -begin - result := TsrvDevoluciones_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvDevoluciones_Proxy.__GetInterfaceName:string; -begin - result := 'srvDevoluciones'; -end; - -{ CosrvTraspasos } - -class function CosrvTraspasos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTraspasos; -begin - result := TsrvTraspasos_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvTraspasos_Proxy.__GetInterfaceName:string; -begin - result := 'srvTraspasos'; -end; - -{ CosrvStock } - -class function CosrvStock.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvStock; -begin - result := TsrvStock_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvStock_Proxy.__GetInterfaceName:string; -begin - result := 'srvStock'; -end; - -{ CosrvParametros } - -class function CosrvParametros.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvParametros; -begin - result := TsrvParametros_Proxy.Create(aMessage, aTransportChannel); -end; - -function TsrvParametros_Proxy.__GetInterfaceName:string; -begin - result := 'srvParametros'; -end; - -initialization - RegisterROClass(TLoginInfo); - RegisterProxyClass(IEDI_Inventary_IID, TEDI_Inventary_Proxy); - RegisterProxyClass(IEDI_Sales_IID, TEDI_Sales_Proxy); - RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy); - RegisterProxyClass(IsrvVentasTerminadas_IID, TsrvVentasTerminadas_Proxy); - RegisterProxyClass(IsrvInformes_IID, TsrvInformes_Proxy); - RegisterProxyClass(IsrvTransfereciaFicheros_IID, TsrvTransfereciaFicheros_Proxy); - RegisterProxyClass(IsrvControles_IID, TsrvControles_Proxy); - RegisterProxyClass(IsrvVentasEnProceso_IID, TsrvVentasEnProceso_Proxy); - RegisterProxyClass(IEDI_Log_IID, TEDI_Log_Proxy); - RegisterProxyClass(IsrvReferenciaGenerica_IID, TsrvReferenciaGenerica_Proxy); - RegisterProxyClass(IsrvRecepciones_IID, TsrvRecepciones_Proxy); - RegisterProxyClass(IsrvDevoluciones_IID, TsrvDevoluciones_Proxy); - RegisterProxyClass(IsrvTraspasos_IID, TsrvTraspasos_Proxy); - RegisterProxyClass(IsrvStock_IID, TsrvStock_Proxy); - RegisterProxyClass(IsrvParametros_IID, TsrvParametros_Proxy); - - -finalization - UnregisterROClass(TLoginInfo); - UnregisterProxyClass(IEDI_Inventary_IID); - UnregisterProxyClass(IEDI_Sales_IID); - UnregisterProxyClass(IsrvLogin_IID); - UnregisterProxyClass(IsrvVentasTerminadas_IID); - UnregisterProxyClass(IsrvInformes_IID); - UnregisterProxyClass(IsrvTransfereciaFicheros_IID); - UnregisterProxyClass(IsrvControles_IID); - UnregisterProxyClass(IsrvVentasEnProceso_IID); - UnregisterProxyClass(IEDI_Log_IID); - UnregisterProxyClass(IsrvReferenciaGenerica_IID); - UnregisterProxyClass(IsrvRecepciones_IID); - UnregisterProxyClass(IsrvDevoluciones_IID); - UnregisterProxyClass(IsrvTraspasos_IID); - UnregisterProxyClass(IsrvStock_IID); - UnregisterProxyClass(IsrvParametros_IID); - -end. diff --git a/Varela/Varela/Source/Servidor/VARELA_Invk.pas b/Varela/Varela/Source/Servidor/VARELA_Invk.pas deleted file mode 100644 index 5bf9316..0000000 --- a/Varela/Varela/Source/Servidor/VARELA_Invk.pas +++ /dev/null @@ -1,707 +0,0 @@ -unit VARELA_Invk; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ Do not modify this unit manually, or your changes will be lost when this } -{ unit is regenerated the next time you compile the project. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, - {RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf, - {Used RODL Intf's:} DataAbstract3_Intf, - {Used RODL Invk's:} DataAbstract3_Invk, - {Generated:} VARELA_Intf; - -type - {$M+} - TEDI_Inventary_Invoker = class(TDARemoteService_Invoker) - private - protected - published - procedure Invoke_CargarFicheroEDI(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TEDI_Sales_Invoker = class(TDARemoteService_Invoker) - private - protected - published - procedure Invoke_CargarFicheroEDI(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TsrvLogin_Invoker = class(TROInvoker) - private - protected - published - procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_Ping(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_SetUserPassword(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_UpdateUsers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TsrvVentasTerminadas_Invoker = class(TDARemoteService_Invoker) - private - protected - published - procedure Invoke_GetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_GetDataCrossTab(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_GetSchemaCrossTab(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TsrvInformes_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - - {$M+} - TsrvTransfereciaFicheros_Invoker = class(TROInvoker) - private - protected - published - procedure Invoke_UploadChunk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_UploadFinished(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TsrvControles_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - - {$M+} - TsrvVentasEnProceso_Invoker = class(TDARemoteService_Invoker) - private - protected - published - procedure Invoke_GetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TEDI_Log_Invoker = class(TDARemoteService_Invoker) - private - protected - published - procedure Invoke_InsertarLog(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TsrvReferenciaGenerica_Invoker = class(TDARemoteService_Invoker) - private - protected - published - procedure Invoke_GetProducto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - procedure Invoke_PasarProductosAEspera(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); - end; - {$M-} - - {$M+} - TsrvRecepciones_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - - {$M+} - TsrvDevoluciones_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - - {$M+} - TsrvTraspasos_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - - {$M+} - TsrvStock_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - - {$M+} - TsrvParametros_Invoker = class(TDARemoteService_Invoker) - private - protected - published - end; - {$M-} - -implementation - -uses - {RemObjects:} uRORes, uROClient; - -{ TEDI_Inventary_Invoker } - -procedure TEDI_Inventary_Invoker.Invoke_CargarFicheroEDI(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean; } -var - FicheroCAB: String; - FicheroLIN: String; - FicheroCANT: String; - MsgError: String; - lResult: Boolean; -begin - try - __Message.Read('FicheroCAB', TypeInfo(String), FicheroCAB, []); - __Message.Read('FicheroLIN', TypeInfo(String), FicheroLIN, []); - __Message.Read('FicheroCANT', TypeInfo(String), FicheroCANT, []); - - lResult := (__Instance as IEDI_Inventary).CargarFicheroEDI(FicheroCAB, FicheroLIN, FicheroCANT, MsgError); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'EDI_Inventary', 'CargarFicheroEDIResponse'); - __Message.Write('Result', TypeInfo(Boolean), lResult, []); - __Message.Write('MsgError', TypeInfo(String), MsgError, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - end; -end; - -{ TEDI_Sales_Invoker } - -procedure TEDI_Sales_Invoker.Invoke_CargarFicheroEDI(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function CargarFicheroEDI(const FicheroCAB: String; const FicheroLUG: String; const FicheroART: String; out MsgError: String): Boolean; } -var - FicheroCAB: String; - FicheroLUG: String; - FicheroART: String; - MsgError: String; - lResult: Boolean; -begin - try - __Message.Read('FicheroCAB', TypeInfo(String), FicheroCAB, []); - __Message.Read('FicheroLUG', TypeInfo(String), FicheroLUG, []); - __Message.Read('FicheroART', TypeInfo(String), FicheroART, []); - - lResult := (__Instance as IEDI_Sales).CargarFicheroEDI(FicheroCAB, FicheroLUG, FicheroART, MsgError); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'EDI_Sales', 'CargarFicheroEDIResponse'); - __Message.Write('Result', TypeInfo(Boolean), lResult, []); - __Message.Write('MsgError', TypeInfo(String), MsgError, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - end; -end; - -{ TsrvLogin_Invoker } - -procedure TsrvLogin_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function Login(const UserID: String; const Password: String; out LoginInfo: TLoginInfo): Boolean; } -var - UserID: String; - Password: String; - LoginInfo: VARELA_Intf.TLoginInfo; - lResult: Boolean; - __lObjectDisposer: TROObjectDisposer; -begin - LoginInfo := nil; - try - __Message.Read('UserID', TypeInfo(String), UserID, []); - __Message.Read('Password', TypeInfo(String), Password, []); - - lResult := (__Instance as IsrvLogin).Login(UserID, Password, LoginInfo); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvLogin', 'LoginResponse'); - __Message.Write('Result', TypeInfo(Boolean), lResult, []); - __Message.Write('LoginInfo', TypeInfo(VARELA_Intf.TLoginInfo), LoginInfo, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(LoginInfo); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvLogin_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ procedure Logout; } -begin - try - (__Instance as IsrvLogin).Logout; - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvLogin', 'LogoutResponse'); - __Message.Finalize; - - __oResponseOptions := [roNoResponse]; - - finally - end; -end; - -procedure TsrvLogin_Invoker.Invoke_Ping(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function Ping: Boolean; } -var - lResult: Boolean; -begin - try - lResult := (__Instance as IsrvLogin).Ping; - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvLogin', 'PingResponse'); - __Message.Write('Result', TypeInfo(Boolean), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - end; -end; - -procedure TsrvLogin_Invoker.Invoke_SetUserPassword(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function SetUserPassword(const UserID: String; const NewPassword: String): Boolean; } -var - UserID: String; - NewPassword: String; - lResult: Boolean; -begin - try - __Message.Read('UserID', TypeInfo(String), UserID, []); - __Message.Read('NewPassword', TypeInfo(String), NewPassword, []); - - lResult := (__Instance as IsrvLogin).SetUserPassword(UserID, NewPassword); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvLogin', 'SetUserPasswordResponse'); - __Message.Write('Result', TypeInfo(Boolean), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - end; -end; - -procedure TsrvLogin_Invoker.Invoke_UpdateUsers(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function UpdateUsers(const UsersDelta: Binary): Binary; } -var - UsersDelta: Binary; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - UsersDelta := nil; - lResult := nil; - try - __Message.Read('UsersDelta', TypeInfo(Binary), UsersDelta, []); - - lResult := (__Instance as IsrvLogin).UpdateUsers(UsersDelta); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvLogin', 'UpdateUsersResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(UsersDelta); - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -{ TsrvVentasTerminadas_Invoker } - -procedure TsrvVentasTerminadas_Invoker.Invoke_GetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetDataEx(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; } -var - DatasetName: String; - Columns: String; - Params: String; - MaxRecords: Integer; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Read('Columns', TypeInfo(String), Columns, []); - __Message.Read('Params', TypeInfo(String), Params, []); - __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []); - - lResult := (__Instance as IsrvVentasTerminadas).GetDataEx(DatasetName, Columns, Params, MaxRecords); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvVentasTerminadas', 'GetDataExResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvVentasTerminadas_Invoker.Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetSchema(const DatasetName: String; const Columns: String): Binary; } -var - DatasetName: String; - Columns: String; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Read('Columns', TypeInfo(String), Columns, []); - - lResult := (__Instance as IsrvVentasTerminadas).GetSchema(DatasetName, Columns); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvVentasTerminadas', 'GetSchemaResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvVentasTerminadas_Invoker.Invoke_GetDataCrossTab(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetDataCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; } -var - FechaIni: String; - FechaFin: String; - Coleccion: String; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('FechaIni', TypeInfo(String), FechaIni, []); - __Message.Read('FechaFin', TypeInfo(String), FechaFin, []); - __Message.Read('Coleccion', TypeInfo(String), Coleccion, []); - - lResult := (__Instance as IsrvVentasTerminadas).GetDataCrossTab(FechaIni, FechaFin, Coleccion); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvVentasTerminadas', 'GetDataCrossTabResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvVentasTerminadas_Invoker.Invoke_GetSchemaCrossTab(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetSchemaCrossTab(const FechaIni: String; const FechaFin: String; const Coleccion: String): Binary; } -var - FechaIni: String; - FechaFin: String; - Coleccion: String; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('FechaIni', TypeInfo(String), FechaIni, []); - __Message.Read('FechaFin', TypeInfo(String), FechaFin, []); - __Message.Read('Coleccion', TypeInfo(String), Coleccion, []); - - lResult := (__Instance as IsrvVentasTerminadas).GetSchemaCrossTab(FechaIni, FechaFin, Coleccion); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvVentasTerminadas', 'GetSchemaCrossTabResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -{ TsrvTransfereciaFicheros_Invoker } - -procedure TsrvTransfereciaFicheros_Invoker.Invoke_UploadChunk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ procedure UploadChunk(const IsFirst: Boolean; const Filename: String; const Filedata: Binary); } -var - IsFirst: Boolean; - Filename: String; - Filedata: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - Filedata := nil; - try - __Message.Read('IsFirst', TypeInfo(Boolean), IsFirst, []); - __Message.Read('Filename', TypeInfo(String), Filename, []); - __Message.Read('Filedata', TypeInfo(Binary), Filedata, []); - - (__Instance as IsrvTransfereciaFicheros).UploadChunk(IsFirst, Filename, Filedata); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvTransfereciaFicheros', 'UploadChunkResponse'); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - __oResponseOptions := [roNoResponse]; - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(Filedata); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvTransfereciaFicheros_Invoker.Invoke_UploadFinished(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ procedure UploadFinished(const Filename: String; const Filesize: Int64); } -var - Filename: String; - Filesize: Int64; -begin - try - __Message.Read('Filename', TypeInfo(String), Filename, []); - __Message.Read('Filesize', TypeInfo(Int64), Filesize, []); - - (__Instance as IsrvTransfereciaFicheros).UploadFinished(Filename, Filesize); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvTransfereciaFicheros', 'UploadFinishedResponse'); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - __oResponseOptions := [roNoResponse]; - - finally - end; -end; - -{ TsrvVentasEnProceso_Invoker } - -procedure TsrvVentasEnProceso_Invoker.Invoke_GetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetData(const DatasetName: String; const Columns: String; const Params: String; const MaxRecords: Integer): Binary; } -var - DatasetName: String; - Columns: String; - Params: String; - MaxRecords: Integer; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Read('Columns', TypeInfo(String), Columns, []); - __Message.Read('Params', TypeInfo(String), Params, []); - __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []); - - lResult := (__Instance as IsrvVentasEnProceso).GetData(DatasetName, Columns, Params, MaxRecords); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvVentasEnProceso', 'GetDataResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvVentasEnProceso_Invoker.Invoke_GetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetSchema(const DatasetName: String; const Columns: String): Binary; } -var - DatasetName: String; - Columns: String; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('DatasetName', TypeInfo(String), DatasetName, []); - __Message.Read('Columns', TypeInfo(String), Columns, []); - - lResult := (__Instance as IsrvVentasEnProceso).GetSchema(DatasetName, Columns); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvVentasEnProceso', 'GetSchemaResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -{ TEDI_Log_Invoker } - -procedure TEDI_Log_Invoker.Invoke_InsertarLog(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ procedure InsertarLog(const Fecha: DateTime; const Report: String; const OK: Boolean; const Error_msg: String); } -var - Fecha: DateTime; - Report: String; - OK: Boolean; - Error_msg: String; -begin - try - __Message.Read('Fecha', TypeInfo(DateTime), Fecha, [paIsDateTime]); - __Message.Read('Report', TypeInfo(String), Report, []); - __Message.Read('OK', TypeInfo(Boolean), OK, []); - __Message.Read('Error_msg', TypeInfo(String), Error_msg, []); - - (__Instance as IEDI_Log).InsertarLog(Fecha, Report, OK, Error_msg); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'EDI_Log', 'InsertarLogResponse'); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - __oResponseOptions := [roNoResponse]; - - finally - end; -end; - -{ TsrvReferenciaGenerica_Invoker } - -procedure TsrvReferenciaGenerica_Invoker.Invoke_GetProducto(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean; } -var - Codigo: String; - Talla: String; - Color: String; - CodigoBarras: String; - Descripcion: String; - lResult: Boolean; -begin - try - __Message.Read('Codigo', TypeInfo(String), Codigo, []); - __Message.Read('Talla', TypeInfo(String), Talla, []); - __Message.Read('Color', TypeInfo(String), Color, []); - - lResult := (__Instance as IsrvReferenciaGenerica).GetProducto(Codigo, Talla, Color, CodigoBarras, Descripcion); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvReferenciaGenerica', 'GetProductoResponse'); - __Message.Write('Result', TypeInfo(Boolean), lResult, []); - __Message.Write('CodigoBarras', TypeInfo(String), CodigoBarras, []); - __Message.Write('Descripcion', TypeInfo(String), Descripcion, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - end; -end; - -procedure TsrvReferenciaGenerica_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary; } -var - Centro: String; - Vendedor: String; - Estado: String; - FiltroUsuario: String; - lResult: Binary; - __lObjectDisposer: TROObjectDisposer; -begin - lResult := nil; - try - __Message.Read('Centro', TypeInfo(String), Centro, []); - __Message.Read('Vendedor', TypeInfo(String), Vendedor, []); - __Message.Read('Estado', TypeInfo(String), Estado, []); - __Message.Read('FiltroUsuario', TypeInfo(String), FiltroUsuario, []); - - lResult := (__Instance as IsrvReferenciaGenerica).GenerateReport(Centro, Vendedor, Estado, FiltroUsuario); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvReferenciaGenerica', 'GenerateReportResponse'); - __Message.Write('Result', TypeInfo(Binary), lResult, []); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - finally - __lObjectDisposer := TROObjectDisposer.Create(__Instance); - try - __lObjectDisposer.Add(lResult); - finally - __lObjectDisposer.Free(); - end; - end; -end; - -procedure TsrvReferenciaGenerica_Invoker.Invoke_PasarProductosAEspera(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ procedure PasarProductosAEspera(const Centro: String; const Vendedor: String); } -var - Centro: String; - Vendedor: String; -begin - try - __Message.Read('Centro', TypeInfo(String), Centro, []); - __Message.Read('Vendedor', TypeInfo(String), Vendedor, []); - - (__Instance as IsrvReferenciaGenerica).PasarProductosAEspera(Centro, Vendedor); - - __Message.InitializeResponseMessage(__Transport, 'VARELA', 'srvReferenciaGenerica', 'PasarProductosAEsperaResponse'); - __Message.Finalize; - __Message.UnsetAttributes(__Transport); - - __oResponseOptions := [roNoResponse]; - - finally - end; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/cxVerticalGridD10.drc b/Varela/Varela/Source/Servidor/cxVerticalGridD10.drc deleted file mode 100644 index e520ba1..0000000 --- a/Varela/Varela/Source/Servidor/cxVerticalGridD10.drc +++ /dev/null @@ -1,23 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -DESCRIPTION RCDATA -BEGIN - "\x52", "\x00", "\x65", "\x00", "\x6d", "\x00", "\x4f", "\x00", /* 0000: R.e.m.O. */ - "\x62", "\x00", "\x6a", "\x00", "\x65", "\x00", "\x63", "\x00", /* 0008: b.j.e.c. */ - "\x74", "\x00", "\x73", "\x00", "\x20", "\x00", "\x53", "\x00", /* 0010: t.s. .S. */ - "\x44", "\x00", "\x4b", "\x00", "\x20", "\x00", "\x2d", "\x00", /* 0018: D.K. .-. */ - "\x20", "\x00", "\x52", "\x00", "\x4f", "\x00", "\x44", "\x00", /* 0020: .R.O.D. */ - "\x58", "\x00", "\x53", "\x00", "\x6f", "\x00", "\x63", "\x00", /* 0028: X.S.o.c. */ - "\x6b", "\x00", "\x20", "\x00", "\x4c", "\x00", "\x69", "\x00", /* 0030: k. .L.i. */ - "\x62", "\x00", "\x72", "\x00", "\x61", "\x00", "\x72", "\x00", /* 0038: b.r.a.r. */ - "\x79", "\x00", "\x00", "\x00" /* 0040: y... */ -END - diff --git a/Varela/Varela/Source/Servidor/fServerForm.ddp b/Varela/Varela/Source/Servidor/fServerForm.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/fServerForm.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/fServerForm.dfm b/Varela/Varela/Source/Servidor/fServerForm.dfm deleted file mode 100644 index af1bd52..0000000 --- a/Varela/Varela/Source/Servidor/fServerForm.dfm +++ /dev/null @@ -1,1069 +0,0 @@ -object ServerForm: TServerForm - Left = 806 - Top = 611 - BorderStyle = bsDialog - Caption = 'Administrador de puntos de venta - Server' - ClientHeight = 255 - ClientWidth = 371 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnClose = FormClose - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object JvGradient1: TJvGradient - Left = 0 - Top = 57 - Width = 371 - Height = 4 - Align = alTop - StartColor = 2971346 - EndColor = 4828405 - end - object Memo1: TMemo - Left = 24 - Top = 72 - Width = 329 - Height = 129 - Lines.Strings = ( - 'Memo1') - ScrollBars = ssVertical - TabOrder = 0 - end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 371 - Height = 57 - Align = alTop - BevelOuter = bvNone - TabOrder = 1 - object Image1: TImage - Left = 0 - Top = 0 - Width = 371 - Height = 57 - Align = alClient - Center = True - Picture.Data = { - 0B544A76474946496D616765F6750000474946383961C201FA00E60000FFFFFF - F5F5F5A92824ECECECEB743DF48545EF7B40DEDEDECD452DEAEAEAD0492EDC5A - 34FAFAFAF2F2F2BC2A26B02724E5E5E5E26236B95B55E1E1E1F8F8F8D95532FC - FCFCF5D6CAD4D4D4F5C8B5D1B5B0F0F0F0E66A39C23428D65131EEEEEEBCBABA - FEFEFEF7B192F49366CB938CD34D30C7726AC63A2AE96E3BC7564CD26958EEB5 - A5F9E9E3D7C5C2C93F2BE46638F8E1D8D2867AC9C5C4E05E35C03027B82725C7 - 453AE79A89B9322ECBA59EF7A47BFCF4F1FCF0EBB93A36D8D5D4B44741BF2D26 - EEE2E0A22925AB3934A7302CFEF8F5FEF9F8C33B33DB5D3DB52724B12E2AD251 - 3AD9CFCDE47D60FEFCFCBC7D75BD2C26EBE9E9D6D6D7FFFEFDF7F1F0FEFBFAFD - FDFDF3F0EFE8DDDCFBF8F7DFDFDFDED7D6D45A43F4F4F4E0E0E0DADADAC94E41 - F9F9F9DF6648EBEBEBF1EBEAE4E4E4D8D8D8EDEDEDD94E2FD95738C53729EFEF - EFFFFFFEF3F3F3E2E2E2EBECEDE8E8E8F7F7F7EFF0F0CDCCCCF1EEEDE7E7E7F1 - F2F3F1E8E5E76035E86B39D1D1D2F2F3F4EEEDEECF3F2AD2D0D0F1F1F12C0000 - 0000C201FA000007FF800582838485868788898A8322173C5300919293949596 - 9798999A9B9C9D9E9FA0A1A2A393560C717F6763670D710C56A4B1B2B3B4B5B1 - 8323B887B982BC05BEC0BABDBBC2BFBF3A193046B6CCCDCECFD0D1A50C011F70 - 1075636B6D71161621E0D2E2B4E02156E7E8E9EAE5E3968BEFF0F1883A8D3BED - F7F8F9FAA2A601677513DC9481A38D5B180BB0F629BC64C502030A7102489C48 - 31401C0A0713EA3336AC23C78FC10C8504590CD808643C16AA5CC9125AC30003 - CA68D1E265421908633E18D4D8529F290A5DFEAC3933A0A8D1A31FFE707BB54F - 9ED3A78B4624EB49B5AAD54DFD621ED8BAD58B9B6C6B5A85796525C4D567211C - 024D05A70E843270FFE3CA850067C0862EDDCAE283CAB76F2F1130CE0A1EDCF3 - A556AE5D05D649F0A141000A0C2C10B665254C805409EA947133C18BE7CF9E27 - 88BEC9F84F808366DBF95DFD54C785296C26CB9E2DAEDF3F2D880FCCD4127031 - ABC7DF688B4A4BA1CD87CC9BBDEC5ECE9CA6CD3A701ABB4A2D8EB5F577272F14 - 7122BCBB77592FCF40505ED38D4037CA0FD88490C02EDEC87ABF33B410A6CB86 - 319A95E35E0E9A79D7E78C75414170D22462006B072A9260010B1E825211B1C9 - 27E18498D8564768742590001C654C3053796580F51E4F1486704A030370881E - 6E5B3967DE8B9C75C6E287E6E1F44737D55DA7E32E52C1C00377140629E44B1F - 5CE8C5408DB5B1C6FF186FA597581DEE0D489D7CE05810C006097488988B37D5 - E1A59710BCB5998C5B0EB4018ED10CB2608387ACA9669B6F1AC2A6200D9E944C - 1542E639615A71AC0107676E24D0401861C4A1247E7079A8DB04741574DA2B53 - D26662351C7AC11588D02530C651638CA1615B6FADC8951603AD110042D0ECA8 - AA21F4C050849EB07AC7E7067FDA344617AF3864E8922A5ACA9B798B49170689 - B3595964194E6AE14686037CB0C6061BFCF107B46B7C4094A76D71C6E2015E45 - 776AA4B53028EE81E48E6B6EB9E89EAB6EBAECAA5B0032F6C42AAF6CE650F047 - 029C95716B59E09862E87DD7ACB8DBB28CB502293B839913C01A00EDC75B8839 - 6DD0461B5D54D445FF1B0D48BBC150F84140E6568C7E100003E0CE42679CE29E - AC72CA2C13E2A69C28BFFC4B062C4032EFCD67D57B6F876524D0C637E5985868 - 5067B4D5A1AF006E13471C631178D5A4D6B871E9570557BCF4D5584B74710319 - 7F304002A1A6A76C1D67E04AAC2CEBA6DDEEDA6AB7CDEE0880155132CE742B64 - 4E180D8CD161A07F8411B4390D3D74D97110B8B15F4D21367B1744929D654535 - 855BAADB57EE5D440146845E0ED1D25A6F3DED0763043CE3047588EC342D32A7 - 1EF3EA2BABDE7A21705FB083CD75D7BED0DD79EF0DC70614F0FB779510357046 - 669CE977A497496D70EA3973EB034E181B5CD8E29170B0C27464D833A03DA161 - 5C1E5144124DDCC0FF50C46F1B72006793E2F6FA6CB7CF3E8376C280A7EDF43B - 5F59DE80C2F147EFBF07AD56000D009D8A6612104611447990499FF318D005BD - 4DAD7AA6699A37B497BDED758F735A9B98508AE6B119B9010E6D600033DC47C2 - F795B05DBF004CBCEAC7C271E82C4B36D1DFB0FAF7B78614AA0DF7A983E166C2 - 2D0336E6348D5B8905FA0410AE7CE50C6D78943796C8C4EC656E7301B818C6A6 - 95A20ECDA80C1FA040F3426100727591415FECA217C70846328AB18C683CA31A - C3C8C60421830555D8620BE7188B17022A017DF31D0DFD770AE3802D39B8395E - 7BFE2020F8C8112DF6FAD37E488744A631511D4C748805A1D805298EAF8A8A52 - 8FA098823A137AF2FF84EF938AEC8044C752D6C28ED4CBE31EFB674343798D43 - 1EA2498D08B28611EDE3710340CFA26C3432F8A80392137448E6302845A1202A - 3D5E80C0194676484E88F199D08CA634A749CD6A5AF3406F7442334DC9CD4CD8 - 312078E4DF2A69D89038D80793DBF20A4E6A09996DD682017FA8038B8E84C791 - 2D9179BF4B47301930CCCE4D917002FBCA1AE2A0C04FACD18C6D7C661ADB5846 - 851E74A1647C1760E2D8CD8A0EE77E7A0BC8EEC4394E1AEAAA0D7F48D15BC8F4 - 1CBB180452D2A8D707CA60C4D201311DE18844D0F4E910615E302295C4D80686 - D7416EE9AB0B418CC535874AD4A256B309B1939B4597FA0913B5610085FBE099 - 80D651720AF3321CFFD4A52C43543057147416698189D474D3B31BF9D27792A8 - E1399648C10B4EA498A0D321D2E0D00092CD62A80DB5665EA3B9D7315ED34E3C - 981F5307EB4D6A14893375182842AADA51FA5C89A7C85A0EC174E2557E35E37E - 7FD28D17C8862B6FA023A6699DE95A9DE8D6286A7028D798408B20B0062DBAF3 - 12468DED350920DB2EC68E07AF252C37ADE4A70EB974B1E5680842F458557F01 - 10A05A7D4E4E4C33A0F8D462880CF350B74CA5BDE15A76126A156E5B6F6A5A9D - 2EA9702C2AC319BA91DB4AD4F6BCE8856613DE958C65E8F6BD941822AD6A643A - 3DD6D4908CED9724E320BC3F1A6F3D1004627931C140A87AC85666F52C5AB12B - 5AE14AB27B10C9A0FF7707A0C3F00E6079B230006D69DBC50D6B588C1CFEB087 - 3DDC611183F8C4252EF1884DCC61418820032B842F7CE5ABA2D2E5858FDD1BCB - 59F36B0E6AFCE1389A91116E7CE89883004D1661F843A5C666BDEA02371CF944 - 075BB7E73D9C8A6F5A458BEC017AD686616538BD6046EFCC5820E332D31858A6 - 7A725A0A15458B60E460F935EEF83A66B84591E60C84F4EA80654AC458226929 - 35C52739D7BA4F7E7A4FC219DB29D814C5B7016578C59066B1A4493CE94A47FA - D21A7E5760CA3CE385C132B1372E87430230C506546C2CC4EDE85A2D631CFCD4 - 994674B10B70F61C02C8E9E7834A73B2A0594968D26ECECA535474E494B5D1A0 - 8A42C5964671A59FFF19624C3B7BD9AED90EA7757B0A3F2156B17AFC09A9B996 - 448BE878B83C1EF5A13453BC992CAB2E7771A47339814B99F83401E9A6A08279 - 4DE8094E929853FCDC31790307C53E5AC3047836A4039E6C81175CD23D8AF1B4 - 2DCADB4F635BB4DB035F4EAD0619AA325698FFFA5A937AB82CB018ECAB94C065 - 9D9309EFF74466DED9AD3705F9595AD3664CDFB0E44D624F250B83DBFCE037C7 - B401EC54B3853315BAB59AB99A67EA0D88943A89154FB5AA1DCB96CDCCC82B8B - 61E7E932D1EE40B227DDDF4679BFA43CE57B5B248A9E839600AD48BA818A3016 - 014FBBDAD7CEF6B6BBFDED708F7BDA33AD0357F97CA90DF7ADC8E0CC4AFA00BB - 62DEAEAED2572938FFCC846DC8109398120BFAB8318CFCEA492494BC7FC9757B - 4F32C219E4DAB4381673D2EDBDE638C739C1731EFAB96F185E7767781CE67BBE - A1E7F3C114907012D5CDE3C059A6BF3A8CA55706D255D4540826EEA6A7D2DEAC - EB5F36F1C1C394F895A935BC20CBDCEC35DFB0DCA74FFDEA4FBF0934A35DEA4B - 69255AF9B66C9149F9EBD90CD23F985ADDBB2E2E35C6879C5806843461111055 - 430EFC4022C93197D3F1C969CA56E473B7BB2FB7316BF03572C56FFE86760067 - 7D6F97806AC780D5E7806EF72E8EA07DDBD74267B62C03D06516471F97835F7C - 14619504786EA63DE9B74A0D113C4BE2162FD2195F511711E40D911207671059 - A4024178917FD813FF49FB847C55F65657B6795E03362B22558E867628A08048 - 9884D6570037A01D15C87D57A222109081A8D12FAC766A7C07380F86535CD300 - 919785E3245C37948280541EECF11B45280914B006E3616E5072176E26793535 - 6592644110F63D60873189B606D522528C465707117D4A388884E8765291124F - 38471738851A185CF5C135155371E0564382536A9168649FC558FE72282AA27B - 93A53C19010EF6822FCAC128091016166139FA775F2BC7723DA87C9A472DD6E2 - 6AE9F1539C440A697784BA4800BB1870BBF88BB9188CC07884BEC88BC6588CC3 - 688CC4788CC6D8042BA00C7B9688F2D17D52380083627182D33912E14816D72F - 86063E60B78D4D33FF78ACC44FA4B60129927B047413E85648FD502407767FDB - 781192D78ADB75875783681AB331D6E25FBAA14CE4258885389085C85E3D278D - F473668C628DA8165C6A614E2FC70D151765B60791D2327B1E585CA660196C01 - 5E1F723CD6C83496315FDC423984348F98638FDC838F5F977989C68F44912D81 - 9458FC5373C97893CA989338B9933AD9933C8902B1333B08693B79B7906DD05C - 35E4585DC06D78713D5AA75F43833114231190B17FE4F83B82A368B9E719BCC1 - 1E1F102DA9504434C11EF13711AAB8924FF48AFE148B02E83588124B811242D1 - 28093FE99376599778799739B9732BC002EE35947BA209D4C0309CC18849874F - A3555A527489DD68FF0EC28479175349DEE67A7B143811114088821EE5E12570 - 902D92432A64A3148077359A539ABF068E79186C02C831FED595E305729C8002 - BA289BBC489BB2799BB6A98CB6899BBB398CBD599BB3199C3AF99B06904D8029 - 2169815296C05BB937850D7098BFE48DA7B094D2E218B4D777A7B06DE68717A1 - 587B9B0864A2F291FA712964A91466499A55C639E09853CBC787D51284CE3736 - BC339774099CF6799BC3299CF8B99FB9E99BFAD99F77999BA2F42AC759155562 - 68E1175FE6F41E30580AABF727CB320609E66043D74ADD6535172178BFF3908B - D994C437898D359214A64BB9911B63A30D5E2899DF9335A8C99E7A382D6D398B - A9B51F7C1306B580FF021C709B392A9B3B8AA3BCF9A33D1AA43FCA9B42CAA33A - 3AA448BAA34D7003198088055A1816B01677E16593C00028E228542A09780343 - 3D038A27F748BED36B6E254553994049F998C056A61919861CC9247556A28861 - 130970061233956679A76F65499AB779EE491442283603D137378AA4848A9B79 - 50A8889AA8B279A885CAA8F80937CA40814F7A0FFA959D21D599224322143083 - 54231D7016066DC024726A2A46765F73F894BA426AD5F985D6954F82439DE699 - 74C515A541E16ADB322A3C444067182D14238216C39E5D282D7CFA01C44A805A - D2225FB17708330A2870A839EAAC43CA017990A3D4EAA3D00AADD55AADD8EAA3 - DA6AADDEFAACDCFAFFAD28600037A04293EA137EB794AF5438FA823E94100709 - 508A5C956B0801AA06D6A58FA25D3785119EF537180776A3498FE1478985B2A0 - 53D990ABA42B44F396255A1E99A42C671816BD9AA72EFAA2FB18A3C31373A3D2 - 2DBFE17BA370A820DBAC3EBAA8221BB2210BAE272BB2E0BAB22A5BB22E6BB2DE - 0AB3204B004D8012E78A0F26B22BE9681E9EE10663E0AE9300AFBBB199DA2020 - 8592371ED3A5EA2649101199DCC82F34A53D11A68718D998A3F510E6346B093B - 9299F9315303266F0A75736A7EBD1A821373B6C17AB1EE692D22F5A61B7B6E9E - 0A9B9630AD79E0ACD3FAAD754BB7752BAD76BBB7758BA3772BADD41AB884EBB7 - 829BB7820BB886ABFFB777DB048DF09737DB0C8E89B5E3566E5C3101FB420901 - 900033627F6F282D5926A7CA137E81137B7A78834DB37F33C54F16E98581F794 - 5562195A3B7E00F40F6E8BABEBC11803F8279F79676B40B667AB87690B2DD4F2 - 9EAAB021E005A72D628ADB604FD7C5097B0BB8D92ABD2DCBB7E17AB8899BBD81 - CBAD843BB879FBB7897BAD742BB848957D91EB0C9B483E2AC8955CA91E991BB4 - 9CFB213CA44E9D89BCE8A1B42453A9B147A695B434B24A7458BB9E80F7BF0EC9 - 4F60080E0FD106CD47A25B22B694456AD63635B19614E6E785E2B3A7305ABC6E - 69349DA1BCA30220783622DBC401824BC2E36BC2D88BA3283CBED34AC22EFCC2 - 307CC2251CC32ECCFFC2D9FBC2742B064CE808F479BED370254C7234E41110E5 - E6B3402B0971300607661E42561E4CAC1CA5C24CAB4B7E2F676A8F6195C6C7BA - AABA9DD7195C30D53FF63A6CB73A39038167F6346AFF20393D341039F12CD539 - BCC5FB9E5F932D99A459EDBB255B856E40D409835BC3348CC37E4CBD33DCBD28 - 2CC8E3CBAD30DCC785ACBD0400A990EBC3A160999791223BE4C45F3252CAF2B3 - 24120703D0195D022A961BA7D91041F855BA10D985185A8F43F73F541B875669 - 82E6D027E361A29BD91E08848D5D10134E529299B20ACE42BC7C48ACD6722D1B - B2BE1F2C10712164251A43212CAB9800C32FE0C2D1FCC2D15CCD1C30CD892CCD - D98CCD896CCDD47CFFCDE0FCCDDC9CC852A17090EC0939DB6A01632900D6C63C - 851E46BCC99D6C8A67C087452357261AA14AD39D930B82C13B954E996D68EA83 - 033CB05EECC5D4201EB72A4B5E699D19690589842C88B17BD840100370066740 - AC185D149E52CC983CD1A4010799A18E25FA30B1868A817809355CCD748BCD2F - 90072F1DD332DCC2D23ACD2DFCD2248CD328ACCD83CCD22B7DCD341DD424EC8C - F273CEA0D00F58D2418BD433CD62C5C22357F1FCAE9D4C39D659BBB0B4CB0F83 - 6E5F18A613B4BF2F679E4E794F90648EF956B5509B898193CBEE7629F7A7675E - 0C347937C666481722AD219FD2166E312658AD5C191D84EBACBC0F132CDC3075 - 9100CED67CD82F70FFD886BDD88ADDD88CFDD88E1DD9906DD88DDC5E46AD09C9 - 197BC2C321CE0117D01131D60914BDE5159A2CD535027E3604C4A06245CBCB7B - 49C19D70B6911171C1002DB020DA63FB7BB6A95CCA95DA402C352A519CD232E5 - 984053195D600D1D52C78B621E7011266112173CABC69A756E110384045838CA - BC25BD911306D1AF9110D3860DD3300DD432CDD2E52DDEE61DDEE75DDE8C3DDE - EB4DDEE81DDF2F8D02632658975D0910DD05BC02480433006E4CB678416A5143 - DA471C099C5C9819787639DB001BE387DA4DDDB916A615E9724C99A193385A18 - 37DB67EB48FDD2DB50F574CAB43C910238CCA32B01C4C1632C9EA2D1195C29D7 - BD51175F099602E8FFA779DDC1B42C1067C85CF90B0089DDE33E5ECD3F1EE442 - 3EE4428E07441EE4467EE43E9EE489CD0162B0A4B273DF94D063A80055020375 - 63A078FE04784F8D2C511DB4B9444FCF6916C411997356800D9C78B06D5D6278 - 99C26AC51FAA6050AB942F277F1D0E38090D01A353077F7076534EE2BD664EE8 - F847CAEDC1266AD204F195C2BAE830BAC1E4369EF9FC6752C2E390EDE3938DD8 - 3D6ED84DDED896FEE38CBDE9950EE48D0DA9042AE5FDA0248B6667BBDA6D5B2E - 116109CFA50DE6F78B47DDF010F6E12C4AA1536DAB5A710A313FB478072ABBFF - 9CCA984874DDA3351C6E0E5B67250ABDBC7CEEE77FEEC5AD74EBF65B3C907EE8 - 5CC22C8ACEE88B2EFF8B03802DE466E313FD4148E465446EE411A0E43E9EEE4C - 9ED8E97EE4EFFE02ECAEEE45DEE3F1EEE36200376466EA96B106C4E37E7441A7 - 162CBCDCD66D61E9E5B18EC4B924BAE1E3EF6132CA6E765CFEB8B1A4E1DFDC09 - 5CDA157BDAB99D93C9E6146AC018DFDBCDBE28A056506F9DAE97143A5E021731 - 021A35F17E5DA22119FD2CC45BF3367FF3FDA882294E3D53C5E3F4FEF3ED6EEF - 4ACEE4F7FEF3F2FEE345FF026240004CBA03F67DBEE5F4D42BA24ED920315696 - 686FDCAB2105D5096FE0613E10FE1D573BB490CF1919470B6447B32D59EDDFF8 - 7756A69C6FAE2BB0BAF6D68829F27A3E3DCA0454F864094949C51B10841E2D26 - 71F1F0D04110190DFF96177BF3C44BB6130152710548131DE2221401949FEE96 - 4FF97860F9F24EF947AFF99EDFF99BFFF9A20FFAA35FFA9C7FF9957FFA2F6000 - 8D805B903C290EBF43E756CFD639DB19FCC6A61614234AE09A1AE61D770DC7DA - 158C6864E6784928FEC15C85672735E7D948A6B53D8E0D165C760FE2542878EB - 165AFA6B5A42E196D8B221F55BD79BD22C347FF3EE59FED0C2F859E3F8A1C3DA - AB7561937FF4E84EFAF21FFFF42FFFA31FFF9A8FFFF06FFFF30F082F11828483 - 2F4D23193046008D8E8F909192939495969798999A92210C011F756E135A5E6E - 75631B017161AC716D1B6B6B1B1B7FB50D0D6D6D7F03A1A563015690140313A5 - 6E65A25E5ACBCA07FF1310630D141656160C14715D7F6B6370651307E107A46E - 1009037F6D710C5621EED50C6171015D6D0DB56D5D01610C16FEFE5602B673F7 - CE5A973310B4842305ED4F1C0AFC0086A05430DE3C7B7F60ADF9F0E18C478F1C - 39C69235ABE4AC912669FDC1A5EA21056CF3B47DF0062EDC843A670230001021 - 029E9E83800A15FA7328D0A246870AFA895450D2A34F813AF549B5E9A11B1958 - 4CDCC4B5ABD7AF6031596170B0CE282F65CCAD51D70F9EAB35673E90ACB532D7 - 065E6E7C017314C2429704CABC286356AE4E9D325E0EA08D368DA0356C0DD60C - 800321AFC28513CAC019B3765F3F6AFEE2050860EF563E5510F97D1618B0E2C1 - 840B17FF6999BAADFFBB4915E58DAE77EB1EDDDFC06BA59C05DCB4BE380F5929 - D7DD6000849ACE20E4B4C0B350A19E53AD4B0D8A9DEA54A14BB907FDAE747CD2 - ECE6C3BF1053002B8F2961E3CB9F4FFF91A733A148693EE390C2E7D0714416D7 - 5CB6D88557290304F0880571AC019B385A9493C007198D5186425E40238D05EF - 30E0E1451B9C91C061A340E886291336A08A87A079A81B3DB9C4881A8BFF0814 - 42357E21741943633884DC8F10D9B61524EFC0130636BB95D61B5DBE05579C69 - A78D06646AAC20D9007E6E8873D3073AF1141550337C09E6984285696604613E - 75669A62AE19159B623471C3053BD467E79D78521407288369B64617FE59139A - 870108281781E9BCFF32462F6EFC124C2771FCE18D388AEDE7D0350D24E00686 - 1AC601DA3FFD30709164245E160E5AE69CB14117AB78F8998B17F9D600ABFE85 - 5A634006E9185B43AAF42A6590D4DCC6C98DA1C913533D31C6D8DBB2CBC6D8C5 - 712D21F7D2B42F2147DA95A168090197D419C566996D0EC5A69B6782DB53B962 - 9E8B6652E86237C20A2C54015F9EF4D61BD68D61487A969F3A718823A801C275 - 2881B770D3CB04094803D94C88693141399BADBACE8D1464BAA962100CD04018 - B70AE48F3C6D70E38D28A64608C16614D24AA30547C2888B3E41BA2A288E64E9 - 3A4E863DFEE82B6DA1B64611B1F1C0E4EBB344174DF46848CF3325B5D52A4DCF - 3D586A59C707EB78FFB9EE0C58839935D6E45E3D66D7E8A6C935D85E8F5B369A - 5B93198118EFC66BEFDB7067D249176324845602A944F40FA86114FAC1000392 - 444BC175E735011C6B34B0C1A21034FC0C1CFCB11A915B7F68AAD0963AFDB777 - B1A4DD35E237A67A91591D906FD0460081F23DCFAFAAC96C6B185D38B723CEB3 - 396DBB4B930F194941D65469ADEDBD02FFE3F0D2BE5425922E678497B6DC0200 - 76516B420F261E664AAF2EB9D2574FF60CD4A3097DF7D1878DE60B2824B28313 - 71A7AFFE820138378A66798726A8FCF234F077E07311DE4B86708C5813397540 - 876770B5390A54EE626E401CEA6CB51A8F89AA0B91E9C6371263A2930D2071AA - D05BEFA8E5AA0E5AFFC3456D90DDAE7236BCE0052F3912A9C48D681634A6C164 - 692E8409D3ACC59B8CC4627936995AD5C6C6C31EFA906B0BF821108548C4221A - D1888398539DD6C744B831E00F6611CCD432C7C25789C67E8013492C6641B8CA - 08E618DF50CC31EA9080CEF48320FF0A8827D600872C69017E0118D407A9E140 - DD6CA31B8D2BD1A9209680C8B50A541D0C64202910C207F1A876D69252D258C7 - 229FE166851F3C5E0C2739496B61A42437CC964DB61547E7F5106D66DA1A1141 - 89441F829294A62C222A45393602ACE0024568A22CE915860F34CC0D09F843EA - 04C5408BFCE16F0308C916556230CB086630285A4BAB3407AAD050A00BA000C7 - 1BC7D00506F2F29AFF4103D119E0D00B4A39CC1490FB833E34B8B750C5C35547 - 6A40DD66D710E2995078C00AD6CF08188F2335AD78337489F19A568F8CA48454 - 59CA21977632C4B105116B072DE80C126AD0853A3488101D22431DDA5084F230 - A2166DE844311AA715C0609620A5CF8D02009852D4610DFDB2E67F44F387338C - 218B0353C90712E0456FDE4463EBA06333551A8F10D621315A38E93A5824485B - 0DCA8E1FA81BE84227A10BAAA856D8FC203A03642176F6285AEFCCEA8F54132C - 611109922EB2E73D8987CF6A8DE6922839090EA3D33C2438D4AD191DA25B8308 - 578ACE60AE0FCDEB46EFCA35BCFE30A11855685C358A3502CC8911214DEC57AC - 90AF3AF0A8019E92FF1F4FE5D1D297C6458B321D515E2074B70D44D6633B2D6A - 002A77A103E012B22B15243683F6B4A4520674E2280504CC91B287341257E6AC - 5F5547E8239D094FABF16C8DEE1A81469A1D8FAC65155A3F35925658AC157304 - 8DA874F54A5D882E60BAD2BD6E7517AA5DEB6277BBDFF5EE7691202718F060B8 - 8A4D2F45EE038152283050AE23AA8B46EB52C05D7624B598694D17528E3354F3 - 5F922DAA6AB2C146706468006D9886548B2AE096E94244A1D02361C82897D34D - 8E9E165167696FC62B9D29F2C33B5B9DB41AE9D5AFE2369B649DE16EEE3192E6 - 3A57936CED6478C14BE319DB58AFDDAD6E8EC51BDE1DCF806D1E8DA57A874C09 - 2B18B08D111A431BFF22A2525EB2D4A563F888306731D36EF257A8D48187933B - B81CDFBD263119E2568019ECBA6265E3979FB34C6CD3B2190CFE51751AB66A6F - 7FA7D53AE34E48E8252E3DC5BAB4D5F106165A1CA65A61BCA5AA5DF7D0884EB4 - A217CDE8463BFAD1908EB4A27F7C0378A18FC8987E84153EF19C0C9D61A84D66 - 60DF2A6BD9CBCA651622AA4CC9CA70D238DEA897E8ECF2713780E4039421014B - 5E2D993DE8220AD0E38E3485EDCD463721D3AD02CEBBE5F0557D6B673B278746 - ED78E4892569D66BD9B0C52E0628F3645C631CDFF8DBDE7EA88FB34BEE70F778 - 011168820E32B0C44C67DA2F0340CC4DD6E0A9A2AE76D4501E807D43826A9A5E - ECCA2865405FB61CFF56E5B83040BC30B0503936E640CA9A155C065195857D33 - 700AB056194EF621DDF9DB8E9FF0D9B699A7719BE6B293607B382F0EA833A6B8 - 93485720D12F6774CC1B3D7345A7610133AFF9A2757E7344BF5CE78A8E799C44 - 004B77BF3B53C540982E172C5F733E790C2FD537480E95EA7F8FC31428F597D3 - EB69F0694D69B4BB3DED3AAAD8E02E37FD1ABF4E6A1DBCC8D4542112321AA71D - 5641BCBA102F5291D2E2EA40F20C80DC200982D76E31CA07ADF267344FD2397F - 34D0612E699C377EF190AE79BA5F2964A3ABF78951BCF5C6984E5427E31BEAFA - B66FE0B6F99C92615D27402B38B55F38BC2ED01AA8D2F92FCD38AFFAE538BC65 - F5904CB0A1438E93FF7D4045C889336F39DE6C8F2B2DEFFF89F6B0E0E16BB49E - 7CF029971AD55A7EDD9F3BBEFA8EB7BEF6B37FE8ED637FFBE0E7BEF7C54FFEF1 - 875FFBE9263A622DAF58066CC0B1CF4030C3ED2D6AFA823EF420B9214DF578F5 - 56FBEBA8AB4756C1134265601370B0010AA66B82F470CAB180BF06619B052137 - 710690552871D76174667CEF94816405715D352C2C431A81E76283A76D9BD43C - 89677DDF477E2B787EDD577EDCD782310883E64783E2D751305005ECA75861B0 - 0617620A1FD0051CB36BB9657F51877F973519A56722AD26705A564F5E477CC7 - F70966310E65A06450554EB4C78010175FD8F060BB4741B6964BFA207CCA3667 - 1AD871BF835CCF06FF1003F108F8F26BCC458225F85C3AB4131590873FA7877C - D8877E88737908887D28887E58887A48888768888A18888B388815D05117A083 - 3B08523DF8832C477BF1F574472875494819FC1721FE472C527524C87577BDB2 - 0109704B5323399A43665C6876BD267123F21CE1804B7F62811B764873677774 - 172D6C986231F381C4C520BA308782067D84B76DD491888CD88C7BF88C82188D - CC088DD3288DCE8888D7588DDA988D798883F332894D544B9B9240018789F1F5 - 799B28751CA1849F787A4E0848A4C86C4E8334A3F14B48162165A40EAD43845C - B71C4CD385B1385AFA951887B31610748124248FC5F78B0CD9861F6801CFB40D - 98858CC361822B37FF7D00D0881AB9911CD99179E8011E19927A485E59B17EE0 - A83EB58418706445F4E721BE466AA117931E8147D0D17F59278AC5F24226448F - 4803418B535A37254EC1032CB0D68F5D472D0D1856CDC746595290F96086BAA8 - 9069D890BF683CB7252AAFB011C7489198F45C9CB48C22199662399664C9876C - 931527C944E2D85929B56B1FF492F916939C884756078A01879339093C3CF92C - 30D25266E1306A810BB7A03245597B47394955828B0E8338A70395B423850B49 - 950C591B1F532873C89515698703050048F091150092A0F999A2199A208906A3 - 799AA4899AAA199AA6599AABF99AA9199BA7D99AAFF988319015DF98966F9392 - 77331BFC28557079FF7F72191767A08496B10C40E86A00E64C3B438F4613236C - 7421110207BF07412F831A49B980B2462D4B032BB1F38378A30F7F8090885477 - E6698AC7279993C90FF2A00DCF87995D49685F0900068004B4299B20E9999E89 - 9FB0599BFDC99F00FA9FAF9906727201EFA19B70B396B7E61043E8962E698431 - 197503E35AAAE6302C87976F59773D5934C9E27AA9A80C98E367CF920FC7C155 - B7E78FDCA94FEC491A55854B42399EB9F898259486BEA89E6CC89DBAF09EF019 - 7D02553524600262900615609AADE901466AA46870A44ABAA44A3A9A46FA994F - 1A9B1E90A44C8A9F557AA5589AA54BCA0505DA6E084A4BB6D49B9EC18F0F0A93 - C3290BBDB101FA85FF0C9AC12D18DA3B896434C8922CBA9070A42054B02282F8 - 90416587A231D40A01808AE3984BF5489E5845A3E969A3C0F8233E29783B1A9F - 85379F1A90034D4000421AA0982AA0991A9AFBA9A99E1AA0041A64B9F9A576A2 - A078B30FE6285FC17984F9B701D7590F9E030770800E63B739A0E26BF4403474 - DA1BB9D052DEB00C6590132CA21BA5112579D7800CF8A7EDC994D3A4226017A3 - ED34A3C557A38A3A3C24D7A8748899165968D4C104931A036280A45A9AA554BA - A4E5AAA4E77AA4E93AAEE2CAAE53AAA5EBEA015C10031EB503A34AAAF3C19BFC - B28F44089709107503323851B262FE244ED3B09C471513749A0BCCA20B49D55E - 63B864AF428A4962FF1CD8A91ADBE942ADD006D1F44608360F302A67BB789E1F - 56AD93A95C8AE3A88FCAA32B476FC1E003DE2A02E0FA91E65AA52550A5F17AA5 - E57AB3EDCAA450AAA43C8BA53B6BB3471AB4430B922AD0362689AFF9FA01E3A8 - 400D4A666F09A1015B17039B9E2D414E9BE392AEB0ABCC720BDBB04D9B72139E - C50EFF62117A9A0E25DA3A198B94A27225A557060856A8D09A9019E86C268B5C - 5128822AFBA8DB9A31D504005F60064CD0021A10030430A4497AB38BEB01416B - A4417BB392FBAE8CEBB8963BB990BBA48F4BB498ABAE96DBB8930BBA97ABB9A3 - EB016930AF1EB5B44C1B1695088A41C8AFAEB8AA558B0BB9C0974A4325F164AB - 7C03234AB22CBF41FF65BFEA69D5341160652C73AA0F7C6A9862F5121FD21C7F - 19ACACF2AC222B955A95B7374A72399AAD5C69912615840C20055FF0053ED002 - 2B30B343FAB9968BAEA43BB9A18BBE9B3BB49BABBEECBBBE94FBAEE25AB9959B - B9F97BA42A50692C7069AB1B1FAD6B0AFE3584B0EB70C1194C5B640BB46BBBB4 - 11332BA5BBEDC9B0BE0B1C54F6A177B3311341409144B1F48871C96A956FEB3E - 68E15FF5988A720699C263BDD78B3C2CA6BD14699100941318E00366E0035B60 - B8E09A068E5B023EFCC33EDCC3920BC4445CC4462CC4420CC4486CC44ACCC43F - 9CC4471CC53EBC04FDCB6E9218C060E17E09117F09E62244D83291211225C1C0 - 0D4C8FC817C1BA8BFF76A5E12474711275937453D40EBA9B9349837146793C5D - 88709D167B208BC2BC35B2E8C9C22DBC3A2FBC95F0699152330018B0C852100E - 3ADC045CB0C4685002933CC98E6BC94F4CC9928BC9419CC9979CC99CBCC9433C - CA92FCC3987CB9981CCA9FBCC469A002AF745E589CC550241857B821E704900B - 380F8A6372C4B1120D8CBCB7CB64D764AB6807784EF24FCEB1298BB131C9C71A - 38B2BCFCFA8ACD4BC2B177C2758B869129C8D65A6D852C387EBB564CC8C81810 - BE3E20031A40024D900668A0004EDCCEEEFCCEF01CCFF23CCF5CA00222C06EB1 - FC15168074A5904BA0C675AE182B3634C650C2975202723B25C11761C1FF9472 - CB306FA8736100B6FF757D6A760CD21CED55C2D18B8AD77CA878ABCDDB2C34DD - BCB2C94829B1B1C8286D06E130072D80CE5C50C94E0CC5F13CC9F37CB9ED4CD3 - F3ACC9335D025CFA4AF69ACF5CE11716F23007F8CFD929607F07B664EC2C7887 - D046B5B56A9C11FE6412282119BF3A0E38711C10BC325A58D1491929162218D5 - 1CA87E7C862ABC8120DD67A331D2248DC8268D017E00D78BFC0507F0057E70CE - 31C00525A0007CFDC3ECFCD7440CD8ED0CD8EC0CC484EDD77B9DD8869DD8828D - D88D7DD890ADD88E5DCF4447057C07D4926001ED831819426FCAEB8A1ECC1B0D - 6BD08C2447CCC439AF50918267D588310E9C742CC89B8550CD60B2F621A425D6 - 5C320F1C3DBD89C4FF8BD40AD25EB7D6DB00C3C8E8D69482D23E80D21800BEE3 - 4BA953FAD88C8DD83E5CD8921DD9D47DD8D31DDDD06DDDDAEDD8DD1DD9D9CDD3 - 4DE0D3008CD99560057B921F9C84ACB008DA7F47C1657CD0C1684DC4EC0AFF84 - 6D233119AD1D549E950DBA50170E99D0B4DD85FE1007B46638ADA6DB65BD71D2 - AA86698D4F843CDC86ACADE06CD25F00D771BDC87A00BE07E0073280CE2A8006 - 7DB0CEDADDD77CCDDD7F6DE2279EE22B0ED92B5EE22DBED72D7EE28C3DE3364E - D82BDED3179005E67D09217064177285090671B5EDA028B61B4653C7C2DC647B - 139126876D5A3400FB87D59E85AB739A347AC353DA49230DF29709940A0ADED1 - D47B3B0F0EE1BA2CFFE1DEBCA3884C0A97E10617AEDC8B6C065FB0057ED00239 - 30022AA0CEDFBDE728CEE77EDEE780FEE7825E0290F8D33D8E1B61D0062DEACF - 41C28064EA3BBD7D34F330DF51B5524E8EDF211112935185FC0DC289640FFA28 - E05BC8550CC227D3D9DF647DCD679DA865BEB7D93BE1DBBB56DF541367E0E6C9 - 1DD7192E0572BE054C900324A0022AB004327EE3C45EECC67EECC89EECCADEE2 - 3D8DCF87CE099EC0275BC28A8E4EA6E8546D664C944D27559C93B21B91E9E02E - E595E1DA08182CCC2782B3B24B99E8703253EA09F14670503B01B0060B2E771E - E6DB65DE670BDDB76A2EEBE5E045F30E0107200518A007CA2D05CC3D071A7003 - 31A002C3BEEC101FFFF1123FF136DED330E004F7FAEC63D1007020D657A5BC47 - CD609E774FB461A295BEBB290BEE1CF1112EC54D6E54071B1006CAD717A22125 - 0C27EA528BDEB6849CFE4C60F51EAD63FEDBC08DBD684ED22C8B16FD93007010 - 028D35F0058FD271CDDCDE7AB8C15E020860EC57CFD759DFE25B7FE35B7FF560 - 6FE35F2FF6271EF65D5FF6CA9EF55C6002AF4405CFBE3B9B5652E4E819AF78C0 - 5F0CE95679F24F0D321299E92C3F93FE46EE32BF15A9D7EE5B4B70AAA5F3D2A9 - 19B5D305D1C9DB5399EF7BCBD62BCBBD81D90000606492E2056650F0C99DDC08 - DFF9857BB8E9FCF061EFF5647FECA7AF0067AFF5588FEC673FF6C4AEE33CFEF6 - 901006B50E9808E6FF1F756FED81D4C149A9F780746670419C2C0F3803D00DD9 - 1254F4D65545E2CC69AC8032A3F83CEF10A4C13029DCE0D5DBEADC5CF46DBD56 - 07D6C58D30166D001852E007B88ED2BAEE03E37BB826F0D27DC0FA0830FF66CF - FAF65FFFF47FFFFA0FF6F30F080A08820883868288878A898C8A85898F8B8B0A - 5C262B1745009A9B9C9D9E9FA0A1A2A3A4A00C1B105E5E6E097F710C61B1B2B3 - 610CB6B7B8B9B916B6B1B7BCB6C00CC216C014010D6B67CBCC03CECE0970106E - 5A5A106701B621DB00DBDE5656C5E2E2BFBAC156716765D565090D71710D6770 - 655E07F75E10637F01F0710100FF0504D8CF9FC18308131AA4C05060833F6B22 - AED940B1A2C58B16FFD70CA8E3E6DE817C03DA5060B06393853803BC489182A1 - A54B295FBE1C6022E3460C1568FA3482246967CF9F3E83027534488150A15C54 - 5CCA52AAA9D3A75045596893C08D970975D6C4A140AB2B2D7360C3F21A3BAC2C - 5906C792395BF6AC6D348EEC06741969C18AB710E0F28EDB6B76D7B093EA0E68 - 2933E65D803F63EAD4F3986FDFC17E90FF299C4C1921430AF002B4812811A367 - 8C1A3932D6F78E018B4C9A2C0480A3E58B143F2E639BF9C2A4C58D265C0AE9DE - CDBBB7EFDFC009F116FE5B3871DFC7811F525042298C2A53A24A9F0E8A9B5374 - 1FE092DEDACBEBD7B0E0FB921DFF975718641ADB0E18C39E7DB469EC0AC3AB75 - 0E6F5E707BC99DFDFF552CC0808E8DFDD1853CD2943141355A4CA00F3FFE44E6 - 6065104E7659669B4934D167186E105A47F86CC740062C1861D21E70B8F10506 - 7AB4E403062BCE465B0B39DC94131ABA25179C728644A29C8DC52157238EC6F1 - C645132BC02022754852875708D785D14002EB9401C71A018C048B77DF85A7CB - 7EE491074B3C1FA8D75E7BEF753458615D00D44517718461817DF7E5A79F7865 - 053006350A8EB1C11F1FD053861B6E4C20A81B0B3E26596411267AD084FF54D8 - 59869F8536C168856523820830EC50456A01AC5186192862009B8A6694CA0413 - 1AC49042097DE0E8AA0BAEEAD6AA72B0CE8AA3ADBFC11AEB6E955CB203934906 - DB5408B030E05408FFAA7D908A820394762596596A295639C100735E03618EB1 - DE98EDC1510704935AD36C005D6CB6411B71BC799F5E721253AD2D5D54A5851B - 758CB10C94135C05A81B7F2E589040900DA4E8C05B35D4286711411AE9461C7E - E4E108226400C31D59301942181B94E1DAA82A62208519F7309103092A7061D4 - AE28A7ACF2CA29DB30E452C2C61C0A5E14B4B14103FD70F5A628C83600872A6E - 4C19402DD076252D785DD20926B76324E0F4D3101828581D1F14A4590373BD09 - 679CEDD2C90B55074AE9343DF608A62FA01024B0C1BF87B64DB0A28C6A86F085 - 0A5FB4A1161D56CA400123E820C2052C44D74D1872D4F1851F29C6E631C83ECC - A1410E2670D16AABFFB52200EBE596675E88AD946BEE79E59863CE79E6A2CBEA - 7921BA22606BE8A49B9E3A022F3F27B8CCB40FDE406275C091C0191BA43B4A08 - AB55039248456379F4B4493310471B1F8CF9F4F3DE5A35F51F6EF6A2B35DDBAC - 8B5FD76315630BD8F3C2117DD91E993D413B541A8AE8DB89C6FD908575833680 - 34933A2CDFDE23F0FD370CA8013095E12B5A51C71667862DC0E8264B50C0E458 - C6C0063AD055B12B49ED6466052741C923F3CA4A1CAC209536B0E61E41A31243 - 8A67B4E36DC96B65595EF312D034E88D0D3E1F4940173868B1BBDC457BE1E0DE - 3818E0C149110A86E5C3E02AE07006AC59AD6D6C631F65260490F73D2A7E15D1 - 4802A691379CEDADFF0058EC9BC48A60310BD8010E0790428A38E6310C98EA71 - 2468C21254D73AD6B9B18D707CA31CE348C739DA918E2E23D2058E3441245981 - 01878112DECA879533B4A14A0C005637D0D28601408052FCB012096561C26905 - 03172A6CA10B75A79803C53000D5B1210E73989F6184E37B0998D4F9A8810F41 - B9D20BD5381F116F4690242A31424C44C6DCA09891F981AB8AAFC022DFF8A603 - 89F16007D1B10205DE700033F8C007645C49A97CD002DBC4C0649DBBA336EBC8 - CD6D7AB39BAD831D91B0C0943E524735F3A8C72031C8AF7AF5CE029BB042A74A - 543FC1D0CB901430CF246751C91392074C9B8CC65B0285B7098C01949FB061F6 - 70D8AEBA14C34970FF085735F041A86F41206A9E1CE2183E60C45BBE2D6E8E4A - 182F29A291120D1224A511A64A21664C3668220E6F3810A812F792D96CA13631 - E2C21AFBE0829E5ACEA7A1E3294F81DA53A1F6F4A83FBDDC5091EA029E5ACEA9 - 4C251D50A17AD4A62AF5A84B2DAA55939A941C5CA09CE67C0AB20270865404F1 - AC07A0D7075EF1C73864679D8C6145EFBAB34F5FF4B31C5E42C61904AABBBE8A - 4F1A5661C719E2B009851A766BECCACF29E3B0818806D10B521AC0199C3186E8 - C5B20CB91BC01A8CB83E8F4AC8607283DF4835C4304806337F59CC623133A589 - 10C4810E3F73A61F02C8A2DA9A01A724CB4D37A11A47A8F2D68DBFAD6370E538 - 5CA0C6D1A7080083FF738CC0C1B096825801C84E3DD15A3E7A0D604F1BD8C874 - 315848E2D5959277F58BB5E2F08779F0F5AFE2FBD6811204813584A1B036EC86 - 61192A8EFBA0A50B652D9B165421258EB6A10DEF4B4CA05C5986B49DE10F87B4 - A5672DD39026EE526122FDC31F367006D1E0434A6BE8421854CAE102AC96629C - 0223A860434633DE1646245B421FB25AD516BBF8C5308EB18C674CE31ABB7809 - 96B880049D3B0A740291BAE54B5081A36620B872571F6B6BD377C11BDE4BF6E2 - 300338EF5FEBF0ADC5ACC21DC66A6D7CB57C43ED8D432FE769EC3AECC92F387C - 402498F94717CA5BA0F50E51B33853F082FDC1C40169E889917A9484295C2276 - D6A18801E83087FDFFB645C12D5363A0EAD88A3EF685C63D4E052A362A516D4C - E9AA26D5D295CEF4A431BD04157895074EE07142C3815FB302F9D4A716DEF9EA - 90800C2B79C94DC68531BAB081CAA237BD54862156B49265C3764294A3144718 - 5488AFFD8A6DA3E8EA0E6634B386CA1679BFF4DADD9E123C67062FDBCEA2C590 - 48F734E10D1D79770D103487B598A94D01E01475686689F5009346A3EA062648 - 41534FA0E97ADBFBDE9556800A6ED002502B52D4DD20EF143D495D23A3BA7C57 - C9D70408E598672D993E77B51605BAD06C6F798BCAB9AB72FD58D1807C7279CB - 1F472CD726FE878D1419B2AD7E08CE0AF698357F20011C59EFAA13006736557B - 21A075E2B6236591FF3DBFFC97F7107266C53DE862EAD8DC0C58C323A1F94CDA - 7ECC99D4D4800914C8E217D31BDF34BE3AD6EFADDC1B64800AE606F8B9375087 - 7C193CE80B27DFC1E3FA27B37BE1CF557A383FC36B1E6263FCEE55969E35B051 - 971AFA3AE422C7CFC45FAE4E63C321C999015840B6020F9BED1586ABC06C023E - C00F39DF12A40F8EDF849BA718F209F9A27520FAB8597A9AD478F00B66800D4D - 4725852D1810725CB0411FE84D7B17D4FEF6B6CF3DEE77AFFBDEF3FEF7BE0F3E - F0876F7B1BA4E0064C6041A8456D8130FCE167059F79D3A6A1F654471BB0780B - 219BE46ED77E8E9740DFC2FBB7027B8009C0817AD83BAC75E4AB7E70288F7926 - F50886E7128634ABFF294D019950B96A0D17B447F666F8576D97B16C21453710 - A60C30576442C42F98257AA31731A7C1245310006FA0127E803802E4313E807A - 3E20031A90462A7602B3277CB97704C1D753B88782BDA78226988224486F2DD8 - 7B3138832FE80231E802CA950319C003FF664E71B006FD87566F07689AD12763 - 866A0952079AF5739372656B3312DC4777681100D93545E2D7497873266D9048 - EA771780274ACDD7057D223DF8403536677FB5544B2DC7668B710FE7A30F1FB0 - 0101C87897C74405688019224551034B70157969E3801D466E3C80741FA005A1 - D2121CF33130511B24106F36700290687B91780247407B952889B407899A6889 - 99B87B974889BB37FF8993F889A3A8899F488A9D0889A8D8752D1022CE750A10 - 70764107016BA5351640017F2048A99627E7D2066BA08B83A13605237711C70B - C4E62D1080777F620FE1D33B34D485D0B850F73586EB242EE8927869988D8B47 - 806B403666B30A10000763B006086679036387DD8667DA363F0A1844D0168E67 - 008882E637170003E564016B30011C382A192805E5474D230369F35683C4377C - 23F87B0749900A5990BA677C37B0022C1076B5435ED08756195435F0144FF1B0 - 5758F858F4A22709D60615563601D20FC41871CA5372C8A88C64A820559348EC - 178DDEF06BBC800CD4E81179E20ACBA68D3C994414470FFC1228FA923B1B558E - E6884B0D612ED916FF29CD430F0417646FA83B1FC06106204C55894557B952AB - 851A0CF0078FC41225E61227F6812A00069B789668898968B9966B89896AC996 - 7019977279966A797C10F92B1334063FF6581AC400CDD55ABC40728E345DE173 - 5DFF95263FC921F302010310490FE770DD271635F98B57B88783E40663D0066E - 22937F575880C47F04157484517987D2933DE90FCCF3344E7959E1A859D43680 - 04D36077485278A821679018ED8841C69636DA3295F228685AA463AD950560B4 - 3117181B8C8601EF1639AAA30673298ACFB9896FF996D1599D72F9962EF39011 - 3941DB15645A90151430935EA8097F845F25A20A43746087542E69928B0D9384 - F8C47DD122166120FF92D2107E1755060A382FAD4001E9C799F1E50D9F493FAA - 202857E60AD8689AA6999414011153044B41176D94774875D8787373213BA721 - 9C477E417615927706096395BFB9522CC5035C040030054662A43826764631A2 - 020AE002CE699D345AA3367AA327600360402499D28349726AF4A21519C9659D - F04736190DBAC33B58532E09861847281884D171F5279F73071EE4B511181735 - 4219A187F70A000A7200704AF3B4188B4965AD667301A3A03C7910F8E78B7A59 - 4F42268E1C9526F0C02895818E7796A15114264EE98E97C56A0310875833A244 - C75230C0031C244F09D04C3EC0121DB31207D06832B0028D287B338AA36B397B - 98BAA9D609063150FF24C8243340F69DBCD65C87255F39742D0DDA000DF05F87 - 79187AE97951DA265C517FB57A9260517F149718C9A8A54F697EBCA6355F6A1D - DB708B54480F27058782EA206AAAA692B115E482184027186F286D145A3006A3 - 10B0B93CE9A8A71A1A659DD7A11E5A2F1F50AE9154005599AEE8BAAEEADAAEEC - 8A45F4C803E449225ED068A2829C1BB8222D902A5C70A99BE89C007B0297AA06 - 044BB0027BB0015BB0086BB09A68B0098BB0070B89012BB110FBB00C6BB1D209 - 06267003C2193316990F6B65313179AAF1A43C02B126AEBA268851076AD70EAE - 30A5B62A9FE0710C253745FAB98C5938445422ACD933ACC80248D8E28DECD00A - 6BA286CD7AB4D8BAFF6CD29A2F8C214BBB538EED83A74B79671F709BD8D7A1ED - 54941236175794952A9595602BA2C2E437875A05DBF0834B171B19582A33912A - 2A900236A0B0131BB115DBB0764BB1189BB775ABB7030BB114FBB77B9BA34DE0 - 5554303B488256F7940DF0058D9C8017E3452E00D6066B16AB83C49FEF00B303 - 78AB8FA90B4598808002A16E9836AEC085DF701F8C5BACC3B6B2D47059678A8D - 8A77B40A8A106B66729E078E7000670591B909C1284AB9731151AEB759264606 - 59F502A250EB26EFEAAECA9BBCEBEA61FB13AA16F0071A4362F74A2ACEB4AF24 - A02A7D50B0DCEBB005DB01DD0BB0DE4BB0E02BBEE41BBE028BBE72FBBDE39BBE - E6AB06E5EBBEE14BFFB047B0A31C8BA8C182566520176160AA3E1B2753C89E93 - 6B6A505A185C91B99721B3B940B3BE64764766486ED277A3148D62BA01038737 - 9095366B70ADA509BB1EFC2F7AE5947CB85FD53AA1B99B668B52A707B3946B50 - B5D050266AC75E9317113863250C10B65829B6CDBBC35E4B6E7869055DF0482C - 729C8BC622FEB805731023296096E17B04F3FBC44E3CBEDD5BBEDC1BC54F7CC5 - 567CC55A3CBF7DA0B11C4B05F97B56B4980D12ECB3DCE0B8689178B743C06722 - A5083C42B86A3DCB935D1CA15FAB903B1FD0053059BADA038D7F347850C28CB2 - 745D74BA6CAFFBC1CD4A6760828CCBE87F728A606C92446FCCADA2F5BB93E51E - E2B38742D40E07C6FFAA88040CCCBBBCA29CBC5A042289A4A807202A34D512EC - 9656480C028D98024E0C041D40C5E45BCBF09BCBB50CBE54CCCBB97CCBBE1CBE - B6ACCBDF8BCB4FECCBBBCCBEDC9BCCBE7C04FB76013C78B867B5BFE84217FF69 - C6A77425353306651064517AC06F9CC0FB640EC730207C82ACF6A4C138B3990B - 35C1BEE6B8714071819CCE6626205693A6888CC899C12767B0A1EB64BB1B752E - DB18CE7293A7544B59EE01C37E662FE5C8159734CA101DCAE83A0225BA034EE0 - 5AE9A638FDC822CFB4AF4F206FBF4CCCC82CD2213DD2E71BCC247DD2254DCCE7 - ABD2BDCCBE28EDCB36D004F76BB85081B8AD46A1117CCD66ECB8C9C2C6DF6CAB - E1ACB9E31C0B9861FFCE0D60C1ACD418A55117A3D4C7BED656D812C8D5605D1B - FC18F99CD504A166AD6A93F404A1EF288E9B45A7758AC0DC9AA71171C94D4326 - 364B3E58B1519B353465110C06A0BC752DD1115D95862A41555081ACAC07ABEC - 315FB00518200339F00465790434A0CBB8BCCB8E0DBF8D1DD9BC2CD9903DD996 - 2DD28E4DD9992DD98D5DD99D9DCC36F0CCF23A1DFA3B255DBD15B5500CE0D0D3 - DF503365554FEDE0C6434DD493B49376F6070FA18B6F27A45DF6D4797158AAA1 - BACC784F0282D55A9DD50D3210F20073759C850BD79A1B6C73657DC0D14AB52E - 9CD0DAB21E30A7770A52CF354C27798DD7E2EDBCD0BC29AA1105AEA107B0D18F - 30E14C8EA3C471DBFF07CCCCD8235DDF986DDF1D7004F85DD9248DCC9FCDDF97 - 6DD226B86F194006CB77D367C50A9B25B95B6D253C3DAC7F741E810142EE00CE - B34DDBD0726DE6B2270FC1CDB0647E1BE09F4BE2DBEBA250E140010D30988384 - 15E3D220877CDC1FEC36F1CC194C988542378E58F3ACA83D6CD856B56ADD1E6E - A1189775BB020D71E381AE775DD7E99AE44CBEE44E8EE44E4E6E54106A0C7027 - 2772AF64542A2F12231210B71D40039B1DE6623EE6645EE6667EE667EECC3100 - 2212D914A5BD59AD9AB226694ABF6DE24F7D43766215C363E1B35D3C0D462E0F - 71671CBEB4E1433DED4CE2A6AB17CA93E2A6C65E8D09C2301EE95B0DE9D16A72 - 04078ED2C6AA0C5EFFA7D19AD6080DE4CDE06C82028FE7D226D45216E19DEACC - DB0414FD37A8410172602219F81204845B2A6003684EE63850E6BB9EEBBECEEB - 65AEE6051E15380DE7FFA5E9F8E7D0A664E7777EC63C749B0C9D33491BCE197E - B20F918E1F3011B85D72E052E85C88E8A6FB0DCD07AB4097418D29DDF82CE9C7 - 8D445CDD27D37AE3CBA0EDD4562161F2E9CFD0CF555B59D3008FE598DA5ED3E4 - 501EF04A2EF0003FF04A5E957FC3023BD01F2AFA1A58DE122C7162B05C9627F0 - E5165FCB608EF1999DF116CFF18E0DE6201FE621FFF1227FE623DFF117BFD929 - F0A941D0E6A3F0E671EEAA87897F727DCDE0BEDAA784C2927CE1704C0BE5BC79 - E51AF40983602557FF7609727EFD7BF3758E17B040850F9A854103682EAEEE54 - 2F309121CF0662C715A53BF632D67676DDEA2159411FBC54268E7268EA97441E - AABEF6CC6BA8857B6E8BBA31C8E9312B712A8F63022A20A31E8FF21CCFF1BB7E - F21A1FF27BAFF124DFEBBB0CF8252FF87CBFF1F9AD02961004074E0AC5DEAA4C - 2AF3C8FEC94EADF4758EAACDC7F308EC1569A10CEC2159FD3CF49BA1E258B101 - 49AFF4D9638CF0778443C451945EF555DF360C21CF55C687677351728A5D2EDC - 16CC80EF69DD4201CD264EF6EF079FFCCABFFCCCDFFC598429AE48014A772263 - 34F731E1032070D82AF0032700043420F838A0F8E2BFF8E30FF2DF4FFEE85FFE - 1D7FFE82CFFEEB9FFFF136F0F8912F0A302FB9327FEC715EC8A9FD9FE00E0821 - 2100008256160C896114718D148F90916193946171017F1F0363630367671F6B - 6B1B7F6D0D0375135A13751B615687B0B2B3B3822116967F6770655E07075A6E - 70670D018D9701C9CACBCCCDCECFD0D1D0718C6D6B1F6709106E5E5ADE5E1365 - 657509A01FD867039E9FE6A1A2679C631F7F5D7161890C8889FAF91606FF000D - 140038F05F418104131A0CA8D0800E111960ECB060A54D1D337E30F8C0C07123 - 0633BF7CC8D04022C69213345276A0B1B225CB972E63C29CD90187CC9B3473E2 - DCA973A60D132B2E382144B468D15F487FB949B0A6419B2E6DA24A9D1AB54B32 - 0AF96869DDBAD582FF57068B1C451A0BA9D2A5066BD27532276A83D35310544D - 80E30A1645AEB442580913608336375A7E791176E68FB1C3C8A4295ECC58DA25 - 645D22EBE235C1173070E3E0AC65D7EE9CBB77EAE6D5BB87A874BED35EFD315C - CDBAB56BD64D46E8C870616296356ECC98F1E191A36F1F5230F86991E3099823 - 2973265FCEBC79F3952A5F3A9FEE1C3AF5EBD157DA48B1224815A3E00124455A - 064ED3A754D337706AD5DEBEBB78E3CB42B4681259B2663169E2E4E95CDBB767 - A4B24A2B14D8259F5DB874B14602654C8054307514664C23873566E185183E46 - A135DAF412183013B801011C09F4E7D967A2A488CD1AF46085DA8BA57DF5DA8C - 34CE58806CB4F160FF01000CBC919B1EC275E49B6E5F30415C0C2AD8909C4BD8 - 353953744E52C76494CCE1201D0D3FAD80C550E111359E524CB1971E55EB5595 - 0C35A45961C8815DF1031623D4DC470125717491C9266BF9B7815BA604C80D2B - 6B14184B7C7AE112C0821058261804096C500F85896128E9A4D34C7849171BA0 - D2CB8321D6A1195B29869A16284D8D06238CA931C0100100B1FA8FAB06C00AEB - 6BB3AE7623442C141102030D9461867019F9C6916EBBCDA1410E49AA41031054 - 360945B3CC3D0BEDB429657981115C86F7E501E59D07D598E04A7555566CCAF7 - D5228CC8F9C82475DEC91F5B7B0258C79F75AC1107457779D515031428A88D83 - BF68E14519097CD0FFC6999426ACB0638C341060191F8258DE18A48A3ACA359F - 3465CC3DFBE0C34FAA0CC451E3C8240744C0AD11F1E044165DC0718014C109C9 - 11CC071429430E26A4801CB3D452CB3373CCFE1CE5CF42370906505850614597 - DB2EE56DB863AEC75E23A4E95B2E57FA542227BBFAC1936728F19AF2012F5E78 - 01C107F75A6DF52C86FE31001CDC041C4E1D036CD0C631152EACF7A489510356 - 1C70A9F2E0381483DDD606A278A6B18BA6359E1A7D01B4D16AAC94B36A79E598 - CB3AF9E5AF6E4EF98D3AD4568513712470C046C10AEB83195FF8606471292C1B - 7472B3A7040510CC3E3B7BEECBD2A0BBEFBDEB8E3BCFBFDFCE7B4AC303CFFBF2 - 40141FFCF329E170FF74504630FD65B762420DB555C66005DFD5B43CAE089C63 - 718D96D7268EC267031F3058F6D971F483202C6B3280C918F3463C010463688C - 77A47B0B20DFECD385F671E343102AC707F6C440C4B1C37F1D6B1C6ACE1500B4 - 94EC821894CD0560C0030654A10110F842CCF4B091126AC40745D2400CB86003 - E4C86E3944EB5DCF902743A0D1AE77459B4E0E9D23B4A3E5E00259D0D6979C96 - 3DED69EF5155FB1EF810343EFC58A2826979979ED637B60699ED0C0148CDFC64 - 9188BE304870C07043841A80A6B03C468068CC903D16E1C5B85826188C3A83FA - F694B88C919171A78A11E4D03280CCF9F17280FCA32039E747038C600410E1C1 - 77BA603A29F8410FFF4012964676D30215E66C670E68DEF036B949E36912779E - 0CE5F03C993C4E9A5276A034E52739494A55D2000C29B8C116AA67946D610F3D - 460C5799DA33278FB1498B6CE3877D247196287E6D147F680054166445086051 - 7E6A430405BCB8A9030C861C0673CF9BF086B0347A331A7E63A35FB6D18D3092 - 438E0CBC063642510C1775EC9DE2E3CBF9C6B01ACDD57346B5AA556B5C558002 - E06A078C904319BE1049497EE40B66785D0C5260031CA83268B8C3A1447737D1 - 894614A218BD282A71A8518A7A74A33C3B420A7EB883A579698861C2652E8FD8 - 1EBF2911418F8B29BE62DA44485CA20D1B409F7F90A94C6B50E68A59D497DAF8 - 85A97F09866006DBFF183ED0F5BFBC7DF3A988B98725DA30B66D54C61B222AC7 - 1CD3E209BBF9CD6379A4201FD531C8B206F2AC66FDE3C91E72813B8421045D08 - 214752373322B92E0724B8A4EF36894ABE96F2A2A7FCEB4307EBD7C00216A37D - E564075210831550E128D7334F11570AB55D06A0973185A94C376B1745D4E789 - 3855CB00764A8A9E32B332CE0C80FC0EE1154B388C6C8B1AC31FE2671ACF3EA2 - A90084AA008F61536B8C010E1028831B54914074220E1D6BB81BC724E8B83DAE - 6113EAD01C5A3B47DDB2766EBA94ABAE21457001165481011B80C0CB4C485E0C - 48C175C7CA590F3A004A87368FA3B973A8F27CE75EE139EFA37FB5EFF34069D1 - DF7D140AF2854207FF6C7083DA9C743C4454296575E994A74CA86AE1DBAC4C59 - EBA6BF45CE98A375476997F9D3D402F32B80D314C0069600323200A69E45179C - 20A5DB34C6891101B0D3077E5B876D3408AB7174C7271678373C32577CD33C1F - 74FB4880221BF9C8483E72AC92BCE4241BB9C94A7E329211998120EC201F1B98 - 407032425798B5CE58C551C1098090492840A1CCEFBD9D9A9B0705256852CD6D - 7EB3261D606636C379CD66CEF39BF3ACE735D319CF727ED69D5FD9581E10C296 - 9255F0828D1899F684616D128E344DA579619D6A3899CBFC2250572B4D87CDAB - 9CC16854FCD4C45A7C8065982BEE668BF556C6695A630009006E8D857BD5FD0D - 23149A388357DD79FF9A77F6C3B9EA08F600D04AECB4165BCA952B7221717401 - 455A600D6538C0AF84151C9899410A66A8240954B0B340A779AF77DEF39FBD2D - E834DBD9CE75C6339FD34DEE76971BC03668EC0EB2D0B4947E6BD1B9949AA3DF - 23E97E3FEE890DF8C3A82AB6610EB9B10C0350ADD5C072285E70AA0E1F50AD2D - 0A55E153DB94C5B95DB585C4729619D7A1C61008B9380EB8BF12B5C3ABCB0D6B - AA2EE12E75A463D84886B29367DE6499CF5CD9373FF28D3290011650A10B5748 - 801BBE3057837EE117DA36C10F68904934A359CF746EBAB8A7BEEEAA5B5DDD57 - BFDDB8FBCCE6A7A71B07F16E010CB610D9A7E17BA596BD442FC945617FD3945F - 37E5EA6879BACC31FF1C7C0C5DE0345FC6E606A49078B616B045DB7B6DDBDB62 - 5CE3927A71BBB2010790873CB8C3F586AD3921C7526893B9BF6E6D1CDA20F097 - BB3CBA99C379B28F2D7ACBE1BCF43547B6E90542659FDB4F0E5A28EF46BCFCE5 - 231D61787F3E3399751FF5DDC3D9EB6676BA9C9DCEFBA9F7DECFBA07F4EF7D3F - 6791DE60054C40A9D9CF7EF6EEEDA3ED6E97293E363F2A6426332A99CADF52DA - 90262B1035400083D019EE96F9499B9A12863F63C6113F8D3935828F0970FCE3 - 836BC555308AF2F4707979F46B2183169A206CC296730AB8800CD88046D6046C - 750701100620740018A007741524C0B1054C80333FD05064E600517766243882 - 4D5782C9878226B8FF7B27B88226A8822C58822C1883BD678222150337D00264 - 471E89766FD48776BBE408CB957D9216329C974C01F707A5D000E10718E3F768 - F9D22FE8173004935C13686A9BF54EF0177FF3477FCDC071153463C0250E65F0 - 78B3365CDD20460AE428B40556F0F41546C8559DB00E09E8804E66737698874D - 003A11910521900563700018182CBDE1653E401C79153B22C88222D888357866 - 22C87B9058838BD8888C688951E7888D98678E28892DA88999F867DB610239C0 - 04470726D3F783F8C63D68C2694448537012634CE8167C247E09407EE4C2701F - 900A4715262D9544DA274C2A760CF2E7855FB846966027D9007264B87FFCC70D - 035307FD138029F7FF63F832551B708008588704800246E68D49068E37278E47 - 268EE4F88DE8188E315700B321115910077CE0051708245D2605ADC304E9A533 - 21088AFCD88FFEF88F001989A1289001098A67D6013F600224D0023EF00BB7E4 - 83AA487D4AF58AFD9608751270A6F05CB6888BF9B27770F30B25B740DF379112 - 46785B488C88618CCA2084C998298DC77FE2E08C90E7066E508605D34E60658D - 202664DB888079F893409973E0B8731740063BE00471151C91D41BE6F50B5B60 - 2C316002C7E18FFBE888558989A0B88F57999558D9749538895CC9956706760A - A98307906010199140C81EDD338414A97D4F940CBE952807300125E63DB0C070 - 6BF09175392297A6FF4CEE51914BC554B8A59262510D2E590764D88CCEB89871 - 849398A7479A670D9ED793C1D68D98E98D9A898E9B59649BF9999C999998E999 - A2D999A5799A10D87359005E13803A0625243E602C24F0043F700435E000B799 - 9BB8D988B72982BAD98FBA199CBBD99BC3B99BBEC99BFC289CCA699CBC09053D - A0020B69060FA9961119190FD67E6F0987E8D2176300317509070DE0229DD570 - 7D674D045331A370308C538483797114E254ABA67817F636B3E698321993D864 - 186BE76BFA205405988D96B98DA4099A043A9A060A9AA439A0079A8E0B9AA0A2 - E94F5A7205DF7506B9E1078F645030C38137B35047E088C4099C0519A222EA8F - 1F8A9CA0789B4760FF0231D00258606FD4A98A65723097558DD909329BC777E1 - 3006E1998B21B3017C3930709061D7C02207A34D1E138C29E69E67D4628F6153 - 32166B30598632B97F9E220F07C331031853AE2577019A8005FAA5A709A6621A - A6644AA006101BA1C302F6F3077520421788A1BAF13A2420014A529CCB79A776 - 9AA778BAA77ADAA77CDA0329F0043A480693F5A28B16A3ACD88AD8992A8CBAA8 - 7F8329BF550E6D80978710327F207482210C42EA1FA5D0525FA5458D7A6AC358 - 98DFC49288B98C8A699F530A0155BA38599A79FC524139D5A5021A9A605A8E65 - 4AA6B8EAA0B71AA688740158700757D005141A33BDB111AC738FF9C874BF99A7 - C7F9ACCC499CD26AFFA27E4AADC209ADD38AAD0E80038C151474D05386FAA2AC - 088C5F1199036891D6C0225D40A91679A9D1060CE5317789C3530D560FEBE97E - 491A7F29E94D65848D63907F221793AB1A7270A0191F500C581A9942D52FD9F8 - 09B4EA939F8902121BB1043AB1167BB1129B9919AB991BABB1183BB1DDF8B104 - 201BD07707F9F0015A705E453724C0C11BE9650364769B49E000495003367BB3 - 385B03339BB3344BB337BBB33A9BB3426BB3335BB3439BB3407BB447CBAD4011 - 048A16AED49776FBC96F84F73139991A7CA10C14305414D000630018E6347788 - A34EA1420A453A09FC063259A3622BD685097398AEB606F813A5523AB0E43000 - 56481A6E3841FAC0FFB0DB5899013AA6829BAB835BB861EA8D28C30271B0031B - 50072F438F32F3115AF0053793333FD0013C7BB3B869B39BAB9C38DBB97EFAB9 - 9A7BA7425BADA37BB34AC0582D10046909B5AA98A86E59AEAFAA47DB84594CD4 - 0603E09D1022B6C775229CAA4CD6C776A18A6A6D0B9F6F2B9FAF3686AA3AA59E - A2191AA3B70A5BA97502A00FDB931B8BB1217BB1D99BBD1FABBD202BB2DFDBBD - D80BB2ACC28E2B00036410320940747390815E96501A000279F5039DABB4F67B - BFF89BBFFA8BBFDCBAA24EEBBA50CB4B1134BBE70A16BF566A5D300010101810 - 220FEA9338E8F04066BB6FDF23BBA21A09A44A2942384D32F65B513AB08F4722 - F280B039892AA9D1FF2FA352BDD6BBBDE1CBB115EBC22C7CBD30FCBD1E1BC333 - ECB17BA803E7CB0259D0066FA005D3568FD87600AF439B1D5ABAA79B9B9C7BBF - A03BB44DBCC450ACC452FCC44AAB04CF190355560A405815004C266C2984036C - AED678A47DEBB5DED9970E4C47EAC419F082695758C1B525AA84D9547CF362F3 - 09B01FBCAA1F47227244C2620C870C0BB82A1C6CE25BC8867CC8889CC8DDCB01 - 286048B3110454100774000152D0BE1988015F2030724AA7F5BBBF44EBC9A01C - CA463BB480BAA249936F4AA84C8DD6C5E9619DD719AA55BBB756AB0897B020E5 - 89C66033B6BEEB193BB64080597ED83798A8C64D6E5B7FF601453416B075ABC7 - 095022791BCB1174FF17218329DA38C808A8C816CBBDD8BCCDDCACBDEC18113B - D00574A005917BACBCE107F8882C0D15CAECDCCEEEFCB9CF4902191005F98638 - DFC7CA47647D624CC0F4D1080A823F82B33F1473311603C19C219256E14E59B8 - B6C384924BBA18AD168600BB98CB2C931F572278CB7EB3FB38282CC8D6AC0E28 - 9007E22BD2164BD2217DB18C2CD22A7DD2129BD228E0D230CDD227BDD28C5CD2 - 337DD3138B3246C9007F500652004916EA1B7E606DF08B3329D00348ABB435BB - D441CBD44C8DB34FFDB34D3DD551FDC94E4DD553ADB9579C0164B03D9C971660 - 73CFABCCCA52E3606D59C2FB1CC770C279BB6819F1BA40635BD0E770D0443A21 - 6B87AF17ACAF0F0DFF4E73C246EC33D1CB6BD155CA636FAC72E732BD1EFDD103 - D0CD236DC826FDD8136BD2D80CD917DB04A9C9023B4081724588E6655EF64849 - 2461023DD0C9417BB4559DD5EFECCEA36CD53500A824700141A0C5ADCCD6F130 - 5A7C32D6F82C158DA6CFFC7C2A4B755B67F0AE9A0AD705AD22BCAC279DAA54ED - 6792277978E0B44641D63EF5C998764B2275A35C594A5317860D8A6DBD22CDC8 - 319D077990D2E37DD32BFDDDE26DDE27CD01E90DD3EDBDDEEAEDD2E27DDEE58D - DE8CEC10DC15047440058118C40665065B7088A17DB9B8B9D44970D5079EE007 - DED40A8ED508EEE00BFEE012AEB3114EE1095E0338009D2CDA6054011539156B - 053BD0F79CDB5E2CFFA353CB9FB2BCB787D0321320D0E859DCA1B2CB6003987D - 7DA4A6D69E5CB892CEC071CAD82181CDBC0930D01A3DCB7CCB70ECD3DD014AD3 - 370DDE2FFDD2E97DDE4BFEDE2B1DD2F21DD2F50DDF50FEDD560EE5ECADE4226D - 48371011B080B2D3A611BE616D2A2B03790506F42BD59FCCDAA31CE76E5EDA58 - FDE6747ED5762EE770DED44A90E1587C0763E2E18C57B09AD11FA55515AD1BAE - 9665D7D5D8DB7A44016E63DBEAB453300EC111CCA98FD28AB09CAFA9967168C2 - 0898B28C740BC27B5C302897DDA9224F5C8AE408D8DEF53DDEB0CEDEB2BEE5B4 - 3EDFE3CD01E0FDE4B03EDF56DEE5E28DEBBAAED2AFFEEBAE4EDEC28EEB2F30B2 - 55460538550729FBFFA65D061222511212000634E0E0165EE1138EE00DBEEDD9 - EEED067EE10A7EE0FDBBBAB3AD0B204EE8CD5C38DF1719243E15AE2C809877E3 - BE0D63C5D4CB956EDC119C31A5B092DEE3DB79DDE93A5E46D3FB36CA0CC266D8 - CC75530F5868D86B8A0EACDE93BE9EEB14FFD2C04EECBFEEE413AFF1F32DEBBB - 5EDE138FEB1AEFE4F61DEB23EFF1BF0EEC2870482BD0738DF001F2A83A9D4D2C - 7E7033464D034A00EED82EE1E3FEE0506DE13B7FE7DACEE7192ECF800EEF9C97 - 0D20FE71A52E0F87FEEE5221B5583AC0F45EF599274F7BF207BD8B221633D70E - 3B774808BCF24E7801EFD067CD176EA3BCD4ADC777BB400C8FEA6235637318F1 - 0888EBC0EEF1B26EFFF77ABFF7B17EF77BCFF779FFF7767FEB82AFF77D8FF785 - 9F076240004D0011C2DA066730014407B9C2C23AE865D43D000544DBF3DFDEF3 - 9EFFF9A0DFF9E32EFAA2EFF945CF0441C0E15081EE844EE8CD1BE49EC022EC81 - DBB9CD3D674DE4568F855F314DC9D0054C880E94DEF5BC0C2F87AEDCB8BF856D - CB928B40553EBEF6F7C9AA412E1A8129CB5A8A09AB4EF7C266F7270FF27F7FF8 - 847FF8776FF281FFF71AEFF783AFFD814FF8DD8FEC2B2F025A72073B4007BEF2 - A6C2E207AC53332231E034CBF9A00F084982493584838583898A8B8C8685888C - 8F87893D2A2417416D9A5D6D7F67090970A2A3A3A109031F1B0D9B9AADAEAFB0 - B1B2B15D01711461FF0C160CBCBDBEBFC0BD616114017F1F671F1F6BCCCDCECE - CAD1CA6B1B7F6DB6B9BADABBBB0CC3C314E1E2E371011B63751065EB10EDEEEF - EE750963677F0114BEDCDBBA16FD0CC61F06081C48B0A0C1830539285CC870E1 - 0B0E0F1F369CE810224585122B4E8C6831E3468D142312687243C4053201EA68 - 31230583CB97307D6CF1A38184891E881E30D2298867129F8D80EE1CDAA8E720 - A1917A98B891E10E2B4FA14891AA5347D4BC33D4FE345835ABABD7595CBBC4B9 - 352C985960FA18946BF0A7ED8635D39E3D93966C9A2AB1B8B6F9EBE6ED9B5F0A - 63396D180047DDBA32F012533DB5C61EBE7DFAFA49F616A041C03108336B2EF8 - 220F45CF10F3741EFF3D113407D3A14F2F342D5A616BD5AE4F8F16FD9A7567D5 - B457AF9648C040C90B777804B852C68C1E3F7E5CFAC0B0DCCC812F7364D80483 - 0352D1EB44B16B5F84B4E803253F4CE4C072A50D27A851A5AA0785799956F35D - 387D9D3FBF96AD5BBDF89EFDA58F58B9005D1C938C5C7249230D350DE0958B64 - 0CEE574E1B1B7C30061CE91C865862F1C833C6070DDCC34B647A4D56CC1F6B9C - B1D9899B75A422472CAEE8E20B30BE28634430C6D8E28D33E6D8190A05307552 - 171B40F0854BC9C184C11766F8E0470B3990F0437535E824E54F544E69659558 - 5EA965965C6EE965964A1CB1D4165150D1C927EAA549CA551FBC47DF9B6FD642 - D67E740213461C10FFC645203406D6D5581B7332E88F361FF2528C656324908E - 61182A764A9B1E122AA9A00C5010A08928668A5044AD714ADA6C9F762AAAA72B - 8E4A1B8BA7A61A2AA8A6AE9A2A07248990010C745001C70466C4F49214CE7DC1 - 444D1250A7445047156B1477C652795D77C41EABEC4FE089D7D499A0A8291555 - 55B1875535ABC4271F9CE0BA62DF2DB864536730DDDCD945036F19B8679F670C - 688D2D79F163811593ED420C408A1A7658A3F1C0718A2A9182C80D83EA463800 - 669A363C508D10472CF1C414576CF1C518675C711E06F8B6020B6AADE1851E18 - 140913AF5FF8300708364930EC9730772973CC34CF5C65B4375C400754D6F66C - 0A668D25E86DB844FF6F621F36E7D2094E65C8D4B5CC9ECD44136F2ADDD2FBA1 - 152184802F2F7732DDAFBFEC00BC182A1D3E66B0BDFEE0B901A60EB73D008E70 - EB38A38D72C76D374474DF4D230A3ACC7AC7151BA894AB72CC31C76B924C3EA1 - C29389F8E478B1533A7BA5E4C93E4EF99692473B1E1D9FA4D7B37A55098C8A2A - 5B156D7A2B72D69B34BA9491484DD450478D8C32D55893BA2E585B51E9836B53 - 0876D88D667B862A718471F6C192DDD9C61A0BBBEDB6C6D0472FFDF4D47746C0 - 084C051107031F1C80C17126632005AF4A6A00C21326FCD083510FB49FA5FB56 - C25FA5FC52C26F7FFDF8CF7CFF4FF0E3A094064140D3E7D44415ABB4272BDD8A - CFE9C035AE72AD0EFF2D6A09007C1A5022A741CD5DCCE0562DF061057C85A132 - C79850852C742180896E0380CA065F5688300996A879CE7358F56648C31A422F - 0F622840DF8240053A4401572E21D9AE306006C469A04912585FE5B0C43E9B5D - CE66316BE2E4A0F5831868000B021BE0E74C71953F0D6D81708A4F00E865AE07 - 0A231CFBF284052F68A068FCC94316B8D33106A0A845FD0B60ED18DB1A525828 - 8335084F2F8CE1F320868717446062878451220D59A34316F2909044E40B0A09 - 3147466C9130A2642323F6C84932529192ECA4239B30821530210864A043190E - D01221EEEA0B4862021390688397BD4F4BFB6B5FFEE2B7CB5CE6727EBBBC5978 - C6632D5368B18070FFA0472ADAC2153032905EE52AE303BBA1B60D589319072A - 90D4A686A06B006830BE031B1E03968054A4F078688B2320CF3006CCC44B909A - A218263F79494646F29E929C67242B29498BE1139FFCFCE7439AD00459D16A00 - 103840920AB79C868ACF0CB39C0E0EA048D19A59B4A25D52420F62D08220A409 - 14201D203205E6CE6E7ED1995E116339C825CDD5E9EB3F1214D01AB539BBA751 - E32DECF41D094B283681D5432C2A840C3FF0A54E089988616C83E7890C190148 - 36B5A9F684EA53997ACFA74E55A057B5271EEEB955AADAD3AB55B5AA58AD0A56 - AA5A15054DD0C10A30F1870DC0E10B7A2059F89893B23934C90412A84194F8A7 - CBBEFAF5AF800DACFF60074BD8C026E10724584119D2D4CE44794E8B06A49A02 - 511AA706B6F48165515E05F5442037466D61A1B0A385C6E98E64A602A8854A6D - 3A3F48C1A42AB561586564274529DBAFE273B6B6CDAD256FABDBDAC656A0B4BD - E7484A9281206C2501B034524BC617CB1668E00936A8C1B080D957BE5617B07C - B5AE2EB3BB5DEC76D797F8C301625B3052920AC4B159146901BBC8CC6652162C - 9B1823192F7B2E6E288F99EDCA2636399B53D19290B455D9D01F808ACEC954AA - 32256AE700DEF9DA4C3575AB0FBEEA56271C010857F8AA1196AA54BB8A61AE5E - 98AA160E71562F9C61129BD8C2207E6A575180BD0C60219575F042AE8EA35C58 - 1E804978ED010EF0FF57D81EFBF8C74056820472C00437AC89610B6B67B5445A - 0A36A9023E937DAF2CC4781FD599B11780B18504D7B660CEC2652E741CE16801 - 6CDA0117AF8F90B9D72EE210A04036B86D61DDB08A9D4A67437258CE510D6B6F - 3F3C56AC4638CF56BDF33FA56AC83CA075042EE60115A2E0BD2239747C664899 - 7349F0841F4C17C898CEB4A675191E531E395E6C432F643F1D342987918C5736 - 0B6BBFDCD9665C134DEDB82399C7D0186C1478326A0BC89B9DD7E75EFBFAD7C0 - 0EB6B0874DEC5FCF200233B8DE0A66150532243488467289737C9038F53960D3 - D8CE3661C3A3812D84EE2AA0C6949297AC5EF32E835B4633F52B9AD94007A65A - 1B87DA0ABBDAE86AFF9C8A9051A46D8769CB969F7E7F08D74012B7405CBB6BCD - CCB9D8084FB8C2175EEC421254042DC00215E2308003808F702D89B419E6C0A4 - E9F052DB20DFB41252F08415789BA4E12EC8B8476D156D510DCAEA9EB29CEE41 - DFD5F9672C4C9B9A9E5E3DA15803AFA702B6B5500FB6353CCDB1E0BC6EEAB197 - FE54A63BBDE95067BAD2914DF5A93FFDD8569F01D6A97E75AE437DEA56F7FAD3 - C33EF63C10E0377738031C14BA9C92C1842510FD550ED237D1C20A00B0776F5F - DE1FB0F7BEEBD2EF7FDD7B6001FF1D0970740B2867F082417DDEC71E93A4EE71 - 6FCCA73C46B294E5DD586E338178AED39F6328C06BE0F7ADD39627A4C790C452 - 8770D72B8C75D507FF5AE97858BAEBADDA7AD9B79EEC5C8F3DB2552FE2AA47BD - EABA1F7BEE59DC379DD1610CDE23D2A3A5F085036CA105E7BB8912424E7D6C8F - 9CA3580037A6C21DEA901EF3DB077C32CC27DF86B0547E2C5636E34B25A80912 - D9C5DE5FF33C3C02CC21380E1D77450FB8E94FAFF5FE8BFDFF5DE77F4ED77F01 - 886C5AC77507388004B8800948800028760EB88008C88048C062117705575007 - 2C116D43C4049376133840787737827FC7772648827A77822A488228B88225C8 - 822698827787031240022DE00651C0789BA1642CD764A39340DF427EE25279E9 - 7765C4100E6A132F379560E1247FEFB06F34A75A2CD44116906BFB174302D880 - 4BA7850678755C28FF815E08860938815DC8805FF8856408865DB886FD474AA6 - 645C01B07652801CD19624D4561395A65DDA26782A587D80A5143980093A6810 - 29075AD5E27804240AF48020A52384AE607E96777957665F6AF30CEC5447F8A6 - 18C9B44701B02043D7206A615457888566588AA6788AA8988AAAB88AACD88AFE - 875637B0023010075700075AD0121CC82B52E08194F62432E88230188CC0388C - C2588CC4C8771A251E4C908304377083B87288D833EE1479E3E788E6215F73F2 - 6EDD9065F3A60CFDE5733C95479B780DF850601D7460F3D68CA38822AED88EEE - F88EF0188F04880704D0373010047750076EF005B858382EC17C07406D39F004 - 499404D3E78731E8FF6307A969E01103E3A1789A9228E9356AA6F083F0618DAF - 903A35875900B10C974815FE327F9BD8219EE847FDE041000191EBD83033B000 - 2DF9922E199330399332599334799336999338B9933AD9933CF9933EB9007820 - 06C485059CE3062D31570FA524B354693D608C50798C51399552898C55D40203 - 100527C27D47855ED1782DEBB588A483919A503A72C25292786596226F6B137F - 3F571503C089E6B242FFE60F1FE4092B2948042893A7E8927BF9925AC7978039 - 98813993A528987E698A89998A36599882F9978BF99262D0622F7606CFE64AFE - 78245E80014824014340582D18782E98827D159A55298CBA448344560728C27D - 03316E5FA926F3B0FF60267552424865E8B7914AB3526CB60609E00E6F090771 - 498EF72719E738226E96976D03930B109440D992CDF99C31199DCE599DCC699D - 41499D34A99D31190162E0865B4006573006D021572713692A030203E9322F78 - 9AEE4995F0B9823D30644C004F2BD783903796649991A886791F12077FE096A5 - 358E67763C82F2416BA38ECA8922D8299D0EDAA010FAA0128A9D5BE586C04106 - 75905C6E5738CC654404890307D977211AA27F37A2A49990225882279AA2A4A9 - 142BE0060EE39A8638913D832D28776E6E126593677ED09496F5A50D008A0E8B - 1230C359A09F381977A96B0BEA3CD7D99CDC499D4EDA934F1AA53949A53539A5 - D7B99D4EDAA456BAFFA5D349A55C0AA5D39906CD3912100703E22924177732CF - F105CE853E96169F72FA9E743A823FF0043718A32A799F14399B58F11EB6799B - 6759844983A0842192B4C64752F86F547897C9B9A40EE3A5560A9D602AA95F4A - A95D7AA95D4AA99C6AA951DAA962FAA99B3AAA934AAA32C93719C0025D400632 - 6624CBD1120DB524BDA804735AAB755A954A7109ACE93C29C783B1F9518F826E - FB893A63844698B516CC134E10A0887BB43DC579A0C6A0A090CAA0996AA51550 - ADD87AADD81AA5DABAADDE9AADDFDA9CDD1AAED54A8FB178012C602910601C6B - FA8F3EF00534D18B3DF08BC528002368AF7C87AFF61A8CFADAAFF7FAAFF90AB0 - FB8A8C43201E58C0FFAB85D858E456A3EBC526A5568DB7797EC6BA9B08860CBF - B90E70B906A865A0220210D32A485F4AAE223BB2245BB2267BB243D923177005 - 0CF007C5D18F0DE5039136131D27013F40AFB76AAB3AFB005759075AF9663CC8 - 725CB4214F16A8824A841BA92E24026A8A82B1B4D60579C1B1A41721D2FAB19B - B100D74AA6598BB55C7BAD5EDBB560FBB562CBB55A0BB6653BB6681BB66A9BB6 - 637BB66B4BB670BBB56DABB664BA0024E16264C0078243246F57443E10514934 - 7D033BB8FEBAAF862BB0877BB8011BB089EBAF8C2B00AAD9513F1B43096B4C90 - 153AC9F4A76E32ACD78896D204180172190B36218AB801504B977D64608064B5 - F024AE4EDAAD63EBFFBAB2CBB5B30BBBAF7BBBB58BBBB4BBBBB1CBBBBA6BBB5F - 9BBBC2EBBBC38B046E8805787206B7F812CB5744BF4202368BB33B3BBDA7C96D - 5B7007F05488497688E56640C9500D46138411BB5256560C9D909C534330466A - 92FD702714A4A4ACEB366FCBB6F35BBFF47BBFF69BBFF8BBBFFA6BBF78D00419 - 700163F01642C2B7E1935C2C63B320DAB88F5BB884ABB80CFCC00DDCB8F84A04 - 771A7157E858BFBA1EECC5B9A8A391861207E958106DB24141C5BE6BD606F01B - BF6EC3BF2EDCBF2F1CC3303CC3329CB6765B4A4CC0023B10076A4A38AF6A065B - F0B747F40429D003B4BA828ECB8249BCC488DBC48B3BB84A50B04CB1ABAFE59A - D0F87D56313ACCE4FFC1830A18AD0543030129E5B81769866BCB03C62CDC3658 - 5B015ECBC66BDCC670CCC66E2CC76F5CC7747CC7729CC778ACC7763CC77E1CC7 - 7B9CC77D0CC76F2CC87AFCC787ECC60BF09D10770701C00765C08F6EE7683EC0 - 7C662003EB19A714BCC99CDCC99EFCC9051B886F26A3DBBBB0D682B97EFA72DE - 22BE93773495A13007B10C1DC20F93622F45B73C559BC69B51C376DCB5730CC3 - 7F1CB6BFECB56980B6C38CB5C54CC3C77CC734FCC6E62A8B77400772C8811870 - 005E7063431CA74FECC04CBCCD4E2CC1E0ACAF166C456540C5196CCA90D5C11E - 5C7EEE97194A78BA648C3CA4B7C2BADC36897CCFF89CCFFABCCFFCDCCFFEFCCF - 007DCF8B7CAE2C40FF0709B581D1A68B1C37909AFCC90EFDD010BDAF43508318 - 5C7032EA95DF972DED21ACE6618D6C41B59BF1018072A42F75C64856CFF61CD0 - 2ABDD22CDDD22E0DD048409426710761B00375E03DE65938332B903160B3FF1A - D1401DD486DB695B607ADA5BCA3DC81E5A0CB131F7D1C8A019F4D00071902FAB - 25C28F8AD20EA3C71E20C75B9DC75BDDD5158006892CD6F90CD6665D015B4DD6 - 689DC8602DD6607DC86DCDD56B7DD66C7CD65F2DD7753DD7727DD779DDD761BD - 001170B730B0037FF0562F6132322BB3186057D0FB034420D4900DD9DC76B0A3 - A878182DB48BB8B98EC82E574D10F4F007CE9A4EBB3022F48CD559FDD26BDDCF - 6F8DD7F8BCDA65CDFFD6FAECDAFCBC04AC7DD7749DDA797CB727710567E00543 - 92D0CCB70572F7A1B41AD9C6EDD04460782D000127BD6B17ADC1344A401ADD65 - C2AAA3EFD5564F9D1998B1019D28DA112420CD6DDA0DA3D7B64DDEE65DDEE87D - DEE4ED01E9DDDEEAEDDEF0FDDEF28DDE1E8006EC3DDF68ED016920066260123B - C0006B3001524063E79924C32D018F6DAF42B0AF0BAEE00CFEE00E1EE102D0E0 - 130EE1152EE1149EE10230D124C004C27985CD286A14696E45CBCA28C5D9D24A - 0F2854A0446501967274E21D43E5EDD7768DDBEE4DE37B2DDF38BEE3E69DD77C - 8DDF330EE47AEDE336BED71E40006B259E7470D3FD98993EF0E46FCA9EC73DE5 - 9CAC043860020094FF97176DB958CC5E8D686A28BE197F7A0F27B96601A76031 - EE3CECBDE66CCEE6F6DDE6701EE772BEE6F93DE76D6EDF62FDE671EED676DEE7 - 7EFEE7807EE76B8E063340942B1004571007DD036D4324054F8EC90499E015BE - E01A4EE9937EE996EEE0969EE917DEE9955EE188559F2B49CA57FC390D5B52E0 - BBCA278E5327B20C6DC041BAC3660A83E669DE36747EEBF7FDD56C5EE7409EEB - 73EDEBF41DECBC7EEBF39DEBC6AEEBC8FEDEC75EE7BB4EECC96EDB317D0317B8 - 0351B0BC98F9E41A2703E7E399C54DE5DE6EB8FF73BDE1BDA012899FA1A0E209 - 4459612EE66D32D5F862295C56EB8214E8F45EEFF67EEFF89EEFFA5EDF683099 - 817807543000CB9BFF1C075C57D1370409FEE99B8EE90CAFE99ECEF00BEFF002 - 30D993ABE53A08DD1B4C210524965A2179A6B3EE27B206DDFDE212E24EB92CEF - 06B1EF2ABFF22CDFF22CBF002A4012E84A0510B0120E75F3527000F16A0243D0 - ED92FEED869BF00F9DDC9750F1A33E88DB1BDD896840B459E2264E1F201FD280 - 22EBD93D7028EF301E500259BFF5F6ADF55E8F065EBFF5613FF6622FF625F0F5 - 649FF6653FF667BFF66EAFF670FFF6721FF75ADFF5737FF7FA6DBCD983816F35 - 871BFA3DCCF705DA4E699FE9F00B7FF8109FF888BFF8973E04786AF4D32A6E22 - 2EB416F9F450CFEAAD690DA278F5F3EEF6EC4DF69F2FF7A11FFA745FF670AEF5 - 6C1EF6A4EFF9AC8FFFFAADBFE6A0BFF5A32FFBB4AFE7AE1FFBAABFE67A9F686D - F006ADEAAA1AB72403D9F386AFF8C6CFF8C80FF1C96D72906FF1BD7AD9A61E96 - A8D04D4513F59AF1BDB36EF59C8FF55EDFF6630FF6737FF6DE0FFE69EFFD590F - F6E6FFFD6C5FFE2500F6E8BFFEE12FFE6FFFFE674FFE77DFFE709FFE72BFDF38 - 0C08645D036E5F18187E8888665F5F3E2D244F434A4202959796999742989D9A - 9F9EA1A09902124F1A5803AAABACADAEAFB0B167B3AD6363090970BABBBCBDBC - B8036B0D6DC4C5C6C7C70D1B6B67B1AE671F1FCDCED4D5D6D7D8B0251EDBDDDC - DFDEE1E0E3E2E5E4E7E6E9E8DC25EAEEECEFF1EBF215624D2B1759716B135289 - 7A3E0E613023C550FF8B1C4F7E0858288408C385A344617A288AA22587A0880C - 9140E2C2986C20B3CD9A762B97AF93BD12046BD005994B64CA98859C49B3A6CD - 55F0DAE9DCA93327CF9F3B7DB6130AB4A8D1A34089225D6A5429539D0AD2DC63 - 42264E17088E30E81198A8A09939087F1091688953D94D684199E5146AAD26B7 - 434CE42813E5A6DD91B406D8C26512651D5D093E7ED8C0B24BCB9788634EA3B6 - 785563BB9023AF0AD70E4DCF1296E171B35C19B367CEE5867ADEDC4D3468D33C - 2D671E7D79B56870AA75828E1D5BF3E7A4A55BA7060ADADE0D265400C41970C0 - DF568152186138F84482C288D0C94A8F9E51420E264124DBCCCBAA24CA5D63CE - 10EE12A07C80C388FF5D2AD6CEBE7DB6A7F0E3CB9F4FBFBEFDFA69C4FCE69185 - 0221337E249208063E980120130839E750276BB1C5D659103E286183694DC8D6 - 0F2668B0857B35E1D5CC5E70F40558786BFCD1451C148411471CE7A5F7D27A1C - C628E364A7C966E34FA0D9E6136CB97516946738DE98DB6CA1F104CE513BB206 - 0F9147EEE6A393A9E9D7020B6184B1070452084420065214F485063990608204 - 435037DD9911B9750911449840021375CC28125EABEC95CB9D2B918762952CB6 - E8224CCB3C26E7A09095A080A188B673E8A13B2D9A28543C395A94A394425AE9 - A59622CA68A49A72BAE94F923EAA68A79B621AEAA7A4768AC40D2D904181050D - B86186565A1E2205FF0820842981040B3AE8EBAFC0062BECB00DFD704A2A84DE - 5452606B9C48C18A1444DB277A7F160363B2D8DA5469A340853AAAA9A266EA6D - AA98723B6EA99D7E1BAEB9DDA6CBA9BAA8B20B2F1A52DE1186707548A1C7715A - E29A6B826556486184035B48B0C0976C745D1D1F655B8D87AAD812DE1F7130C0 - 4095613C3B6DB5C904EAF0C721912B32B8248F6C72C9289FAC72CA2CAF7CF212 - FAAD1004030074518621030AE4EFBFCD0D3116B140072DF40F12685817C8CED0 - C9CA070D0410C6C5D16ACC22B51C5F8BF4D5B12880C6A29C695D6EAAF08AACE8 - D68F6E5B36A4F38E3AF6A55D934B36BA6A9B1CB7D9E8B2CD76CC30EC90451751 - 14B765403BCB90EBFF13098D75968307276EF0E2BF0A40044717C489F535B308 - B367D41A974775B5564FEEB92A0A842EFAE8A4976EFAE9A8A7AEFAEAACB7EEFA - EBB0B38E061731A0B2030014D4F1853F3AEFCC3399870B2DFCF044FC503B1C9F - 3306CD1A6D049022E62B6ACEB1319D278FF42CB12F1ABAA6A593BABDF6A8738F - 72F7A68BFFFDEBE65F4AFEE8DE83CFBEE8E92BC0451322E43D45006F6861C671 - BE8320380891F0195A1007AC8311904207DC44F132842CEBC1A2720DB85CD4A2 - E7A7E9B5A17A0ECCD6484487000E9AAE83AD0321E944383A1192307BAF3B61E8 - 54A80016A2F0851F64DFFC6E70012A848001C4A155FF7616C0E00DEF87C26213 - 47E074B40CB20282FFCECBD804A3B7B93F61D08884A2050CA748C52A5A11755B - BBA2EA66D7041AF2C00914F880160EB14310CC4106609284E180C84661190F15 - 512003141D7306CB3D6F89D2B3E0053D36C76441CC831D0C24205B4848411AB2 - 90883CA42209793A419630918C1C212417F9C8455A7292923421264F78493074 - 31032CB0D81AB4F0851DCA40067368810C22219636BAF257C5AB5D1D54D24724 - DE515A1BD3E313FBE81E0F8D21759A5CA1072BB9C94C42B29191142627597749 - 625E5293941C66323149CC472EA18B176041161870860994F1946794014202F6 - CA720A81682B7043C3E6084109E2328F16DC252F2543A75BC061930878663E0B - B94F43E6F39FFE04FFA8402709507EFE9383FDC4A7400B1AC88532B485FD74E8 - 411B4A51832ED4A20145C035479081203821046D38E50ECF388733B2F267E66C - 63F14880857542D1964AC4E5D4F4B84799CC534623D10B1CEAE0064329F398C5 - 7464249F19D462FEF490472D2A5185BA54A53A95A830BB070CAAC000299CD177 - E09C831FCE08B094AA940824D8C21D78D9CE5B66AE82D393E74DEFF2213840C0 - 0D5A50C11214D00789DAF5AE19C5AB5E2F4A51896274AF800D2844034BD8C222 - 607E2BC0020F0C74D5C0A1720EFB5A654286E05536B6A9050D7C691D9B66560A - 36D1456A5DEB4CE8948BB76AE100311083A1F27A578CFEB5A28A4CA85D13D9DA - BE1A96B5B01DEC43FF6D7BDB81F25601F6C0C7160EF085C6FAEFB125C5C01CD2 - D8CACA12EF141728A211CB1AD3B37E363DA1152D48723A06B7BAC10B07388006 - 622057DDF6F6BCE84DAF7AD7CB5E892256033E68841EE6E02F703E560FA70C0B - 659D2BB4956AA00CB5DC6C12A1C7449A6657BBD8A045774D1BDE032C97044DE0 - C212F06ADE88EE75B0AFB5707BCF5BE1C27678C3B3B5470E348001E22AF794C8 - 2DA98AC549821FF037686C225A0E36C4CECDBAD3BA06E62382B793D3D2C2B5C1 - E17D3079278C001714F9C8F9347292FFA9E4231BF9C94866B240A1DC64805259 - CA576EF295ADECE42E6F39CA5AF63298A73C66282F39CB588EF299BB2C3F15DC - 40034CF8C2017C405B5254DAB9A4F31567E15E1C34633121C0C218301ED15A35 - 1DEF98267859F0774F0B64071F444C5CA82B88274DE94A5B3AB02E58829BE11C - 5E82E499A42A46048B79C567620DE1092D0074043B9BCB781AFAD02151B07719 - 0DE44000003B} - end - end - object Button1: TButton - Left = 24 - Top = 216 - Width = 75 - Height = 25 - Caption = 'Button1' - TabOrder = 2 - end - object PopupMenu1: TPopupMenu - Left = 104 - Top = 16 - object Opciones1: TMenuItem - Action = actOpciones - end - object Refrescarconexin1: TMenuItem - Action = actRestart - end - object N2: TMenuItem - Caption = '-' - end - object Acercade1: TMenuItem - Action = actAcerca - end - object N1: TMenuItem - Caption = '-' - end - object Cerrar1: TMenuItem - Action = actCerrar - end - end - object ActionList: TActionList - Left = 72 - Top = 16 - object actCerrar: TAction - Caption = '&Cerrar' - OnExecute = actCerrarExecute - end - object actRestart: TAction - Caption = 'Refrescar conexi'#243'n' - OnExecute = actRestartExecute - end - object actOpciones: TAction - Caption = '&Configuraci'#243'n...' - OnExecute = actOpcionesExecute - end - object actConexiones: TAction - Caption = 'Lista de conexiones...' - end - object actAcerca: TAction - Caption = 'Acerca de...' - OnExecute = actAcercaExecute - end - end - object XPManifest1: TXPManifest - Left = 40 - Top = 16 - end - object JvTrayIcon: TJvTrayIcon - IconIndex = 0 - DropDownMenu = PopupMenu1 - PopupMenu = PopupMenu1 - Delay = 300 - Snap = True - Visibility = [tvVisibleTaskBar, tvAutoHide] - Left = 8 - Top = 16 - end -end diff --git a/Varela/Varela/Source/Servidor/fServerForm.pas b/Varela/Varela/Source/Servidor/fServerForm.pas deleted file mode 100644 index 5872ec9..0000000 --- a/Varela/Varela/Source/Servidor/fServerForm.pas +++ /dev/null @@ -1,103 +0,0 @@ -unit fServerForm; - -interface - -uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, - uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, - uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview, - JvComponent, JvTrayIcon, ActnList, Menus, XPMan, JvExControls, - JvGradient, JvGIF, ExtCtrls, JvComponentBase; - -type - TServerForm = class(TForm) - Memo1: TMemo; - PopupMenu1: TPopupMenu; - ActionList: TActionList; - actCerrar: TAction; - Cerrar1: TMenuItem; - actRestart: TAction; - actOpciones: TAction; - actConexiones: TAction; - Opciones1: TMenuItem; - Refrescarconexin1: TMenuItem; - N2: TMenuItem; - XPManifest1: TXPManifest; - JvTrayIcon: TJvTrayIcon; - Panel1: TPanel; - Image1: TImage; - JvGradient1: TJvGradient; - Button1: TButton; - actAcerca: TAction; - Acercade1: TMenuItem; - N1: TMenuItem; - procedure actCerrarExecute(Sender: TObject); - procedure actRestartExecute(Sender: TObject); - procedure actOpcionesExecute(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure actAcercaExecute(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -var - ServerForm: TServerForm; - -implementation - -uses - uDataModuleServer, uConfiguracion, EDI_SLSRPT, uAcercaDe; - - -{$R *.dfm} - -procedure TServerForm.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TServerForm.actRestartExecute(Sender: TObject); -begin - dmServer.RefrescarConexion; -end; - -procedure TServerForm.actOpcionesExecute(Sender: TObject); -var - AForm : TForm; -begin - AForm := TfConfiguracion.Create(NIL); - try - AForm.ShowModal; - finally - AForm.Free; - actRestart.Execute; - end; -end; - -procedure TServerForm.FormCreate(Sender: TObject); -begin - JvTrayIcon.HideApplication; - JvTrayIcon.Hint := 'Administración de puntos de venta (Servidor)' + - #10#13 + dmServer.ConnectionName; - JvTrayIcon.Active := True; -end; - -procedure TServerForm.FormClose(Sender: TObject; var Action: TCloseAction); -begin - JvTrayIcon.Active := False; -end; - -procedure TServerForm.actAcercaExecute(Sender: TObject); -begin - with TfAcercaDe.Create(NIL) do - try - ShowModal; - finally - Free; - end; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/srvInformes_Impl.ddp b/Varela/Varela/Source/Servidor/srvInformes_Impl.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/srvInformes_Impl.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/srvInformes_Impl.dfm b/Varela/Varela/Source/Servidor/srvInformes_Impl.dfm deleted file mode 100644 index 90074b2..0000000 --- a/Varela/Varela/Source/Servidor/srvInformes_Impl.dfm +++ /dev/null @@ -1,331 +0,0 @@ -object srvInformes: TsrvInformes - OldCreateOrder = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schInformes - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 297 - Width = 298 - object schInformes: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = dmServer.DataDictionary - Diagrams = dmServer.DADiagrams - Datasets = < - item - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - BlobType = dabtUnknown - Value = 'VENTAS' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'SELECT '#10' ID, CATEGORIA, MODIFICABLE, ICONO, NOMBRE, DESCRIPCI' + - 'ON, ORDEN, VISTA'#10' FROM'#10' RDX_INFORMES' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'CATEGORIA' - TableField = 'CATEGORIA' - end - item - DatasetField = 'ICONO' - TableField = 'ICONO' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'ORDEN' - TableField = 'ORDEN' - end - item - DatasetField = 'VISTA' - TableField = 'VISTA' - end - item - DatasetField = 'MODIFICABLE' - TableField = 'MODIFICABLE' - end> - end> - Name = 'ListaInformesPorCategoria' - Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - Alignment = taLeftJustify - ServerAutoRefresh = True - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'MODIFICABLE' - DataType = datString - Size = 1 - BlobType = dabtUnknown - DefaultValue = 'S' - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ICONO' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ORDEN' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VISTA' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ICONO' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ORDEN' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VISTA' - DataType = datMemo - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'INSERT'#10' INTO RDX_INFORMES'#10' (CATEGORIA, MODIFICABLE, ICONO, N' + - 'OMBRE, DESCRIPCION, ORDEN, VISTA)'#10' VALUES'#10' (:CATEGORIA, :MOD' + - 'IFICABLE, :ICONO, :NOMBRE, :DESCRIPCION, :ORDEN,'#10' :VISTA)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Insert_ListaInformesPorCategoria' - end - item - Params = < - item - Name = 'CATEGORIA' - DataType = datString - Size = 15 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ICONO' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'NOMBRE' - DataType = datString - Size = 50 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'ORDEN' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'VISTA' - DataType = datMemo - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_ID' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'GFT_VARELA' - TargetTable = 'RDX_INFORMES' - SQL = - 'UPDATE RDX_INFORMES'#10' SET '#10' CATEGORIA = :CATEGORIA, '#10' MODI' + - 'FICABLE = :MODIFICABLE,'#10' ICONO = :ICONO, '#10' NOMBRE = :NOMBR' + - 'E, '#10' DESCRIPCION = :DESCRIPCION, '#10' ORDEN = :ORDEN, '#10' VI' + - 'STA = :VISTA'#10' WHERE'#10' (ID = :OLD_ID)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_ListaInformesPorCategoria' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object bpInformes: TDABusinessProcessor - Schema = schInformes - InsertCommandName = 'Insert_ListaInformesPorCategoria' - UpdateCommandName = 'Update_ListaInformesPorCategoria' - ReferencedDataset = 'ListaInformesPorCategoria' - ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands] - UpdateMode = updWhereKeyOnly - Left = 144 - Top = 24 - end - object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True - Left = 40 - Top = 96 - end -end diff --git a/Varela/Varela/Source/Servidor/srvInformes_Impl.pas b/Varela/Varela/Source/Servidor/srvInformes_Impl.pas deleted file mode 100644 index 57b76b9..0000000 --- a/Varela/Varela/Source/Servidor/srvInformes_Impl.pas +++ /dev/null @@ -1,48 +0,0 @@ -unit srvInformes_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract3_Intf, - {Generated:} VARELA_Intf, uDAClasses, uDAScriptingProvider, - uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer; - -type - { TsrvInformes } - TsrvInformes = class(TDARemoteService, IsrvInformes) - bpInformes: TDABusinessProcessor; - DABINAdapter: TDABINAdapter; - schInformes: TDASchema; - private - protected - { IsrvInformes methods } - end; - -implementation - -{$R *.dfm} -uses - {Generated:} VARELA_Invk, uDataModuleServer; - -procedure Create_srvInformes(out anInstance : IUnknown); -begin - anInstance := TsrvInformes.Create(NIL); -end; - -{ srvInformes } -initialization - TROClassFactory.Create('srvInformes', Create_srvInformes, TsrvInformes_Invoker); - -finalization - -end. diff --git a/Varela/Varela/Source/Servidor/uAcercaDe.ddp b/Varela/Varela/Source/Servidor/uAcercaDe.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/uAcercaDe.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/uAcercaDe.dfm b/Varela/Varela/Source/Servidor/uAcercaDe.dfm deleted file mode 100644 index f4ef396..0000000 --- a/Varela/Varela/Source/Servidor/uAcercaDe.dfm +++ /dev/null @@ -1,959 +0,0 @@ -object fAcercaDe: TfAcercaDe - Left = 531 - Top = 365 - ActiveControl = bAceptar - BorderStyle = bsDialog - Caption = 'Acerca de...' - ClientHeight = 401 - ClientWidth = 427 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object JvGradient1: TJvGradient - Left = 0 - Top = 88 - Width = 427 - Height = 4 - Align = alTop - StartColor = 2971346 - EndColor = 4828405 - end - object Bevel1: TBevel - Left = 128 - Top = 359 - Width = 290 - Height = 9 - Shape = bsTopLine - end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 427 - Height = 88 - Align = alTop - BevelOuter = bvNone - TabOrder = 0 - object Image1: TImage - Left = -19 - Top = 0 - Width = 450 - Height = 88 - Picture.Data = { - 0B544A76474946496D616765826E0000474946383961C201FA00F70000FFFFFF - 626262BD810AD3D3D3BA7C0AB36C08C9C7C4FEBC49A45103C98B28EAEAE9CDA5 - 15AB734B554F4CA9A4A3C8A645A24B020098009BD884A8DB96C99D128C4105F1 - E6D3AE66062A2F299C44036443098D8D8DCFAD8B0D120E96D77CC1890CB57108 - AF6E31A95A0588D367EFD78BB77508B3DFA6B58F6AE7D4ADCC4E3CECDBC8C695 - 10016001FCF6B8D1A931C8BBACC6831EBDA991CF6254BBE2B0D5AE68787878B7 - B7B7B4332BC38C0ED0EEC8B58855999797C5920EC4E4BCCFC3B75A39035EBD55 - AC9690F7C550E7CC79F5F4F4B88639F9F4E8C7954BDADEDAA2DA8DB16A0671C4 - 6590420477CF51E9A83BF4EBE172CD4B944204CDCBC99742028ED570B9791DFE - E79B1D221D66CB3C2EAC27DEC470CE8673C79B12BF840C0058007CD058AC4E45 - CB9B97B9760AA6591AB8780A5E575525A91CAB5F06B06807D5D1CBA75804E7B7 - AE9744029E4703874008DBB84AC63C2EAC631BA16631FCF9F56C6C6C9A561CDE - C39865C15AF9F6F10082008B817B884006B1E79CFAFAFAAD620672541E464B42 - 665C5B86BB7C1EA518AF68085868569E5E256FCD4481D15FDCBB87484906716A - 684AB0406C63618AC57B9142027FC96B968986AD751CAFB5B572663A89A88032 - 7E32E1978F9C4C0C828483C1B3A0FDFDFAAEAAA9FDFDFD964D13FDFBF9B26E1B - AD630EB8A6359EA6A6B36E08954A0B432A00FFFFFD8C4408BE9F7AAA5B0ACB9F - 1A0E940576D248A4500A8D96978D4911C997139ED269934404D6D5D5BCBFBF95 - 9290AB6306DCBC60363935914609954405934402FFFDFCA95503E2E2E2747171 - B2640463775ED7D9DAC69019D6D7D7DDDAD6A3B650676B1912A011CFD2D3A1C7 - 99A08525D2D1D1697575656665DEDEDEFBFDFDB6700CF7F7F78E480DBA7206B0 - 6409CECECE3945029B5010ADDD9ED89A32A7AEAF6BD743EEEDED994708F2F1F0 - CA9625B7730AB46E10C38F0E1F9404328232964907A85709A85810AEAEAE676A - 676E6765A1A0A0D1CFCE69615F1A8B1492511AFDFFFFC1C1C1686868CFA324D9 - D9D95ED9429DBF5A959D9EA251145A6414C78908C48212B56E05089B082C0000 - 0000C201FA000008FF0017081C48B0A0C18308132A1CA80585914D00224A9C48 - B1A2C58B18336ADCC8B1A3C78F20438A1C49B2A4C9932853AACCB8B0A5CB9707 - 5DBC216161CECA9B3873EADCC9B3A7CF9F40512E5C05B32851976FB4E43012B4 - A9D3A750A34A9D4A15C0827A03B10AD47A35ABD7AD07B98AFDDA15AC40172E70 - 39ACCAB6ADDBB770E3E62C4AB72E4217432CC8DDCBB7AFDFBF50ED0A169CB405 - E0C388132B5E6C71B063BAB8549C624CB9B2E5CB4F1F6B6E29B3C51C8898438B - 1E4DDAE3020AA70B525885FA256AD4445B27942D5B60ED370EE74C2ECDBBB76F - CB028F1614DE523651E20B90DB1E483B79F27A78553CFC4DBDBA75B9CE61A78E - 9DFAF5F6EEA75983FFF74E3E7C79EEC7D3D2047DBDBDFBF73F352BDF5CF0CD10 - CFF0F3EBDF6F32F572EFCBFD371E73D98187DE800182B7805A4CF1B743001046 - 08612625CD2321841B00D5CE8501B4A3D286177A88D300DC5006A2842266A4CE - 859C3C75A0763012F8A28CDF3537E372E8D533530BBBE547C433010029649001 - 28409285433E93E14F1B2699E249ED2419C0283729B08392261229E493161141 - 8796364025DE6AAF8D3966776696A9A6796C92D9669ADDBD61474D3DBE270587 - 1286399285172EE9D38911725912A0100A5A123711FAA918A11D6A6483842D42 - 55DEA403526A699B959ED99C0B0D19D1897E576A292A857B8A8AE54FA3986AE8 - 48518ABA6A48F37CFF29A4A289A5EA6446D3D0B1A554AC51E0EBAFC006FB6BAF - 640A6BECB1C812CB9A4C347DE2E397784668A4487C4A48EB4E8CBE1A52B62855 - 9B689621663449A05391C91A9C6EA67BAEB9EC8EE9EB69BEAEFBE69AEFDAD742 - 83EF5D63AAA97AC26AEAB5FC5984A49600F346043041161C94B0C4226BACB2C3 - 46EC70C312AFB6006E2DB0D7DE83D17E4B2D870A072C91B7188AFC1417AB70F1 - AEB92AA386F2CB2B530033CB0BA0CC2EBCAFAD6CA6CD328717DD1C9FBA87F090 - 99E82AEA341F2719B2C903CF6AB25314C412B5AF5C542DB5D4BE5E3DB5CC2A4B - 6D75D554770D6CD52D6B3D3617B1B4FC6B3D6A3DA1717577B2C8B184936444C4 - 24D076380F002407FFE0E70617D610111136E4BDC1DE13D95043A2884FC46D44 - 8B4B2878443664C2B8458F4FF4CB2480F769033414756C6D449D4B1811A218AA - 9338DE1CD66083EA1BCD537888364C4B51E6144153B9E4EA487151E4114E0E80 - 3A9663D8B847C2AAAC76F232373F76F3CA1B1BBDC3D30F2B670B9FD4495DAB43 - 5E6383940AEB2BA5928F2A2DD106490A2EC5F8534604CDE2E0DFAEAA4435A40F - 002DB28A7A2DF744522911110F62DFAE2422408291CE5400B0DC9044348F020A - 890ED7C0C8358C26C07620CD71F3A3C82FD0B72F20D5801615811F910487BFF1 - 2DAD2253F31ADAC8A6C2B4B99085604BDBD7ACF62B19AE506C578B21D76C28B5 - 0768410573E8457BFFF216212210014F441098E8F0F4B7C0F52D4FD020E2854A - 2491CC010F42351880E8B89439225C5174AF90C8124B0680D245E851170221A3 - 44E7BB8AA0718C35B01D00700780B88DB15F900B1C2DB6F811B2F9D18F324B19 - D7FE58B594111290833C64CB14F947664DC73AE2D312A914A8A5E34544011DCC - E4A9CA98240A66726899B49DADB494A2FA69C993EC9323FF8094A22669B29211 - 7160C20ED849FBADEF959DBCA044CA87CB20912A22A31C60442229CB67E05184 - 4002A500E5A8112EAC6085CF4CDB3367E84C68DED09A7E94A635B529CDA945B3 - 9ADCE442385C90082B184188D5E10487F4A4CE0BEDA022731BA3C7CA28CF7A46 - 087673E45029ED19FFA1BA55519F83E3501801A08057B42E22F25C9219A315A6 - 85CAD30013D9233F0380CF2E4A718CA0CBE344F1D84C467AF4A3200D292357C1 - 3614D4C43ACA0C52467FB12F5D02E047A6CAC42FEE674AF391AE98BD1CD23B23 - E24A61D634A701D8294FA5E43F5A48498EF5B38152671A4B5C2A14970A98C6BE - 36905100844AA713E1E0AD087A5522D12189F9DCEA1CC7A7A7A611C94FC8CCA9 - 5037B2C217BAB5AD707DAB5CE34AD7B9DA156DABF0210A6C421D894A880E13B9 - E8F1EC2821DBB11464E7C3D30E92D84E0E65C248848DD02FADA8D8241A004FC2 - CB67B8F8B64E8FF4ED5A0E0D001D7C7737890C40A98FFAAAE61C2B1168E02952 - 12D10387DAF8382FFF71C89F11892C84A6F54508BD2289BA0D40663B2AD2E21A - F7B8645B850B486018EA70424A6BED2A90D6FA5CFD51047036E5A4A8329B89F1 - D96E95C295483083544A296516BCE7959288A0C1BE0D28D5921431EB26132B25 - F8DA4D71E6DDA5A9E8E052003C6A07EF9DC8789F2122620609B014A1A490F494 - D6679CD754C3CD485D277CD70A53F8C276659B5EA873517CD69143AA8D483C21 - 04DB888CAB4F89651106033791BE098FB22A1ED941FFB959005C144FEA602667 - 517C5D2472441DB38B96F01A1BA1B56EE471448690910190E44601A0B7548C88 - 8B3D42C86956D3CA55C332D9B48C362B7F33CB7F7CA698B77C6532AF422D9FF1 - 0D4B719AA4366A77FF481C95EFDFEAEB38F5B638BF3CCDE093A584C7066EB7CE - A2F21F6771EAE1411BB0C749FAA5456C005EF6092F805A2AF1913338608EFAF7 - 5F794C529F214C6569AE60CC62FE345CBFF9E950933A16A046B533450D6A565F - D9D562A6C003F28207DF34B99E4275A8253F9B62091D0F7753CE738D7B7BBC60 - 0B1B452B966794773CBA1ED7982227B6A7F01C6AE98C3C8E51967EA3C788DDE2 - 1973A4D5624635AC576D6A7197DA99E626F7ABC10DEB4FABFADCB1D011099EA0 - 3DD13438A7087E3391E28CE99B8AEAD744BDF39F81A9E79F02A9D8781EAAAB28 - 728DEEF6D27672AE0876C16491EA8E0FC0EC1DB855F9F591018BA8A741CA76BF - 1B5C6C4E77A4D428FF4FB9CA578E721EB0FCE53067B9CB3F4D0C0DF39534879D - 688468CB2149477B9EBA4E36B964CCE2630FFDC91C2A79D18D5EA88BBCAE78D1 - 822DAF9D9DA78AB856A020BCA4B7E9F852E1DA60123600AB6691CD640E2DB9C9 - 54E436D125E79198BB7DE5C478BBDC591EF752E3E6E6A3B1385087E4BFEF8D8A - 2290769ABF8704F0858F2CE1202730FDE87C788D8F35D01B5140E5A02BE3ECD2 - 179614599158739B705E3ED08DFD4E7C81F75B1105873CD39897B2C9BFFD6997 - BB7E05AF8F3DEC672FFB96CFBEF52FAF7DA9652FFB593F019DA381BACE451B91 - 9C4B88A900303ED0932EF4A6AF3D7834263BD22FA474B647FFE8BA53EAE2AAFA - 5229FAC9D8BD8E10FF7C471C008E0A1F8BADC5131EBDD8D9B10FFD88B79D4870 - C1AA76D52F7D2373973BB951BEFF15981BE6FDC7726C634EF556196BB677A6D2 - 46F92324353053C56070B334784452787C277043223C1EB778FF66812304680B - 040052157081252AF86460403253BF9075132724F0B58207560C52667A1E3411 - 10F80C91F20B0E3724C0005619A8709AA67A76867A2CD86DF67372BAC77BB497 - 8448B8844AD8844C287B5CF00091817797F1733BE774784245569850E10721BF - 0650CF877E4CE764D3E76BDD767F8F437E4E06401C3200E9D73154147414716B - 70247F3A575160485037263AB6537FCC067D27977BBB3788B8877BAF6788B797 - 8833A78884C88885FF881BF88219321800FDD55AE38360B9C26611A86F07E781 - 44F2247E7681FF24561088708E075EFE93716C6664A8A4253BE582CF005F7BA4 - 893338119A97538A267A1361829A743C2447845A126118417B3C107BC5588CC4 - 788C83A88CB0E77AC7B888CAE88CD1F88CCF488CBBB70D43A002CE8219CA3721 - 19716359175C89F2454D447DCD47867F2886EEE77C65287E67687D6398224F14 - 2D7A207694D3314F658EF0B444EDC02815B14678528FE7C825E2D87EF4C37C61 - 185E815888CB480C3CE0904EB88C11697BB6F78429078DA230136E83197E9724 - 920678FB52821DF44E0637671B584522286509D7837B76922A798A41985B2935 - 3E86420493E860B4FF947A134104B03881979624DC2765ADB879044794C9A755 - FB9209594783A6527245C811D5488D523995545995562995CD488D59598DC440 - 4ED2218978E26616B1222036110AC03A850251EDE8375D18005FF86CC6066366 - 98900FF66C523609E7D7216197118A433B07A48F16210580B201930056983445 - 17213BE4583B98938714715A575403EAB09414E187E0A711AEE790C8788CC440 - 0E3CE099A0397BA1A98CA0598C9DD9849EF97AA5599AC5989AC4480EB4470CE1 - 20274F40854F739BB88919E4009ABBF999BDB99BBCC99ABE199CC3E99BCF489C - C0599CC9D99BD4B89CBB299B18F336B9399DD4791838D099E4709DBBA99DD9D9 - 999F899DE4809DDCFF399EE2E99DE1E999E4B99DE5099AE6D99EEA199EB30644 - D5399FF4D917D9999D388003F7999FFAC99FF8B99DF8E99FFC39A0F9B99F014A - A008DA9F060AA00ADA9FE140036B519F123AA155C1A0F709A016AA9F190A9C0D - BAA006DAA120CAA1228AA1F7490C0F90089E518014BAA22C9A13FB59A002FAA1 - 013AA30D0AA330FAA2FD69A3390AA23A2AA3B33927B6D9A2423AA426D1A1C029 - A31AEAA11B1AA20A6AA14B8AA4482A9B0C42A4545AA52341A01F80A3587AA0FA - 99A509FAA5FCE9A5034A0E1F00A6664AA0E4100E3FB48D56DAA66E7A11315AA6 - 59BA9D38E0A5F759A60A2AA7376AA77C5AA72FAAA7805AA7822AA71F5AA078FA - A028406F6FBAA88CFF3AA88E1AA85D8A9F810AA81F30A9755AA98F9AA9964AA8 - 620AA9F54003D2A1A28C3AAA2B4AA9804AA6838AA9789AA95D5AA6647AA7AAEA - A790AAA98FAAAA772AA8268AA2416A321DC996BFC10930F8164942997917AC38 - 51A9C89AACCABAACCCDAACCEFAACD01AADCAFA0028506BD4A96D27441952B038 - 6EF81669541ADB1A00DD7AACCB8AAA593AA9B6CAA997AAACB25AA9641AADEB1A - ABEC8AACE6FAAEE19017D2C9AB4392AD8AA1001347AC5531ACA3E1AF4402B029 - 11AF94DA05CF4AABCC8AB00EABB0F39AACA9DAB0806AA226B5ABFC81ADBC7145 - 063B15DF6A6F12D2B12741B1EB5AAB9B8AB0128BACF1DA0FCDEAB0729AB2F27A - A938F00034306FF9FF9AB1FBBAB14362AC6D21B0F6B6B33AF1010A3BB4425BB4 - 447BB4469BB448BBB44ADBB44CFBB44E5BB41FF0A0E6949B1A5B1A5734AE6DF1 - B1A191B5412BAD601BB6623BB6CEFA0076801FFA310D16B703BFD0ABB4720DFC - E33A3A66112244425785479E278F39EB5F840700D7C04174D02F48992472740D - 7AE75E16410B9EE77595781152A040810B003E1B11D3D0975B625FBB78348135 - 244B09B717C898BBD4B77F0B24912B8184DB5AF8E58AD58611C80AB14D5BA9AE - 1BBBAD9BB4B00BB1B23BB4B6DB05440BBBB42BB542ABBBAF5BB4C4400376F004 - FAF10B17257C7E42B00CB511C053037D930960A56DF2D86CDA263B02F5977832 - 2D3C192D7440995BFF182174807C18C128E7B794F318008FF58D74F38662C8BC - EAA75FE2A76DBEA5BD1C322DE11B3C736B11B76BB4C0CBBB002CB5BACB0FBBFB - BFBE8BBB083CBB018CB4B04BC0C1DB0530400CB881076C7A1DD35083D6F552F7 - 06671A214233495EF7284CA1E8ABBD1A785A024283AB25D3729344C254B72440 - C29838C594758B6B5EF638875815C2A7C77E05A42725DC4128BC4CF7234BDA32 - 115D200047FCBBBA8BC4BABBC4499CC04D1CC54DCCC451ECBF527CC4575CB454 - 7CC5518CC45E8CC50A1B0E89F095EE91BF3C069017B2BF1AB544464296ECE82D - 4B42BFD15222A1B55B00803AA2530349343774003A034044981B117BF8AD87C9 - 8F18617CF9267C46FF82C68575696344C71D6324757C21377C114EDCC4FD80C9 - 97ACBB99CCC94BDCC95DD0C95B0CCAA01CC5A26CCA5C7CCA9AECC9ACDC05E1F0 - 00CDE21E0A16473F7956206878D0A060AB2B84011041B3B86FB5AC782F092471 - 5C4C68C5B912118244B2587C0B4B5AC55F11C109C0A0546AECB7A212260A9083 - 4102427AF7413AFC0CD07C110A063A3045CCB75C810090CB14D7AB0274CC059B - CCA212412FA54C628911530CC6F7BCC954FCC54ECCCF52BCCF5C1CD0FE1CD002 - 0DC688AAA8D741446E6646197259F3743F12A2682124215186C76C49BDCF17C7 - 884904B2354F1C2B11841562EEF74E23E65E3610C88913D112E157100242C2A7 - B56654CF13F17361FF42587B43588AA24592E5C81152221CDD6CED28B294B350 - 282D11A14CD0575CCA48BDD449CDD4AB4CD0A49CC5349BA8C0F71BE51C24B6E3 - B6C1AC49F946B75AE2662F1C5E79DB78E6DCCCA4AB5F82D7924062AC9EB7564D - 434205B403D57C8BC2DC5442024240B5CBCAFC0C24FD795B2D4080D5ABF9E679 - EEBCD6152179ECAC93F6FCC500EDC54C0CD04B2C008C8DCF92EDD8FEBCCF924D - D958DCD8479CD993BDC9530BAA91E81B856CC7F6573266CC2119F1D111C1D282 - E3C66478B557FB87682521E30A284FA2D36298DA74A0C6B8CD941182D7F55468 - 2009218095375404DB4BC4D3BE4ADB0719215A0BBF1D53D41131D9D6EDD99B9D - DD95DDD98C5DD9DEFF6DDDDCEDDDD9DDCFE1BDDDE0CDCF66EB36A21A1A57FD0C - 599DB3359C49ABFDD5202D8A848D92B66CD6CDDD34851D004B49D76E1D8CA88B - C182561174FD24029BD71911D64D9351F1CD3EFAFD7D87A6D6FE9DCC06C709B5 - 834CD40D009EFDDD962DDEE6EDE1DC5DDE22EEE1DF3DE221FEE1290EE295FD01 - C4BB911C3697F4F42D0E4D46217145152D217AC0DCE20AD1D60BD470FCDC2DFD - 7C5D0D284B465036104F5D4D11DA263C2C5DE12F4D1279033CBF84D38E02E440 - CDDA7FA86880CC1126DEE102D00F276EDE620EE666FEDD65FEE52B3EE66A6EE2 - DCDD0F0900A1781034BE11780DB8D519B2D7E5D7DAC8B4CB48D73D00500C9EA4 - 3A0F9EC15A0D849BFFF8536132537ACECCEC8C384AB501E19C405E75C8244850 - DAFC0CDC4C3419D553937E11740DCC947BCD7CBECE7B6B689BA4E8C917CC9980 - 341B94241BDEE6B2EEDD0420EBB53EEBB89EEBB9DE05CC00AAD6EA1B05D96C8C - 6CDC950CDC4BE486352E3A1A3D4F416EBF11723A75787545D6DA406D11798927 - 2054DA1DE3E7EEE363D7E7BD4934DBCD3EE317323CF514EB0270EBBA4EEBEBDE - EEEA1EE6EAFEEEEDEEDD6A2A9FBF91E95335381B4C24F28C11FB9ED643A9CDC5 - 9CDFA8EE277A2724466293AFC454292C25421DD60244C3AF24D11891E946C6C3 - 9924CF875EF01271F058FDCBE6A5D81751D9F14E00B57EF2E94EF2247FEB257F - F2269FEE2F8FF2F1FF9EF2332FD92F0FF3286FF32C4FF32AEFF2040003473027 - D4A1008205D4EFD331323DD189E258B6A35B1B50DACB6EE3E34EF41C9275DD8B - 594BA9001D1D2D493F872003284B69D17D52EC8BC6B5ADD55B57788FCC0ED454 - FFAD620F21275D751BE1F3341FF33C6FF2742FF378BFF77C8FF3768FF7759FF7 - 7E2FF87DEFF3373FBC5680B1A1A10016D70EBFA000A74E395D25B71C814CB430 - BAA265690D47BAD8BCB71BCFDF9AD35572BD8B875B6D36305E9960038D2B300A - E43A61B5CD9A333B97FB11571DC3FE35F9A04B39A70EFA12F10BA23F2DF39083 - ED0083982424146F117C9FFCCABFFCCCDFFCCEFFFCD01FFD557004896001A34D - A55A4EAA2213FDDCFFDFFDDEFFFDDC5F053040BC27D5A696AFFD4F03FD64C0F7 - EBBFFCEDCFFCEF9FFCEBFFFEF1AFFCF57FFF0450FFF22F0045001034EC3CE904 - C0E0418409152E64D8D0E1438811254AAC11C062005A13356EE4D8D1E3479021 - 458E3C48C0A4490127539E64D9D2E54B9830C9C4A4496065CD97330974099708 - 85119241850E6D58F159806719892E65DAD4E9D3A004664E955A95CCD5AB52B1 - 52E59A95AB55AF5609882123A62AD9AF53C35E35DB352D589D307AAA9803D5EE - DD85152F2AC5DBD7EF5FC01AB18A1D4CB66D59C46F0FA72D4BD8EB63B591C742 - 76CC982A5A93FD8ED8A11BD8B350A348F97E265DDA34D1C4880D635D4DB684EA - D46C61CB6E0DBB76FF6DDA885FDF8E4D66B76FDB65BB1C49D4F9F471E4C9952F - 1F8A36B5F3ADD0B7B29E2EDBFA73EAD79D4BD75E1D7BF5ED9AED58D8C4DCFC79 - F4E99597787D95FD7BF7EFE5B3C74ADFF7FCD7F9F1EF6F7F5FBEFBF8F8F3AF3E - F6C4E00FBE1286E3EC13F51A74F0410885CA0FB8092BA4F0420B33C470430D3B - E4F0430F351463B8442CE82542145354714583E8834F1C17631467400463D48F - 3D18F59BB1C61BC980F147FC689C0F481D857CED471FAB38028527EA62F14928 - A33CAD471E6DA430C8FD8CF4CF4523059C8F432CAFFCF2BD226860524A34D354 - F32901702C4192F7E0841184F7E8C4CFCE374B98334E3ED993B3043CF9C3934E - 18FFC4134E3FF504FF545144DFDBB350F88A4885C982D6B4F4524C352A420031 - C428541C5041950FD43F711435515443FD54D544493555D5501165F555585D85 - 753E4962D573C6236850C18813331576D861532902064FE904419C6541709659 - 689565569A669F5516D065A795165469B365D6DA50B3C5B6596ABFADF65C68B9 - 2DD7D96601D5561C027AFD95587AEB4DF3050E8E28428C6A088DD6DD66990538 - 5A81735C94DB1F139E53D476C50DB54E82039698E085276E98603288B3C0497B - 3BF618C2345EA0E18422A875961476513E396596D975F9E595619619049567A6 - 59E69A73C6B9E5976B56723C3C2AFD7868A2951B20E47CF715C366A6C1B57866 - 739D76795165618EFFB669ACCF75591C18046AB268B0C326AD185A42D6E48804 - AA31396BB69BAEB96DB8E38E79EB2A52198F63B1F3D6DBA901EC29DB87658C25 - 8BDDB50B279C7095A549FC64C39D2D7C71C70FA759F1C81D871C84C631971CF3 - CB4DEE7A20A1F7DE9B91084A37FD74D453577D75D65B77FD75D8556744A80106 - 289B161F3421998C7108218590020A204578528A0FBEF8E191173E78DF83171E - 78E2914F5E79E9AB1F3E7AEB8DBFDEF8E88F777E7BEABF4719E5AE7F6250F4BD - 81887D7DF6DB77DFFD2C846A6680F9ED3126F7238EA842F1E497EFFFFFEE0150 - 80E30381FFB4E73F04562F810754DECD12F8C00116501C45280EB0D0A7B73BBC - 4F831BE420FB8020FFBFF9D98E1603988726527184A53D6F7AC96BDEEF58A840 - 1716CF77D9435E0BB5D7C219522F87367CA1F570F84215CAB07855A0200AF070 - C1B0790300A4FB47049AF80F28E6C174522C1D152360452C4E518B55DCE215BB - 98452E86D18B1B6C620466171465D08F7EB4B0873D0C60875484A30A055C2129 - C6E1BC7118EF8ED82B401E5788BD3F1640097BB4A31EC557BC3C7A4F907E3460 - 1D1539C8E041F278075452718286C48F71A21D41E00420BC80814F86121033D0 - 86094A794A53A6F294DA58E50458A90D574E4096B34CC2046A298124E4129712 - E0651278E9015E4A0098C3F400153CE0886252419923A002249AD9CC11400211 - 90F80235A9F9852FFF2082112CC8030BCC213F77344319E1B4C730EC2185179C - B00A8254C20E0B003C78FEEE9DD5F35D0E87A704E7E15379F03C5E3DDF794817 - 46F29F3314643EF95850E60DF49F42C467018858C16061B25E3BB0852D760088 - 0E5C41A31AED002072D003908654A42325294867D08393A674062B65E90C4CE0 - 5213C434A6AD7CE52C6D79D35CEA3298B210A6048CE981642A73991E40861758 - C0024BC86F00699C5F33EAD70C1FC4E008E3F047439D7755AC6615AB4A208555 - 97A755B07E15ABFDD3AA57AF0AC0B07E0F9FE3F8990A2E29517AED80A2EDC8C5 - 46AF80018D7AB4A47B2D694A51DA52970656A6305DE52B61094B9BE6D296BED4 - E92F810A54630A55FFA8CCF400238C8A54A1D8A319EEB88653373B80629C339D - FAAB863FFC818602A096104A40AD12DAB9DA76BED3B5ECC42721D000CFD9BAB6 - 9D6840436DBB2A5B42C016B7F8D42D3BE1D9DBD4F25690F22C2E6F5BCB5ADBE6 - 16BAAE25445BF106D74C396007EDE0442E3AF0DD2B64B4030DC841793FCA5793 - 86D4AF2CFDEB4A5FFA5E99CED494863DAC2C6B79DF9CEED297C17C6C31FD2BD9 - C826C1B2474D6A507EA159713A957EA1A585140CC08107C0A00A77BCAD6A57FB - 4EDB16F4B6C42DE86E3BFCE10A171478B54DED87397C620D0BD2B617065E6B55 - BCE1175F189F217E6D1136E3D6D061D7526500448F77608349D820130D684021 - CA500824AF03BD7DFF6D6F7B59FA5E98CAB7B0884DEC6273BADF5F0AB3BFFF15 - AA2CEE910530C3E3B2DF0C8A37A0610FFA85D3B3B62B461A1E6CAC09B3B3C2D4 - E5AD6B9DAB5BDDF2D6B675C6336B373C5DE8F2F9CE7DCEB39EED1CDDDDF636CF - 88F6B3A2E9AC683D57D2883ACE1406C42B8583CCE31935A88878AF0052658434 - D4E95DAF93DD2BD8F8AA92BEB1C4A99519BB4BFE3E1699C674C464A930020F98 - C18B2CB86C814942046FFC021A6956F0FCD89806296862644518076BDBF9ECE0 - 5E20B52B5E6DB457DCDBD55EE0D917082EB45FABED6C1302DCD01677B9C71D6E - 6E8F9BDB7346F7B6BBCDED6A97BBBA1ADB448E292DA55CE0B503F338880D9EE1 - 8C1A9461A31858B2FF48D70BD8530F36BEF4AD6F62F18B4B2C6719B241B5B507 - B250BA7FE4A1D743990638844DBFCE3A359CA045F60B74C7ECD4923BBA7586B7 - 122E808675C35CE6E086F96BB33D739CC7FBE62F7FB9CE71CE7399DF36B8B6ED - F96E690E6E71CFBC0A3AB0E4BDD764E9F05EE32006A007A703F0DD8C96340748 - D8FA47BDDE83AF83F4BC066FF24AF92058C2AA920FACC6AF2E5F1D4CC93213D7 - 17776237093C944E745CD8B4D8AC679B410BC037230DF8D35FB3BF2D6E97137D - E8E56EADB9BBBDF8C56B3BDDE6B6F9D02F006F6BC77BF22E9F3CE679EEF86863 - 1EF4D6757A9A025008226FA01DED18450D0041E432384318B227690E92208825 - E45EF7BBE7FD12EEFFE07BDEFF5EF8C017FE1D8C6F7C20DC21F940C002F29BAF - FCE7339F1158000280994905BA677CCC44E9441F88F0713537B576B7CBDD0974 - 3061DE5E5EFDE2BE3CFBD33DF3F6AF5FFEF1A7FFFBD35D7FF7E71FE8F3BF7FFA - 61AEFFF833376E5BBAE2B8AED25B11ED6A0707F02EAC132F8F322F5043A91E40 - 022090220BF4A20BCC400CDC400DEC400E441D28822256488664C8382F923B68 - 42042AD0B5BADBB8A0382283C83B058086115AB3106A23634027752A00F50B40 - F5B386CE73BC201C421F1442011C422384B9FBBB002004C2FFEB3C202CC2CE7B - 28E3384016912B5BA02BBBC2AB2BD0ABBDCA810C7A9F101C43322C4333FC8712 - 2441121C84641884FF41C88264309D7FB8B5651A0166CA3E8DBBBBA068018EF1 - 3E614333BF530605033C29F0811392841E4C44455C44466CC444743F47544421 - 64C4238CC4F52384712882F1F8047BB3C2076907B96A078C0AAF8DEA004B282F - B0233B245802308A1D5688805724A3314CC33624412772A265BAB51150413C3C - 2ACC0A0A12E0C383E804225080031B80F06BAA625846748A810758A76050023F - 90C45BA0BF5B80C46ACCC6FA5BC45B88426EABC61ED4C66BE43FF5F3036B0047 - 6EEC41485C4471FB190B381F4F44914CC8841AC8041E038442C8857CC3800698 - 076E588665A8BD307422337043833C48841C043330832C6048876CC8865C4888 - 7CC3877C4830CB02FF46C0488C64848CF42256A0433BB443ECC3B83CF426A1D0 - 82F13082F20000EF0BB611EAAC344A2311A2057748B65408817108866050C45B - B88569ACC69F0CC769F40370ECC96964C4A3BC00A34C44A20CCACB43C71E244A - 474C4AA84CC70BA0423C88A8787410A8EB004C33084DB33A4F233590BA030B34 - 035BD22FB57C35B6D4AF2BBBAF9B8A25868B2FB4E30341302AA30AC95D440415 - 6441EDD34392700121084605988313E9BE60F31B35532363B39F34389B22A882 - 500806A054CA0B084ACCB4CCCCACCC70BC4CCDFCCCCA0C4DCF044ACA543FCEBC - CCD274CAD404CDD15C3FD2DBCA07C9B7F0E23783F0378013388D22B8910243D3 - 318324782C2D2326FFE10CCE9E02A66062CB9C8A4B59AA2F564A2513E881BBF4 - 45BDDCC53B244917248905588037D00226398518EC036F50007BE02C0513C4BF - 63235A30004D8881C8BC4CA2F4C9A6EC499F94CFA6F4CCA1544A9F2CC7FC34CA - F9E4CFCA1C4AFAA44FFD94CFA77C4FCFBC3C3F78CFF79C4F00D5C65070C77A83 - CD06A9ABD93C885A0800600086ABCB4D5534CBD2F1CD2D0B511105AAE20CA6B5 - 7CCBB8442CFA3201BBC44B16D04B44D8C51524495FF4B591580017D04E2DB082 - AF894170104F64F42CF39C1FB2B91F0E2019502084041DCA50E8C65B68D2736C - 52CBFCCF2865D26C94D29F8C52276D4D2785D227DDD22DBD4F6DBC4F73FC522D - 3DD3A1B48607DD0CFF0B804109450FD9BC825AE88369E8031B08003A000681C3 - 000CC80581ECCDDF2CD161125442354E2CBBB2569BA5FA52A5989A81E83C2A5D - B4C3181DC9163C2A32C3CEECD4CE372001BA38915EE8831F35065AB806CE1AD2 - F12B1B7C49051D08016B388304954F5885D5F88C4F590D50FE5CD05AA5D558AD - D55BED4F06F5D55DDDD5057DD02DE00C037CD3E4D8810DB02840B82B67B53440 - 402903582909A4560FCD03101D51112DD1E33CCEE4844B9B5AD1526AD4476501 - BE8CD16CFA8211F0CB92B45191C8D41C7D834DFD151894411A2436A6AA1DB219 - BC4438219C24CA33B885801DD860ED49823D58814D58845D58F964D880855586 - 3558859D58873D83FF810D8535355664350F2CD4C281CBABB1532F94E2CD0FFD - 4D12054E943DD99E3251B744D45A924B574225547ACE72A5CE738D513CBCCE1B - CD54781D0212B00023F04E00988619A4C166B80665304F7D259B4294AA100085 - 50B0588A8DD581B558A9B5DAABC5DAA9C5DA87DDDA8935D8AB5558AD3DD8ACAD - 5AB23D032A3CD68D2D8D04EC2EAC23C5F132AF1C38B81EF0D008C8566DDD326E - EDA59685CB975554C3724E168D4EA38AD19B555776AD51A1C05178CD4E17D8D4 - 1670D369084FA3153F1BA4491FE0006391048C3D83A8B5D8A815D8D0355B8105 - DD8B35DBB255D8D12D5DCF3DDD9EFC5CB3855DD5B5DAD9355DD125D85000051D - B89B4E5C5BCF2883FF06E8315B5007759884212BB23258874208006190409322 - D9BB0DD4419DDEBDEDD6B704572A0BDC996D549ABDAC173D5C9CB54E4B5D5C9E - 2D5F5C20012BC80127F984EFBB57911352117287A84A05061887330886335005 - 113883FDC5DAFDFD5FFE0D60001E60012EE0FEB558FD2DE0AA3D6002FE5FFD7D - E0063660AB558500A6E033D0DDA6F3DDD3E8CAAF0480B0EC345254296B3D4B93 - CD5B428535B74CD4707D25C11D2C47F5DEC3C5A67515DF5FC4D4F2AD874C7D83 - C1DC984AE90363F41B1B3C557B2839F694043FE05AD44562255E6226B6D803A6 - DD264662028EE22616585028020EF81578D460CF90CD7DEBB77F0BB881ABD691 - 1D48BC254E945D59FF13652C147D59E664E171E55E97824E183E576C52D79C05 - CC9D2DDFF27D83F3FD959504CF03E3BB045BB3D04A8390311650B85F06B6DA46 - 7662478E64489EE400CE5F1148E047AE644D666008B6E04CE6E44B7E64428001 - 0E480323D8622EFE8BAE943A83A03AB1042FBAB55BBCD5D6EAE5DBEB55CEE53C - ACED7561C23557444857194E5C3D7E573EE6633FE6D43908E4F00444C6742AC0 - 1BA1C1D3041D58642466DDD27D626B8EE26C4E5D2566DDB1E5667026DD6EBE60 - 2C369F540E0CD44B3D0718054E703DE41586751086E61561E805D142556396ED - A56FFDDBE58CA5F98A63287BA9932AD75FFEE53B46843C36C9A028E6627EDC21 - 601227D9841F1D06FF5A10C490EBBBFAB99F1860801008053FF85F1150833310 - 69918664921E69947660023E699646699106E0933669979EE99316019BA6699C - DE5F960E8510A081347802543E67BB48C0056C4007945B84AB5B121E5134CEE7 - 57B3B270954B164E35B47B615FBCE32F6802AD460476D5596266E8F2750117D0 - 82609C03EF3C05A2A5C16B2055BFAB1D7B68B31252D545566903C6644C16E09B - 0E65FEB56BBAD66BBFC6E4BC16E0BB06E9061E6CFECDEB0456852BE6809FD04A - A1868A8EA5D0DC04D98363A91C509F924D59EA65593676599BCAE5E6DCE5C0B2 - 6C82C6EA26C8A68476D790C8D455606DD76EED4CC50514680123E80383004FCD - 82C9B6B61DD07287FF745AD538D05F9B1E6EE22E6EE33E6EE44E6EE55E6EE66E - EEE1060519B8041F00EAC7BE0B50DCAE51CC288E222FF57AB29392E588CB675B - 863836C6E59A92A97175A9B31BED26EB01477051D3CE6AAEA6D1615E6DD7E6D9 - D6866D787D8321B0828D31884F3033BF0952BFFB3B7B8086C18B0145A6E0E1DE - 6BC23EEC076F70BF46ECBECE6B0B8FF00B77700D9FF0BEE66BFE8D839E1E88A0 - AE6EA2D8007AB4C71E6B807DC40040D006800C487A1EC841708425C087258084 - 1ABFF11A17044810047CE0711E87841E7704218704473872243FF26540720970 - 84256FF2277F710958860900021836ED2640681ABED43DA68005F07230FF7231 - 6F6D2FC7D14DED51FF50DD3BFA294F054B8306CB1DFA0505E1766E3AAF733BBF - F3E60E814B588327782B125F0A0ECEB44DAB8142F0B484FB6E2AD2382F587446 - 6F74477F74488F74498F745F6401AD3EED2568022898EF4AADE1912073B0066B - 79E554A000805E98833FA449777007C67CE69A34A1F38B5A090F69E43E6C3518 - EE5BB7E95CB7F097E6755C276E5BFF755D17765AD7750827F65E1FEE509001AF - 19F13F1F092FA64D00B04D31CE4DC07A4ECCCEB84ADF766EEF766FFF7670FFF6 - ACCE6A4D3FEDAEAE6F9010732F0775761F7331C7D1B1FE89529F5C0530860140 - 5AA712C49944D5182099E0F6855FDFF55D1FF65B2F785A1FF8622F6E833778E2 - 5EF8837F788747F8FF8857F890CEDD235883367D76A2A0D02FAE4D0CD550EDC6 - 80967A29A5361DEF0D77944F79953F2AA3C226AD86024DFF0261F67491D0EF50 - 07EB7A10CC1EA0ED8220C6192C86DA2970DB79EBC10B9C2288033C57035540F8 - E21E69859FF384D775A8C7F3395F7A9BB67AE406855428113C105A8D87762E9C - 87EEEB843BCDD340C84D911F79307C456D5F79B77F7B713FED4B3FED84E6F277 - 0DF3327F7777C77B311FEBFE2EF54EF8D1335BF3425E2AA01FBC1738812AF085 - A5578382777CC70F69C89F7C04887CCAB77CC8AF7CC7D7FCC95703CD97FCCE07 - FDCEE77CD2CF7CCCDFFCC90F695588031DC86237FDFA9050D648B08566C52BDB - EF2897AA05398E2FFF5693252A5F8624007EE10FFE292F7E4768F2634AFE5AAB - 356762FE688AA6698AA66AFA822518F74CBF7E2858022880F997DF7E99A761D5 - 068976E7D9BC2FFF0568F77AE06FDA8ED0C93DC6CF6A2A63A3851C4CFC220801 - A40F697480FCFC3F78C70708746A060A14A1C6E040830605121CA886E1438708 - 23267408F1A2448B1A156A6CA826CE91442A8C002869F224CA942A57B26CE9F2 - 25CC983267D26C996F87AD76B9AEF0BC828127A01C3386CE3051B4A889A449B5 - 9960AA4DDB04A813A64E4D62358904AC582570F520C1AB070F54C452295B7604 - 95116AD7221A8108D117B85F9ACC6D62B70994BCADCC4488F02F8F17162C2CD5 - 6CB98AC2020A8713FF3346ECB83164C40BDE0CB162014F27007DC0FDB2D7CC9D - B2CFCD9A0D18408B561A1F2F529D0861CD971AD808D4CC1E589B36EEDBBA1DCE - EE9DFBB76DDEB865FFDE1DDC77F0E4C507AA027584860A22BD0A53AF6EFD3AF6 - EC2ADBD9B2B50350879E3C3B34E043D4287AA54E9B3E951A35C904F857B766E5 - DA352CFEB166CDA255DBF6FF5B727D31575D764181575E5FF0E5571E820DA65D - 498F4918198512AE3299163D586044669D10D1D9009F29A34C88250E600F2D06 - 70704408A0A8828E2F181184003A34D626E343365EA4E38DB6C948A3453A7644 - 518E02FD5823926A84028A0E1C8C042194514A39E54C0EB4B30327B974105E78 - 40E5D0430E421935FF547A4E3DC55E545451259F56F5D9079658F9ED97565A6B - F917605C03D275D75D7A2DF857602C9803E561142866E8A186168AA8A2882E6A - A80B6F9080C2137D00E061679F5DD34C68A3B933C030D0D0228526A9E810822A - B421809CAABDADEACAAA08B8928D43D9BCEA5BACB0D6B61BAEC5AD8A9B72B9C6 - DA2AB0BAF6E60B02BEA45304744F644625B4D14A8B1D20B9E4828103D7B873CD - 0E0D045046198000820D204AA9C7DE53694AC5E67C6EBE895F9C6539C21F9D90 - AC05099E70C945D78106E605C52101EFD517A0821106E1A1892D36A1630B3BDC - 3005F5508682111C76324DA6A395481AC7A5A5A6C90992A4DA1B92BD9A5C728D - B9954C1BCA3CAECCFFA3CA2E9F6C23CB34934CF218473809CE74D3FAFC33D02A - FD7445070698540B3DC0D450867847996B66BAEEAD79557DF47D955FBC73F667 - E75B6EE9AB6781FEFE7B0814033318E8C1DA31DAA8A10A27FAF6A27173518F0B - 5AA0B061497D28004D68DA6E3A5A680314534C6A1C9C50848BC91EDB1BACB022 - DBF8E2B4214B1BE4BFCA7AF9AD8F5F2EF96CD9C0CA39E49C73BEEAE4B1927EF9 - E77130AB023841BBFEBAB43B113D8F493604000C30017489C1D34DA1EB9E36F0 - 5545759BEFC2AB9FD675FEE7F55B790E58D781D18F2DF09F0D1A0C25C31556B8 - 706387D14D590B46CC7129110AA0085AA7A39D86E20006BC10038B71C07873CD - 35239BB2CD35DE4FFF7FFE8AEBDFFFCBFE87BF01F28F80FB43C71856F7849EC1 - AE810EB4CE4FB6740D9318800E35C884EEBAE434F59C296A6AAA4A7CDA64B5E3 - C9693F5BE35ABE9E379756F0E95F002B5BF502352884396A6D6C835B0D6FE8A8 - 3768810423D90400A6B1B7628C06704534CD69DCE18318B4260EC8321DE65C15 - 45D3B5CA58A69B55AC6C25456355118AB7B29C17C318C52A2E2B1594FAC403D3 - A8C6982CA210DFBA602632F18C5C54AB01C2C884302AD13B0F4A8D5DC5B3CF57 - AE863C13D2C94EF86A0BBEE24297012DA14F796902D9C87607EA110C30D7A321 - 0E6F18B7436D5293AB88D4105430BE207A031AF60851A74C741A5A283106A960 - 401CA0F83929E2CFFF576334D92C63969B5BEDF296CB61DCB07065393524D08C - 4F5823329389122B05214B5BDAD27882C2871CF0C15CBF4BD307E76315775D8D - 8466F1407FEAC4160039EF792D945E24037608B315EC4108E3820DE329CF7932 - 8A0BF67441289F80874DF4E143D028CD118F689A6618A0540C00C5FCA0A84504 - 2C548C626C681821EAD0895274A1129555088E60070BA051991E4D2377BC031E - F1100D10D55C0A07F928BC106EF38FDDC4DA9C0AE9969906E86BFB821E82F292 - CE8061819DD673A7DA1243012EAC029EF4CCE1DA3A49D4B9B9400826C801114E - A199BD9DD21D45248D694CE30E29D820063AA8C2186AB42AB1A20E57562C6BCD - BC584B61512E56F8FFFB6201C358B9CBADD515CBD2C1463BFAD1BDBAAE1D5772 - 66977A224D31ED112A5203614BB7F92641C2B490E2A4690A55183617461260EB - 8CA16066A81D2EC462A89CB5E7518DBAB6CE7676A8A4FD2C5127B3D127A0711A - DE00D1A648D431D3D8230DEF3B9CFC56050104EC76A1BB5D95AD76FB5B866691 - B7C6ED6DAC844B5CE01AD7B7C92D2E73958B5CDD42D7B8C04DA01D7EF12CBE72 - 775A35A00330E8B08E42ACE3190DB016061A50894A64A212EBF1E09AE2C35211 - 76E5A56119247FD802D9E6999340D183E4F4787A889E6216A8D9812782871ADA - A31A2AC10EE6C264864082CB7CA213E050002D34C6318D15C394A959CD0912E7 - 45639D15AE250E66FFABAE2857619998A224667114E3A00391E8B5BB36965204 - 3B30C19254F0826578E615AE7958F9B60B90F62D213865EA1FC83A6F917CC24B - 2B746A59750EF8B295441B94EC895A0A74D69EB1D0F297BD0CE6318BB9CCA825 - 6AA47C68844FF4E1B5A7016888AE0A50292C51077118C34431F15CEAAE4ACF7C - B6AE43FD8C0041133A5682369DA0875BE83E8B310E0C4884058078E349434876 - 1DA05D496C873BDDF10403ED312C0887079FAA01123F8C8DE909F76BD33D4D16 - 419515301606EC5307A5EDC05ABE35AE73AD6B5D7B56D7E1F8A4A4468246BDFD - A2189BB2EA869B510C5A1823354C84A52F9E38458A4EF4C4D4BE36B6AF2DE38D - 3290D2DEA6CEB566FF57BB6738A30681E834EFCC844D35F9712B5B819337937C - 16FD925340E6EC93ABA7ACCE581FA2C09A3DF00A3E1BF02F0F9C0B050FB83D0F - 2EF033137CE15F8E05DDECF604239C6233C556865507904A24A2A6A03180658D - A47BDC918BBCE4243FB9C9538EF2959B5CCFCA4580EA44D287ED7EBBE631B134 - A601A069671462779F5E379189C74D78DD972C84548BBD00C45F4512E89C5226 - 5BACA38E859E0EE2CA97DCACAE1BAE755C239CEBBB3E73C23FD9C3F075620EE5 - 13559C676B1A0FBFEF54E90074B6E30EC5E122DA1574BFF670EF4E5119AFE117 - 98B139E05F12EE4B8FBBDC4CEB747B3E1874C596FAA5F83DCB6397D73C7BD705 - A74FA77295A73EF5FF7E5BDDC0D8F9ECC3412FFAD0937EF4A62F7DE85770211E - 0A7B1342FC6733AE31220D9B868874365C08A8BB5B97035AE5BE5FB9EE4F1EFC - DF13DF747C5781A502AF7C95E0BC76B7CBDDEED4C5EE1092DA7812D08FD1E965 - A7254F1E6C7BC23765F79DF9016FBEEA0CA27596BFAEFEF5B37FD7756BC186E6 - 606110794AC31A1B8031A4F0821330230E6FE72D046082AE40C0001AD7A1199A - AE08609F25E071256001EA96DD019A020E1A03EE9E032E2004C64A08CC98282D - 9F079AC4E0E59C0D909BB9A1DBCF4D9F3671C5BB1D19F2A0C5BC711FF3505EAB - 851F95451DF971DED9645696A1DEE9F5200FFE600F02DB10500C105DD83064D8 - 35FC0DEDD1C200F8FF00C89C8A2A40801462821456E1145621155EA116062016 - 76A1157EA17081A11566611872A11402A01996E118BA82A37180318CD2072A9F - A5194D49D4C2EDF01C976080F4C5574B0D9DE391C5BC40DE92C5202240427FD1 - 45231DC812FCCB2409184F6D9EE61D82F9B553AD7D5EFB5D2226AA5FC4510C1E - CCC13470863DB803685CD5680CCEA82C512A84401CC00A17A2A1DD49610412A0 - 70C5622C36E02C5621CB9D61C9BDA22CF2162DEE621546A05D318093FC5D1C02 - 9E2D444226D842B5A017063C232068C33248C032F4D17C551FBC35D659C8C201 - 0841377EA3378623388EA33896E31B08C11BDC83D4695E241658255E870FC623 - 10CEA30FC6C20AACFF403DE0821DA88005C8DF879C929C715831D416A9984A08 - BCDD17A2A115A22143E2A243EAA2184A57444264424A64C951A414EA4308A4C2 - 1A90C431DA1C77EC403B8C947874804925DED4F4E10805D2F1240F371E004CC6 - A44CCE244DD6644CBE810DB263244EE24FBDA375DC5AC005A5C10D65C2E99A50 - 1665D71DE550765DAE8559DD5881B3581CDA75CC8665956D7955088C81DD51E1 - 56A65C2DBA5C570E1A150E1AC9FD2257B62217D6225A1AE058822558CEA2CBA1 - 431C5C820AE0C147D65C1074C748769A4F78094AAECB7CF5214B12DDE371A337 - C2E4617E2362C66462362663C2643AE6A44EE2603BFD1B76D8E33D66A6666EA6 - 6662E6667A266786FF66667A2668C6C2C440551FB419DFA49DC6698C32108EFE - 315111A443159EC342EE966D06E03900E06E82616E42C06F4EA41806676D16A7 - 6F46A471F5E6198202477AE45D4E9A0388A40368099095141F5C271FA0207D2D - 169C3842F6ED07373A414C8A27798EA74D9EE701A46337AC2723685E1660417B - 26435F44000B78817DB2009404A568DEE352F2A77E66667F0A25806E66801ADC - 66AEC21BE0829A6DC227BC963D1011ED91C69BD1826AA4421168255A8EA57469 - 28870A5787F2D68766A8878E288892A88896288A8A281B1E810F74E273DE5803 - 884B2EEC402DD4E806344019144203140220148225A4E4761A4FD10D123E8483 - 2814C1039080925AFF01935A410B2829095801944AA91054A99556E90190A713 - 886738EC03327CA92CBC4198BE819892A928B8C03188829A8A4222E4E77EBE69 - 66F2009CDE233164669DCEA99CD62931A419A58003115C18341443FA08D440DA - 836A04819DF1E2707E611B7CA16D366A44FEA6A41AA7A3522A710AA71506271B - 72A4054CC38B76170670891498C43C3C430DD400A7750006C8C73572E7F521D9 - 371D433FC0000C24400B34690BE46AAE3629AF5AC1955EE9966E831308AB1314 - 8129FCC00F68C0793A6637E6276886E6B37266B4AEC0B46AA6C1556B67D68313 - D84DF8F45329B1E66C0D4E1A18800F18CE18F8C243A6211992211A52A186EAA2 - BB7261BCB62B5A6EFF61BCB2EB897AE1886A240DF880B37C2A5F8560E195A04F - E861BBA9607DD9D7E3C96A02C0C036F06AF8EC6AAF322909FCAA956E29C66E69 - 02288206742CB32A26C80E819BC6E90AC8A99C6AA6C992EC3DA6ECC9922CCB86 - E6CBAE6CC9966C2C84833EF2231E7CE22FFCD3B6704A116D4A69D49657190286 - 36AAD142C0D1266D151EAD143E2AA32EEDD3422AD42AAD1432ED4452EDD26AE4 - 11ACC113C021C02653A812CD8E018001D0C3A9665078B0AA552CC34AC209F6ED - C7BC1C03ADD6EAAD32A9AE4AECC45A6C95662CC62640B2FEC01FA0274D0A819B - B6ACE1AAECCCAE2C661EAECC366EE2DAE3E2226ECBAE4038488C8276EAC5EC4D - 12FECDC69446B3A1FFE2A9D89DD42AADD5622DE9222DD4562DEA8EEEEAA26E18 - 9AEED4BA6EEB42C0186C24D7D6D8D7AAD1331402B864C20EFCAE33884B8C3282 - 3014EFE2594D7D7913BD5081ACD2EA36402909544CC5F400F442E91090292E90 - 6982BEC13624C0367CEFF75641B27A2C397A637992272EB4430CAC2F76CCECCB - BEAFFBC62FFCCEAFFCD6EFFCD6ACC4A8D934BC9EC6219B9CD102E1D89626B89D - 2B9CAE01B7EE012730022FB00237B0EB6EEA1A5C46EE225374B6036071897562 - 679125AFE39545F6AD05F3CE6D0268010927C276A1002E90B00A6B012E1CC103 - 1C8128B8B00BD36A15CC2D0C48C2DFFE81DE0A41B00EAB0F2780291CEB0FB46F - E2CE6911F3C0E472FF66122BB111CBACC94ACC10EA13A62061FA94082D208131 - 1843419D800EC8C118A8AE038731038F710267A118B78119BB821C6C010748F0 - 04A7515EE60420F0E5D0981490BA94C27E279D8470C31E81160CC11FEB150A90 - 302017322E3C0022273222372CAD366C024842C776EC10E86D96F2EDB08EEF1F - 6007126F3239F040279BAC276FF22697AC27BBAF289332CB22F1CC76F2279FB2 - 9CB272288B3239ACC036E002A5E0816A86C835A49D4035C387998A1CA4431B0C - 331917F3191B33321F331A8F4193A880A7BEB1035D89486A09D1F484495E6712 - F081DA0ADD0879802CC44BF6C96D2303B21D68C14990C01F0F412103B2282872 - 2233B223F3832408FFB106ECB0256BECF86A8026DBAFFDAA32FDFE733FCF3240 - B36C2CD48D1DE48037F0D36B158328722E56AD9214CC03131D241893313137F0 - 453370461BED456F74327BF430A3711CB0314741730365C2A9EA4121E8288F5A - 0B1D2D432508422540024D1BE21240C2127C414E37124F43C122FE3414DC4150 - 1FC21D1C03331CB528E0022ED0002EA4010A38350D3C402AD0C03148350D1C29 - 331CA9286475115481247CB524108224C4812120832150023A0A012EA4350F0B - AB5B0FABDF766C265F07278BB25D23312CDFB55EDB755EEB752BEF3560D7AC0B - 8844D7FE29882803E79248699CC635A8C82BC5012684B4644F76489F0365B781 - 655F76656BF66667FF00676B766663F6676336EDCA402AA8006B99B4EB84AD8E - 5190D9A22A06E7C17CCA765FD07604D8366ECFF67CCEE73FB0020CD4B0F81EAB - 10232B7117B77123AB22246B1077C01F90803A0F413BCBF00B3F4011FCF6DCD6 - 302447F23E0F343F73B777AF002B77B7FC3A811058810A28803794CF2F3061B2 - 95E2E00CC05532831C886E1B6400D2763447DB7748DF3747F7377FFFF7307B76 - 804B368077B480E377811F381AEB43115CC219759B6A478BC0661A099E5B5FEE - 368667B8866F785F9443ADD26A2487B8888F38892B421037F71F6B813B27F211 - 88F07563B226CB3239CCF85FCFB85F7B328DE7388D73728DDB385FB3B28EF3B8 - 8F934341E3C210A4FF413F76C2DEB03729360313C2F755C212D27E83685B7606 - 5C797D7FC39567C03758B996D7B7687FC39753B967B3019873F995B3019673B9 - 659BB9977BF69667809B67399C7F399A5FF997ABB92B30C016A4C13145B8CF34 - 5FA6DD61CF751A871F3AA277B80D6BC0DF32BAA3373AA43FBAA307B129FC0120 - 93703B2372A653B70D37320E6B375D9B725EAFB23F933A2C9F7A2C93B240AB7A - A9BF72289FBAA9AF32391083B60AC12D138137980F2B61DCC69422164BB40EC0 - 520183399987349C9F39B19FF9988F794817FBB13B7BB327FBB10FB867173BB4 - 573B9863C246B20EA04FCBB5FC840D1081B8AB430080D7E1FD44A2A7BB867B38 - 0C30030C68C01FC0FFBBBCC73BBDCFBBBDD73BA3FF0032A0333BBB70743F8028 - 10430DD370754332BD63878EE30039283C0EE078272B3C90CF38C32F3CC5EF38 - C43B3C8D4F7CC4E3F8C4437CC6B732C513C327E9A305540A1E28C03034831464 - DCC61DA13BBC8026206A1C40409CDFB9CD6B399ED77CCEEB3CCEDBBCCEEFBCCF - 6F79CF0FBDD0177DCDEB8369A340EB743BB484D477F4C4D0F884834C3DD557BD - D55FFDD50BAED6A327898BB8227CBD2220C32974C2D863070E1083C4A3FDC2AB - FDD9A73D2BB33DDCBBFDDACB7DDBCFBD27C7FDDCE77DDBF340DD9343E5BE811D - 40E5270E915559D5C69D8631B803B0FB5F80DB39B26FF9E3C7797DAFF9E34FFE - B143FEE59FF99A53FF7EE6C3F9E6433E338701EBD01CD343481CEF655FFEC44F - 603DEBB77EEB9FE3632EA6EC83ECC786A31374BDD77FBD304009C5777CEF7FFC - C5FBBEF057FCEFFBBEC5173FF27BBCC62F3C0F986622DC8D11B8D67AAFBC1202 - 4E874143332C5110308021D0FCCF7F3FF887BFF88F3FF98FBF3E30803195BE94 - 383D498A0706B83EFCC7BF606C3DFDD3643EDF7F24837DD843C9F203040E7202 - 090E24775020C283060B1654D890A141850F255684A870C5035C242CE021E20D - 5A3391CD068C143900A5BB342F623088832943CC0CDF64D26C3333C34D9B3875 - CA8CD913284FA13B89E61C6AD46751A0FA8A705041044054A953A956B57A156B - 56AD5BB976F50A60FFC70E5BED725D317B05C3D93C2CD8B675FB166E5CB96EDF - 1CB07B176F5EBD7985DC15F24643E0C03F34FC305C581136C5C8BE6E8D3871E1 - C5C80C71245C78B932C1CA0337677E3CD921C2849DC9117B4063088A2778FA78 - FB35E0DA3577EE4E921C408BD6CA540C42D4693325E637363E83FB1C1EF37886 - E4C071CA3C4ED37974E4C5A52BAF9E3C794E303A52A998D3187C78F1E3C94B05 - E70DFD2F7B48EC415BBF1E498EF8F3E5D7A77FDF7E7EFCF39849EA4F82042B02 - B4A2052B043C304000855890C1059D7810C207090B6C9B082D7CC0095CCAA3AA - B4CB20EBF0338488A1C843D022922C34114BB48C45727858A51E5C50E8A80F70 - 1428A6996B9A51A6FFA4926819A098DC7CD0249522C680093AE26EEA89B8E698 - FBC9A824976C8ECA2477BA89BA2A637A92B86FF491E11215C0E964C332CD3C13 - CD34AF32028604DA24D0C0168C90B34003E134B0C1060FB0D0896D04FBE18005 - 031DB4AFBE484093B286325B74331319D52CB24725958C22CD1AF5CC521E16C0 - C50E157EF1C6C6617E6C86B666D2E0F1B66206F0E185201830C4959B809B3583 - 2769BDB5D65CB794C9565E7DDD95D6E17ADD95585D739DD54B195249E38953D4 - 7C16DA68A5ADCA0218AC85C14E025BD8B6CE6CF1CCD3413E9D98500327F6F24B - 0834217208870F16FA80B475C981D7DD75DB3DF15E79F56DB7337ED725261C17 - 6898B1934E40A265FF479214462948845F48458710C6C0B2562B81CDD2628C2F - D61263646BFA983A5A6742F6CBEEF09816E5945516EF896B13001040398D3042 - 40986D7EA32E9C737622816D7CF639813FDF6070CFA2CD3D808676628841930D - 37A397337AF9851AD37E2B83D7D2A817D53AB30FB0E62CEBABFD9D37DF7EBDFE - 201C1A3822021C707E81A6A4520750E6245AECD1ED0406E48069BABE8FB5CE6F - ECA2C355F0C0732D1CF0C49F1436574C18E80EAA95259F9CF2A8AABD568BCC71 - 31422A1570C91CF4CC8F78E00851461FBD0818AAB8B68A2A8466F0C10A65E799 - 5CA7B5961A77AFB716FB6BDECD9E1A6CE071EF7A6AE287A7FA6A78891138B527 - A6990624914A3D29FFD562A49887C88831C1B2D75D8C656ECAEF7F4D1C719F16 - F7D57BF047CE357D5EBD6C4A85932B9F9FFE675B76B3082D86C8BC85CE33DF1F - 805A78C0000938C070B8AC4DAE1B4CA00425AE6D4CE80F1B3A1BBD7437C17E4C - 706A15C4E0048F57C1766DD0831CFCA008CF96410EEA0E07A6498D05BC410405 - 4043553A5A1849EC360029B0246247BAD81476011CC60D078887B38E0F8548C4 - 1FF6B05653B8151B1817855DFC30035150A272901885BF31254C447056FDB8D8 - 45F154AB1F30E807E83627150BE86F08004C63010BE8A63685518C84318C1360 - 07A10A3D2801B52B4F098FD72E1888307914FC1A06FD553C1286D0901AECE308 - 3918B558B8400B9DFF52C0477E8123BA2DCC1DB418060CD330A413E8C01010C0 - 1570BC07C5201211958A1B1F29A7182CEBB48F56B064DF10ADC314A780C38BB9 - D4E5568C908023F8920689A08116D2A0826226E201C7A0C16994F9005114E199 - D12C427FAA20890414E1084588C71F90F18737E0C241B3BB631E0313C13D9E10 - 9D2364243A41C8CE43BED39DE974E70801F6864E3D81086FC3CD25E73612BADD - E686AED2C7379458D0631514A10805E214AC38AB829EF2A0065DA811AD73CA84 - 4E740A4164C337EAA003A7C86F9721152911E6F18292EAA10691E0C41F4CF183 - 961A06A63195294C0BF3871D38A01D0E78C01B06280AD23D2075ABB3D6EA2421 - 180D487082F3522AFF09EFE52EA7C6739D5E9B57521BE954433695AA4D6DEA52 - C97636626CE30D89B082028CC0B64AC6466E2329863D8C618087E9400EAE0096 - 129F58D1213231891355CE14D9F01B5ED555AF1AAD285FED2A58C14EE11B71D8 - 02079EF009913E56977878C11A5EF0023DE8C1162B35EA6639DB590DFC21080E - 704010D848C0232070A810446A3C591BCF2E28B29D517D2D6BD5C9C713D6F603 - B32DCD6950A082279CA79274BB641A6CD3B06BF82006A9D81B4D101A0526B2E1 - 894CA42B7495085D364C77BAC2A2AE7399F8C4EC5AB7BBD7E5E173A30B5EF346 - 97A1DF1883472D60842D4216BE9503C70B3441DF48D420B37F906361F8BB5FFF - F6B7A6B618AD037CFFDA5302A6EE5AD64A80240E73D473CA7383268C2A3C6D5B - E108F791A9824CA486BDC68F7AA06646A052C02F7E34BD85D9ED6E9A38811CE4 - 900DBF56573978D5AEB032BA57543EF7A1300E6C8C354AD8E7C638A34094B178 - D98009436CE105F18BEF9227D707153C590539B5C509FE504E0DB8E1B357CE32 - 96ABCC652D6B801241D04324F4E04C33FB5414C410AA828BE0BA2A9B933C679B - 6D6EE55C67AFCD19CF76A6F39DF59C673EFF79CF81F6B3A0FB5C671C84236D76 - 78C21CF00012BAD1869F3CAAA11488A487BDE595C8E7AD2E7AB97B5EE94A31A3 - E5153579491DDEF04AD1BB0C956E90D910856F1C990316702C93693DAD16D8A5 - 2FE7D2F5AE0FF040FFCF76361E64D6C30E5CA30005ACB6B5C956F6B299DDEC78 - 1243461620AB375E588C47D78624AAEAA48A9961084CF455A2431E2F5E753C64 - 1A8F5BC8E9E6F1BA7F8CE320F790DC35BEAEAB15FB82C6D61ADFCF32C2A070ED - 177FF71BE0FC2694AF7F6DD41F182212640E02389EA0006F48F0B511A7B3C429 - 3E718B571CE317D778C639BE718F773CE287D6080A90C01A6F0C0336B331094A - 7223855AA818AEFA102F4319DA439B4BD1B93D7422CEC7ABF39E5B17E7BB40F5 - 7669BE73553F71E848AF39CF710E5D4CD4E1046BC065BEA96EA67DF31AEB7B11 - C2364CF127AF0F46307F10F60E6C646C64F379CE800679A0D929F109561CD06F - D7B3DC3B4EF73D57FF66E4EDA5360C492237940009376E8DC10942908E73D4EA - BAD7456246599DE3EAAE9AD5CF4D3CE3273FF3C483DAF238766E4641FD782626 - 36156B300299AA5E7AF15C3DEB58CF75A0085EF0C15062030A3F8FD91F4CF12E - B85DD0B7CFADEE6F1FF1DEE7D9F7B8EFBDC6D14EE8E20F1FF9BC9F38EF7BDF8F - 0AD9210D1678826BEC511219F61348F6A08514289D376F2BDE893C14BFD03F7D - F3772F1DDEDE15FACDCDBFF31ED69C87520CAF12C35F74F233D1D54716BDE9F9 - CF15141CE108B6E10810A440EA244110840418284FC4859C7EE00F3841058C41 - 0590200227300291001A8C4D019EA013FAE013FA6043D62EF82E8EF94610F996 - 0FF8740FED5470E3FF58D0044BB0CE92CFEDBE2A11426CC4A00161F86986008A - 48F4261BE08DF22E8AF1AA8B8776C1E6E88F088950BC308FF29850098D50FC2C - 2F08274FBDBA63D6FA0F0BAB0205DA0406B6E14EE88466B2A50049005CC2C542 - 8A4011CAE9D82AE7F7DA5000DA100EDFF00D6F4F0EBB600EE1100FE3300FF7F0 - 0EE9D00EFFB00EEBD00FEF30106FEFAB0EA0537E61F6864119E4869F06E06E0C - 207BE480C6822E0A2E51E8948817C26F1397CE138D2EA378A1D52EF1133331FE - 688E173C710A3A5114A5A815978E0DE48003D2E03BB2D016A3620B154C0CB9C5 - 5BEC840486065C62A74FF0488EE08C726470F7BAA01FE8701999AF0F7FAF1995 - B1F990711A6F2F1AFFAFB11AFBB01909B1F704201A77EF19FDB00BF8A10BEAA9 - 0615D146ECC11E46A2476EA386DC614874200EDAA00DE66D099530FE52B1F2C6 - AF09258FE6A6300A8770F3F6D1F31A6FF23021046840053AA1176E310B73B10B - ED845BB6452225920CCB904F0E809C3E8B7E00D123B9F1F740F20FC5710F43D2 - 0DF150103FF2240B31250B711055321C9C60609060FAAAAD1179E492B2AD188C - 01B92CAD0E3061158D2EFC840E135731FED8CFFDE82F153B3129D72FE8E20FD5 - EAEF12A36029418D296F0E21D740016AD121F9CF0E5C860486202C676666C2D2 - 2CC5728D78EA0D9C402D7BC62DB72101AAA0183B321A4BD22EED3219F3302FAB - 710FBF110FEBF22EFFFFB2F7F8E1AB0646058C201D7304DB8A4B55DC2A0840E9 - 373491FEC02F15C92FFEAE6B1315CF282D13FEF4F114770EFC42F33247933341 - 4DE80C4107ECC002BAB2FFB6D04D8E2074480F00F6277434E7CCCECC8D5CA6A8 - CAA9235D52255BB21B3DF2255972247FB338459238933338819339ED50000420 - 1C1E6085A44D3D1A51364C4224ECA6936200AEEAE01B9812FD2CD129E96AE736 - D129339113851213DD8F3DCFB33D8572FD74C1104EC0073890354B0F22138036 - B56013A482043EA73671213A0D6C8012EC5A18ACA6E8A7399593418D931B7DB3 - 411754381D542587D323D1661B124135C1611A5EC81D62A3367C2448A400B952 - C1D2666E2AD96F0AFF6661285B942845F1326761FD8E9246D7F30877A11559F4 - E66C340A74F4124BE17150001C1AF23EF38D04AE651BD2487FA6222CD1328D48 - 400B5C60A7A694A7DC2401DCA41F128010684A41E5F039BFD44BC1544CC1D439 - C3B44CC9F44BCF744CC5544D9FB34DCD344DE3744DE5944DDDF4D068A053A4EF - 6D54053BB313374C85255E251B086A2ADFD3479D92452F71167861FD78615159 - 14527B545213B54779611321D551DF53512775523DE171C4A448F34D05688054 - 83699862A0B2E80B624441078E40075855079881191840566795196E41120C21 - 14B0A9087440188081121860EA28C71BBFB41FE4F058EDF0589F33598B95598D - 1559A3F55995555AFF9DD55A97F55AA195599DB359B1D54DADF55BBD954EDD94 - 183204058C013D5E6824DCA124EA461DDB8ADBC6A01452D44541F33277AE475B - 2DF166A1D5DC73FD12D532FFB55F4793479D722A3D014C942C54A96E1ADAC161 - DB61A6225662FB4B0738A11DE6C11BE6E11AE66100E6674E05A00AD634649F73 - 643FD6644F566451566557B66455D634EC0009D2F54F1386242E0961E051C518 - A00EB2612A59F452A952527FF6521D355385366827B5688BF6687D3668959669 - 9F16613F6A61F3CD1B062C08F80BECB2166BB776427E800146EB05ECC1066CA0 - 1668C16357166DD3566DD7966DD9761B86C9072C001C5C086E3E34446F03251C - 1332E96F3D7DD46FFF77EE6F1B7553717451852E7025F51C6414709D484619B5 - 525B4D4765F4C8EC8D2BA776C9C041B41C2006FEE0CDB2AC733FD77343B7621D - E005A0C106E6611EECE16CDB566D0980755FB76D5D17655DB71C13AD23DC066E - FA94E570031E1FD3DB8832528397538517536781098237538917691F757893B7 - 5291B714D6EB0564CD72AB77C9C09400C45565B3177BC5947BD754763F367CBB - 1776C557005C377BC7177C9F931FC2C19E2CE01746AC927A4461B2B318A0613B - 57AC0ED8E01CE8D55FDF13511DB7510B1780772E71FBF73CF9557177815FDD8F - 5F77A114E220157C6058ADD78277E97C09007D35388337D88335188441B88343 - 988445B8843D7884FF4DB8843B38853958853FF8844398854F5800AA214B8309 - 05A081DA5E8354E8D74F69E11AA48013564C1FCEE11198E0128D96458F380A98 - 4089A3808999808981B6892F558A9118688D378A8FF85191F88A9B788A1DD513 - C0A03B7A41362F188DEB077D67F87CDB788DDF988D4D78865D7885E11885EFD8 - 8DF3D88EF5388E5BD88E5D388F61C05C55C0D82C00096023446DA33DD220062A - C1070BD57001D78BFB56929BD8928FD789B09828BDD8472FD99289D693271993 - 852E1B1840137E611AD25895E927865BD9955F199663599667999669B90B7AE6 - 01ECA007D2B51840B466DD750024913B43A01418CA782D19156681458F579927 - 399997B947670115FF42999A45B99AAFD99A77A10E18E0057E6195BF79726A59 - 9CC7999CCBD99C637819D3660808D9D8D4316E6AE3478264DB56CC1330E11239 - B999A3199A99F998F9D99AFF199B031AA075A1A35000A4C019A1A3E59C69990C - 62B9A117DA951F7A9CC5C0A13598188E20117C207EDDA69763A35D454219D491 - 163CE955E6350A2AE0111CF58A8DB79F535A8B397913BF58A6B7D88B691A8C6B - 1AA76FFAA6E5007212DAA79FE595FD3886853AA821FA9C1F9AA86759A25D3701 - 6A109FAA8D1D7750244814620CA11438F978B33A8A7901A75FBA8959DA89B5DA - 8BB95AA7C3BA8AB31AACC19A8B57BAA362ED0A7F1AAECB830024BAA1EB7AAE41 - D8AE35D8AEF7FAAEFFF97AA9FB1AAFC9C0AF017BB0F5FAAE0DBBAE059BB0175B - B0FF9AAF43B8B119BB1F128D90E7C06D06E0434DCC368CE18620460EEAE09E8F - 9809469BB4459BB44FDBB48D77B455FBB48FF711D67AB453FB8A633B994B9BB4 - 8D97A3A28E73E29AB7C723AF015B0C14DBB0191AAF0FBBB821FB847F9B9CE9DA - B81DFBB88BDBB9873B84C3E834C4A446E637AA19A618AC47125DC510FAF7B5BD - 1815641AAC6F7AADD39A09C67BB5C37AADCFFB8AD51BADC51AAC754182BDE38C - 7B1BBFB7820C823BB805BBBFC5A0BF1B5BC0079CC0079CBF0D7CBF0B9CC0035C - C11BBCC119FCC113DCBF131CC227BCC235F80806061AA6EF17860147B0D31D5B - AE07EB605E2BA0B5FFC37ABD49DBC45B9BB54F3CBD1F61C56721C66D3BB66FDB - C64FDB5335217EEE3BBF7BBC2A0E1CC8259CC2873CC88B9CC81BDBC893FCC80F - 5CC0955CC92D7CC9A3DCC929DCA273F917F0E03C7237917F043774430E0C6117 - 8E5817563AAB477BBCC71CAC477BCC4FFBCC5D5C17C27BBDD79C09C6BCCDD59C - B4C7FC88E5E004148DC77DDCCF0120C14B20D0853CB805BDD007FDD0139D0C0C - 7DD11B9BD11F1DD11B5DD1215DB0217DD2237DC22D5DD2375DD33B5DC0FBE101 - CED5E1A88F66EBB719ECA118DC41135C450E3CE11C66DBC54FBBC5639DD64D3B - C5693DD61FC113E4600B7CEBCF7F5D2A14BCC21D9CD88BBDC98DDDC1871DD997 - 9DD8037CD80920C3FFA16F35A6A1C37524276948556E883B99A10E8CB889CD7C - CEC3DDCEC71CCFC53DDCE9FCDCEF3CDDC11DDDED7CDCD37BCEE3C1A37EE1AD81 - BDC7C940121A3BDF057BDFF15D0CC401DF2B5DD0F9DDD1FBBBDFFB7DE01B7DD1 - 4B80E119BEBF139EE1099EDFFF3DE0055EE2FD7DE2C521E22F1EE1233EDF1B5E - DFC900E00F9EE23FBE04FA9D007C29A32789FADE991D6F4354E6210622A1A451 - 7AB4571CD7735EE7771ED709FA04ECCDDEFF1CD913BED21B9CE88D5DD0935EE1 - 1D7DE905FCE88BDEE9975EE98BFDE89FBEE91B1DE2A3BE1FA25DDA6C44CBB16D - 00A0011AE0D5B3AFDAB4DB1DDEC77BBC8F18BEEB3CDCDBFEED5B5BCEC19DDDE5 - DE1096C508EA3DE8FFE33AE241DEEFFB1EF0933EF0175EF00B9FF009BFE10DFF - EF157FF017FFF01D1FF21B5FF2195FF109A008F0D4B75C0307FBC9D4F1560A0C - 803BADFAE699C0C4717EF4D3BBF449FFC4E15EF54F9FEEE15DC55B5FF557DC13 - 4280038C61B7F7BEB729BFEF1F1FEB7D5FE9173FF11F3FF08B3FF8895FF1B17E - F80B7FF9113FF9FDDEF9135FFA0BFF86138190FBC085EC4119A4C024886BBB85 - C401F47789C11DBEDDBD02D09EF4C93DEED19DFDD31EDED15DEDD75F3E53F309 - 741FBF1B5EE325A104341E0400A284B81204074A228830A142840313824078D0 - A0C2810F134AB4C850E1C185154B6C2CF1F02248811E497EEC789264C891121B - 12807184060A0B78FFBC29B0D7AC993B77CD940D18400B6833039A523130448D - 4905A54C9A2E5DEAB4A9D4A752AB5ABD3A152B54ACBA0C9D48030E80D8B164CB - 9A3D8B36ADDAB56CDB023076E9928A4F6EEBDA254BC446A646EFDA79BB0B38F0 - D98264081B1658187189C289172F169718B2E3858A2736BE6C98B163CD091B77 - 2EF8B9B264D198278A6B581AA3B89824543C01E70D1ACE9CB49BFDB4472BCD8B - 183AE4C4D32515555426C29B0A2F0EF538F1E5CA9B2F37CE3C78F4E3A518A452 - 81E794E0EDDCBB937D2143068A69DECB1B60572650203DEE1418005B3EBED991 - 0F4188B37F3AE4FDD305F3D3E7AF1F7EFBE577DF7FF51978DA800A0608A04005 - 1E689F7D074148DFFF7FFE5188E182163E781F0862149140222A1831476C035C - C3D300B401959B14BBF5068B7115CCB8142A34D6389D53C2DD88A38D333AE723 - 8DC709C95C1D0C84F10B5DF22DC9645936A493C21A733409D82F99ACA78E26EA - 48E100307AD042657C0D919420990E8E39509AFD6554669BFC81861F9BFCB9A9 - 669A6F9279A79D7566041A686AF649129C73068AA79E208913CE10C6BCE6CD2F - D0A8B8E28AB9F9A0C9097294324B541520F7E323C7794A5C72342AF5E98C4C80 - 8A0AA84A99AAAAA9A90A478D273AF8804798B696E7430A5192776B5BB404D2C8 - 3C626DA2402481B02345AFDC81C06C7DCD3E1B21B4D2420B92B4F7494311B3D5 - 46EB6CB30F4ABBEDFFB6CF863B6DB9E6364BEEB9E7EE07823420F4130E0D3E58 - E0CD34B129E3CE35B5FD34401A03CC13831EBE3155C123A1DE68B08D09171CEA - C208377CF0A605D3E830C507CBC1C12FCACAF744C7D33CF1CB13BD88D5C7132A - 9CEC8D92647D02B20A9AE813E5942CFFB2860A6B842CD634213F21163821AB9C - B302EE48610F1165C5363434468B6513270D04320F34E04C638C1E653462C32F - 0A4CA3C02FE07402401F5D1BDD09380A6C0D406C06A86343330A801DF6D94410 - 618FD26381038D14D7FCC26B5A1822882EB78746C8A1E08443C8EE83802B8EF8 - E185335EE1DFF525DE78E4DA6618E1E0035601030D76D04B84028F36A3EF8A40 - E1368F263A84F0DBFF533BBA9E2390A1AE9AA3A9CFB94A3BEE36D6A1831D4F7C - 32F2C6DCD9B0C51A3E6C91C2253CE3E14E2432A420C3162A4C295627781C1FBD - 0C70C0B106790A8411420A7040AF3C002A8421C31A9F7412C6169718113C0044 - CC034C200DB0A3CE589D4063CB3B6594B1081B84050036A8013B1A5006762CC2 - 0106D083FFAE060C5BFC22128BE0445814A0073D18407E3600C60EA0D1877634 - E27F4F8BC42FC0660F5BE8611EEA6007309255364E2C223DC01020DCCE2289FA - E410243B84560E3BD42D20F2905BCC7297344871B91FB64B874C1C22B37AD843 - 660911044A4C6213A978C52A669189E3C2E2B6A6E82E208AA173899889D9A0A1 - 0C9DEC6B00C528C6FF00A4502906D44117A21A95EC6477232011294843CAE372 - 36E51514884C78DC89440AC0C0801B8C4F050008C3F8A20786F1716069C5129F - 0C18203EEE9147056080DE161830BE4B80E3139158641A30B986F811F07F3588 - 4423F4003703CCB00C99A85F196C013675D4AF010D784720DA61033DD8EF698D - 88840232D18048180300B5F05F10CA56835B9EAD0681C8C40E5C59063D280000 - D7604720805186A7ED0000BFB01A3B361089FF39C01E7E7357119BE5CE25BE73 - 9EF2AC673CEF09CF7CD2139FFBD4A73DFDC9CF7FF673A0022D6840F15985221C - 4144AF7154506C1329DBD8430A36080233EA500A57F9E8554EA991468BE329D8 - A5CA549B220E2A6CFFC4C7519574A4BA90430C7E47C8ED6CA193C97BC116BC91 - 864ECAC03552A029237B1106F1C94505418864F700F0849ABDE6097A801ECF54 - 80C92D6CE1065BE0D95888608B32BCC318DEB88601FA203FAB2DC200BFF8C50E - 7AF95570D8C36965B0813114000E5A203310EA80C62F4258066034A30F4140A0 - 36BDD1880668A20FF373C72F88000EA705021A0070C70C1B508317B0AD0F3BB8 - 1A27BA668B062C629C6801011299F559CF360B89A41DAD68435BDACF9262B5A9 - 152D684DFBDAD79276B5AEAD2D6A616B5BDCDE36B6B9E5ED6E7B0BDCCF8AA10A - 0B4581D7CC368C13D52627031846312855898BCEC2751243298FAE8BDDECF228 - 48DABD9127AE03B4FF98DA251291AC2A397B31D5288D85138A5C0339B5B753B1 - 18A0BDD41B8B31C200CA14680C00F300031860E65EB24CA31DBC74C036C3C65F - FB711600F6A0433697668006FC619939DB40031A9186B10C40AB2F98C622021B - C05F20305964A1853A16C1CB6536831EFF334027B806D8BC92D518956D0030FC - 46CF67B933B4E5FAAD6C4FBBE3784E8BC7A785166977AC632243EB88B5ED316E - D5E5592143595AC495890AC071465A2CD736B468E3357CC09B39EEB1A4A4AA2E - 75CB8C6689A57948365A3375AB23C81B8AB72EE90DB058A6BAD3E0F5140E97E8 - 434E53B005B012707B6BA8D51CCEF7491944320556054710B667DEB218230807 - ACC13C96E680A7E5FF2F6791B8F0816B814077C04D01166E048901300D70B603 - 1A6508023577300F1B6BAC0FB470801E80018C0396014CCD404F2406C860FB6D - C0161F1EE63BFC365B528C83B4E328006D59EBD9D52E9B14CE4EADB459DBEC6B - 8BB6DA456E2D12AB3D6D65437BB5D59636B7BD1DED73475BDCAC25F7BABB7DDA - 67C3DBDDE82EAD1812E0B934BC4674C3C8094FD2E80E5AD8C31E69F0413B9811 - 8F5274D4CC15D8C38F24D65DEC3A5C48108FF849E5900AF8CC79BC3788EF58B4 - 970215C0AD19E59DC31A8C5A2B00BC409197984627F60C872D54F40621CF5918 - 6E4055469EC506286E803AC272D640D8407F160EC4816DC04B7708DA1BC87CC7 - A90190596038AD19FFEA78C7661B1084BF48E18081A8412DD4C14B7636C37F9C - 581A006811CE0DEC801D0AC47524D2428A23529BB505C8760198ACEC723BBBEE - 7BB73BDEE55E7766F77DF0D4B6BBE109CFF7C2EF9DEE878F32B90F3FF7C7231E - F28927F76A014FF9CCAF561C0A15D11CEC050D5AF08427B42986C09501661D18 - 22A51BB56EC48574D2EEC63E8FB397982E3C71240BA872E36BC1B3CEEF4C73F5 - 89E5E47CEE840F687E09EACDA3BD65D3031CC0A0F347335A2C69588422B92767 - 0074026CD0E874195E000075A4C70163F1868517F117668E78D49D7EC706C762 - 8340E4B50C48B0C70C81E1732274E2AC659807D862BD6B00D00CCF50060E006C - D0603FB6B035E030FF37730377966779052081ED466D13588115B877164881CE - 460874378112988121888123088224A881E4F681E53677255882ED26811D4808 - 2928822DA88133288326C881C49508FA360D44F00BF6A022A5930629627A52C0 - 1B94E009DCD570AEE7704DD8704FD8844C08855088520EE7060F870A134723F1 - A00385165EBC87167A4073BF070041C07270638637E05EFD1573E4E10D61000B - 37700967B708311716C6905E1A33415495481E9733B4202C61636135D007BF70 - 407A0061E11409BC82740DA0744C834C0D500B4C434EF8F7340AD0079900080D - 00082EE60D7AA0597FA10004D600621700AD066C0AF00E9A750D633151147616 - B3A5772BB881B418FF8191177920B078BB488BB3A882BD088CBC288CF2768B8B - 578CC1088C2E486DEB968CB6487773270D30806F286004A8263A03902FFB2270 - CD006627701449F170145785B1B70759B8846656854B187B3E528E0CA7851580 - 7B9AF00BF505866911091D67676F11497CD63E38377DB4B08F6110095BA00760 - A08625538760803E5B708F70C0336608072A600191240382A67D9CB01E9CC009 - AB680B2ED70EE154030ED00E5C070D7063039B28057043049CB089C0D00EB660 - 0B5F63610DA0077F418A81A03178905965B0037A10093B900B8EC84D01D000ED - 006C4490699AD50E9C90559130746831771D788CBF688C51E98CC3B8781D5895 - 55798B5A898C5E99FF95B8C88B60F98C58898CC7A88CBE588B8B370E63241353 - C335BF207AFA9246B6D146435314DF4847E618856E90857FE98456F8977E598E - 57188585C9974B489854880A816455F59816625873FAE30306897338B7537401 - 0E37779932A0090679537DC05E3807074160038A640CD04091620191A934162F - C04B9B08087A600F60338A81109441893F64D1885220689DF00B35C08941A907 - 61C1560E603406B08AC529162F10089BF803ED300F81A001C23200A76894FAA3 - 0041B08AB9D9003BF07465117862697869996D79A77865A979E9A977E7C97892 - C79ED39678F3B96C9E259F901781993779D8D677E6096E5C599E05A004D5806F - BE33077D60365A46FF7A39410B5D46702F22477B1985D5B58E87695D175A8E13 - 87A1E70898EA880A9E50041C303D90991606100637631688163D724116BFA009 - 522517E0B00697B00617D43EEEF304DE10174F600C33AA737041A337A4001515 - 091BE0006072552FD00EE8140406D03700000D0EE000FBA5619C100991D00EBE - F9161A992469530B0EF08800000E36B0A4533A0D3670A40030A40E90064F2AA6 - 3E704D1B10049C70586921A020A804ACA5042DB85A7B2A8179EA827AE7A7BFA8 - A7788AA785FAA7869AA87A77A77F4A817D7AA81E78A730B881025AA8923AA879 - 0A838ADAA81E4877996AA85540036BF004D380A072493A5BA6652E12300C9084 - 56488581B9848739FFABB52AAB196A8E86D9A16E000B60900A6B508D242AACC3 - BA24D9D71D20C8A72BC8A82C88AC16E8A718C8A7CD8AAC922AADCC5A6DD58A82 - 28D8ACDA1A832AB86E9D1A79D64A83D32AAD9E0A81D0FA82E2806F3EA00053C2 - 35CAA00CA52329FD923ADE180FE6785219EAA1B8AAAFFC7A5280F997F90AB0FC - AA8EF1C0009A303DBB47AC0BCBB073C6A97B0AA878AA0410FBB01338B1790AAA - 8BDAA8E05A81196BA914ABB1194B0A18BBB1AB1583173BB2162BB18B9AB2CEE6 - B1A00AA9216BA8111BB2D1282FF328A6BFE0460B6A1B409106B44029DE5807D4 - 40ABFE6AB4B33AB0497BB416DA980CE0034F60AC0D2BB5531B266870A7568BAC - 79EAB21B4B0884F0FFAC05400868E0B5776A795F8BA7615B815DABB515880626 - 38A862BBA7589B82564BB1717BA8564BB70590B719A8B537F8AC7BDAAD291883 - 1768AD61ABB71BFBB7613B0E9DF339783007A1630FC510293F2170C6004727A0 - 7A444B8EFFBA29469BB49B22B0ED08B0A1EBA19B827B3160011649B5AB0B867D - 10B55472B1B12BBBB38B06628B064A60BB621BB65E8BBBB53BBBB2ABB6131BB6 - B81BB6B7DBBBB98BBCBBCBBBB5CBBBB16BBBCEABBBCDFBBB175BBC702BBCB5FB - BC4A30BCDACBBCD55BBD13CBBCD6DBBBCBBBBD132B0DC4258FB5A233A697463F - D1B341410B06600395C000F1D0707B90A1F8CB9759B8078BD9AFFCEBBFFB8BBF - FFDB84FD0B0B86F0FFABAA3BAC9DE00DC096B366F76216D907D340C10286042E - 1736A67A55BF907E6133371AAC7D66D337A1A3C039C32B84451E82160DDEE00D - 16E983C0D609A173437DF0173D6891C3509241035762110DAEBBC1C0160D206C - 8D07761675ABB7B87BB5137BB5C1BBBBB7EBB527BBBB466CB7C28BBB4A7001D7 - 6BB8DCDBC45BFCC44A6CBB770AB151BCC44F0CC6659CB7B63BBC78BBC580EBC5 - C3EBB5680CB77AEBC64B4CB7624CC53A4813A7103AD0500C3C8B8DCD500C1335 - 0F1675AF9E8BAB84A9B4A880C8870CC0898CBFB0C03B76E0C0C35A0C938004D5 - A300F3300906907E0A500C548A04C5700DCAC02BDE6000D7E00DB62905FBA500 - CAB0C9A99C369A3CFF0FB0EC0DB560036FA3A6B5E0A466010EF0CA3493500B70 - 0536BF500BF380C10A700D3630CB6053CB9340CA62F10BA340CCB530407D300A - 937037B5300907263A7FC1C0F3A00C443C0C51037FB5A00C69D1B584700168B0 - CEEBFCC4EC0CCF57DCB5EEACB6E90CCFE9DCB5EC5CCFF1CCCFF28CCFF5FCCFB9 - 2BCFECACBDFF4CCF61DBCE058DD0F79CCEEEACD0057D01DF9BCEC7CBBDD1FBCF - F8CCBDFE1CD1D88BCFFC4C08E3A0832AA07F628304CD2005AA8A8D2ED20E3A60 - BF56D8BF2FED06302DD3318DBF31ED06370DC0332DD3F9CBABB0C0001C60019F - A01DC43A09AF300FD11036DCA0D4D72C16C5C00DAD2816B5C00DA3900FB05CD4 - D080C1D7900F9308FF0093209D9C706950FA0ACE9009C3201648E00CF9B05FD0 - 9009DCD0C163A100A3C00D62310C99B00EB57042FCD5D6BC3209F9700DAF700D - 468304AFD0D6DBD409D750083640D6FB159CF930409DB001F9B034C560038C35 - 0D7D3D0FBF390A99F07E7DF00A468DCE60ABCEA31DD15E1BD1A74DDAA95DDAA9 - 3DCFAAEDDAA82DCF60ABBD05B0DA64DCDAB0ADCEB26DDAAFFDDAB37DDBAE8DCF - B08DC416EDDB56ACB61ACDDA5DABDBAE8D0620BD505660042F161B5BC65C3E9B - 7AF1400D9DABBF36DDC8DC4DD38ADCBF8309DE7E49DEE3DDDD8D990A3E90320B - 3B0DDC3009B3360AB550C9730D00C3300950CD5F93300AA33040EA900F64A10C - A370CE0070CDC43CFF094613CD847DC90030D86E5D3DD0900FC3907D0A3009F4 - 8D049BEDD8FFF70ADC20684A0D0EF18DE09F6DCC00100DCAF00AF9F00AD22C16 - 459D09F8CDD4747D0D8C4504DC7059D5030E84FD7E6A3A0AAF80CEF3DCCFB6DB - CE3F1EE4F67CD0426EE407DDD1B59DE43FDED147CEE40D7DE44B1EE4ED7CD1F9 - 5CDAFA3CE5FA7CD159DECE17000A47700982D40734EC5C3B21AF5C467006E000 - 3A4009BA50D3FD7BD3370DE7714EE7733EE7745EE7787EE7BC8A716930070A0B - 86BF6003EFAD7D957CCD664D4EC03C40BFD0D7932068953C0FB86CDF035EC993 - 300920444E52BD010BFE0BF910E939A30CDC500C0AEC0DC04CD7F3B0DFE9770D - EF0D3703C00D527DFF57E4E4DEB71C36C3E0E9C0AC319D20D52FDED581484E64 - 45E248F0EA7F110D4EEDE94653884ADDE3AB8DDBCD2ECFCDCEDBD02EED060DDC - 0D9DDA568CDBBF3DEDD27E01A7DDEDD1AECEDF9EEDA3DDDAC15DEDDA9EDAE310 - 13AE310725127A750929CC65D206C01BF66BD33A7DEFF98EEFFBAEEFF96E080C - 6007D9C1BA034FF082D1BBDE5EBBDD9EF0A41DD1B8DBEDEB8CE5AAFDF0134FF1 - 155FF1CC4BF10C3FF113ABF0EC3CF1EA8CBD164FF11E2FF2E21EEEDE5EF229AF - F22B3FF1A0308D16B07D3ED36F6A643A6990060660514851D3798EE7362DE771 - BEE73D6FE7407FD3B0200761003F05AFF44BBF16CD46F216AFF1D80EF5B0CDF2 - 559FF1285FF24F6FFFF556AFF11ABFF55FAFF21FAD509FF30984253A0ABA46B8 - 41EF96E2093312E78A2CF4DECDF33D4FF4E66DD3B0100FA980CB4CCFF77D0F00 - 45300E526FF1B750F5277FF2603FF8157FF888CFF8226FF88D0FF9835F055B60 - 075E43C15DF350DA387052C00996120F740FFAA12FFAA30F0B3A70657E8FFA4A - 7F04801F0C841FF9AF0FFBB12FFBB3BFF55D0B1376801D61D3283B1BEF40F128 - DD2807D430FAC34FFCA00F0B27F0B45F98FACBBFB09502F8B44DF1AECFF2D23F - F1D26FFD564FFD2A7FFD29BFFD1790FDDDFEFDDEAFFDD8FFF0DD1FFEE75FF121 - 6D04636E13926B1B0007147DCCF996020BC56FFFC56FF461900629C7FC000140 - E04082050D1E4498FF50E142860D1D3E2C682051AA2355C659BB708BD0858C1D - 39DEF2C8B123489017368EE4B8919046932D45963CE9B264CA8F23637AC49892 - A4C7933B77FA11E9B2E6D095288516050AB3A64F944C45F60C49A8C891352A8C - 74EA434441315ACDBC0E68464BEC0003314EC841B5678F1BB66DDDBE851B576E - 5B58B00CE958F304E25EBE7DFDFE051C58705F7B3E34510C318EA39F5BB74231 - 060AF98264CA8D4335762C99E4E5979635DF8A8CB971D2C6933D83CE78FAA365 - CCA633B346FD993448C68E475F46BD79B4EBC7B961BF9E8D3B786BC6A1AA1C49 - 8402DC2600447ED9A3A54C99BBAF03A01BE0A4231EACB57035CC05FF1D7C5B39 - A97E0D469F5EFD7A67F6ED0742B327C507875445AA2C9D9CF171C7A49C99FE6C - 2A3FA69212B0C0FE00A4AD29CEF043D040FD1A6CF040FE022490C0FF0A047031 - 0A2F38A38A049203A797E614B067007794F1AA99018A81A61829CC9283BBF166 - A4F1AD784E48C33D1D77E4B1C7F50202003B} - end - end - object bAceptar: TButton - Left = 344 - Top = 367 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Aceptar' - Default = True - ModalResult = 1 - TabOrder = 1 - end - object memModulos: TMemo - Left = 128 - Top = 112 - Width = 289 - Height = 233 - BevelInner = bvNone - BevelOuter = bvNone - BorderStyle = bsNone - ParentColor = True - TabOrder = 2 - end -end diff --git a/Varela/Varela/Source/Servidor/uAcercaDe.pas b/Varela/Varela/Source/Servidor/uAcercaDe.pas deleted file mode 100644 index 466c9fe..0000000 --- a/Varela/Varela/Source/Servidor/uAcercaDe.pas +++ /dev/null @@ -1,47 +0,0 @@ -unit uAcercaDe; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, JvGIF, ExtCtrls, JvExControls, JvComponent, JvGradient, StdCtrls; - -type - TfAcercaDe = class(TForm) - JvGradient1: TJvGradient; - Panel1: TPanel; - Image1: TImage; - Bevel1: TBevel; - bAceptar: TButton; - memModulos: TMemo; - procedure FormShow(Sender: TObject); - end; - -implementation - -{$R *.dfm} - -uses JclFileUtils; - -procedure TfAcercaDe.FormShow(Sender: TObject); -var - Obj : TJclFileVersionInfo; -begin - memModulos.Lines.Clear; - - Obj := TJclFileVersionInfo.Create(Application.ExeName); - try - with Obj do - begin - memModulos.Lines.Add(ProductName + ' - Versión ' + FileVersion); - memModulos.Lines.Add(CompanyName); - memModulos.Lines.Add(''); - memModulos.Lines.Add('Se autoriza el uso de este programa a:'); - memModulos.Lines.Add('VARELA IMAGEN Y DISEÑO S.L.'); - end; - finally - FreeAndNil(Obj); - end; -end; - -end. diff --git a/Varela/Varela/Source/Servidor/uDataModuleServer.ddp b/Varela/Varela/Source/Servidor/uDataModuleServer.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Servidor/uDataModuleServer.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Servidor/uDataModuleServer.dfm b/Varela/Varela/Source/Servidor/uDataModuleServer.dfm deleted file mode 100644 index 6a5f4cd..0000000 --- a/Varela/Varela/Source/Servidor/uDataModuleServer.dfm +++ /dev/null @@ -1,96 +0,0 @@ -object dmServer: TdmServer - OldCreateOrder = False - OnCreate = DataModuleCreate - OnDestroy = DataModuleDestroy - Height = 307 - Width = 382 - object HTTPServer: TROIndyHTTPServer - Encryption.UseCompression = True - Dispatchers = < - item - Name = 'BINMessage' - Message = BINMessage - Enabled = True - PathInfo = 'Bin' - end> - OnBeforeServerActivate = HTTPServerBeforeServerActivate - IndyServer.Bindings = <> - IndyServer.DefaultPort = 8099 - Port = 8099 - Left = 40 - Top = 16 - end - object BINMessage: TROBinMessage - Left = 136 - Top = 16 - end - object DriverManager: TDADriverManager - DriverDirectory = '%SYSTEM%\' - TraceActive = True - TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams] - OnTraceEvent = DriverManagerTraceEvent - Left = 136 - Top = 80 - end - object ConnectionManager: TDAConnectionManager - Connections = < - item - Name = 'GFT_VARELA' - ConnectionString = - 'ADO?AuxDriver=SQLOLEDB.1;Server=david;Database=GFT_VARELA;UserID' + - '=sa;Password=123456;Integrated Security=SSPI;' - Default = True - end> - DriverManager = DriverManager - PoolingEnabled = True - Left = 40 - Top = 80 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'IMPORTE' - DataType = datCurrency - DisplayLabel = 'Importe' - Alignment = taRightJustify - end> - Left = 40 - Top = 144 - end - object DADiagrams: TDADiagrams - Left = 136 - Top = 144 - DiagramData = - ''#13#10' '#13#10' '#13#10''#13#10 - end - object JvAppRegistryStorage: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - RegRoot = hkLocalMachine - Root = 'Software\%APPL_NAME%' - SubStorages = <> - Left = 136 - Top = 208 - end - object DAADODriver: TDAADODriver - Left = 304 - Top = 16 - end - object SessionManager: TROInMemorySessionManager - SessionDuration = -1 - Left = 224 - Top = 16 - end - object DAServerLog1: TDAServerLog - Active = True - OnAddSQLCommandLog = DAServerLog1AddSQLCommandLog - OnAddSQLErrorLog = DAServerLog1AddSQLErrorLog - Left = 224 - Top = 80 - end - object JvLogFile1: TJvLogFile - Left = 224 - Top = 144 - end -end diff --git a/Varela/Varela/Source/Servidor/uDataModuleServer.pas b/Varela/Varela/Source/Servidor/uDataModuleServer.pas deleted file mode 100644 index 0475be5..0000000 --- a/Varela/Varela/Source/Servidor/uDataModuleServer.pas +++ /dev/null @@ -1,364 +0,0 @@ -unit uDataModuleServer; - -interface - -uses - SysUtils, Classes, uDAEngine, uDAIBXDriver, uDAClasses, uDADriverManager, - uROClient, uROBinMessage, uROServer, uROIndyTCPServer, uROIndyHTTPServer, - uROSessions, uDADataTable, uDABINAdapter, IBSQLMonitor, JvComponent, - JvAppStorage, JvAppRegistryStorage, uDAInterfaces, - JvComponentBase, uDAADODriver, uROEventRepository, uDAServerLog, ExceptionLog, - JvLogFile, SyncObjs; - -const - SERVER_PORT = '8099'; - -type - TdmServer = class(TDataModule) - HTTPServer: TROIndyHTTPServer; - BINMessage: TROBinMessage; - DriverManager: TDADriverManager; - DADiagrams: TDADiagrams; - JvAppRegistryStorage: TJvAppRegistryStorage; - DAADODriver: TDAADODriver; - SessionManager: TROInMemorySessionManager; - ConnectionManager: TDAConnectionManager; - DAServerLog1: TDAServerLog; - JvLogFile1: TJvLogFile; - DataDictionary: TDADataDictionary; - procedure DataModuleCreate(Sender: TObject); - procedure DataModuleDestroy(Sender: TObject); - procedure HTTPServerBeforeServerActivate(Sender: TObject); - procedure DAServerLog1AddSQLCommandLog(Sender: TDAServerLog; - SQLCommandLog: TDASQLCommandLog); - procedure DAServerLog1AddSQLErrorLog(Sender: TDAServerLog; - SQLErrorLog: TDASQLErrorLog); - procedure DriverManagerTraceEvent(Sender: TObject; const Text: string; - Tag: Integer); - private - FConnectionName : string; - FEscribirLog : TCriticalSection; - function GetConnectionString: string; - procedure FindFiles(StartDir: string; var FilesList: TStringList); - procedure IniciarLog; - procedure DetenerLog; - - public - FDBServer : string; - FDBName : string; - FDBUser : string; - FDBPass : string; - FInicioWindows : Boolean; - FServerPort : string; - FDirEntrada : String; - FDirAlmacen : String; - FDias : Integer; - procedure LeerConfiguracion; - procedure SalvarConfiguracion; - procedure RefrescarConexion; - procedure BorrarFicherosDeCargaAntiguos; - procedure EscribirLog(const AMensaje : String); - property ConnectionName : string read FConnectionName write FConnectionName; - end; - - -function DarRutaInformes : String; -function Encrypt (const Source : string) : String; -function Decrypt (const Source : string) : String; -function GetNextAutoinc(AConnection : IDAConnection; const GeneratorName: string): integer; -function GetTempDirectory(ABasePath : string) : string ; - - -var - dmServer: TdmServer; - -implementation - -{$R *.dfm} - -uses - DateUtils, JclFileUtils, ActiveX, Forms, fServerForm, Registry, Windows, Dialogs, - ADODB; - - -function GetTempDirectory(ABasePath : string) : string ; -var - fTime : TDateTime; - sFile : String; -Begin - Result := '' ; - - fTime := Frac(Now) ; - sFile := 'TMP' + Copy(FormatFloat('#.########', fTime), 5, 5); - - while FileExists(ABasePath + PathDelim + sFile) do - begin - fTime := Frac(Now); - sFile := 'TMP'+Copy(FormatFloat('#.########', fTime), 5, 5); - end; - Result := sFile ; -end; - -Function AddBS(s:String): String; -Begin - If Copy(s,Length(s),1)<>'\' Then - s := s + '\' ; - Result := s ; -End; - -function DarRutaInformes : String; -begin - Result := ExtractFilePath(Application.ExeName) + 'Informes' + PathDelim; -end; - -function GetNextAutoinc(AConnection : IDAConnection; const GeneratorName: string): integer; -var - ds: IDADataset; -begin - ds := AConnection.NewDataset(Format('SELECT Gen_id(%s,1) FROM RDB$Database', [GeneratorName])); - ds.Open; - result := ds.Fields[0].Value; - ds.Close; -end; - -procedure WriteAutoRun(Name, Value : String); -var - reg: TRegistry; -begin - reg := TRegistry.Create; - try - reg.RootKey := HKEY_LOCAL_MACHINE; - reg.LazyWrite := False; - reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); - reg.WriteString(Name, Value); - reg.CloseKey; - finally - reg.free; - end; -end; - -procedure DeleteAutoRun(Name : String); -var - reg: TRegistry; -begin - reg := TRegistry.Create; - try - reg.RootKey := HKEY_LOCAL_MACHINE; - reg.LazyWrite := False; - reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); - if reg.ValueExists(Name) then - reg.DeleteValue(Name); - reg.CloseKey; - finally - reg.free; - end; -end; - - -function Encrypt (const Source : string) : String; -var - i:integer; -begin - Randseed := 28; - Result := ''; - for i:=1 to length(Source) do - Result := Result + chr(ord(Source[i]) + Random(10) + 1); -end; - -function Decrypt (const Source : string) : String; -var - i : integer; -begin - Randseed:= 28; - Result := ''; - for i := 1 to length(Source) do - Result := Result + chr(ord(Source[i]) - Random(10) - 1); -end; - -procedure TdmServer.DAServerLog1AddSQLCommandLog(Sender: TDAServerLog; - SQLCommandLog: TDASQLCommandLog); -begin - EscribirLog(SQLCommandLog.OriginalSQLText); - EscribirLog(SQLCommandLog.OriginalSQLText); - EscribirLog('-----------------------------------------------------'); -end; - -procedure TdmServer.DAServerLog1AddSQLErrorLog(Sender: TDAServerLog; - SQLErrorLog: TDASQLErrorLog); -begin - EscribirLog(SQLErrorLog.ErrorMessage); - EscribirLog(SQLErrorLog.OriginalSQLText); - EscribirLog(SQLErrorLog.OriginalSQLText); - EscribirLog('-----------------------------------------------------'); -end; - -procedure TdmServer.DataModuleCreate(Sender: TObject); -begin - LeerConfiguracion; - RefrescarConexion; - IniciarLog; -end; - -function TdmServer.GetConnectionString: string; -begin -{ Result := 'SDAC?Server=' + FDBServer - + ';Database=' + FDBName - + ';UserID=' + FDBUser - + ';Password=' + Decrypt(FDBPass);} - - Result := 'ADO?AuxDriver=SQLOLEDB.1;Server=' + FDBServer - + ';Database=' + FDBName - + ';UserID=' + FDBUser - + ';Password=' + Decrypt(FDBPass); -end; - -procedure TdmServer.LeerConfiguracion; -begin - with JvAppRegistryStorage do - begin - FDBServer := ReadString('ServerDB'); - FDBName := ReadString('DBName'); - FDBUser := ReadString('UserDB'); - FDBPass := ReadString('PassDB'); - - FServerPort := ReadString('ServerPort', SERVER_PORT); - FInicioWindows := ReadBoolean('InicioWindows'); - - FDirEntrada := ReadString('DirEntradaEDI'); - FDirAlmacen := ReadString('DirAlmacenEDI'); - FDias := ReadInteger('DiasAlmacenEDI', 1); - end; -end; - -procedure TdmServer.SalvarConfiguracion; -begin - with JvAppRegistryStorage do - begin - BeginUpdate; - try - WriteString('ServerDB', FDBServer); - WriteString('DBName', FDBName); - WriteString('UserDB', FDBUser); - WriteString('PassDB', FDBPass); - WriteString('ServerPort', FServerPort); - - WriteString('DirEntradaEDI', FDirEntrada); - WriteString('DirAlmacenEDI', FDirAlmacen); - WriteInteger('DiasAlmacenEDI', FDias); - - WriteBoolean('InicioWindows', FInicioWindows); - if FInicioWindows then - WriteAutoRun('AdminPV_Server', Application.ExeName) - else - DeleteAutoRun('AdminPV_Server'); - finally - EndUpdate - end; - end; -end; - -procedure TdmServer.DataModuleDestroy(Sender: TObject); -begin - SessionManager.ClearSessions(False); - HTTPServer.Active := False; - DetenerLog; -end; - -procedure TdmServer.DetenerLog; -begin - FEscribirLog.Free; -end; - -procedure TdmServer.DriverManagerTraceEvent(Sender: TObject; const Text: string; - Tag: Integer); -begin - EscribirLog(Text + #10#13 + #10#13); -end; - -procedure TdmServer.EscribirLog(const AMensaje: String); -begin - FEscribirLog.Acquire; - try - JvLogFile1.Add(AMensaje); - finally - FEscribirLog.Release; - end; -end; - -procedure TdmServer.RefrescarConexion; -begin - HTTPServer.Active := False; - ConnectionManager.Connections.GetDefaultConnection.ConnectionString := ''; - - ConnectionName := ConnectionManager.GetDefaultConnectionName; - ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString; - CoInitialize(nil); - HTTPServer.Active := TRUE; -end; - -procedure TdmServer.HTTPServerBeforeServerActivate(Sender: TObject); -begin - HTTPServer.Port := StrToInt(FServerPort); -end; - -procedure TdmServer.IniciarLog; -begin - FEscribirLog := TCriticalSection.Create; - - JvLogFile1.Active := False; - JvLogFile1.FileName := ExtractFilePath(Application.ExeName) + 'ServerLog.txt'; - JvLogFile1.AutoSave := True; - JvLogFile1.Active := True; - JvLogFile1.Clear; -end; - -procedure TdmServer.BorrarFicherosDeCargaAntiguos; -var - AAlmacen : String; - ADate : TDateTime; - FilesList: TStringList; - i: integer; -begin - ADate := Now; - IncDay(ADate,((-1)*FDias)); //Establecemos fecha desde la que eliminaremos - - AAlmacen := PathAddSeparator(FDirAlmacen); - FilesList := TStringList.Create; - try - FindFiles(AAlmacen, FilesList); - for i:=0 to FilesList.Count-1 do - begin -// showmessage(FilesList.Strings[i]); - DeleteDirectory(FilesList.Strings[i], false) - end; - finally - FreeAndNil(FilesList); - end -end; - -procedure TdmServer.FindFiles(StartDir: string; var FilesList: TStringList); -const - MASK_ALL_FILES = '*.*'; - CHAR_POINT = '.'; -var - SR: TSearchRec; - IsFound: Boolean; - ADateTime: TDateTime; -begin - StartDir := PathAddSeparator(StartDir); - - IsFound := (FindFirst(StartDir + MASK_ALL_FILES, faAnyFile, SR) = 0); - while IsFound do - begin - if (SR.Name[1] <> CHAR_POINT) then - begin - ADateTime := FileDateToDateTime(SR.Time); - if (DaysBetween(ADateTime, Now) > FDias) then - FilesList.Add(StartDir + SR.Name); - end; - IsFound := (FindNext(SR) = 0); - end; - SysUtils.FindClose(SR); -end; - -end. diff --git a/Varela/Varela/Source/Servidor/uSchemaUtilsServer.pas b/Varela/Varela/Source/Servidor/uSchemaUtilsServer.pas deleted file mode 100644 index ac5791a..0000000 --- a/Varela/Varela/Source/Servidor/uSchemaUtilsServer.pas +++ /dev/null @@ -1,161 +0,0 @@ -unit uSchemaUtilsServer; - -interface - -uses - Classes, SysUtils, - uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - DARemoteService_Impl, - DataAbstract3_Intf, - uDAClasses, uDAInterfaces, uDADataTable; - -type - TReplicarDataSet = class - protected - function GenerateNewSQL : String; - public - Service : TDARemoteService; - Columnas : String; - ColumnasQueSuman : String; - SourceDataSetName : String; - function GetNewDataSet : IDADataset; - end; - - -implementation - -{ TReplicaDataSet } - -uses - RegExpr, - Dialogs, JclStrings; - -function TReplicarDataSet.GenerateNewSQL: String; -var - AColumnList : TStringList; - ASQL: TStringList; - ds : IDADataset; - i : integer; - Separador : String; - bHayAgrupacion : Boolean; - APos : Integer; - - function GetTrueFieldName(AField : string; ConAlias : Boolean = True) : String; - var - ARegExpr : TRegExpr; - begin - Result := AField; // Por si el campo no tuviera alias - ARegExpr := TRegExpr.Create; - try - ARegExpr.ModifierI := True; // case insensitive - ARegExpr.InputString := ds.SQL; - ARegExpr.Expression := '[^ ,]+[ ]+AS[ ]+' + AField; // buscar (xxxx.xxxx AS AField) o (xxxx AS AField) - ARegExpr.Expression := ARegExpr.Expression + '|'; // o - ARegExpr.Expression := ARegExpr.Expression + '[^ ,]+\.' + AField; // buscar xxxx.AField - if ARegExpr.Exec then - Result := ARegExpr.Match[0]; - - if not ConAlias then - begin - ARegExpr.InputString := Result; - ARegExpr.Expression := '^[^ ,]+'; // Para quedarme con el campo sin alias - if ARegExpr.Exec then - Result := ARegExpr.Match[0] - end; - finally - FreeAndNil(ARegExpr); - end; - end; - -begin - AColumnList := TStringList.Create; - ASQL := TStringList.Create; - ds := Service.ServiceSchema.NewDataset(Service.Connection, SourceDataSetName); - bHayAgrupacion := False; - try - AColumnList.CommaText := Columnas; - - with ASQL do - begin - Insert(0, 'SELECT DISTINCT'); - Insert(1, ''); // Lista de campos - Insert(2, Copy(ds.SQL, Pos('FROM', ds.SQL), Length(ds.SQL))); - Insert(3, ''); // Group by - Separador := ''; - - for i := 0 to AColumnList.Count - 1 do - begin - if Assigned(ds.FindField(AColumnList[i])) then - begin - if i > 0 then - Separador := ','; - - if Pos('#'+AColumnList[i]+'#', ColumnasQueSuman) > 0 then - begin - Strings[1] := Strings[1] + Separador + 'SUM(' + GetTrueFieldName(AColumnList[i], False) + ') AS ' + AColumnList[i]; - bHayAgrupacion := True; - end - else begin - Strings[1] := Strings[1] + Separador + GetTrueFieldName(AColumnList[i]); - if Length(Strings[3]) = 0 then - Strings[3] := 'GROUP BY ' - else begin - if (Strings[3] <> 'GROUP BY ') then - Strings[3] := Strings[3] + Separador; - end; - Strings[3] := Strings[3] + GetTrueFieldName(AColumnList[i], False); - end; - end; - end; // for - - if not bHayAgrupacion then - Delete(3); - end; - Result := ASQL.Text; - finally - AColumnList.Free; - ASQL.Free; - end; -end; - - - -function TReplicarDataSet.GetNewDataSet: IDADataset; -var - SQL: String; - ASchemaDataSet: TDADataSet; - AField: TDAField; - AColumnList : TStringList; - i, j : Integer; -begin - SQL := GenerateNewSQL; - Result := Service.Connection.NewDataset(SQL, SourceDataSetName); - - ASchemaDataSet := Service.ServiceSchema.Datasets.DatasetByName(SourceDataSetName); - if Assigned(ASchemaDataSet) then - begin - Result.Params.AssignParamCollection(ASchemaDataSet.Params); - Result.Fields.AssignFieldCollection(ASchemaDataSet.Fields); - AColumnList := TStringList.Create; - try - AColumnList.CommaText := Columnas; - j := 0; - i := Result.Fields.Count; - while i > 0 do - begin - if AColumnList.IndexOf(Result.Fields[j].Name) = -1 then - Result.Fields.Delete(j) - else - j := j + 1; // Un campo que dejo - i := i - 1; // Un campo menos por revisar - end; - finally - AColumnList.Free; - end; - end; - - Result.Close; - Result.Where.Clear; -end; - -end. diff --git a/Varela/Varela/Source/Usuarios/Usuarios.bdsproj b/Varela/Varela/Source/Usuarios/Usuarios.bdsproj deleted file mode 100644 index adb8eb4..0000000 --- a/Varela/Varela/Source/Usuarios/Usuarios.bdsproj +++ /dev/null @@ -1,677 +0,0 @@ - - - - - - - - - - - - Usuarios.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - Pedidos a proveedor - - - - .\ - ..\..\Output\Debug\Cliente - ..\Lib - ..\Lib;..\Base - vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 - - - False - - - - - - False - - - True - False - - - - $00000000 - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - - diff --git a/Varela/Varela/Source/Usuarios/Usuarios.cfg b/Varela/Varela/Source/Usuarios/Usuarios.cfg deleted file mode 100644 index 96c8d0b..0000000 --- a/Varela/Varela/Source/Usuarios/Usuarios.cfg +++ /dev/null @@ -1,45 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O+ --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W- --$X+ --$YD --$Z1 --GD --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N".\" --LE"..\..\Output\Cliente" --LN"..\Lib" --U"..\Lib" --O"..\Lib" --I"..\Lib" --R"..\Lib" --Z --w-UNSAFE_TYPE --w-UNSAFE_CODE --w-UNSAFE_CAST diff --git a/Varela/Varela/Source/Usuarios/Usuarios.dof b/Varela/Varela/Source/Usuarios/Usuarios.dof deleted file mode 100644 index 908913c..0000000 --- a/Varela/Varela/Source/Usuarios/Usuarios.dof +++ /dev/null @@ -1,471 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=0 -UnsafeCode=0 -UnsafeCast=0 -[Linker] -MapFile=3 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription=Pedidos a proveedor -[Directories] -OutputDir= -UnitOutputDir=.\ -PackageDLLOutputDir=..\..\Output\Cliente -PackageDCPOutputDir=..\Lib -SearchPath=..\Lib -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\ -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=1 -MinorVer=0 -Release=3 -Build=0 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=3082 -CodePage=1252 -[Version Info Keys] -CompanyName= -FileDescription= -FileVersion=1.0.3.0 -InternalName= -LegalCopyright= -LegalTrademarks= -OriginalFilename= -ProductName= -ProductVersion=1.0.0.0 -Comments= -[Excluded Packages] -c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview -T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc. -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=1 -Item0=..\Lib -[HistoryLists\hlUnitOutputDirectory] -Count=1 -Item0=.\ -[HistoryLists\hlBPLOutput] -Count=1 -Item0=..\..\Output\Cliente -[HistoryLists\hlDCPOutput] -Count=1 -Item0=..\Lib -[Exception Log] -EurekaLog Version=519 -Activate=1 -Activate Handle=1 -Save Log File=1 -Foreground Tab=0 -Freeze Activate=0 -Freeze Timeout=60 -Freeze Message=The application seems to be frozen. -SMTP From=eurekalog@email.com -SMTP Host= -SMTP Port=25 -SMTP UserID= -SMTP Password= -Append to Log=0 -Show TerminateBtn=1 -TerminateBtn Operation=1 -Errors Number=32 -Errors Terminate=3 -Email Address= -Email Object= -Email Send Options=0 -Output Path= -Encrypt Password= -AutoCloseDialogSecs=0 -WebSendMode=0 -SupportULR= -HTMLLayout Count=15 -HTMLLine0="%3Chtml%3E" -HTMLLine1=" %3Chead%3E" -HTMLLine2=" %3C/head%3E" -HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E" -HTMLLine4=" %3Ctable width="100%%" border="0"%3E" -HTMLLine5=" %3Ctr%3E" -HTMLLine6=" %3Ctd nowrap%3E" -HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E" -HTMLLine8=" %3C%%HTML_TAG%%%3E" -HTMLLine9=" %3C/font%3E" -HTMLLine10=" %3C/td%3E" -HTMLLine11=" %3C/tr%3E" -HTMLLine12=" %3C/table%3E" -HTMLLine13=" %3C/body%3E" -HTMLLine14="%3C/html%3E" -AutoCrashOperation=1 -AutoCrashNumber=10 -AutoCrashMinutes=1 -WebURL= -WebUserID= -WebPassword= -WebPort=0 -AttachedFiles= -Count=0 -EMail Message Line Count=0 -loNoDuplicateErrors=0 -loAppendReproduceText=0 -loDeleteLogAtVersionChange=0 -loAddComputerNameInLogFileName=0 -loSaveModulesSection=1 -loSaveCPUSection=1 -soAppStartDate=1 -soAppName=1 -soAppVersionNumber=1 -soAppParameters=1 -soAppCompilationDate=1 -soExcDate=1 -soExcAddress=1 -soExcModule=1 -soExcType=1 -soExcMessage=1 -soActCtlsFormClass=1 -soActCtlsFormText=1 -soActCtlsControlClass=1 -soActCtlsControlText=1 -soCmpName=1 -soCmpUser=1 -soCmpTotalMemory=1 -soCmpFreeMemory=1 -soCmpTotalDisk=1 -soCmpFreeDisk=1 -soCmpSysUpTime=1 -soCmpProcessor=1 -soCmpDisplayMode=1 -soOSType=1 -soOSBuildN=1 -soOSUpdate=1 -soOSLanguage=1 -soNetIP=1 -soNetSubmask=1 -soNetGateway=1 -soNetDNS1=1 -soNetDNS2=1 -soNetDHCP=1 -sndShowSendDialog=1 -sndShowSuccessFailureMsg=0 -sndSendEntireLog=0 -sndSendXMLLogCopy=0 -sndSendScreenshot=1 -sndUseOnlyActiveWindow=0 -sndSendLastHTMLPage=1 -sndSendInSeparatedThread=0 -sndAddDateInFileName=0 -sndCompressAllFiles=0 -edoShowExceptionDialog=1 -edoSendEmailChecked=1 -edoAttachScreenshotChecked=1 -edoShowCopyToClipOption=1 -edoShowDetailsButton=1 -edoShowInDetailedMode=0 -edoShowInTopMostMode=0 -edoUseEurekaLogLookAndFeel=0 -csoShowDLLs=1 -csoShowBPLs=1 -csoShowBorlandThreads=1 -csoShowWindowsThreads=1 -csoShowProcedureOffset=0 -boActivateCrashDetection=0 -boPauseBorlandThreads=0 -boDoNotPauseMainThread=0 -boPauseWindowsThreads=0 -boUseMainModuleOptions=1 -boCopyLogInCaseOfError=1 -boSaveCompressedCopyInCaseOfError=0 -Count mtInformationMsgCaption=1 -mtInformationMsgCaption0="Information." -Count mtQuestionMsgCaption=1 -mtQuestionMsgCaption0="Question." -Count mtDialog_Caption=1 -mtDialog_Caption0="Error." -Count mtDialog_ErrorMsgCaption=2 -mtDialog_ErrorMsgCaption0="An error has occurred during program execution." -mtDialog_ErrorMsgCaption1="Please read the following information for further details." -Count mtDialog_GeneralCaption=1 -mtDialog_GeneralCaption0="General" -Count mtDialog_GeneralHeader=1 -mtDialog_GeneralHeader0="General Information" -Count mtDialog_CallStackCaption=1 -mtDialog_CallStackCaption0="Call Stack" -Count mtDialog_CallStackHeader=1 -mtDialog_CallStackHeader0="Call Stack Information" -Count mtDialog_ModulesCaption=1 -mtDialog_ModulesCaption0="Modules" -Count mtDialog_ModulesHeader=1 -mtDialog_ModulesHeader0="Modules Information" -Count mtDialog_CPUCaption=1 -mtDialog_CPUCaption0="CPU" -Count mtDialog_CPUHeader=1 -mtDialog_CPUHeader0="CPU Information" -Count mtDialog_CustomDataCaption=1 -mtDialog_CustomDataCaption0="Other" -Count mtDialog_CustomDataHeader=1 -mtDialog_CustomDataHeader0="Other Information" -Count mtDialog_OKButtonCaption=1 -mtDialog_OKButtonCaption0="%26OK" -Count mtDialog_TerminateButtonCaption=1 -mtDialog_TerminateButtonCaption0="%26Terminate" -Count mtDialog_RestartButtonCaption=1 -mtDialog_RestartButtonCaption0="%26Restart" -Count mtDialog_DetailsButtonCaption=1 -mtDialog_DetailsButtonCaption0="%26Details" -Count mtDialog_SendMessage=1 -mtDialog_SendMessage0="%26Send this error via Internet" -Count mtDialog_ScreenshotMessage=1 -mtDialog_ScreenshotMessage0="%26Attach a Screenshot image" -Count mtDialog_CopyMessage=1 -mtDialog_CopyMessage0="%26Copy to Clipboard" -Count mtDialog_SupportMessage=1 -mtDialog_SupportMessage0="Go to the Support Page" -Count mtLog_AppHeader=1 -mtLog_AppHeader0="Application" -Count mtLog_AppStartDate=1 -mtLog_AppStartDate0="Start Date" -Count mtLog_AppName=1 -mtLog_AppName0="Name/Description" -Count mtLog_AppVersionNumber=1 -mtLog_AppVersionNumber0="Version Number" -Count mtLog_AppParameters=1 -mtLog_AppParameters0="Parameters" -Count mtLog_AppCompilationDate=1 -mtLog_AppCompilationDate0="Compilation Date" -Count mtLog_ExcHeader=1 -mtLog_ExcHeader0="Exception" -Count mtLog_ExcDate=1 -mtLog_ExcDate0="Date" -Count mtLog_ExcAddress=1 -mtLog_ExcAddress0="Address" -Count mtLog_ExcModule=1 -mtLog_ExcModule0="Module" -Count mtLog_ExcType=1 -mtLog_ExcType0="Type" -Count mtLog_ExcMessage=1 -mtLog_ExcMessage0="Message" -Count mtLog_ActCtrlsHeader=1 -mtLog_ActCtrlsHeader0="Active Controls" -Count mtLog_ActCtrlsFormClass=1 -mtLog_ActCtrlsFormClass0="Form Class" -Count mtLog_ActCtrlsFormText=1 -mtLog_ActCtrlsFormText0="Form Text" -Count mtLog_ActCtrlsControlClass=1 -mtLog_ActCtrlsControlClass0="Control Class" -Count mtLog_ActCtrlsControlText=1 -mtLog_ActCtrlsControlText0="Control Text" -Count mtLog_CmpHeader=1 -mtLog_CmpHeader0="Computer" -Count mtLog_CmpName=1 -mtLog_CmpName0="Name" -Count mtLog_CmpUser=1 -mtLog_CmpUser0="User" -Count mtLog_CmpTotalMemory=1 -mtLog_CmpTotalMemory0="Total Memory" -Count mtLog_CmpFreeMemory=1 -mtLog_CmpFreeMemory0="Free Memory" -Count mtLog_CmpTotalDisk=1 -mtLog_CmpTotalDisk0="Total Disk" -Count mtLog_CmpFreeDisk=1 -mtLog_CmpFreeDisk0="Free Disk" -Count mtLog_CmpSystemUpTime=1 -mtLog_CmpSystemUpTime0="System Up Time" -Count mtLog_CmpProcessor=1 -mtLog_CmpProcessor0="Processor" -Count mtLog_CmpDisplayMode=1 -mtLog_CmpDisplayMode0="Display Mode" -Count mtLog_OSHeader=1 -mtLog_OSHeader0="Operating System" -Count mtLog_OSType=1 -mtLog_OSType0="Type" -Count mtLog_OSBuildN=1 -mtLog_OSBuildN0="Build #" -Count mtLog_OSUpdate=1 -mtLog_OSUpdate0="Update" -Count mtLog_OSLanguage=1 -mtLog_OSLanguage0="Language" -Count mtLog_NetHeader=1 -mtLog_NetHeader0="Network" -Count mtLog_NetIP=1 -mtLog_NetIP0="IP Address" -Count mtLog_NetSubmask=1 -mtLog_NetSubmask0="Submask" -Count mtLog_NetGateway=1 -mtLog_NetGateway0="Gateway" -Count mtLog_NetDNS1=1 -mtLog_NetDNS10="DNS 1" -Count mtLog_NetDNS2=1 -mtLog_NetDNS20="DNS 2" -Count mtLog_NetDHCP=1 -mtLog_NetDHCP0="DHCP" -Count mtLog_CustInfoHeader=1 -mtLog_CustInfoHeader0="Custom Information" -Count mtCallStack_Address=1 -mtCallStack_Address0="Address" -Count mtCallStack_Name=1 -mtCallStack_Name0="Module" -Count mtCallStack_Unit=1 -mtCallStack_Unit0="Unit" -Count mtCallStack_Class=1 -mtCallStack_Class0="Class" -Count mtCallStack_Procedure=1 -mtCallStack_Procedure0="Procedure/Method" -Count mtCallStack_Line=1 -mtCallStack_Line0="Line" -Count mtCallStack_MainThread=1 -mtCallStack_MainThread0="Main" -Count mtCallStack_ExceptionThread=1 -mtCallStack_ExceptionThread0="Exception Thread" -Count mtCallStack_RunningThread=1 -mtCallStack_RunningThread0="Running Thread" -Count mtCallStack_CallingThread=1 -mtCallStack_CallingThread0="Calling Thread" -Count mtCallStack_ThreadID=1 -mtCallStack_ThreadID0="ID" -Count mtCallStack_ThreadPriority=1 -mtCallStack_ThreadPriority0="Priority" -Count mtCallStack_ThreadClass=1 -mtCallStack_ThreadClass0="Class" -Count mtSendDialog_Caption=1 -mtSendDialog_Caption0="Send." -Count mtSendDialog_Message=1 -mtSendDialog_Message0="Message" -Count mtSendDialog_Resolving=1 -mtSendDialog_Resolving0="Resolving DNS..." -Count mtSendDialog_Connecting=1 -mtSendDialog_Connecting0="Connecting with server..." -Count mtSendDialog_Connected=1 -mtSendDialog_Connected0="Connected with server." -Count mtSendDialog_Sending=1 -mtSendDialog_Sending0="Sending message..." -Count mtReproduceDialog_Caption=1 -mtReproduceDialog_Caption0="Request" -Count mtReproduceDialog_Request=1 -mtReproduceDialog_Request0="Please describe the steps to reproduce the error:" -Count mtReproduceDialog_OKButtonCaption=1 -mtReproduceDialog_OKButtonCaption0="%26OK" -Count mtModules_Handle=1 -mtModules_Handle0="Handle" -Count mtModules_Name=1 -mtModules_Name0="Name" -Count mtModules_Description=1 -mtModules_Description0="Description" -Count mtModules_Version=1 -mtModules_Version0="Version" -Count mtModules_Size=1 -mtModules_Size0="Size" -Count mtModules_LastModified=1 -mtModules_LastModified0="Modified" -Count mtModules_Path=1 -mtModules_Path0="Path" -Count mtCPU_Registers=1 -mtCPU_Registers0="Registers" -Count mtCPU_Stack=1 -mtCPU_Stack0="Stack" -Count mtCPU_MemoryDump=1 -mtCPU_MemoryDump0="Memory Dump" -Count mtSend_SuccessMsg=1 -mtSend_SuccessMsg0="The message was sent successfully." -Count mtSend_FailureMsg=1 -mtSend_FailureMsg0="Sorry, sending the message didn't work." - - diff --git a/Varela/Varela/Source/Usuarios/Usuarios.dpk b/Varela/Varela/Source/Usuarios/Usuarios.dpk deleted file mode 100644 index 584f8f1..0000000 --- a/Varela/Varela/Source/Usuarios/Usuarios.dpk +++ /dev/null @@ -1,50 +0,0 @@ -package Usuarios; - -{$R *.res} -{$ALIGN 8} -{$ASSERTIONS ON} -{$BOOLEVAL OFF} -{$DEBUGINFO ON} -{$EXTENDEDSYNTAX ON} -{$IMPORTEDDATA ON} -{$IOCHECKS ON} -{$LOCALSYMBOLS ON} -{$LONGSTRINGS ON} -{$OPENSTRINGS ON} -{$OPTIMIZATION ON} -{$OVERFLOWCHECKS OFF} -{$RANGECHECKS OFF} -{$REFERENCEINFO ON} -{$SAFEDIVIDE OFF} -{$STACKFRAMES OFF} -{$TYPEDADDRESS OFF} -{$VARSTRINGCHECKS ON} -{$WRITEABLECONST OFF} -{$MINENUMSIZE 1} -{$IMAGEBASE $400000} -{$DESCRIPTION 'Pedidos a proveedor'} -{$IMPLICITBUILD ON} - -requires - vcl, - vcldb, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - vcljpg, - BaseD10, - rtl, - dbrtl, - dsnap, - adortl, - JvMMD10R; - -contains - uDataModuleUsuarios in 'uDataModuleUsuarios.pas' {dmUsuarios: TDAClientDataModule}, - uUsuarios in 'uUsuarios.pas' {fUsuarios}, - uUsuario in 'uUsuario.pas' {fUsuario}, - uLoginForm in 'uLoginForm.pas' {fLoginForm}, - uCambiarPassword in 'uCambiarPassword.pas' {fCambiarPassword}; - -end. diff --git a/Varela/Varela/Source/Usuarios/Usuarios.drc b/Varela/Varela/Source/Usuarios/Usuarios.drc deleted file mode 100644 index 7642ac9..0000000 --- a/Varela/Varela/Source/Usuarios/Usuarios.drc +++ /dev/null @@ -1,14 +0,0 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler - because -GD or --drc was supplied to the compiler. - - This file contains compiler-generated resources that - were bound to the executable. - If this file is empty, then no compiler-generated - resources were bound to the produced executable. -*/ - -STRINGTABLE -BEGIN -END - diff --git a/Varela/Varela/Source/Usuarios/Usuarios.identcache b/Varela/Varela/Source/Usuarios/Usuarios.identcache deleted file mode 100644 index d414da5..0000000 Binary files a/Varela/Varela/Source/Usuarios/Usuarios.identcache and /dev/null differ diff --git a/Varela/Varela/Source/Usuarios/Usuarios.rc b/Varela/Varela/Source/Usuarios/Usuarios.rc deleted file mode 100644 index 169f997..0000000 --- a/Varela/Varela/Source/Usuarios/Usuarios.rc +++ /dev/null @@ -1,22 +0,0 @@ -1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 -FILEFLAGSMASK 0x3FL -FILEFLAGS 0x00L -FILEOS 0x40004L -FILETYPE 0x1L -FILESUBTYPE 0x0L -BEGIN - BLOCK "StringFileInfo" - BEGIN - BLOCK "0C0A04E4" - BEGIN - VALUE "FileVersion", "1.0.3.0\0" - VALUE "ProductVersion", "1.0.0.0\0" - END - END - BLOCK "VarFileInfo" - BEGIN - VALUE "Translation", 0x0C0A, 1252 - END -END diff --git a/Varela/Varela/Source/Usuarios/Usuarios.res b/Varela/Varela/Source/Usuarios/Usuarios.res deleted file mode 100644 index bf4c1a4..0000000 Binary files a/Varela/Varela/Source/Usuarios/Usuarios.res and /dev/null differ diff --git a/Varela/Varela/Source/Usuarios/uCambiarPassword.dfm b/Varela/Varela/Source/Usuarios/uCambiarPassword.dfm deleted file mode 100644 index 9169827..0000000 --- a/Varela/Varela/Source/Usuarios/uCambiarPassword.dfm +++ /dev/null @@ -1,94 +0,0 @@ -object fCambiarPassword: TfCambiarPassword - Left = 460 - Top = 492 - Width = 361 - Height = 299 - Caption = 'Cambiar la contrase'#241'a' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - PixelsPerInch = 96 - TextHeight = 13 - object bAceptar: TButton - Left = 136 - Top = 230 - Width = 120 - Height = 25 - Caption = '&Cambiar la contrase'#241'a' - Default = True - TabOrder = 0 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 269 - Top = 230 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Cancelar' - ModalResult = 2 - TabOrder = 1 - end - object PageControl1: TPageControl - Left = 2 - Top = 2 - Width = 349 - Height = 217 - ActivePage = pagContrasena - TabOrder = 2 - object pagContrasena: TTabSheet - Caption = 'Cambiar la contrase'#241'a' - object Label4: TLabel - Left = 16 - Top = 19 - Width = 167 - Height = 13 - Caption = 'Escriba la nueva contrase'#241'a:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - Transparent = True - end - object Label1: TLabel - Left = 16 - Top = 72 - Width = 257 - Height = 13 - Caption = 'Repita la nueva contrase'#241'a para confirmarla:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - Transparent = True - end - object edtPassword2: TEdit - Left = 16 - Top = 88 - Width = 295 - Height = 21 - CharCase = ecLowerCase - PasswordChar = '*' - TabOrder = 0 - end - object edtPassword: TEdit - Left = 16 - Top = 39 - Width = 295 - Height = 21 - CharCase = ecLowerCase - PasswordChar = '*' - TabOrder = 1 - end - end - end -end diff --git a/Varela/Varela/Source/Usuarios/uCambiarPassword.pas b/Varela/Varela/Source/Usuarios/uCambiarPassword.pas deleted file mode 100644 index 03a158b..0000000 --- a/Varela/Varela/Source/Usuarios/uCambiarPassword.pas +++ /dev/null @@ -1,41 +0,0 @@ -unit uCambiarPassword; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ComCtrls; - -type - TfCambiarPassword = class(TForm) - bAceptar: TButton; - bCancelar: TButton; - Label4: TLabel; - edtPassword: TEdit; - Label1: TLabel; - edtPassword2: TEdit; - PageControl1: TPageControl; - pagContrasena: TTabSheet; - procedure bAceptarClick(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -var - fCambiarPassword: TfCambiarPassword; - -implementation - -{$R *.dfm} - -procedure TfCambiarPassword.bAceptarClick(Sender: TObject); -begin - if edtPassword2.Text <> edtPassword.Text then - raise Exception.Create('Por favor, introduzca la MISMA contraseña en los dos campos') - else - ModalResult := mrOK; -end; - -end. diff --git a/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.ddp b/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.dfm b/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.dfm deleted file mode 100644 index 5c031b4..0000000 --- a/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.dfm +++ /dev/null @@ -1,132 +0,0 @@ -object dmUsuarios: TdmUsuarios - OldCreateOrder = True - OnCreate = DAClientDataModuleCreate - Height = 340 - Width = 423 - object ROLoginService: TRORemoteService - Message = dmBase.ROMessage - Channel = dmBase.ROChannel - ServiceName = 'srvLogin' - Left = 56 - Top = 40 - end - object tbl_Usuarios: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = < - item - Name = 'ID' - DataType = datString - Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False - end> - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Usuarios' - IndexDefs = <> - Left = 176 - Top = 40 - end - object ds_Usuarios: TDADataSource - DataSet = tbl_Usuarios.Dataset - DataTable = tbl_Usuarios - Left = 280 - Top = 40 - end - object DARemoteDataAdapter: TDARemoteDataAdapter - GetSchemaCall.RemoteService = ROLoginService - GetSchemaCall.MethodName = 'GetSchemaAsXML' - GetSchemaCall.Params = < - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetSchemaCall.Default = False - GetSchemaCall.IncomingSchemaParameter = 'Result' - GetSchemaCall.OutgoingFilterParameter = 'aFilter' - GetDataCall.RemoteService = ROLoginService - GetDataCall.MethodName = 'GetDatasetData' - GetDataCall.Params = < - item - Name = 'DatasetName' - DataType = rtString - Flag = fIn - end - item - Name = 'Params' - DataType = rtString - Flag = fIn - end - item - Name = 'IncludeSchema' - DataType = rtBoolean - Flag = fIn - end - item - Name = 'MaxRecords' - DataType = rtInteger - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - GetDataCall.Default = False - GetDataCall.OutgoingTableNamesParameter = 'DatasetName' - GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' - GetDataCall.IncomingDataParameter = 'Result' - GetDataCall.OutgoingParamsParameter = 'Params' - GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' - GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' - UpdateDataCall.RemoteService = ROLoginService - UpdateDataCall.MethodName = 'UpdateData' - UpdateDataCall.Params = < - item - Name = 'Delta' - DataType = rtBinary - Flag = fIn - end - item - Name = 'Result' - DataType = rtBinary - Flag = fResult - end> - UpdateDataCall.Default = False - UpdateDataCall.OutgoingDeltaParameter = 'Delta' - UpdateDataCall.IncomingDeltaParameter = 'Result' - GetScriptsCall.RemoteService = ROLoginService - GetScriptsCall.MethodName = 'GetDatasetScripts' - GetScriptsCall.Params = < - item - Name = 'DatasetNames' - DataType = rtString - Flag = fIn - end - item - Name = 'Result' - DataType = rtString - Flag = fResult - end> - GetScriptsCall.Default = False - GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' - GetScriptsCall.IncomingScriptParameter = 'Result' - RemoteService = ROLoginService - DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth - Left = 56 - Top = 104 - end -end diff --git a/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.pas b/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.pas deleted file mode 100644 index 57e1667..0000000 --- a/Varela/Varela/Source/Usuarios/uDataModuleUsuarios.pas +++ /dev/null @@ -1,117 +0,0 @@ -unit uDataModuleUsuarios; - -interface - -uses {vcl:} SysUtils, Classes, DB, DBClient, - {RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter, - uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, - uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable, - VARELA_Intf, uDARemoteDataAdapter, uDAInterfaces; - -const - ROL_ADMIN = 'Administrador'; - -type - TdmUsuarios = class(TDAClientDataModule) - ROLoginService: TRORemoteService; - tbl_Usuarios: TDACDSDataTable; - ds_Usuarios: TDADataSource; - DARemoteDataAdapter: TDARemoteDataAdapter; - procedure DAClientDataModuleCreate(Sender: TObject); - procedure DAClientDataModuleDestroy(Sender: TObject); - private - FLoginInfo: TLoginInfo; - function CambiarPassword (const APassword : String) : boolean; overload; - - public - function Login: Boolean; overload; - function Login(Usuario: String; Password: String): Boolean; overload; - procedure Logout; - procedure CambiarPassword; overload; - function EsAdmin : Boolean; - property LoginInfo: TLoginInfo read FLoginInfo write FLoginInfo; - end; - -var - dmUsuarios: TdmUsuarios; - -implementation - -{$R *.DFM} - -uses - Forms, Controls, uDataTableUtils, uDataModuleBase, uLoginForm, - uCambiarPassword, Dialogs, Windows; - -{ TDAClientDataModule1 } - -procedure TdmUsuarios.DAClientDataModuleCreate(Sender: TObject); -begin - ROLoginService.Channel := dmBase.Channel; - ROLoginService.Message := dmBase.Message; - - // *********************** PENDIENTE ADAPTAR - // Adapter := dmBase.Adapter; -end; - -function TdmUsuarios.Login: Boolean; -begin - with TfLoginForm.Create(NIL) do - try - if Assigned(FLoginInfo) then - edtUser.Text := FLoginInfo.UserID; - Result := (ShowModal = mrOK) - finally - Free; - end; -end; - -function TdmUsuarios.Login(Usuario: String; Password: String): Boolean; -begin - Result := (ROLoginService as IsrvLogin).Login(Usuario, Password, FLoginInfo); -end; - -procedure TdmUsuarios.Logout; -begin - (ROLoginService as IsrvLogin).Logout; -end; - -procedure TdmUsuarios.DAClientDataModuleDestroy(Sender: TObject); -begin - FreeAndNIL(FLoginInfo); -end; - -function TdmUsuarios.EsAdmin: Boolean; -begin - Result := False; - if LoginInfo.Roles.Count > 0 then - Result := (Pos(ROL_ADMIN, LoginInfo.Roles.Items[0]) > 0); -end; - -procedure TdmUsuarios.CambiarPassword; -begin - with TfCambiarPassword.Create(NIL) do - try - if ShowModal = mrOk then - if CambiarPassword(edtPassword.Text) then - Application.MessageBox('La contraseña ha sido cambiada correctamente.', 'Información', MB_OK); - finally - Free; - end; -end; - -function TdmUsuarios.CambiarPassword(const APassword: String): boolean; -begin - Result := False; - if not (ROLoginService as IsrvLogin).SetUserPassword(LoginInfo.UserID, APassword) then - raise Exception.Create('Error en el servidor. No se ha podido cambiar la contraseña'); - Result := True; -end; - -initialization - dmUsuarios := TdmUsuarios.Create(nil); - -finalization - FreeAndNil(dmUsuarios); - -end. diff --git a/Varela/Varela/Source/Usuarios/uLoginForm.ddp b/Varela/Varela/Source/Usuarios/uLoginForm.ddp deleted file mode 100644 index 4370276..0000000 Binary files a/Varela/Varela/Source/Usuarios/uLoginForm.ddp and /dev/null differ diff --git a/Varela/Varela/Source/Usuarios/uLoginForm.dfm b/Varela/Varela/Source/Usuarios/uLoginForm.dfm deleted file mode 100644 index 049b239..0000000 --- a/Varela/Varela/Source/Usuarios/uLoginForm.dfm +++ /dev/null @@ -1,784 +0,0 @@ -object fLoginForm: TfLoginForm - Left = 790 - Top = 387 - ActiveControl = edtUser - BorderStyle = bsDialog - Caption = 'Administraci'#243'n de puntos de venta' - ClientHeight = 241 - ClientWidth = 385 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnCreate = FormCreate - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 - object Label3: TLabel - Left = 24 - Top = 108 - Width = 39 - Height = 13 - Caption = 'Usuario:' - Transparent = False - end - object Label4: TLabel - Left = 24 - Top = 138 - Width = 57 - Height = 13 - Caption = 'Contrase'#241'a:' - Transparent = False - end - object Label1: TLabel - Left = 16 - Top = 72 - Width = 94 - Height = 13 - Caption = 'Inicio de sesi'#243'n:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clMenuHighlight - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - end - object JvGradient1: TJvGradient - Left = 0 - Top = 57 - Width = 385 - Height = 4 - Align = alTop - StartColor = 2971346 - EndColor = 4828405 - end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 385 - Height = 57 - Align = alTop - BevelOuter = bvNone - Color = clWhite - TabOrder = 0 - object Image1: TImage - Left = 0 - Top = 0 - Width = 385 - Height = 57 - Align = alClient - Picture.Data = { - 0B544A76474946496D616765E84E0000474946383961C201FA00F70000FFFFFF - BD810BE3CEAFE8E8E8B59167AE6606D2D1D1C4930FD3AB37C59410C28D0ECA96 - 34B26C088D4205D6AE6AB48658D6AD51CCC3B7C0880CB97C0BBAA78FCDA616E2 - C670A55405E6D08BB9790A904205C69550A14C03C6BBAAB47109AD7A4B8A4207 - A95E06F8F3EAB16B07E7D6C4C89A12BE820CDADADBD5D5D5C28E10CEC9C29443 - 04BE840CCBA014B77609B06908964203B57209AD6406B26E08A04903BF830BF1 - E8DAB7761AC69811C99D13B8770AC99F14A85B05A75A17D1CEC89C4504AB6007 - B7780AA96327A35105A35003F3F3F2964303AC6608A45204A24D04F2ECE4C18A - 0CECE2D4984403BD8735AE6707A65805B6750A9842038641089B4403C28A0EB6 - 7508FCF9F4D9BA9EB6730AC5A8869D48039A561CE0C59AA66A33B87924B06C08 - C69A70F2E8C7BC7E0B874107B574099C4402AC6206EEDFB7AD6419B77E3FDAB9 - 88AF6807D3D0CDC0B29E9D6430995C26CBA215FAF6F0EDDFC9904203D1A984C1 - AE939A4C0CFDFCFAB5720AFAF9F8954E13CCA51AD5D4D2AD640FA67040994304 - B16E1CCBA415C4900FB36F09934A0CD3D2D2BE82178C4509FEFEFDAA5D0FCA9E - 1BC0860CF7F0DBB99C788D4911A4510AC79610A35E22C18B0CAF6B28924304FC - FAF8B7760BAC6307AE6406944403C08A0E914609FFFEFEDCBC54934403C0870F - B77208DDBB66B46D05B36503A85503D6D6D7FCFBFBCFA824CEA819D9D8D7C48A - 22BD7E1B8B4105D2D2D3CEAA17A54D01E0C383D7D6D5B97A0EFEFDFCB27138AB - 5E05D0D0D0A55002C79516FEFEFEA04602DDDDDEA04A03D7D7D8B5720CD4D3D3 - FFFFFEBA7E0BB5740ABA7306AF64098E470CB0690DCECDCDA04E0BC89B16B16F - 09AF702D9B5012A55604BDA281B57609BD7F0FB46F0D8F4506CA95229B4201B6 - 7008C69117984708954806F7F7F6D4D4D5EEEEEDA34A01C38E0FC4B18FB7740F - B36F12B4700BB5760AA95909B36F0EA24E02B06505E2E2E3A8580FB36D09D0AE - 92B7710AC49212C38C19CF9E26B46A0EBF890DA35403CFCFD1BB7912D9D9D98A - 4306B57207EAD8A0C3871292511AA25214AA5805AA5C03AC5903AF60042C0000 - 0000C201FA000008FF005355182890E0C00A05111E4CC870E1C2571021128CD8 - 90202A0B6844D002C0B1A3C78F20438A1C49B2A4C9932853AA5CC9B2A5CB9730 - 63CA9C49B326498502732AACC047A74F9C3B05FDF42988E7509CA95E79C227E6 - 8ACDA750A34A9D4AB5AAD5AB5867F2292A686B85AE5C0571F50AF62BD9AD62CF - 8E15CBD6EC5AB3A83C611491B5AEDDBB78F3EADDCB17001F9E80FF0A161BB8B0 - E0C05E0F2BFE4A78B162547131D0ED4BB9B2E5CB9833433DC8B9B3E7CFA0438B - EEFCF71506319A53AB5ECDBA35DED1B063CB0E8DC04223D7B873EBDECD3BE4EC - DFC047A7F2842651B0DEC8932B5F6E7720E1CE4565473F385DF4F4EB5F072A45 - 73050FF3EFE0C38BFF5729288E79C64517C559849E6D58AEE6CB9B8FB38370DB - B63BE214CD0F3F7E1C3E4B8970C571E31568E081CAE9A71F575FC5D1427C4529 - 58411CD945E81F1FF33146E17DE76568218571A082C069726C84E08928A698D9 - 7CF3C9A7A07F2CC2C8E283EAC5C8A28B2DE467638B7120B09418DEA928E49044 - 62F59E7BED71B861791332B9645B204ED8607C49BAD79527A73955E4965C7609 - 9395EE2D68E58B0BD25726846CED28C8830A8269655CF84CE6E59C74D6F9D18E - 78E6A9E79E2DF4B9A7797C40804F2389D869E8A15BF6A9E8A28CFAD9E8A39046 - DAE70E90CED7426D4D158AE8A69C1A28E9A39446BAC3A8A0925AAAA98A5A5A1B - 779A76EAEAABC929FF3A6A0E39EE406B0EA6927AABAEB58E3A6B0BB8FA2AACAD - C00E4B29ADB9C20924ACCC368B9BB1BF1EDB2BA9B3425BEDB5BEE28A6CB1C3F6 - 5AEB3B72892187B3E4968B99AEC3EE8A2CBAD8AE1B6CB6F06ACBADB0F3E6606F - 1CE00E8A47ABE6F6EB6F56CAE45002B1F6DA5B82BD3B1C1CF0C1BB06AC8CAD05 - 0F1C70C1C56A6B2BC1C0029BC3C402CF3A221A25FE2BF2C853096CB2C0252873 - 30C32697E0B2C12B0BACF2CB289F0CF3C431172C33CD05C3D9081E04922CF4D0 - 2FE96CB0CD46B78CB4D2391BDD74D247B36CEF229EC4F273D04467AD75492FBB - EC320E2EABBCF3CC607F2D76D961A78C43C168978DF2CA5D7BDDB632AB5EC1EF - D678E70D40CA5ECFFFCC37D37EFBFDB6D870171E78DF2B1F9EB6CB3EEAABF7E3 - 789700F6E4924BAE72E0944FAE0C0E9B57AE76E799571EFAC1A187BE08A68442 - AEFAD05EB7EEFAEBB0C72EFBECB4BFFC8E2818D8A0E5EABCFB5BFBEFC0075FFB - 22EF60346EEFC8972BFCF2CC07AFCCE918DC96FCF4CC366FFDF5B1A3220A6AD4 - 77DFE9EB93E310090E68BB3C7EEB608F5F7E09E74B2EBEDCF0932FBFE8F24722 - 7A09547317A4F7FCD72977020970DFF812403EF405D0650988040109D8BE48E4 - 8280604B60F820584006BA2F82E2AB1FF9E846A2FE79704EEAC3010571F04005 - 6A3081EA53E00345C842074A907C2624DF08E547C11026608503249FCFEEF6C1 - 1EA62801ED002010FF8598400006D1880A8CC4119308C003105181404CE21187 - 684421B6438A006462249C98C05CDCAE293E0CA38A6EB8C01516F18166442319 - 4BB840008A50856B24A308D358C638BE918C002C612E96723C31FAD1404C24A2 - 200749C82C16F1899180220A034948461632010BC89D89FE4849F034F2919844 - E12013A9484D663291994C80F632C2C34A9A72379B3C642857C9CA560E921A08 - 10C51C7677CA5AEA46958674A5100F30C55DF6B295EDE02226490801C9D8F298 - B9D9E50184B9CC6512B199CBEC6433A138882D423389CB1CC433A7A94D683A33 - 8BCE54E00116100B3158026BC84C276694C9CC66266010C1F4E60122A1CD045C - 739EF22C6234B739FF4D790AD39EF34CE001F2F533751A143307D066379BA950 - 7F3A549E0D756844A1F9CE8A66B3A21375622E6209B2521EF4A376E1E620DC59 - CD4198F4A423CDA649B3A9D293D2D39F2B65284A4DFA4E9A5653A60C4D00358A - D9085A82F4A77599A950871A53A20E159A46256A4D156A4FA2B6831A4B69C424 - 814A55AB78E3AA58CDAA564F7A55AE6AF5AB5D152A58C17A546FA034ABEDF898 - 4FABCA56A8A4E0AD0A88EB5B532057BA2A00AB71C56B5C1530D7BDFA15AC7E0D - 6C60BB8AD541BC35AB7C85EB3B1C10A7B63A362A7DADAB5DE1CA57BF4656B282 - 4D6C0AAE4AD9CC06F6B09C9D6B64FBBAD172DAEDB1A89DC9652DBB5ACF6AD6B5 - 9AB52B6C593BD9CEFFBE36050B8040177497DADEBE24B0835040703D3B5CE0CE - 96B8C2DD6B708B7B5CCF5E630101F2AD745712D849CCD6BA82C56E73FDAA5DEE - 6E17B6B88DC51CF637DDF28E44BBD6AD827ABD915CF506D6BD7B55AF7AAD4B5F - 05D437BDF0B5AF7CAB60DF14ECF7BFF98D6B7DDDAB0C41A5CEBC08068902E4AB - 0009C897BE0CB66F5CDD0B60FE4EA20A1290707D1DBC5FFC32B80A9B78701526 - 018AFD4A58C0FA552F6E4541CA04BB982317562F87D5BB894DF897C621966F8D - 2B6C5D07DF57BF33B6B0892791821CD7F8C8FBCDF18825CCE06B20600D607C71 - 8231BC04094C221E55AE423C267161092C81CB5876F0961DEC653267B9CC5416 - F324CCCCE6345319FFCC93087199AF7CE63A93190102E8A394CBDB650C5B99CB - 4BF832A0035D672E1BFAD0184EF4A1C9CCE544FB58029066749F036DE844075A - D28826E7B2F6CC673263D8D097F632A19760E9439BDAD37F6EB48FD7ECE83543 - 5AD1AC16B5A1CD4CEA552F7AA759E2F4746BED6751877AD47506F6A81DDDEB60 - 6318148CA84295234D655E03DBD2C11E760ADE6160F2EAFAB191CEB6B6B30D8A - 6D7BFBDBE00EB7B8C71DE94D50C30173D0F3B51D4B6E486F0214DD6EB7BCE74D - EF6C23C0B4EB462DB819C1EF6D838205F10638A401CE086DF79BDB0497C0C1F9 - 5D706D233BDEDE3EB8C2FF0D7150B80302B1B041BEB11D0F09C483E10507450D - 18EEF19277FCE425FF17793EFADDF17FA3FCE5FC1E79CCBBFD729383DCE42C58 - 39BF5D6E720998DB0179B6F6C641CA0213181DE445AF81D26BC002A59B80E22C - 88FABFA3BEF49147DD04518F3A2300CE7546283DE635C03A0BB62E75809BA0EA - 64A77ACC8D8E75B66F1D140B584346D039F483567DE4780F3B28CEEEF4AF7BDD - 045EFF3ADE035FF5A7F3DDEB8447FCDDF59E77A78B1CED83CFFBD3F18E6B2608 - BDEEEA347AD8CF1EF8AB8B9DED4BA73AE4EF9EF5AC479EE945FF7BE94DEF74A3 - AF3EEB7FE77BD867AFF4432C80B14AF028E66D69827C9C5DF64CFF3DD57B1FFA - A6177FF1AF277DD47D1FF6D71BDFE9F9703EEA7B0F78EADF1D140860EC8177AF - CEA2BB1EF59EF7BEFFF3456F8200645DF3C167BBFAC5FEFAF58BBEF9ECF7BCD1 - CD5FFCF047DDF60EC808F70DBAFE1A987FFD01F07FDE777601E07A01A87E01E0 - 7FFE17800CC8800058740D58809A677EF2377F11A88058677E12C8768780005D - 7035FB874C00E88016D8806C978027B881D110800B18812498822E78829BB77E - E5D7800A1883087808BA65039717827FE4820CD882E5578309788030D8822C08 - 844648844A888417A88450D88287B00A10906753E5839404855AE88263B085C2 - B08560188662D880877008E8A66E58E84701F88563188163D0855B08876D1800 - 72488772F88575388774484EDC9186951400C210888008886F38886FF885C250 - 8888288888F8868EFF38068198888A68875D888876D888957889801889967888 - 86388978F888EE404E1AE7877F148813008991988A9C3801ABA88A89E88AAD38 - 06A9588B13508BB0488BB01888B4C889B9288BC2808B91D88BC3C88ABE588BD1 - 200C17D787A62846A8088CC19801A89801B7F88CB2788BD41888D4888DB7D88D - DCA88DD5188CDC888DC1B88AC03801DB688DD2088EE1188DDD488DD1B0015026 - 029DD08C3ED48DB4788BF9688BDEC88FFBF88FF8D88FFA1890032990005990FC - E88DFBA890043901D140855D1065F6E841DE288EDD288EDBF88E02A9911BC991 - 1B9901B3208DAE28921D898ED5388E1A99911B1992C2E0040EF081573891D4D3 - 8F16598E2AE99125FF999325998E17B991C2A09216A99302B98DB6270A022027 - 32D93D219901D4D894E8C8945009925109952169925069955879954EC9943A90 - 015D09925F599552199556E99562F9945B99954C3901B3E00471C78C49493D5D - F9955339973AA003B3609773B99451D9954130955079978069967B5998814998 - 3AF0975C99977D19957FF99819F097820992ACB0015D304B71493D5E19987729 - 9841D0997A299876C999A0499AA0599A73B999A93999A1D999AAF999931999A7 - 399B9D697B72B756990939B4099A41009B9DD99BBEF998BF199979B99BC6799C - B3099CBE7997BD299BBF199CBDB99BACB000BBD583B989372EE002C0999DDCD9 - 9BDCF99DDDE99DDAFF1904E0999DE4499EE5999EE3899EDFE99DE2999E56D09E - EFA903C4A09EE6E902876099E3759DAB639FFEF99F001AA002AA9EEC39A0E579 - 09D3997131C99F5A139FE0190551909E106AA0DF39A1DC69A1FF09A11A1A050E - FA9D56D0A11DBAA1171AA1EAA9A12E1005F4B00102A00496C0A07A63051BCAA1 - 1FAAA1200AA31EFAA1334AA338AAA3109AA33D5AA3DC89A3420AA31B1A9FF189 - A13A4AA4187AA23BFAA35140852BEAA279C30A2E6005A1F0A34AFAA1D939A337 - DAA4589AA544EAA3321AA4353AA44A8AA5274AA2692AA3675AA15E3AA397E004 - 61B0A2BA27A5FEE204AC400CE0900565500659F0A77FDAA7304A0C7C6A05C4C0 - A17E1AA87DBAA88CFF0AA87C9AA880BAA85140A882EAA896BAA8803A0CC3F0A1 - 967AA990FAA71FDAA88AFAA737B001F9A711764A348E80A73A100AF700A87990 - 073110031E10037F2AABB67A0FB31AABB83AAB8C5A06B69A05B11A039FFAA8C1 - 9A05B31A03BCDAA97DBAABBC9AACD0FAACC9FAA7CADAABD09A05BACAAB797003 - 0B204B6898AAFED201DFB0014E000EA1600D5620ACB8DAA7D24AACCE6AADBF1A - ACC35AACCDFA0BD43AABC310ABCC0AACD53AACD0FAAED78AACCAFAAFB31A0A56 - D0AFB25AAA507605F508AE22E3031DE000E4FA0B79A0AB1E70B1189BB11A9BB1 - 04FBAF18DBB1B45AABD0FAB11DABB123BBB1241BB2282BB2B3AAB10A2B2E75EA - B0AFD207103BAEABFFE0952ABBB23A0BB239CBB12D7BB1270BB4C03AB43DCBB2 - 45ABB32B9BAC1B3B0CACF092BC25B3FD620A28E0031130AE4E400CA170B448BB - B55B4B085CFBB5600BB6CBB0B1E0F00561B05BB809B5AFB20DF5200B7D10011D - B0AAE0000E1E600D84600D757BB71A8BB7176BB78470B780FBB778EBB779EBB5 - 7D9BB17F6BB82BEBB7899BB18C3BB87AEBB87A6BB77C7BB1893BB8184B084D0B - 936A4B2EAE800228D0076F6BB337200D60A00EA7AB0EAA9BB884B0BA7FABBA33 - 3003AAABBAA93BBBB53B03CB90B8EAF0B7B1EBBAACABBBEA10BBBDCBBABD3BBB - 33D0BABBFBBAB3BBBCC94B080CC0BC7FBB0C33500E2E799469DBB9886208DABB - 0D27A00A55BB010BFFC00AD6D0BBCBC0BCE60BBBB24BBBCB50BB6050BEB0BB0C - F7A0BCC19BBEE7BBBCC24BBFE86BBFE90BBCF5AB0EEB7BBEB80B06E0E0046B40 - 028DD0B0D8EB2ADA0B0CAE200BA6F0B66EE0080B400FD6300A8470BA6020BC18 - 8CBA1C8CC1F7DBC1BD7BBAF73BC233B0C1B1BBC11E7CBF265CC21C7CC22DFCC1 - 28DCC1202CBBA7BB0C6D59C0DF9AC086720BAED0C386800227500F2A80058EF0 - 0037700FBBCB000C20BC0C00064D5C0EED0B0650BCC41A0CC5EBCBC4541CBB59 - ACC423D0C44B6CC552ACC4593CBD4E2CC60C3002503C0362CCC4F76BC667ECC5 - 5D5CC625BCBECFABB0E916B33ACC2506700B7B7C0B86500FBCA00A10FB0C1B70 - 03A330022390C1B1FFFB0260700C0CC0C818DCC830DCC4F3ABC66EBCC58ECCC8 - 4BECC499BCC61AECC68EECC496ECC66DECC68C9CC98DBCC4942CC63740C02440 - 8F799CBDAEC0C386E00A866000AEE00B6D10015AB001E1A00E877CC9C23CCC62 - 0C06C12CC6A340CCC39CCC979CCCCC7CC9882CCCCECC00CFACCC878CC6A57A99 - 2113CB76A20A7D6C00E07C0BDBE00BF530C81B90A7A3300A2FC0006C30022FF0 - 02EDECCEEF8CC82FE0CE887CCFF43CCFF58CCFEE7C0EFB0CC9F23CCFF6BCCFFC - 4CCFF28CC8FE1CCF600006FC9CD0F7CC062F700EF80CCFFFFC05FA79BDDC4C24 - E8500FB8CCC706A0BD28E00BB2E0032AF00D10C00AE0200DF03002C7C0C82F70 - 0CF4DCD2880C0602FF3DD1F04CD30CCDCFEFACD0FB8CD33DCDC8057DCF381DCF - F00CD3EE4CD313CD0646CDD2353D024ABDCFC7700C16ADCD789CD127C20DBC50 - 0FC0B0C7E0FCD1DB600A6E5BD28EA0065F100E67ECD42F500CF45C0CFBCCD6F1 - 9CD4690DCF054DD1880CD1751DD788ECD6419DD7748DD66AEDCE6C8DCF10FDD7 - 23A0D7F78CD785FDD2168DC356ED25DAC00DE8C00B7DC0D51F6D08DB8002AAD0 - 06252DB14E500E470DD16C40D3118DD66C50DAF0CC064F60DAA00D064F70D3A9 - 1DDAAB5DDAE70006107D0EA87DD3A08DDA6C60DBAD0DDB11ADDBB35DDBAA4DDB - BFDDDBAC5DDAC70DDBBBADD4168D059657D58D3D1EBAA0074510D993EDD15CBD - 0D6E5BB304E004E1FF000FA440DABAEDCE105D00A66DDE0510D12F80DE6C90DE - A5EDDEE7DDDEF2CDDEB95DDEF3ADDAA57DDFECEDDEA7FDDEF80DDF003EDFAD8C - 05E916DD5BA20BDA500403C00428700BF380CB5E0DBA6D40B56EB00185AC0E75 - 8DDA4F500023D0DB05F004B4FD0422FECFA92DE2BE5DDA208EE2ED2DE22C9EE2 - A81DE21B8EE2C90DE326BEE2235EE26090DEAD5DE2AF1DE32F5EE28A7DD1065E - 24D3ADE0BC000CD86DCB86D007A10BC145FC05D2400AED5D0054CEE255DEE2A9 - 6DDE586EE247B0E553BEE5C560E356FEE11A9EDA5DCEE2F33DE6562EE561BEE5 - 577E04BA6DE2ADBC069839E429D247A7A00D03800E28B0D5958DCB6CAB0AAAA0 - 021D40C85F000FE7FF40E557BEE105500C1FBEE5901EE98AEEE5BCDDE28B1EE9 - B62DE68AEEE83ABEDB2CEEE88C1EE9223EE7756EE708D2531D710A46AED55D0D - CEAEF0D1A04BB5847C0399A0E8B67EEBB89EEBBABEEB9920E2BBBEEB58AEEBC1 - FEEBB7FE04C7100E4E1091FB62EA073228BBA3EA7BAE0A86300F1E5DCB06600A - 224DB5BDFC052320E5B57EEB472003325000475000E25EEE8A2EEEEA5EEEE53E - EEB81EEEDF4EEEE26EEBEA7EEEE47EEFB79E09992003E88EEBF34EE5ECBEEBE5 - 9ECD4CD0A2CC5E2016701A221024790ED9B2E00A0FCEC31FDD070EDCE062CD0C - E09DE8FEEEEEE6CEF1545EEF1CFFEFFE1EEF1D4FEFF54EECFAEEF1B72EF2C4BE - E95F40C0E986C007FFFF1D4A711ABA5328D30DD927B00DB7D00610DE0786000C - A6500F27E003E34AD6C7A0EFFB0EF24CDFF44D9FEE4E1FF552AFEF50CFEF549E - F2275F00582FF5EEFE04D95CEA33CF1CA8A0141630282692F303500FB7800C7C - FCEAAF7ED927D0072AE006CFE0045F500C99700699800979BFF798F0F7800FF8 - 4E0FF800FFF7E2FEF77A7F06816FF820BFF87C4FF587FFF78A9EF78C3FEE47A0 - F78E5FF97F8FEE47D0DCCF1DF6CC9114648F061289070AAE0AB3DCD5D87DD914 - 5FB504A0068190F43280F9992FF8F5CEF78A8FF87ECFF780BFF7BB1FF87D1FF9 - B52FFC7DCFFBE13EFBBE9FFBB50FFC8ADFF996C904390CFAB911117181259902 - 009D700ADC3000BCFFB00DD47E0BD80D0CC0A0DD355BC4CC500CFF7006CABFFC - ECDFFEEEFFFEF01FFF8E9F06533D077A20FDC9111110E123A701108DE4740290 - 481B375E288019B8C5D0D0C33EA664B58980E5D90666F0FE9D01820908478F67 - 308D2439B2E3C7932051864CD932A44995314BBAEC089366CC964056FAF9B2A1 - 0B932B00840E255AD4E851A449952E65DAD4E953A851A54EA55AD5EA55AC4C5F - 6D7D95AA42855716308811114CA8B601BC78C97285ACA12B03AEB6995225CB47 - 042D1BBE043AA25327479D2501EBB4F597B0DFC2218084183C1848E19A8625AF - C474A6B0ADC68B15FB05BC19F167943ABF385933276856D4A955AF66DDDAF56B - D84F2B78A53DFB95FFA7B17284EA3A981685AB5BAE0CC13530DCD0B6BBDF1C39 - 61E6C723689C80311FFE08F98CE7D0D3634E7F6C38A448C2D2FD32AE8E98A365 - E82919170BE4040B133DB462CFA75FDFFE7DFCF90178FDDA7F362ADCC418400F - A1F0408B17530C3180A1051704C6141428B2E31935C2F9E71F5B420821C3C534 - DB50C30F35CC504410470CF14413432087440DAFD3B04314415471C6126B6411 - 440F350CE4813548D04D3F208314724822639BEDC80AF8F88A8FDB2CC0478C2B - E403408F01D0A9AB41B886DB06857A0C51A1030A2DECEEC3F33ECCF04C33D344 - 73CD34AF0382071233BCEECC8FD43413CE157960734FC5FAE490BC40D4E85104 - 3C8A34F450441345FFB4B6FEE2E82F15043C799250A14EE166801364C1B24160 - 7C39A18F36C074221045FEE9E7461353B5314654655C911C555B95F5555951A4 - B54FCD6C39468D3A0410E1148214157658628BC5CA3F24914CC59300AF2874CA - 4B4F3024B8E1B29C0B055023B0E381632E4C53C6174F05574634E31CF7DC1B65 - CC115D76DB6D11DC5D1D20815263EBB5F7DE7B91D5B7BF571070B291D34E2902 - 53141A9AA7C186E2AA47151528F8809934CEE8C71672E03CD7627429EE07E313 - DDDD906310416EB762912F1E97A75E9538055F965B7659487D05E143107D11F0 - 171F801329E8406090F121E1E25C71C597892270C39107020162621E7838F5E9 - A69D0E21EA109EAEFFBAE97E368E5A6AADB78EFA54ACA76EFA6A38ADA61A6CAF - CBFEBA6AB1D31E1B1E351CF035D897EBB6FBEED41AFD4A90381CADC05147F960 - 5294B11AB144284B106AABC1060D890818BB3A403A90346C89DA1FB7316F5A73 - 1E38E77CEBCF33BF7CF4CD49EFDC6DD443479D9C5D533E1C6FD863977DA9FEF8 - EEDBF63870AF4066002D4003A84A11F2058569DB882B2EB94E60A28F08280843 - 8D40AEDEB86B459CE6A1FAE9ADCFBEFAA6B1BF3E6AEEBFDFD87BEFB3DF5EFBAF - D3EF1E7DACC14F3F8D5AE456E2D9D9EBB71FEFDD6DDFA1EF38F6EFDB7FBEC92C - 524F0A5811D09110E21C0F2EAE00461F92E3880F0482643C986005A366C1A661 - 908217E460063BB8FF410F86108423D460093F48893008400972D0D9FD5CF842 - 7BF1EF7680E3DBDF6A98BBC0310B03681081503A41255ED4A360B7A0D643E632 - 1115B8210C0FF8821FBAA63528A00E8A518B62D3AAD83E1E40E18956A4E2D6A6 - C8453066B18B56ECDA18B358461EF8216E5DB001FD60F846381A4A8633A4230E - E9C8A49B89808500E8CD097A06B4E1A040900EEC801608A086CA95E27451BCE2 - 1531C7483142D29162F45C242D593A495A329399E4DC264FC74528F881121BC0 - 821806124754A6323F73FC5B2B01E74A58C6810F37234BA17431B0B5004341C4 - 71451FB6B1308A48CE0969F8A218C3D8C84B1A737A903C663291D94C68F6A393 - 9A34663551F89E3DFFAA529BDB6C4D1C5AC0BF1608429CDF1CE71CFBF64D5936 - 490C8DD80D2E55018C043E0418DBF005A8BE44802FF8C31650E06716F9090567 - F0E39FFF7406144A015081FEF3A0504868410FEAD08102D4A0FC6CE840FD59D0 - 813E74A2FCD4E84213CA518932320469D8C03AE6F0236EA654A5553127CD6CB7 - BBBED9D09C7DEBDD3AF1A00BDE70031D7E6C03B58413972DA9C2071D3824C4FC - C18F823A43A9FD8C6252258A513142B5A94FA5AA5393CA8380F213AA56AD6A48 - B1DA556744B5AAE40828494B2302BAAD54AD6B4D0A3ABDE9D616A033AEE0742B - FFF8B0084FF8CE943A13183A7CC1908624CC10F3EC431FBEF40C0230A318477D - E852B9AA54C83ED5FFB100856C652D3B59AB2EB5B1977D2C65935A59CF8616AA - A3ACC3BCA4C456D4A636AEAB656D6B5DFBDA16F021AF93D205006861C013B8A2 - A744844B1F86D3877AC8420576C0C831184B56A59243AB17606E73934BD97468 - 351DCDBD00642F8004E696E20200552E14980BD9EE7E57A9D4EDAE33CA5BDDF1 - 7E57B9CFF52E75B7AB08D2CEA187A9A5EF5A5F9B83D7EE40BFB06D410EF40B20 - 0CF8400996D0854130352D642C8838B700C609D0215C373C83398A80022EAE3B - 51675C001748C06E7321B161244062BBE90D312EACCBE10F5717C3E275C64359 - 0CE20B7494B21EDEF076B55BDD877EB8C3CCC56E0F78458222B4B0BE43D6A67E - 8DBC5FD71E59C947FF5EED0E5071B346888016BC1940977A2A1C2C17A73886A0 - C83712AB0867C8E3C6D4153373CB7C81339379CCD45DB37BDD9B5E35BB39CE68 - 6E6E9AEB9CE1EBDEB8071B28AD9489FC6754F657D0F8F5EF0E5A4B68411B79D0 - FDDD81329E2C16B2542A2DDB30805B80B6A03EF8C217123A242514518A1BCB83 - CEF240B1A8E5A163EC9A7AD41AC62E2490200F53971AD6293EF58655DD6A0E8F - 1AD5D75D35AC538D6652939AB93AAEAE107E5C0440271B868636346B91CC5F45 - B7D6C8A968120F83724B4C6D83889706060A8667D80E50002369E0873F9A7B63 - 2494A2C3EAE6F5BACF8DDD74C33BD4EC468233D62D6F37A7FBDD793EF7BEF5DD - EE3CE39B1C3E2EADFF124EAB6C84C38ED1882EF4A219DE024533DCC8FE5D042D - 7F35A5B4FC15610A76050AB66197E611E00FE40678ADDB8DE257A79CCEAF8604 - AA833D84535FF7D4B9E670885F2DEA56A738E528B630BC65FE6A98A73CD8250E - 31AB43ECE314CE2FE14BBF5B0E9CEE70A8337C110FA77A0B2A0E811D9EE620BC - 782743B214B42D45485BCF4B03128830849AFB1CEDF1E6F510AE1B66522361ED - 6DBF0024E2EE769F8B39E8D7957B87E1DDF7B9FBDCE77647FBDCF15E779A5FA0 - 075F483AD31DEFB21C28C3E94F9F7C7F293F79CC575EF3945746091CED3B81E0 - E11468F99482DEC2A98EB72189109420AB832E8F21E002E6AF4782EC612D0F22 - C0DEF63B7F7DEC85FF0E745B035DEE4387BDDC774FFCDFEB7EF6B69EFDD0435C - 8B14B6F1F1D3AF17A1735082EB675EFBDBE7FEE4B1EF687F6140BE7C4D8B2AFA - 40C4E30D761B85F50132C2CD4445900317B810B1D98770FF21E41ED6F7873511 - CE8EFF59BB80FCF33F0204B6DCB33F983BB5FBF33F03FCBFFC633960AB3FDC23 - 40FC5BC0FF3340DC1B82C57B002C903EEAFB4045E9BCEBEBBC12C0BEEECB3EED - C33E132441CF2B4165588477C8AB753A9C8340877A589CE0D832A13185130815 - 43528337903F5CA040FCF3BF0A1C40073C4224A440D823C0FF833DD81BC02274 - 4023544227ACC2293C420A6C394550830E7423100C432151C1EC33C113DC8113 - 743A3224431CC0AFFFD932A5534884813185B7180EE3890B53E0851E8C003021 - 004A480727AC402CB4C024D4C22B14B640B4422A5C44255CC241944241C44222 - 48031E99033014434CBC8F122C011C28C1EBDBC44E2CC1507441CF1BC516E444 - 5024C5CE7BC148198B5FD1039D92085D3A1EC6692003B80B0A780021E881FCB3 - C2214802470C44603CBB2B4CC2451CC65FECC56124026444460B44460A6C4665 - 84C4C24B0341F1C04CCCC6FA38456E64416F5C43520C471514C755AC38DCE0A1 - 42814574308579E8A9A0318036300414A00B5C24800F48835298BFFF2B467EEC - C740F44780DCC7801C487E94422240024AFC8983D346866C0D54EC44887C4889 - 1CC588AC488914C5FF892CC14713001B908360E82B4D39BD0509248950BD0843 - A47C4C028224C85F5CC9626C499774497358C221B0C63560024B10B286DC49D4 - D8449FCCC888F449534CC59F244A50AC384893323DC0A56D501005033B143801 - A17A3F6648075C80057388C97E9CC981348721BCC22408CB62FC4A0AE44A22C8 - 4AB4ECC75EBC424AC4269DE449B8A48AA29C4BBAAC4BBB9C4B1C58842713051E - B284D1C31460B805B7502003789089B80B3B482C22C0050E60C621C84A6054C9 - B34B027398499584CCB3CCCCC86446CD6CC9CAFCCC96BCCCCA4C46B4AC4CCEDC - CCCDAC4C9544CDD0244D228084B62481D7894BDA948ABBBC4DDCCC4D1C4000BE - 240B3DE8AB7AA034FF06F9A991340412B82788014473E806CA7C4C661C4DD574 - 4EB4C405B47C4CEBACCE99FC4CD5CC4EE91CCDB0D44EEE0CCFC784CEEB2C4FCB - 94CC21A0041E210102A94DF7748ADC8C4FF92CCAABB30001688442C125146088 - 041B49E1E836E6399A0760064548826E60CEEFE4000E08CB245050067D500865 - 50D58CD006E50073480258A04CF054D005CDD009FDCE0F055108FD4C06B5D0B0 - 84CD5A28ADF67C4F16458AF97CD1F9548659FA1739B8821AAC876DF3BA919485 - E141CC0DA8853480045858500E18520435D005A5500A0DD107E5806E28520C2D - D2CF3452281DD20C2DD1271DD10B7D501235D06ED852604C875A58071F79CB16 - 6D51184D53DC8C84FF48C081188C0534B0013DB8251B4C205A8C085FA807C352 - 0E35F8C364E8050E4DD2063D5225E552308550053DD227FD4C0E555441AD5042 - D5502D0553130DCB278504E85381F93A534E05C536C5011CF8D45045C536FDC9 - 500555501CD54EFCD4871C55BC045565F017345099A53CA06DC032A1A996B868 - A0A1D28201E5C50A35874065D0214D06134D06EDB4504065540BAD4C0E7DD064 - 084B0795D64015D46A1554676D56099D5063D54E48108230F0114EE5541C4880 - 724D80048884746D077445D7736D875335D7744DD7369D577745577695D77635 - D77A3DD57C4D805CB819749003BF4488A61CCEB850BF4DFB120A382472808527 - BD8340BD50739058FF0BBD830BE5008CAD500EB5588D25D26B0DD98E0D598FF5 - D84035D989A54C8CE55022B8A64D1D57F704D57A55D75C00587905D572CD0551 - 05D579C5599BF5D99AE5D99BFD547505D5A04DD74580807324144BD92959303D - E13022149085C2FA124750831E10D26A15560B15D96B0554AF0D5BB11D5BB2BD - D66F4D2139D083B482599E4457757DDB795557B76D57B95D57B885DBB9CDDB7D - 8DDBBD4D807FCD0500438346288222B8145EF82BA0C992A139817AB0DA077803 - 48385091055B0EA55C05ED05CCF55ACADDDCCA0D59CEBDDCB2AD56CB1D0270E5 - 486D605BDAB4D9BADD579ADDDBBA6D5DD6B5D9BE9D5B365D5DBADDD71280947F - 11013DD8BA85309EFF2C3B0E59785A15D01602E80188ED06B0C55CE66DDEE6AD - DCCC0DD4E8E580E9ADDEE7855EE7C55ECBFDDAEBBDDC7D48512C3038D4854BDA - 9D5DDBC5DB743D80BE45DFD8AD5DDBE5DB763D805C5800C2895339D00603E205 - 57988784218E79701C6010AA5CEC81ACED865DA001E74D60EBA55C89B55EE8D5 - 5ECB5560ED0DDBECBD5CCCFDDE30E8C0D91C5F6D9C5D0FF6E0F7FDE0F5655311 - DE5B65884151C0071BD006033B8179408604330EE1D8866D5005D5A300A4A184 - C8DD05E5C55C1AF861204EE01F166204F6E122EE852136E220665E206E620E6D - 62056662283662CCED816BC2460ECEC412F660F5DD62BFF5622F56DF76C8056A - 00107C90AFDE9D34FFF4631C8525A46DF943586862399E633AAE633BBEE33996 - E22446623C9663E63D5B6CCAE26C44D72E0EE3761D847F9DDD42E6E2441661F5 - 3D807618840AC00D1258213AD5B6C12CCEE43981E324AA07F0821EA0816EE863 - 522E6553F663252E65264E06217880756002941264103C005AA6E541B8E5423E - 8041A8655A3EE441885F5B26E45E16E67DBDE55DE6E54236665D3E665B9E5F51 - 30DDA65D881C649C5D85C7C3FAE47D38656DDE666E36E524E8010E6482D395E5 - 594666733E67744E6775E665665E675E2E017FE98239E0865350473ABC857694 - 61B998DA7AAC857418E51FDE823BDE058116E83BDE8203B663840E682046E884 - 4EE8839663842EE8FF8626E83B68E557DE607276BC5A4E8175F6E87676E75ADE - 658F46E79016695A2E8177E0CD595D4ADC3A3F6458A0E280A7E1F581D5FB0021 - 48061AD80582DE8289F6E99EF669A10E6AA21E6AA306EAA3FEE91F286AA14EEA - A666EA9F9E681AE8810F28B84BDC68654369ADDEEA745666941E04599D031BE0 - 86C24587DFD0D506F136AA65589C4E0603DE851F68EA2D58EAA68E6BB9BE6BBC - CEEBA58E6BBECE6BA1DEEBA0F66B9FA66B9FA6817DA86A8EC483B5C56A4043E6 - 141884C72E695B966C5E7EEC5B8E6CC8CE6CC97EECCA866C73CEECCBF66A5D8E - EC666E451F90D35398345DB25303D886796A835071983448021A88EB6C18EC1F - F80133986BDD3683FFDCC606DECEEDB8066E6C106EE0CEED2608EEDC3603E6F6 - EDDFDE82E4766EE1EE6DE6FEEBE9BE6EDD9E6EE64E06E85321C65E3A6436665C - 1EE993166FF3366FF266E7F156EFF36666D1BEE56B5869FB5C613988966DE05F - 9F1AC93C5485E679805AC8699EDEEDBE1EEC2D10F0DC9E6B04BFEEE04670028F - 6BDF16F0056F7004DF6DDF96F0BEEE6BE7E6EDDDBE03E89B97C5FEEEFAD2EC41 - F006122771F3F606D0CEEC125F711437E6163766CC2E71F3B6EC1167F1C82EF1 - 9126F16B6801DEFC092548E3BF1ACCAFEB36A2192A0115021AA8865D906EEC5E - 6E26CF6D2A606EE196F226A76EED7EF22B9F722CBF6E2AB7F2C3D6022003F164 - 63713237F11A7FF1FF324FF31657F3173F733697F15B5EF1413861C2110325C0 - 5F8460C7DD4A98799A0B1B8E8067D0C57408F01FA0822AEF7228EF6D2DAF722B - 77F22D77F245677445777433B8837DF8313F13F3217B7333877337E7F4385773 - F1E6743977F31438F541A0060848612610811ADC064BA36603F005B590100892 - 845E3083283FF427D7F52E47742EFF7560CF7248977461A7720CAEE40FD7F495 - 5200676771678FF6349776127FF66AA7766F70F6534F8168B77612DFF66DEF76 - 052873715FF1804D61B2285C5E681CE2E43843F081A17218494886E68E7449C7 - EE7ABF777DDF7747BF77C3C67466A7AF331F8471AF768277F36827783917F783 - 578086177788C7F6FF84777805387513A7786727F8673FF56B4000088805154A - 5B9DBA6F4B93691AE6673079987DD8856AA80643078428676E43176E2AA8799B - B7F942B77998A7F9979FEE9AFF01987FF99B77F9490F7AA0FF79A34FFA983783 - 5DF872D90C78D462F1814771687778AA5FF16E1F71ADA7FA88EFFA12CF78AEB7 - 781347F167D7F8AF8FEF7748E18E5CCA01F005E078FBA8A561AAA588A3C15A7A - E779A3F7799DFFF99A877940D8F9449F799A2F74C23774C3A702403870DF36FC - C26F7CA13F7CA33FEC3A68F58584FA6DAA716E2FF86CEFFA8CD77CB2EFF6CDA7 - 788DE77CD0F7066E6F7882DF7614AF82AC97F88C4FFB2E400374206B8291E691 - 0C1A53A8273EBCF5FF7DC86DBFAF06BF477CC4077EE20F7E40287EE137FEE45F - 7EE307FEBFA78226387AE59F7EE04FFEE2FF812F572133B5FC54E2FC6CAF02D6 - 7778F0277D6707FFF087F8F117F7F4277FF55F7FF38FF804A00604901B1B4804 - 5A4088FDAC43050106C80108147DDA4470F480520F6C54AA5101F483CAC38880 - 1A52816831E2C58C0F294ED4E8F1C744871F358694D8F0C7BE0FCF48C801E0F2 - 25CC983267D2AC69F326CE9C3A77F2ECE9F327D0A03E1510AD6294A882490A8C - 5699C41429D4A84637452D7A546A15A49B4065AD8AB5EBD2AB51376DAA420D02 - 3E26458A7043C7CB95815B060CC09D0B6CDB098214087C1072C74CC38E202B56 - 0354783044C18A2BFF0E36EC183164C5850B335E9C98B0E1C4930DDFA9158644 - 11A1A247932E6DFA34EAD43A958665EADAA8842A1290B26E9D14A90477466B67 - 7D4AD4E95309658F027FADF43572DAB2155C430021160925DAB4B575E5EA569B - B97481A1F0250B590437CF0E26DB129263E08E142D6EA9A8FE7DC5F8F0E36F3C - AF3EBDFD88520085E4DF11103629D5C1444BAA19782082092AB8204DB22D811C - 535B2D119B044E39352153B165E59404135AD89471143E384987116AB8DB8927 - 1AC5D5860E8A98550ACDC522800DDC1431003ABEB8828C5C7019F2A329F5F4E1 - 4307143CE00517BD9861866385F9D74443D5403965945352D6C495555281E544 - 4DF807C87E9B3501FFE5975C4AE99F1467FA17A54302CE5144220CCA39279D75 - DAE91285109A285B15544D42E26BB32995E79F1B16071C859BE4B99BA2530DC7 - A76BF90CC7219F142635493C912060411773D820475BA65C678021AEFC78CB36 - F5F0A20A416E10F08024BD54538D14B5A6B7A5AD63EA9A2B15526C491194EEC9 - 271F7FB68624C5945F72E42598FCE147E6AFFBA831A008775A7B2DB6D9EE5429 - B7896E82E99F80E6392E9F7FC6D32DBA159E3B2EA67CC65328B9C295A5AEB8E5 - FEA9E8350B38100B1A4A8830002FA6A04017C1DA6D270B918E7CB00F48B5D68A - A6C311473CE5C3C53A4CE59712FFDA04AF54522931B2B8D6EA71800FACC392B6 - 29ABBC729DE37E1BFF6E9E4BC82CF3BD7FC6DB54874B501A5BB8F63EC873B893 - CC3CB4CE94FE49F3D145077DB470F1B4F3CE7368D820C25AE86C330F8FA41A32 - 9721B29CA08A0A1D18244432B3D23AB1AEBA5663C4AEC88E3932C7308CB905C7 - 15C1DD76DA7973ECB6DE7DA70D03369284B18E0D78B07C38E28993E66215EF86 - 8B61CE339B0B2FE4134A90338990C3ECA1D0145E5EA1D04423DD21E8484BBE74 - D21280328937B920E0800068D8D8962F73C9A575A9BE08E443047638E245323F - 9811B1DC63B2FDB6119ABCCD370C6E37AF2B984D682245F178FBBD77DAC737A1 - 7DDFD4076EB25A712A3E3EF9E5CB34EEE7A4F329FAE532DFDCBECCB2353AF3FA - F17B1EB9E8F4C7C6FF3EFC33C32FA286A086010130C1463812D5EDB8F623147C - CD07AEF282249A4137EAF14D7A63AA46F59E273D18148F7A166C9E118CD03CE5 - EDAA7A6322E1DB4C983DEDA1507923BC83240880050299AF8636445CFA72A8C3 - 1DF2B0873EFC2110830844B32C00025DB0811EA8C38B79C4652E70810B3082D4 - 071588E74877389B0BA5A03CB66DD1835CE4A005B9B8BD0D364F6E623C6318D3 - B8C53472906D6D949E075D18B80D10CE1237BC231EAD25C43DF2B18F7EFC633C - AE210A0C88610022E006C0B621975B58676BAED8862CFA4082DE118019924846 - 13B650C6BE69704C60BC1E073B79BD51E6ED93D43B5E2739F83D2C142E8FAE7C - 6582FE28CB59D2B2FF8F2CF0C6594421007468430FDC780B8F126808EE6C0318 - BC73D591F6E1491884D00880588111A0D9CCEDB531846FD4441BD7B8C5668670 - 9B22646633C1E846667E109CDFACE6F6EEC0850760A15AB07C273C49934346D0 - 939EE9B3A704EAA9CF7D32E29EF3D4E73D019A4F7C7E8EA004BD1C3F135A507E - 4A2005EE40802E9970488099A254D861A4A95C210B534CB10376200092B6E0C5 - 1002C299DC5C6638E5E642726E8F84DC7CA935CDF9CD945A306E2945E798B0F1 - 8630084004B488275083BA937FD633A0084D68426B70D0811675A14D6DEA42A3 - 1A50A44235A12C60013DA136232628A12D27D8860190C1B5B9F4C117F5401815 - 09F00749DCA109E0FF2CE9334F3A3D7372708BD50CE11861FAD2BBCE34A66BBC - 6B28C119469DB2D39D423D2C626152CF78309505A0D0A76325108F7A82C2B196 - AD2C662FBB58D55D56B292ED2C632BDB4FC63296114AA5670D40E1D9D05AD6B4 - 8CB86C64599BD9D9E6831A0B58033E6AD4165EC8A2898D7C22A9BEE30685BD21 - 19A7DC2B5FFB8A8D153C131B814D29379F1B5DBA9A93B92BC00674F51A426CF4 - 200C73B06362C32BD4D79217AB2CA8017AD17BDEF492D704E97DAF09E2FBDEF9 - D6E0AAEB55EA7A4D7B5FF49277BEAFE52F7D035C0313B0C004FD15F080B1EA8E - 0588A20B6840075B06E08B79DCAE2EDB111215C723042CB9D59C748081349BB9 - 8215C04013308566FF8845C8B6E49158A6227E2989B54B074D6CD39B24F5421D - 48A007F1F2189EF8752D56D9ABD42197F7BDA64DAF094041E425BF1614061EB2 - 92511B64D7FE98C9EAA5328253EBDE201B39C0F4CC57D4D482C87AF8626B8C24 - D5235110C963C2EA0774AB66284F8C4DBDA658C5CAC36672A3095371EE59A578 - 35F14BEF80E339D0A2133D3E341EB37CE400CB77C04376B47B874CE0231BB8C0 - 8F5E7297912CDF48A3D7BD8B46707C398DE44BD3F710B914002FBA4AD1EB9CB9 - 2EDD31AB0AECF0803770E10ECCBC350CE8D0CC0F43B3C4271E7174675CE20F33 - 13D8211C71AE6F1AECBA963894780E742D5879054453BB862CC8877B096CDFF7 - 5E35BDDD56EF7EC1FFED6DCCD637DBE0FE74A7B1CD6DFB5E55DD49B6ECB7D5CD - EE6D7B3BDCF5BDF696F3710DA8E1630E5453C20976D4864692751BDDE9A84124 - A1C9BACE14C58046B19E59ACE71243BCC5209E73AFDB58713D6FBCE3D10C258A - 25F1001A55BBE4E32B707CE7BDEE7A83DBDEDF2EB77CAF4A6071CF97C0DAAE37 - BB438D726DAF57E7F3DEEFCBEBADF30098200067818E0D06A00474041C6B3DD2 - CE23F3120123D11ABBC70631B0291E4D60AF00E323C626D791AD01126B62C424 - E6F5D6511C76B5B33DEDB9063627441E012588CFE4764F19A70B1C809D879AE8 - F1DDFBDF59E0F75013BEF03E37BCB60B0F78C317D8BE860F400DF62EF394DB5C - F191A737E26B908FFF05DCB65345D006C06E810CB196EA4786D8867754109EB1 - 714C8424EEB8D93D5ED7B24793C6B4973DD6BB5EECE4959DEB1F2F76EC915D08 - CF90C0A7773F3EB6141F80C1177DF9D158FEE0973F60133C9FF97F773EE197DF - 77ED17BDFA018846A8BD5FFDE6639FC0DCCFFEF99D0FFDC18BFFFC8C7007351C - D0A901ECD614C03018D750A07F031049D66CA526AFAD5DECA51DB2CD58EFF15E - EF059FD9694200D2D8021EA0D91941002A201DACC01E105F68209F06D649F615 - 9D07FE9D07125DF4A51FE289A0E29D20089A60079A200B0E9DF591DF0A9220F4 - 151DCA415F0D9C1A0970830EBEC5225987A9185C3D9C0009A4D507704121B458 - DA1120EC91DDEDD9FF9E02C61E9E7DDDB1755D02725CEE29602875468E15C806 - 76A182AC1F187ADFFAB51F1896A1199E211A429F18A6211BB6A1FAB9610008C3 - 3518112FE8E0009802583951C118C0361802EF884D11DE81065CE1133EA11316 - 62F039E0D72520222E62238ED81E7CC03A1088A179A125AA061C66221A8E8126 - 76A227B62127BAA130D44011C5820FA8C58DF02013950A5D3C1230201CAC2CDC - EB3DE2236AC2275CE127E4222D6683266483021E221542E12AD9C0B45DA2319A - C627A6A13098E1322EE3FA35231B3A63324EA3342A23E4D996FCD90075B8451F - E0DF8FDC8540DC42048C075B91D8D8D16223DA62059A5D2E7E022DDA22232E62 - 022AE22216021CB0FF131380D731EE6350ACDF1884A226FEA33F026400086419 - 0A433532A3191AE434A2E132FE234412E4414A1F350C12133041D2E54837FAA0 - 13A1DE09F4C1D481141764433670103A16A22EC65E3BEE622FFE223DD2633016 - C24EB5133FD6E44F44E418648030E0244F22244242A44E42E4044CC04EFEE304 - 64C03FFEE43F660051FA244F26A5531A25513E255416255556A54FFAE4501EE5 - 50F6A45216650DAC0204AC01012192D5C4852369C736080C32A49517C8433668 - C03A16A25CAEC05C065F5DD2415DC6DE5CEAE55DDA655ECA653B56A05F02E65D - 0ADA4AD042DDD92463DA44446EE55562A5504E80508E01654A256662E6505A25 - 4E0A03641AE51870FF66672A6564FE64536AA56576254F52E66586A6670A8358 - 8A42BFA91A30654746B5A22AF0C22D0C575F34038811A2D90DE220D2250C0867 - 710667EE15E7719A9D721A673B3627749E2327AC4033D4C2246A436366674D6C - 25530E657772A57772A77886E7568A273DE4E47882A77A7E277BA6677B966778 - 9E275292E77AA667797EE77D72A709AC421175812AD8A12F8C9E1E920A776098 - 1B188917D81A88E9E5D855C22754825D3EE82730E80A382884EAA5856AC0D851 - 28876A28606EA8877628888E2860AE00177C00160C8076AE684CB0267CB2A665 - C6288CCEA88C76A58BDEA88CE6287CEA686A42268DCEA88DEAE88BF2E88BFE68 - 90CE68341C427F92FF40D2D90099C1C5EDF4C130ADA52CB40A48ED81820AE727 - 4CC3270C22974E43715682066C69971627996A809886A970A6299AAEA99BAA29 - 9CB6699C560227AC930070218B6AA77AE6277DBEE79EDA2757FA6977CE82A016 - 69A1F62977E227A2BE28536600A1BAE756060165DA962ECD4157E50885DDC28F - D4055E9C5578F0051CDC815FA2E9830AA6831226A98A69055AA861B66A61BE6A - 60A2AAACBA6AAC0AC167144125E66963326A79BE66777A669112A5B01A6AB002 - 6BB02A2AAF06EBB02EEA78FAAAB2C2A7B1DA6734AC822ED9005B040CD76494E9 - 994A1BF0CE7884EA20D2C134544225D0C184DA65AE4DE8719AEB86C200B98EA9 - B9C62BBAC6EBBAA6FFEB87C1EBB896EB838AE9348C9D068CAB5D4E0317A8C124 - EAA3AEDA24A1CE8277266CA38AA74E1265C3466CA006EAA30AAB3038EAC31E65 - 06482CC63E2AC73AEBC35E6CA06EEC51326CC9462CC9E667C75AECC636AAC71E - A59246CD00E84111588DD315CC30F5812A10C978D0DAD995AB5C6AA85C022D1D - 10AD5CD2815F96ABD232A8D0162DD23A6DB922EDD2326DD14E2DD4D24121AC13 - 4D1E2C63A26CA366800EA46CCAD627A2B6ECC48667C36A2CA4A62DD9B6EDD74A - 6CD9922CDBC2ADDAD667061C423E20C037E4A02FE508706DCD3075C777509123 - AC554922ADBF6AA8D4A26925F4EB0A1CAD5EE66BE3BEABD0FEEBA9566DD492EB - B822AEE2EE6BE34AFF6DBE6A0027BCC14AE8C16272AD3182ADEA6E6CD8826DEB - B62CECC6AEECC66ED8BE2EEBAEEEECC2AEEDE62EEFE6EEEEFA2EEED62EEEEA2E - EE06C12C040152EACB2ED1A629E01F5DA00047B501E1FE8111C2402B046DE726 - EDA83EEDD05E6DE576AFD43A6DF8466DD35EEDF832E8059E8C1C9C2EEA7AA10E - BC2FFCC66FD80681FCD6AFFDDEEFFB6600FDE22FFFE22FF2EE6FFFDAAFFE0630 - 01F7EF0444C35974011368C3B5DE9F1EFEC8364012C288CD5A7142E4226EE86A - 68BFF62BBF0A6DBF56EE067FAF0673EEBB7EF0BF9EB009A7F0D0BEC103748112 - 184EFB1A63FFBA80EB167000D3B00D177006E0700EC32F0FF7700E0781108F43 - 346C4017F002FDB5FF453D34D1801A0099B5016FBEC11E64C3D32E6DE58A69F7 - 6A28167FEF165FF1D16A71D18A709B6AB1D06231D2EE811738420EC6B0311AAF - 101B2FFC1EAF10CBB11BBFF11BD3B11DD3311EDB311FC32F1FFFB11EBF71FCE6 - F11DDFF1FBF2712003F21FD731001F3200CFB1108F4129D2C87460EA2D2410A9 - 98822C18023214C90330C34832AD079FB006A330068FB20AA732298F3208A3B2 - D072823E808FC1B2B10606C125BCF12D0B712EDBF225DC722EBB800BE0F21BBB - 402EEFF22E07B3102333302F333127B32E03B32EE3722FDBF2302373314F332F - 5F023447333707C13253F33747732F1BF338DF3230E7B20ECC027F92A5B57A15 - 5861F22BA68A2CF4FFCE037C001C1402F75EEF18EFB3AA86B11897B118773140 - 93B1086F719DB29312D0B217163224373436277330EF3131273223E331339FB3 - 1E6BB30B04F23817323067742FCB712F2333451F6F387B3334D331368B34366F - F32C8CC33804C1E6C91F4622122FE4219AB5E209F0423D50D15EBC013E336D08 - 8FF0069F7229ABF251FFAB289B70292775E58E2E4F89C02C2BB4C95DB4555F35 - 5667B5565B35315881156C355887B5588F35595FF42C38811159AA57D91FC158 - D85D00830AA88091DC730368C0F5DEF5F75E6F034C035EEB3516EFB507D7752B - 60B13E6B705DFFEB6157C25D13B65D6BE81EFC418E191655DBDD324781655BB6 - 5733F3654781557FFFF5575F35672FB3578FF66647C167BB00669FB60B58C166 - 577668A336677BF66BAFF668BBF668B3F665AF363097B66503B36A9B3669A7B6 - 7063B665B38258AE81D424D1009C00D6B4C1EDB441D7780748EEC51FC04125E4 - 9A8622C22A37350A7F6F08ABF2770BAD7687B77627F53470C23DCEDD641F9F6B - 5F7666F7766B5FB415743568BFF66D7B756967366CEBB70B74757CC3B66BD336 - 6B33F36DDB7670F7F67BF3B66F9F3670E3F7703BB869733631D0032B28EFA720 - D209D8CEED18421F08CCC010EE0748425CEAB5060876639B785D9B3889374025 - A47889BFB88BC7388CCFB88CD775DC8D1CAEAEB7C9F1B670C3B48257B6154003 - 3484F68F0BF8810FFF776A13F87F03386A2FF880EF776DEF7683E3F6650B398F - BB37348C837B8F761674B9834338980F83BE604074EC603D188273938A5DF4C1 - 5911899108C11E7082E27EF0614F0383DA399D1BF6502B755117752BE3B9778B - 2B9F17C21F7CC6FAEA78B59581A22F7A9737BAA2377A97978115383AA347FAA3 - 433AA65BFAA2C7400C2C7AA5673AA65F3AA597C1A87FFA300C83A7A7BAA797BA - AAA77A0C407AAAC33AA967410CD0C32A38C11ACC811CF8D24D67CDD638919AF9 - A1277BC123202D5F37402B344003D041B227FB5E2FFBB3D381604B3BB2573BB4 - 1F7B2B4CC3B52F7BB323BBB6333BB24BBBB60BEC0750403E223AB5A97AA8CF3A - A597FAA883FABA6FFF7AA7C73ABCCBFA30C83ABBAB7B979F7AABEB7B16F47BAB - C7401EB0BAAC37FA3078400C2C401794B94DE334CEBAC240A415504F686367BB - 8A8FFBB3637C89F375C56BBC5E63BCB657FCC6A338C617C21E3C4004E029BA8B - 17A7C7800794C132B4BCCCDF4328C8BCCDDF7C19BCFCCD0B7C1E0C7C162C43CE - 9701A7F77C1E047DCC733ACDDF4316DC83CDBF7CCC2BFDCEC33CA74B3DA703FD - CD5BFDD423BCCD077DCB533DA77B80D6CB7CCEDF7C28DC03D1DF43853B400414 - 9012B902D6188C750CC4741FC91E2876892BBB5DB782B3E3BDB2A738DFF3BDDE - 5BFBDD0BB6DEDF7DB713FEE197782BBCC124AEFCA1753AE40BBDE4373DE47F7D - E56FBDCC83FDCBF7FFBC07B043E4B73CD17FBED037FDE44FFECE5FFED48BBEEA - 977ED45F7EE96B3EEB8F7ED70F7DCF77BA71CBDF1C7003E8DDB4DB3BD137A60A - 48BACA1FE843366C7BC7673CF283FC5EE375F293BCF38B7CC6B7829DBE70AE3A - FE6105FDCB673FD77F7DF6B77CF76FBDCE733FD8133D2180FDF6133DF6A77FF6 - 9BBFF67FBFD887FFD7ABBFFCB7BFEC673DD7ABBFE6D37FD8C7BF0700441E811E - CA7820E604C21A12038A0CE0B5CDD52D03065C197205CC97AF3E2ADC10F8C0C5 - 58033A225B3528D9609A48942A538E6CD9C0A4C9972D4BB672599366CC562F1B - 207AF34000375A008816357A146952A54B993675FA146A54A953A956ADEA016B - 56AD5BB976F5FA15FF6C58B163C996355B7696930D6BD02811818E97A93EAE2A - 4E343411D809641D1C7D2CD440C34A0D3B05B70A3CCDF04A4480511A269C72F0 - E0942917DB736C0F7062CC903979D162E39455D1A34997367D1AB5E8AFCBB612 - F2C01AAB6BD85B677B20747BB6EBB3AF6D13AACD1BEC6FAEC281AFDE4DBBABEC - 1BD1368822C1841BB701BE80CD9B78DDC0B613BE22B8E9CBE5D3E55698C9D76C - 00E2BC4EF5E6D9AFC79CBE7D7B7D6178E1497D1F7F7EFDFB4F67B5268EABFF7A - D34A1CDD00D46DC0AC6E5BD036010911D02B047BBBADB5DB1CD4CA1A090364D0 - AB03152CEBC10E35F400C0ACEEA16703070480AE086E7891053BBC50F0451664 - 22A0E0012E383169FFBC063683C94798D003F2BD20612A1249227D1CF248259B - 2CE403016C188ABF2AADBC124BD46CB34D9D6528BC4D9D2FC55C509D325D2344 - 9A05D524A44C2FCF94C6CC2DCFB42DCD2DCD5C934D34C10C93CC30E5FC93CD38 - CFC4B3CB65D449F34B4027AC73CE33CB54B4510F6E40A80B12946891175FEE92 - 885314EA39A18F1BFD22A949CB78440F0410E25B4FA756D87B0FBD556BB20711 - 2FC2082ACB5C75DD95D7A2FA9C61863285E5734F75801D16D93BD52CB31C3793 - 7D16DA68930536D8649785160C6A855D068C72A41DF65862BFC5561D7056596B - 0E3DB471711B4E27AA0885190D50810202E040AC15265DB5673357FDFD176094 - F80518607E79CCD7FF47CC5C3D0F913D3ED082894E3AE995E28A2D2EEDD76A87 - BDD6588DA125541D309C1D976469B5B5B64F684F0E996592C34DB964648FB961 - 81582CD5A60874EA01C68079243244A26D68A4F70138F658CC24557B5498E0A6 - C93BD8691F5D45B53C84D1D3E7012CE408EDE2AEBDFE3AA98C9FA5D6E38EC7AE - B6D871C32D936C61450623DAB7A15D66066B463E3B666457E6736FB3856D7B5B - 71585940451100D0C6A1769171C5AE6D4C51A58DEE08F8030E63E8D8F7DFF4D0 - E3D732A5ADD61CBE7CC7B30755D14B2ADD737BF6F8631D26F4001BF6D82D76DB - 6FBDFB0E17EEBFCB4E16EEDC7507776FDFC9E53D646009119EE5DCD71E16F9B3 - 3D86FB768F012F13FF6E69C07142140144D0438F01D031E516EB7E064616596E - F1C1BB0FE0286447D25B2123DF5453E55C55F855951FFF544527835FFCDF8F5F - 7EFF0301ADE0400001286162B253E002AD443D6E2D4F77100C17B77E27AD7288 - CC76C05B9BDCB045416471AB1C3320C40C2E382C10B2AD6C27FCD6CABA952D09 - 4A8F851764C00888B10A1529817B0D4181016ED186EB6C0305B2A8471B3A80A3 - 3F70611A96995AAAD2C3397F290D74A83A8FBFFA37C5A99D477F531B4FC33ED0 - 3A4B30108C614C0D03C858466A9591016443631AD5C8C619AC916C6D5C2319CF - 38473BBAD18E7104161CEB58C6DEB9F18D74DC231EEFF8C73B12B28F7764C50D - B5710A6EA00346B7FF601C76DAA5820ED8E1017FD883FCE0673FFD79327FF9EB - 2427FFD749FA81C094FC2243AA1EF1064744C0706294E52CA932476A8D8201B8 - 4CE3329631023406128EA318812F75F9CB41E67114C03C64318F694C3A8E020C - BE446332CBF8025F92ED1ED41AA620D958C6629A519969B4E520CF98CC6F92F1 - 050751910D5E873857CC631E3EBC0B5D5060081F484E9388809F13F775CAFC01 - 507E9C23DDFC064A50FFF5D31EFAE862BA12484B873E142987EC261987294D89 - CE209A23C0A844EF98C83C72D496D9B2A820C1804E8D9AB1A4141DA938E99852 - 8E36F3A5E19C2103C0C10A0844C07500C8992F2262170318A20FF5DC48478E68 - 8C7EDA4FA0A1D45FFFFE926AD0801654809C43041C1E100125D807A25985E808 - E0E14BAE7A7304BAACA8345F708C91BE800D66ADE80CC43AC7AEA2B59A66FDE6 - 4A554AC6B4BE209AF0982357C7EA55BD8E000C6078C10CB7C9578B6EF38E88F5 - 255ED728D8931EF218831D2B03BA5AC611A0551D8BC40213B4A187869C601B77 - A1884580E129595892004533EAC0F6E9CF8332D59FFD7B2A295BCBAFD541EC8B - 5AD5ED2CFBDA5BDFA215AD2360C30B8A015C36B06198C545AE6F2B3ADC8A0677 - B8C54D2E70954B5CE31E7798C0ED6D74C70ADC232C97B9CFADAE78A99BDDE55A - 77B8E945AF79D10A5EED0A97B86365072BC2D00126C8E170D3D9865D186788D2 - A260237CF9803E4AFF690F53AE929308562A2A153CC00693817F0D4E15841F01 - 8730B421B7BBD530037B6B4D6B66B7AFC37D8187D30B86F4B297B91F36F16547 - F0041207F7B2EA95B171337AE2BEBE77982286F16F9B6B5C16CF38C71F2EF18C - 9D0B5F1B1B19C5E605C317D0258744AC8B1728E8E14FDBD0D3F2D9A82FFA40C4 - 78C6C3BF01E24FC2A15C65830DCC49D2159493207804178052840DBF5981C02D - 001BE63CE7F4D219CF0568AF9D8F7B5D3BB7F7B87F0E749EF36C5C43CBB8CFE7 - A0F39E01BDE7E33EBACE8026B47A05DDE740BFE01CD71D6EA6896C694FDF59CF - 97E6B49FF1FC046930790D73104122F4E02257204322D73144BC6E6149473C80 - C0AE82F0AE79DDEBFF5E1B98D713F6F5B0814D064420E20F6E60822512016767 - 7B8D0D8265838B9F306DB48281DAD6AE76B6A98DD6636CFB18C3E5F60BB64D6E - 6D6BFBDA238E76B5D31AED688F78DCDB16ECB5CB5DEF7377FBDDF736B78BD3FB - 6D6DB3B8BDE136F1BC5D0C6F13EBBBC4EADEB7B95F508E1BA04B04B48032E328 - 6E97B9C8227238D28751DF376C8F0FFB7D0CEE352A3BEEEB29D8C3C2563D4543 - 9FDDF25DBDE0082F987331F04CF3E3D27CE635D7F9B64B3D6D36E0FCE73ACF79 - CE871BF3A2F7BCE8E6063AD08DEEE8A50B3DE8491F7AD073CEF3A91777CEEC86 - B9D2DBFBF4AAB3A1E95EFFF913C040B80372CF45BEB8C5DAB153DA21DEA868D3 - F8B8C9A7E0F129D4FF7DEE1F6FA523DAA00796BB1CF0573AAEA2073FED276CFB - F03E2F4001847BF86A9FC3F19197BCE3153D79C93F9AE790773CE6271FE83957 - DEE78F37BCE513FF78C72FFEF405E83CE2511FF9D03F21EBA33F2EE97D3EFAC3 - 83FEF0E1D8401DDA82F617495292D871451B54A0024C1238EFBBC6FBB0EBBEFC - E4379F0C5380C30722E0E4C05FFF4AC2557C01484167EE1BFEBBB047AEF7EDAC - FAC92F1EFDE957FFFAD50F69F4477EFDC85DBCE751EFF3EEB3BFFDF87F7FEA53 - AF7FFFFF1F00D12F109CA00E56040F7461A736053BFCCB1088AF2FE0E0113AE9 - EE94EFEE2A10FA20AC0229D0023370EE5A490B44E0EFB04F0453A31CE081FCD8 - 0FFE180FFF2C2F00FF5B50FD5250FF4ED0055D3005FB6F066FF0FF5E201CD4A2 - 0B6C000FD4C52150A0A72C0E18EA0105E88500DE600F5C6502317003E96EF936 - D002F30E11E6C30747100BEF430D026104D2EF08600FF5BE100CD36F0C614FF2 - 70700661300DBF100D5F90FF0EAF0DE310058F80C9BA800944401B10E77B444B - D67CE10454010995F002A34F0AA34F039D500A9B90104DEE111E8004DC2C0B23 - B13436C009A4E11C32C10B0BE0083491FD363113D76F134311FD3CB113D58F14 - 17EF1447911345311533911539D1154D711555F11303F0156F111655311559F1 - 18586103BA600EF0ABD5D041152262F826C271402502EC20091F610A13111AA3 - 511A37B01123E00AFF25111BABA20328311C18401651F1FF5AF11B6D311C4B11 - 1CCF711C49511CD7911673511CF14F1DDB311ED1B1163DF1081E2E16D040044E - C191A6639E26E2160CC114C087239A1111A7112113F2EE1EE10F9EC107F02B1B - 23322A6C6D03BE201C8A21136420146580233D91233912163FB22339512465C0 - FC8E00134E4F143B920D4D72136500136EF1238F80265731260B20133261233B - F2264311134412256500137551136F72248FA02469F2F036322761722535F227 - 67322A3F32267BD22651F2258F81074920E24EA1215441087F0A5E4C21B40211 - D814122DA5F1112A2C6B944022DFD2294E80231CA12203A118CE0126A7B224F7 - 722A31E127FD522FCD5DF227D12F2FF572F14A1230A9D22FA91231171324176F - 31139323FB1226F7B23227D3312BB32F071332F35224033331255331FFF23135 - 333367660114821B4223674E40CAD8CE00DCEE087104020F322D6FD302DF200C - 98002E7B532978A11E542002BEE1199CE006F0B22AA9122911332827132B93F3 - 339B9327A5D332B1522A97132A81B22AB1B2289F133B9BD33A9D723BAF933CC5 - 533B9F733AAF733BF5D23B411229BD332A8F200468A67026E6B3DA25D6FCCB17 - 5EA420DF20027113402D501F0880047CD3408D222000003B} - end - end - object edtPassword: TEdit - Left = 96 - Top = 132 - Width = 278 - Height = 21 - PasswordChar = '*' - TabOrder = 2 - end - object bAceptar: TButton - Left = 208 - Top = 203 - Width = 75 - Height = 25 - Caption = '&Aceptar' - Default = True - TabOrder = 3 - OnClick = bAceptarClick - end - object bCancelar: TButton - Left = 296 - Top = 203 - Width = 75 - Height = 25 - Cancel = True - Caption = '&Salir' - ModalResult = 2 - TabOrder = 4 - end - object edtUser: TEdit - Left = 96 - Top = 104 - Width = 278 - Height = 21 - TabOrder = 1 - end - object Button1: TButton - Left = 16 - Top = 203 - Width = 129 - Height = 25 - Caption = 'C&onfigurar conexi'#243'n...' - TabOrder = 5 - OnClick = ToolButton4Click - end - object Timer1: TTimer - Enabled = False - Interval = 5000 - OnTimer = Timer1Timer - Left = 344 - Top = 64 - end - object JvAppRegistryStorage1: TJvAppRegistryStorage - StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' - StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' - StorageOptions.BooleanAsString = False - Root = 'Software\Administraci'#243'n de puntos de venta' - SubStorages = <> - Left = 14 - Top = 168 - end - object JvFormStorage1: TJvFormStorage - AppStorage = JvAppRegistryStorage1 - AppStoragePath = '\' - Options = [] - StoredProps.Strings = ( - 'edtUser.Text' - 'edtPassword.Text') - StoredValues = < - item - Name = 'Ruta' - Value = '' - end> - Left = 48 - Top = 168 - end -end diff --git a/Varela/Varela/Source/Usuarios/uLoginForm.pas b/Varela/Varela/Source/Usuarios/uLoginForm.pas deleted file mode 100644 index 6f0cb5a..0000000 --- a/Varela/Varela/Source/Usuarios/uLoginForm.pas +++ /dev/null @@ -1,100 +0,0 @@ -unit uLoginForm; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, ComCtrls, cxGraphics, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, - cxImageComboBox, ImgList, PngImageList, pngimage, ToolWin, JvExControls, - JvComponent, JvGradient, JvGIF, JvComponentBase, JvFormPlacement, - JvAppStorage, JvAppRegistryStorage; - -type - TfLoginForm = class(TForm) - Panel1: TPanel; - Label3: TLabel; - Label4: TLabel; - edtPassword: TEdit; - bAceptar: TButton; - bCancelar: TButton; - Label1: TLabel; - edtUser: TEdit; - Image1: TImage; - JvGradient1: TJvGradient; - Button1: TButton; - Timer1: TTimer; - JvAppRegistryStorage1: TJvAppRegistryStorage; - JvFormStorage1: TJvFormStorage; - procedure bAceptarClick(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure Timer1Timer(Sender: TObject); - private - FIntentos: Integer; - end; - -var - fLoginForm: TfLoginForm; - -implementation - -uses - uDataModuleUsuarios, uDataModuleBase; - -{$R *.dfm} - -{ -********************************* TfLoginForm ********************************** -} -procedure TfLoginForm.bAceptarClick(Sender: TObject); -var - bOk : Boolean; -begin - ShowHourglassCursor; - try - bOK := dmUsuarios.Login(edtUser.Text, edtPassword.Text); - finally - HideHourglassCursor; - end; - - if bOk then - ModalResult := mrOK - else begin - Application.MessageBox('Usuario no válido. Compruebe si ha escrito correctamente' - + #13 + #10 + 'el usuario y la contraseña.', 'Atención', MB_OK); - Dec(FIntentos); - if (FIntentos <= 0) then - ModalResult := mrCancel; - end; -end; - -procedure TfLoginForm.FormCreate(Sender: TObject); -begin - FIntentos := 3; -end; - -procedure TfLoginForm.ToolButton4Click(Sender: TObject); -begin - Timer1.Enabled := False; - dmBase.ConfigurarConexion; -end; - -procedure TfLoginForm.FormShow(Sender: TObject); -begin - Self.Caption := Self.Caption + ' - ' + dmBase.DarVersion; - JvFormStorage1.RestoreFormPlacement; - // Hacer login automática si hay usuario/password y no hay más de una base - // de datos como opción para conectarse. - if ((Length(edtUser.Text) > 0) and (Length(edtPassword.Text) > 0)) then - Timer1.Enabled := True; -end; - -procedure TfLoginForm.Timer1Timer(Sender: TObject); -begin - Timer1.Enabled := False; - bAceptar.Click; -end; - -end. diff --git a/Varela/Varela/Source/Usuarios/uUsuario.dfm b/Varela/Varela/Source/Usuarios/uUsuario.dfm deleted file mode 100644 index 93fcc6e..0000000 --- a/Varela/Varela/Source/Usuarios/uUsuario.dfm +++ /dev/null @@ -1,123 +0,0 @@ -object fUsuario: TfUsuario - Left = 523 - Top = 415 - BorderStyle = bsDialog - Caption = 'Datos del usuario' - ClientHeight = 309 - ClientWidth = 308 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - PixelsPerInch = 96 - TextHeight = 13 - object Button1: TButton - Left = 138 - Top = 273 - Width = 75 - Height = 25 - Action = actAceptar - TabOrder = 1 - end - object Button2: TButton - Left = 226 - Top = 273 - Width = 75 - Height = 25 - Action = actCancelar - TabOrder = 2 - end - object TabControl1: TPageControl - Left = 8 - Top = 8 - Width = 293 - Height = 257 - ActivePage = pagUsuario - TabOrder = 0 - object pagUsuario: TTabSheet - Caption = 'Usuario' - object GroupBox1: TGroupBox - Left = 6 - Top = 5 - Width = 274 - Height = 99 - Caption = 'GroupBox1' - TabOrder = 0 - DesignSize = ( - 274 - 99) - object Label4: TLabel - Left = 34 - Top = 28 - Width = 39 - Height = 13 - Caption = 'Usuario:' - Transparent = False - end - object Label5: TLabel - Left = 16 - Top = 60 - Width = 57 - Height = 13 - Caption = 'Contrase'#241'a:' - Transparent = False - end - object edtUser: TEdit - Left = 88 - Top = 24 - Width = 169 - Height = 21 - Anchors = [akLeft, akTop, akRight] - TabOrder = 0 - end - object edtPassword: TEdit - Left = 88 - Top = 56 - Width = 169 - Height = 21 - Anchors = [akLeft, akTop, akRight] - PasswordChar = '*' - TabOrder = 1 - end - end - object GroupBox2: TGroupBox - Left = 7 - Top = 111 - Width = 273 - Height = 110 - Caption = 'Permisos y seguridad' - TabOrder = 1 - object Label1: TLabel - Left = 47 - Top = 36 - Width = 26 - Height = 13 - Caption = 'Perfil:' - Transparent = False - end - object cbPerfil: TComboBox - Left = 88 - Top = 28 - Width = 169 - Height = 21 - ItemHeight = 13 - TabOrder = 0 - end - end - end - end - object ActionList: TActionList - Left = 8 - Top = 272 - object actAceptar: TAction - Caption = '&Aceptar' - end - object actCancelar: TAction - Caption = '&Cancelar' - end - end -end diff --git a/Varela/Varela/Source/Usuarios/uUsuario.pas b/Varela/Varela/Source/Usuarios/uUsuario.pas deleted file mode 100644 index 90e722c..0000000 --- a/Varela/Varela/Source/Usuarios/uUsuario.pas +++ /dev/null @@ -1,39 +0,0 @@ -unit uUsuario; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ComCtrls, ActnList; - -type - TfUsuario = class(TForm) - Button1: TButton; - Button2: TButton; - TabControl1: TPageControl; - pagUsuario: TTabSheet; - GroupBox1: TGroupBox; - Label4: TLabel; - Label5: TLabel; - edtUser: TEdit; - edtPassword: TEdit; - GroupBox2: TGroupBox; - Label1: TLabel; - cbPerfil: TComboBox; - ActionList: TActionList; - actAceptar: TAction; - actCancelar: TAction; - private - { Private declarations } - public - { Public declarations } - end; - -var - fUsuario: TfUsuario; - -implementation - -{$R *.dfm} - -end. diff --git a/Varela/Varela/Source/Usuarios/uUsuarios.dfm b/Varela/Varela/Source/Usuarios/uUsuarios.dfm deleted file mode 100644 index a2faae2..0000000 --- a/Varela/Varela/Source/Usuarios/uUsuarios.dfm +++ /dev/null @@ -1,119 +0,0 @@ -object fUsuarios: TfUsuarios - Left = 490 - Top = 417 - BorderStyle = bsDialog - Caption = 'Administraci'#243'n de usuarios' - ClientHeight = 401 - ClientWidth = 550 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = False - Position = poScreenCenter - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object Grid: TDBGrid - Left = 8 - Top = 40 - Width = 425 - Height = 313 - DataSource = DADataSource - TabOrder = 0 - TitleFont.Charset = DEFAULT_CHARSET - TitleFont.Color = clWindowText - TitleFont.Height = -11 - TitleFont.Name = 'MS Sans Serif' - TitleFont.Style = [] - end - object JvNavPanelHeader1: TJvNavPanelHeader - Left = 0 - Top = 0 - Width = 550 - Align = alTop - Caption = 'Panel de control' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWhite - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - ColorFrom = 8684164 - ColorTo = 8684164 - ImageIndex = 0 - StyleManager = dmBase.StyleManager - ParentStyleManager = False - end - object Button1: TButton - Left = 448 - Top = 40 - Width = 91 - Height = 25 - Action = actNuevo - TabOrder = 2 - end - object Button2: TButton - Left = 448 - Top = 136 - Width = 91 - Height = 25 - Action = actModificar - TabOrder = 3 - end - object Button3: TButton - Left = 448 - Top = 176 - Width = 91 - Height = 25 - Action = actEliminar - TabOrder = 4 - end - object Button4: TButton - Left = 448 - Top = 368 - Width = 91 - Height = 25 - Action = actCerrar - TabOrder = 5 - end - object Button5: TButton - Left = 448 - Top = 96 - Width = 91 - Height = 25 - Action = actCambiarPassword - TabOrder = 6 - end - object DADataSource: TDADataSource - DataTable = dmUsuarios.tbl_Usuarios - Left = 368 - Top = 40 - end - object ActionList: TActionList - Left = 8 - Top = 360 - object actCerrar: TAction - Caption = '&Cerrar' - OnExecute = actCerrarExecute - end - object actNuevo: TAction - Caption = 'Nuevo usuario' - OnUpdate = actNuevoUpdate - end - object actCambiarPassword: TAction - Caption = 'Cambiar contrase'#241'a' - OnUpdate = actCambiarPasswordUpdate - end - object actModificar: TAction - Caption = 'Modificar usuario' - OnUpdate = actModificarUpdate - end - object actEliminar: TAction - Caption = 'Eliminar usuario' - OnUpdate = actEliminarUpdate - end - end -end diff --git a/Varela/Varela/Source/Usuarios/uUsuarios.pas b/Varela/Varela/Source/Usuarios/uUsuarios.pas deleted file mode 100644 index dfad797..0000000 --- a/Varela/Varela/Source/Usuarios/uUsuarios.pas +++ /dev/null @@ -1,89 +0,0 @@ -unit uUsuarios; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, DB, uDADataTable, dbcgrids, uDataModuleUsuarios, StdCtrls, - DBCtrls, uDataModuleBase, JvExControls, JvComponent, JvNavigationPane, - Grids, DBGrids, ActnList; - -type - TfUsuarios = class(TForm) - DADataSource: TDADataSource; - Grid: TDBGrid; - JvNavPanelHeader1: TJvNavPanelHeader; - Button1: TButton; - Button2: TButton; - Button3: TButton; - Button4: TButton; - Button5: TButton; - ActionList: TActionList; - actCerrar: TAction; - actNuevo: TAction; - actCambiarPassword: TAction; - actModificar: TAction; - actEliminar: TAction; - procedure actCerrarExecute(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure actEliminarUpdate(Sender: TObject); - procedure actModificarUpdate(Sender: TObject); - procedure actCambiarPasswordUpdate(Sender: TObject); - procedure actNuevoUpdate(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - -procedure AdministrarUsuarios; - -implementation - -{$R *.dfm} - - -procedure AdministrarUsuarios; -var - fUsuarios: TfUsuarios; -begin - fUsuarios := TfUsuarios.Create(NIL); - try - fUsuarios.ShowModal; - finally - fUsuarios.Free; - end; -end; - -procedure TfUsuarios.actCerrarExecute(Sender: TObject); -begin - Close; -end; - -procedure TfUsuarios.FormCreate(Sender: TObject); -begin - DADataSource.DataTable := dmUsuarios.tbl_Usuarios; - DADataSource.DataTable.Active := True; -end; - -procedure TfUsuarios.actEliminarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty); -end; - -procedure TfUsuarios.actModificarUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty); -end; - -procedure TfUsuarios.actCambiarPasswordUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty); -end; - -procedure TfUsuarios.actNuevoUpdate(Sender: TObject); -begin - (Sender as TAction).Enabled := Assigned(DADataSource.DataTable); -end; - -end. diff --git a/Varela/Varela/Source/leeme.txt b/Varela/Varela/Source/leeme.txt deleted file mode 100644 index a3637e2..0000000 --- a/Varela/Varela/Source/leeme.txt +++ /dev/null @@ -1,5 +0,0 @@ -El archivo uDADataTable.pas es una versión -modificada del original de Data Abstract 5 para -implementar el uso de Where en TDADataTable. - -Ver procedimiento OnWhereChange. \ No newline at end of file diff --git a/Varela/Varela/Source/uDADataTable.pas b/Varela/Varela/Source/uDADataTable.pas deleted file mode 100644 index bb94913..0000000 --- a/Varela/Varela/Source/uDADataTable.pas +++ /dev/null @@ -1,4645 +0,0 @@ -unit uDADataTable; - -{----------------------------------------------------------------------------} -{ Data Abstract Library - Core Library } -{ } -{ compiler: Delphi 6 and up, Kylix 3 and up } -{ platform: Win32, Linux } -{ } -{ (c)opyright RemObjects Software. all rights reserved. } -{ } -{ Using this code requires a valid license of the Data Abstract } -{ which can be obtained at http://www.remobjects.com. } -{----------------------------------------------------------------------------} - -{$I DataAbstract.inc} - -interface - -uses - Classes, DB, Contnrs, SysUtils, - {$IFDEF MSWINDOWS}ActiveX,{$ENDIF} - uRODL, uROTypes, uROClasses, uROClientIntf, uRODynamicRequest,uDAExpressionEvaluator, - uDAInterfaces, uDAClasses, uDAEngine, uDAScriptingProvider, uDADataStreamer, uDADelta, - DataAbstract3_Intf, DataAbstract4_Intf,uDAWhere; - -const - RecIDFieldName = 'RecID'; // Do not change! - AllChanges = [ctInsert, ctUpdate, ctDelete]; - -type - //ToDo: remove and replace these three with TRO(Dynamic)Request* - TDARemoteRequest = TRODynamicRequest; - TDARemoteRequestParam = TRORequestParam; - TDARemoteRequestParams = TRORequestParamCollection; - - { Other types } - float = double; - datetime = TDateTime; - - TDADataTable = class; - TDatasetClass = class of TDataset; - TDADataTableRules = class; - - TDADataTableNotifyEvent = procedure(DataTable: TDADataTable) of object; - TDADataTableFilterEvent = procedure(DataTable: TDADataTable; var Accept: Boolean) of object; - TDADataTableErrorEvent = procedure(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction) of object; - TDADataTableDynamicMethodEvent = procedure(DataTable: TDADataTable; const aMessage: IROMessage) of object; - TDADataTableRemoteRequestEvent = procedure(DataTable: TDADataTable; Request: TDARemoteRequest) of object; - TDADataTableDataChangeEvent = procedure(DataTable: TDADataTable; Field: TDAField) of object; - TDADataRequestStreamEvent = procedure(DataTable: TDADataTable; Stream: TStream) of object; - - //TDADelta = class; - - TDAApplyUpdatesError = procedure(DataTable: TDADataTable; const Delta: IDADelta; var Ignore: boolean) of object; - TDAAfterApplyUpdatesEvent = procedure(DataTable: TDADataTable; const Delta: IDADelta) of object; - TDABeforeApplyUpdatesEvent = procedure(DataTable: TDADataTable; const Delta: IDADelta) of object; - - TDADetailOption = (dtCascadeOpenClose, - dtCascadeApplyUpdates, - dtAutoFetch, - dtCascadeDelete, - dtCascadeUpdate, - dtDisableLogOfCascadeDeletes, - dtDisableLogOfCascadeUpdates, - dtIncludeInAllInOneFetch); - TDADetailOptions = set of TDADetailOption; - - TDAMasterOption = (moCascadeOpenClose, - moCascadeApplyUpdates, - moCascadeDelete, - moCascadeUpdate, - moDisableLogOfCascadeDeletes, - moDisableLogOfCascadeUpdates, - moAllInOneFetch); - - TDAMasterOptions = set of TDAMasterOption; - - TDAStreamingOption = (soIgnoreStreamSchema, soDisableEventsWhileStreaming); - TDAStreamingOptions = set of TDAStreamingOption; - - TDARemoteUpdatesOption = (ruoOnPost); - TDARemoteUpdatesOptions = set of TDARemoteUpdatesOption; - - TDABaseRemoteDataAdapter = class(TComponent) - protected - function GetDataStreamer: TDADataStreamer; virtual; abstract; - - { backward compatibility: to provide access to these in the legacy events } - function Get_GetSchemaCall: TDARemoteRequest; virtual; - function Get_GetDataCall: TDARemoteRequest; virtual; - function Get_UpdateDataCall: TDARemoteRequest; virtual; - function Get_GetScriptsCall: TDARemoteRequest; virtual; - public - function ApplyUpdates(aTables: array of TDADataTable; aRefetchAll: boolean = false): boolean; virtual; abstract; - procedure Fill(aTables: array of TDADataTable; aSaveCursor: boolean; aIncludeSchema: boolean); virtual; abstract; - procedure FillSchema(aTables: array of TDADataTable; aPreserveLookupFields: boolean = false; areserveClientCalcFields : boolean = false); virtual; abstract; - procedure FillScripts(aTables: array of TDADataTable); virtual; abstract; - - property DataStreamer: TDADataStreamer read GetDataStreamer; - end; - - { IDADataTableDataset } - IDADataTableDataset = interface - ['{3BADA4F8-BA32-411C-A7CD-DEBD10A4AF06}'] - function GetDataTable: TDADataTable; safecall; - end; - - { IDARangeController } - IDARangeController = interface - ['{5A182854-B824-496F-80C2-6F8064003E13}'] - procedure ApplyRange; safecall; - procedure CancelRange; safecall; - procedure SetRange(const StartValues, EndValues: array of const); safecall; - procedure EditRangeEnd; safecall; - procedure EditRangeStart; safecall; - procedure SetRangeEnd; safecall; - procedure SetRangeStart; safecall; - end; - - { IDANativeDatasetStreaming } - TDANativeDataFormat = (ndfBinary, ndfXML); - IDANativeDatasetStreaming = interface - ['{00B37B20-23DA-49A5-BB5D-B96E50C210F4}'] - procedure NativeSaveToFile(const aFileName : string; DataFormat : TDANativeDataFormat = ndfBinary); - procedure NativeLoadFromFile(const aFileName : string); - procedure NativeSaveToStream(aStream : TStream; DataFormat : TDANativeDataFormat = ndfBinary); - procedure NativeLoadFromStream(aStream : TStream); - end; - - - { TDADataSource } - TDADataSource = class(TDABaseDataSource) - private - fDataTable: TDADataTable; - - function GetDataset: TDataset; - procedure SetDataTable(const Value: TDADataTable); - procedure SetDataset(const Value: TDataset); - function GetOpening: boolean; - function GetActive: boolean; - - protected - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - - property Dataset: TDataset read GetDataset write SetDataset; // hide base class property - public - constructor Create(aOwner: TComponent); override; - destructor Destroy; override; - - property Opening: boolean read GetOpening; - property Active: boolean read GetActive; - published - property DataTable: TDADataTable read fDataTable write SetDataTable; - end; - - { TDADataTable } - TDASortDirection = (sdAscending, sdDescending); - TDAMasterMappingMode = (mmDataRequest, mmParams, mmWhere); - - TDASortDirectionArray = array of TDASortDirection; - TStringArray = array of string; - - IDADataTableScriptingProvider = interface(IDAScriptingProvider) - ['{E16B7359-C733-4F09-96A8-10527CFABB6D}'] - procedure RunDataTableScript(aDataTable: TDADataTable; const aScript: string; const aMethod: string; aLanguage:TROSEScriptLanguage); - end; - - TAutoIncArray = array of Int64; - - {$WARN SYMBOL_DEPRECATED OFF} - TDADataTable = class(TScriptableComponent, {$IFDEF MSWINDOWS}ISupportErrorInfo,{$ENDIF} IDADataTable, IDASQLCommand, IDADataset, IDAEditableDataset, IDADeltaOwner, IDADataReader, IDADatasetEx) - private - fCurrRecId: integer; - - fMasterLink: TMasterDataLink; - - fDelta: IDADelta; - fWhere: TDAWhere; - - fRecIDField: TIntegerField; - - fStreamedActive, - fRefreshing, - fOpening: boolean; - - fDataset: TDataset; - - fFields: TDAFieldCollection; - - fAfterEdit: TDADataTableNotifyEvent; - fAfterInsert: TDADataTableNotifyEvent; - fAfterDelete: TDADataTableNotifyEvent; - fBeforeScroll: TDADataTableNotifyEvent; - fAfterClose: TDADataTableNotifyEvent; - fBeforePost: TDADataTableNotifyEvent; - fAfterScroll: TDADataTableNotifyEvent; - fBeforeCancel: TDADataTableNotifyEvent; - fBeforeRefresh: TDADataTableNotifyEvent; - fBeforeOpen: TDADataTableNotifyEvent; - fAfterRefresh: TDADataTableNotifyEvent; - fAfterOpen: TDADataTableNotifyEvent; - fBeforeEdit: TDADataTableNotifyEvent; - fBeforeClose: TDADataTableNotifyEvent; - fBeforeDelete: TDADataTableNotifyEvent; - fAfterPost: TDADataTableNotifyEvent; - fOnCalcFields: TDADataTableNotifyEvent; - fOnNewRecord: TDADataTableNotifyEvent; - fAfterCancel: TDADataTableNotifyEvent; - fBeforeInsert: TDADataTableNotifyEvent; - fOnFilterRecord: TDADataTableFilterEvent; - fOnEditError: TDADataTableErrorEvent; - fOnDeleteError: TDADataTableErrorEvent; - fOnPostError: TDADataTableErrorEvent; - fBeforeFieldChange: TDADataTableDataChangeEvent; - fAfterFieldChange: TDADataTableDataChangeEvent; - fLogChanges: boolean; - - fRemoteFetchEnabled: boolean; - fSortDirections: TDASortDirectionArray; - fSortFieldNames: TStringArray; - fParams: TDAParamCollection; - - fFetchedMasters: TStringList; - - fMasterParamsMappings, - fMasterRequestMappings: TStringList; - fDynamicWhere: TDAWhereBuilder; - - fDetailOptions: TDADetailOptions; - fMasterOptions: TDAMasterOptions; - fLogicalName: string; - fClosing: boolean; - fFetching: boolean; - fStreaming: boolean; - fOnAfterSchemaCall: TDADataTableRemoteRequestEvent; - fOnAfterDataRequestCall: TDADataTableRemoteRequestEvent; - fOnBeforeSchemaCall: TDADataTableRemoteRequestEvent; - fOnBeforeDataRequestCall: TDADataTableRemoteRequestEvent; - fOnBeforeDataUpdateCall: TDADataTableRemoteRequestEvent; - fOnAfterDataUpdateCall: TDADataTableRemoteRequestEvent; - //fOnApplyUpdatesError: TDAApplyUpdatesError; - fOnReceiveDataStream: TDADataRequestStreamEvent; - fStreamingOptions: TDAStreamingOptions; - fRemoteUpdateOptions: TDARemoteUpdatesOptions; - fLocalSchema: TDASchema; - fLocalConnection: string; - - fBusinessRulesID: string; - fBusinessRules: TDADataTableRules; - fFieldRules: TObjectList; - - fAutoIncs : TAutoIncArray; - fOnAfterApplyUpdates: TDADataTableNotifyEvent; - fOnBeforeApplyUpdates: TDABeforeApplyUpdatesEvent; - fMasterMappingMode: TDAMasterMappingMode; - fMaxRecords: integer; - fOnBeforeMergeDelta: TDADataTableNotifyEvent; - fOnAfterMergeDelta: TDADataTableNotifyEvent; - fStoreActive: boolean; - fScriptCode: TStrings; - fOnBeforeScriptCall: TDADataTableRemoteRequestEvent; - fOnAfterScriptCall: TDADataTableRemoteRequestEvent; - - fOpenTick: cardinal; - fAfterOpenIDataset: TDAAfterOpenDatasetEvent; - fBeforeOpenIDataset: TDABeforeOpenDatasetEvent; - - fRemoteDataAdapter: TDABaseRemoteDataAdapter; - fLocalDataStreamer: TDADataStreamer; - fCustomAttributes: TStrings; - fExpressionEvaluator: TDAStdExpressionEvaluator; - fHasReducedDelta: Boolean; - procedure SetLocalDataStreamer(const Value: TDADataStreamer); - procedure SetRemoteDataAdapter(const Value: TDABaseRemoteDataAdapter); - - procedure SetLogChanges(const Value: boolean); - function GetDataset: TDataset; safecall; - function GetFields: TDAFieldCollection; safecall; - procedure SetFields(const Value: TDAFieldCollection); - function GetActive: boolean; safecall; - procedure SetActive(Value: boolean); safecall; - function GetLogChanges: boolean; - procedure SetParams(const Value: TDAParamCollection); - function GetEditing: boolean; - function GetMasterRequestMappings: TStrings; - procedure SetMasterRequestMappings(const Value: TStrings); - - procedure TempSetRowRecIDValue(Sender: TDataset); - - procedure SetLocalSchema(const Value: TDASchema); - procedure LoadFromLocalSchema; - - procedure SetBusinessRulesID(const Value: string); - function GetHasDelta: boolean; - function GetHasDeltaRecursive: boolean; - function GetRecNo: integer; - procedure SetRecNo(const Value: integer); - - { published property accessors cannot be safecall, so we need wrappers: } - function GetFieldsProperty: TDAFieldCollection; - function GetActiveProperty: boolean; - procedure SetActiveProperty(const Value: boolean); - function GetParamsProperty: TDAParamCollection; - function GetMasterParamsMappings: TStrings; - procedure SetMasterParamsMappings(const Value: TStrings); - - procedure PackAllInOneFetchInfoArray(aDataTable : TDADataTable; OutArray: TDADatasetRequestInfoArray); - procedure OnWhereChange(Sender: TObject); - procedure SetScriptCode(const Value: TStrings); - function GetDeltaInitialized: boolean; - procedure SetCustomAttributes(const Value: TStrings); - function Local_ApplyUpdates(RefetchAll: boolean = FALSE): boolean; - procedure InternalCancelUpdateChange(Change: TDADeltaChange); - procedure ExpessionEvaluatorGetValue(Sender: TDAExpressionEvaluator; const aIdentifier: string; out aValue: Variant); - procedure DoCascadeRemoteAllInOneFetch(aStreamer: TDADataStreamer); - protected - function CreateAutoIncArray: TAutoIncArray; - function GetAutoIncs: TAutoIncArray; virtual; - procedure SetAutoIncs(const Value: TAutoIncArray); virtual; - - property AutoIncs: TAutoIncArray read GetAutoIncs write SetAutoIncs; - - function GetCurrRecId: integer; virtual; - procedure SetCurrRecId(const Value: integer); virtual; - - procedure Loaded; override; - - // To override - function GetDatasetClass: TDatasetClass; virtual; abstract; - procedure CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); virtual; - procedure DoRefresh(aDataset: TDataset); - procedure DoSort(const FieldNames: array of string; const Directions: array of TDASortDirection); virtual; abstract; - - procedure SetMasterSource(const Value: TDADataSource); virtual; - function GetMasterSource: TDADataSource; virtual; abstract; - procedure SetDetailsFields(const Value: string); virtual; abstract; - procedure SetMasterFields(const Value: string); virtual; - function GetDetailFields: string; virtual; abstract; - function GetMasterFields: string; virtual; abstract; - - function GetFilter: string; virtual; abstract; - function GetFiltered: boolean; virtual; abstract; - procedure SetFilter(const Value: string); virtual; abstract; - procedure SetFiltered(const Value: boolean); virtual; abstract; - - function GetReadOnly: boolean; virtual; - procedure SetReadOnly(const Value: boolean); virtual; - - procedure AttachEventHooks(aDataset: TDataset); virtual; - procedure DetachEventHooks(aDataset: TDataset); virtual; - - // Internal - procedure DoBeforeOpenDataset; virtual; - procedure DoBeforeCloseDataset; virtual; - procedure DoAfterOpenDataset; virtual; - procedure DoAfterCloseDataset; virtual; - procedure DoOpen(IgnoreAutoFetchSettings: Boolean = False); virtual; - - // Internal TDataset event handler hooks - procedure InternalAfterInsert(Sender: TDataset); dynamic; - procedure InternalAfterEdit(Sender: TDataset); dynamic; - procedure InternalBeforePost(Sender: TDataset); dynamic; - procedure InternalBeforeCancel(Sender: TDataset); dynamic; - procedure InternalAfterDelete(Sender: TDataset); dynamic; - procedure InternalBeforeScroll(Sender: TDataset); dynamic; - procedure InternalAfterScroll(Sender: TDataset); dynamic; - procedure InternalBeforeRefresh(Sender: TDataset); dynamic; - procedure InternalAfterRefresh(Sender: TDataset); dynamic; - procedure InternalOnCalcFields(Sender: TDataset); dynamic; - procedure InternalOnNewRecord(Sender: TDataset); dynamic; - procedure InternalAfterCancel(Sender: TDataset); dynamic; - procedure InternalBeforeInsert(Sender: TDataset); dynamic; - procedure InternalBeforeDelete(Sender: TDataset); dynamic; - procedure InternalBeforeEdit(Sender: TDataset); dynamic; - procedure InternalAfterPost(Sender: TDataset); dynamic; - procedure InternalBeforeFieldUpdate(Sender: TDACustomField); - procedure InternalAfterFieldUpdate(Sender: TDACustomField); - - procedure InternalOnFilterRecord(Dataset: TDataset; var Accept: Boolean); dynamic; - - procedure InternalOnDeleteError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); dynamic; - procedure InternalOnEditError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); dynamic; - procedure InternalOnPostError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); dynamic; - - // IDASQLCommand - function GetParams: TDAParamCollection; safecall; - procedure RefreshParams; safecall; - function Execute: integer; safecall; - function GetText: string; safecall; - procedure SetText(const Value: string); safecall; - function GetName: string; safecall; - - // IDADeltaOwner - function GetDelta: IDADelta; safecall; - - // IDADataReader - function IDADataReader.First = DataReaderFirst; - function IDADataReader.Next = DataReaderNext; - function DataReaderFirst: boolean; safecall; - function DataReaderNext: boolean; safecall; - - function GetFieldNames(Index: integer): string; safecall; - function GetFieldIndexes(const aName: string): integer; safecall; - function GetAsBoolean(Index: integer): boolean; overload; safecall; - function GetAsCurrency(Index: integer): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} - function GetAsDateTime(Index: integer): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} - function GetAsFloat(Index: integer): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} - function GetAsInteger(Index: integer): integer; overload; safecall; - function GetAsString(Index: integer): string; overload; safecall; - function GetAsVariant(Index: integer): variant; overload; safecall; - function GetAsBoolean(const FieldName: string): boolean; overload; safecall; - function GetAsCurrency(const FieldName: string): currency; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} - function GetAsDateTime(const FieldName: string): TDateTime; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} - function GetAsFloat(const FieldName: string): double; overload; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF} - function GetAsInteger(const FieldName: string): integer; overload; safecall; - function GetAsString(const FieldName: string): string; overload; safecall; - function GetAsVariant(const FieldName: string): variant; overload; safecall; - - // IDADataset - function GetIsEmpty: boolean; safecall; - function GetRecordCount: integer; safecall; - function GetFieldCount: integer; safecall; - function GetBOF: boolean; safecall; - function GetEOF: boolean; safecall; - function GetSQL: string; safecall; - procedure SetSQL(const Value: string); safecall; - function GetFieldValues(Index: integer): Variant; safecall; - function GetNames(Index: integer): string; safecall; - function GetWhere: TDAWhere; safecall; deprecated; - function GetDynamicWhere: TDAWhereBuilder; safecall; - procedure SetDynamicWhere(const Value: TDAWhereBuilder);safecall; - function GetPrepared: boolean; safecall; - procedure SetPrepared(Value: boolean); safecall; - function GetState: TDataSetState; safecall; - function GetLogicalName: string; safecall; - procedure SetLogicalName(aName : string); safecall; - - procedure Notification(AComponent: TComponent; Operation: TOperation); override; - - procedure OnMasterChange(Sender: TObject); virtual; - procedure OnMasterDisable(Sender: TObject); virtual; - - function GetOnAfterOpen: TDAAfterOpenDatasetEvent; safecall; - function GetOnBeforeOpen: TDABeforeOpenDatasetEvent; safecall; - procedure SetOnAfterOpen(const Value: TDAAfterOpenDatasetEvent); safecall; - procedure SetOnBeforeOpen(const Value: TDABeforeOpenDatasetEvent); safecall; - - function GetOnAfterExecute: TDAAfterExecuteCommandEvent; safecall; - function GetOnBeforeExecute: TDABeforeExecuteCommandEvent; safecall; - procedure SetOnAfterExecute(const Value: TDAAfterExecuteCommandEvent); safecall; - procedure SetOnBeforeExecute(const Value: TDABeforeExecuteCommandEvent); safecall; - function GetOnExecuteError: TDAExecuteCommandErrorEvent; safecall; - procedure SetOnExecuteError(const Value: TDAExecuteCommandErrorEvent); safecall; - function GetOnOpenError: TDAOpenDatasetErrorEvent; safecall; - procedure SetOnOpenError(const Value: TDAOpenDatasetErrorEvent); safecall; - - procedure NotifyFieldsClear; - - // IInterface - function QueryInterface(const IID: TGUID; out Obj): HResult; override; - - property MasterLink: TMasterDataLink read fMasterLink; - - {$IFDEF MSWINDOWS} - protected - function InterfaceSupportsErrorInfo(const iid: TGUID): HResult; stdcall; - - public - function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override; - {$ENDIF} - - public { for Delta } - property RecIDField : TIntegerField read fRecIDField write fRecIDField; - function GetRowRecIDValue: integer; - - - procedure CallScript(const aEvent: string); - - procedure InitializeDataTable; - procedure DoCascadeOperation(aStreamer: TDADataStreamer; aOption: TDAMasterOption); - procedure WriteDeltaToStream(aStreamer: TDADataStreamer); - procedure ReadDeltaFromStream(aStreamer: TDADataStreamer; aFailedDeltas:TList);overload; - procedure ReadDeltaFromStream(aStreamer: TDADataStreamer); overload; - - public - constructor Create(aOwner: TComponent); override; - destructor Destroy; override; - - procedure EnableConstraints; virtual; safecall; abstract; - procedure DisableConstraints; virtual; safecall; abstract; - - procedure LoadFromRemoteSource(BookmarkPosition: boolean = FALSE); virtual; - procedure FetchMastersDetails(aMasterTable : TDADataTable = NIL; aRequestMappings : TStrings = NIL; IgnoreAutoFetchSettings : Boolean = False); dynamic; - procedure LoadSchema(PreserveLookupFields : boolean = FALSE; PreserveClientCalcFields : boolean = FALSE); - procedure LoadScript(aDatasetName : string = ''); - - function ApplyUpdates(RefetchAll: boolean = FALSE): boolean; dynamic; - procedure CancelUpdates(IncludeDetails : boolean = TRUE); - procedure CancelUpdateChange(Change: TDADeltaChange;IncludeDetails : boolean = TRUE); - - procedure Sort(const FieldNames: array of string; const Directions: array of TDASortDirection); - procedure UnSort; - - procedure ClearFields; - procedure ClearRows; - - procedure CloneSelectedRecord(Source: TDADataTable; DoPost: boolean = TRUE); overload; - procedure CloneSelectedRecord(const Source: IDADataset; DoPost: boolean = TRUE); overload; - - procedure SaveToStream(aStream: TStream); - procedure LoadFromStream(aStream: TStream); - procedure SaveToFile(const aFileName: string); - procedure LoadFromFile(const aFileName: string); - - procedure MergeDelta; virtual; - - // Master detail - function GetDetailDataTables: TList; - function GetDetailTablesforApplyUpdate(aRecursive: boolean = True): TList; - procedure GetDetailTablesforAllinOneFetch(aRemote, aLocal:TList; aRecursive: boolean); - function GetMasterDataTable : TDADataTable; - - // Methods - procedure Open; safecall; - procedure Close; safecall; - - procedure EnableControls; safecall; - procedure DisableControls; safecall; - - procedure Next; safecall; - - procedure Edit; safecall; - procedure Insert; safecall; - procedure Post; safecall; - procedure Cancel; safecall; - procedure Append; safecall; - procedure Delete; safecall; - - procedure Prior; safecall; - procedure First; safecall; - procedure Last; safecall; - - procedure Refresh; safecall; - - function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; safecall; - function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; safecall; - - function FieldByName(const aName: string): TDAField; safecall; - function FindField(const aName: string): TDAField; safecall; - function ParamByName(const aName: string): TDAParam; safecall; - - function GetBookmark: pointer; safecall; - procedure GotoBookmark(Bookmark: TBookmark); safecall; - procedure FreeBookmark(Bookmark: TBookmark); safecall; - - procedure EnableEventHandlers; safecall; - procedure DisableEventHandlers; safecall; - - procedure InternalSetFetching(aFetching: boolean); - - procedure AddRecord(const FieldNames : array of string; const FieldValues : array of Variant); safecall; - - function GetCurrentRecIdValue: integer; - procedure SetCurrentRecIdValue(Value: integer); - - // Properties - property CurrRecId: integer read GetCurrRecId write SetCurrRecId; - property RecIDValue: integer read GetRowRecIDValue; - property Delta: IDADelta read GetDelta write fDelta; - property RecNo : integer read GetRecNo write SetRecNo; - - property BOF: boolean read GetBOF; - property EOF: boolean read GetEOF; - property RecordCount: integer read GetRecordCount; - property FieldCount: integer read GetFieldCount; - property FieldValues[Index: integer]: Variant read GetFieldValues; - property Names[Index: integer]: string read GetNames; - - property SortFieldNames: TStringArray read fSortFieldNames; - property SortDirections: TDASortDirectionArray read fSortDirections; - - property Opening: boolean read fOpening; - property Closing: boolean read fClosing; - property Editing: boolean read GetEditing; - property Fetching: boolean read fFetching; - - property State: TDataSetState read GetState; - property Dataset: TDataset read GetDataset; - - property IsEmpty : boolean read GetIsEmpty; - - property BusinessEventsObj: TDADataTableRules read fBusinessRules; - - property HasDelta: boolean read GetHasDelta; - property HasDeltaRecursive: boolean read GetHasDeltaRecursive; - property DeltaInitialized: boolean read GetDeltaInitialized; - - property Where : TDAWhere read GetWhere; - property DynamicWhere: TDAWhereBuilder read GetDynamicWhere write SetDynamicWhere; - procedure CheckProperties(ACheckRemoteFetching: Boolean=False); virtual; - property HasReducedDelta: boolean read fHasReducedDelta; - published - property Active: boolean read GetActiveProperty write SetActiveProperty stored fStoreActive default false; - property StoreActive: boolean read fStoreActive write fStoreActive default false; - - property RemoteUpdatesOptions: TDARemoteUpdatesOptions read fRemoteUpdateOptions write fRemoteUpdateOptions; - - property MaxRecords : integer read fMaxRecords write fMaxRecords default -1; - - property Fields: TDAFieldCollection read GetFieldsProperty write SetFields; - property Params: TDAParamCollection read GetParamsProperty write SetParams; - - property MasterMappingMode : TDAMasterMappingMode read fMasterMappingMode write fMasterMappingMode default mmParams; - property MasterParamsMappings : TStrings read GetMasterParamsMappings write SetMasterParamsMappings; - - property LogChanges: boolean read GetLogChanges write SetLogChanges default true; - property StreamingOptions: TDAStreamingOptions read fStreamingOptions write fStreamingOptions; - property RemoteFetchEnabled: boolean read fRemoteFetchEnabled write fRemoteFetchEnabled default true; - - property ScriptCode : TStrings read fScriptCode write SetScriptCode; - property CustomAttributes : TStrings read fCustomAttributes write SetCustomAttributes; - - property RemoteDataAdapter: TDABaseRemoteDataAdapter read fRemoteDataAdapter write SetRemoteDataAdapter; - - property BeforeOpen: TDADataTableNotifyEvent read fBeforeOpen write fBeforeOpen; - property AfterOpen: TDADataTableNotifyEvent read fAfterOpen write fAfterOpen; - property BeforeClose: TDADataTableNotifyEvent read fBeforeClose write fBeforeClose; - property AfterClose: TDADataTableNotifyEvent read fAfterClose write fAfterClose; - property BeforeInsert: TDADataTableNotifyEvent read fBeforeInsert write fBeforeInsert; - property AfterInsert: TDADataTableNotifyEvent read fAfterInsert write fAfterInsert; - property BeforeEdit: TDADataTableNotifyEvent read fBeforeEdit write fBeforeEdit; - property AfterEdit: TDADataTableNotifyEvent read fAfterEdit write fAfterEdit; - property BeforePost: TDADataTableNotifyEvent read fBeforePost write fBeforePost; - property AfterPost: TDADataTableNotifyEvent read fAfterPost write fAfterPost; - property BeforeCancel: TDADataTableNotifyEvent read fBeforeCancel write fBeforeCancel; - property AfterCancel: TDADataTableNotifyEvent read fAfterCancel write fAfterCancel; - property BeforeDelete: TDADataTableNotifyEvent read fBeforeDelete write fBeforeDelete; - property AfterDelete: TDADataTableNotifyEvent read fAfterDelete write fAfterDelete; - property BeforeScroll: TDADataTableNotifyEvent read fBeforeScroll write fBeforeScroll; - property AfterScroll: TDADataTableNotifyEvent read fAfterScroll write fAfterScroll; - property BeforeRefresh: TDADataTableNotifyEvent read fBeforeRefresh write fBeforeRefresh; - property AfterRefresh: TDADataTableNotifyEvent read fAfterRefresh write fAfterRefresh; - property OnCalcFields: TDADataTableNotifyEvent read fOnCalcFields write fOnCalcFields; - property OnNewRecord: TDADataTableNotifyEvent read fOnNewRecord write fOnNewRecord; - - property OnFilterRecord: TDADataTableFilterEvent read fOnFilterRecord write fOnFilterRecord; - - property ReadOnly : boolean read GetReadOnly write SetReadOnly; - - property OnDeleteError: TDADataTableErrorEvent read fOnDeleteError write fOnDeleteError; - property OnEditError: TDADataTableErrorEvent read fOnEditError write fOnEditError; - property OnPostError: TDADataTableErrorEvent read fOnPostError write fOnPostError; - - property LocalSchema: TDASchema read fLocalSchema write SetLocalSchema; - property LocalDataStreamer: TDADataStreamer read fLocalDataStreamer write SetLocalDataStreamer; - property LocalConnection: string read fLocalConnection write fLocalConnection; - - property MasterSource: TDADataSource read GetMasterSource write SetMasterSource; - property MasterFields: string read GetMasterFields write SetMasterFields; - property DetailFields: string read GetDetailFields write SetDetailsFields; - property MasterRequestMappings: TStrings read GetMasterRequestMappings write SetMasterRequestMappings; - - property DetailOptions: TDADetailOptions read fDetailOptions write fDetailOptions; - property MasterOptions: TDAMasterOptions read fMasterOptions write fMasterOptions; - - property Filtered: boolean read GetFiltered write SetFiltered default false; - property Filter: string read GetFilter write SetFilter; - - property LogicalName: string read fLogicalName write fLogicalName; - - //property OnApplyUpdatesError: TDAApplyUpdatesError read fOnApplyUpdatesError write fOnApplyUpdatesError; - - property OnAfterApplyUpdates : TDADataTableNotifyEvent read fOnAfterApplyUpdates write fOnAfterApplyUpdates; - property OnBeforeApplyUpdates : TDABeforeApplyUpdatesEvent read fOnBeforeApplyUpdates write fOnBeforeApplyUpdates; - property OnBeforeMergeDelta : TDADataTableNotifyEvent read fOnBeforeMergeDelta write fOnBeforeMergeDelta; - property OnAfterMergeDelta : TDADataTableNotifyEvent read fOnAfterMergeDelta write fOnAfterMergeDelta; - - property OnBeforeDataRequestCall: TDADataTableRemoteRequestEvent read fOnBeforeDataRequestCall write fOnBeforeDataRequestCall; - property OnAfterDataRequestCall: TDADataTableRemoteRequestEvent read fOnAfterDataRequestCall write fOnAfterDataRequestCall; - property OnBeforeDataUpdateCall: TDADataTableRemoteRequestEvent read fOnBeforeDataUpdateCall write fOnBeforeDataUpdateCall; - property OnAfterDataUpdateCall: TDADataTableRemoteRequestEvent read fOnAfterDataUpdateCall write fOnAfterDataUpdateCall; - property OnBeforeSchemaCall: TDADataTableRemoteRequestEvent read fOnBeforeSchemaCall write fOnBeforeSchemaCall; - property OnAfterSchemaCall: TDADataTableRemoteRequestEvent read fOnAfterSchemaCall write fOnAfterSchemaCall; - property OnBeforeScriptCall: TDADataTableRemoteRequestEvent read fOnBeforeScriptCall write fOnBeforeScriptCall; - property OnAfterScriptCall: TDADataTableRemoteRequestEvent read fOnAfterScriptCall write fOnAfterScriptCall; - - property OnReceiveDataStream: TDADataRequestStreamEvent read fOnReceiveDataStream write fOnReceiveDataStream; - - property OnBeforeFieldChange: TDADataTableDataChangeEvent read fBeforeFieldChange write fBeforeFieldChange; - property OnAfterFieldChange: TDADataTableDataChangeEvent read fAfterFieldChange write fAfterFieldChange; - property BusinessRulesID: string read fBusinessRulesID write SetBusinessRulesID; - end; - - TDADataTableClass = class of TDADataTable; - {$WARN SYMBOL_DEPRECATED ON} - - { Exceptions } - EDABizValidationException = class(EROException); - - { TDABusinessRules } - TDABusinessRules = class(TDAEngineBaseObject) - private - protected - function _AddRef: Integer; override; - function _Release: Integer; override; - - public - constructor Create; virtual; - destructor Destroy; override; - - end; - - IDAStronglyTypedDataTable = interface - ['{4D4063AA-DFD0-4B4D-8CC2-FCE3BE1D2F87}'] - procedure Open; - procedure Close; - - function GetActive: boolean; - procedure SetActive(const Value: boolean); - - property Active: boolean read GetActive write SetActive; - - procedure Append; - procedure Cancel; - procedure Delete; - procedure Edit; - procedure First; - procedure Insert; - procedure Last; - procedure Next; - procedure Post; - procedure Prior; - - function Locate(const aKeyFields: string; const aKeyValues: Variant; aOptions: TLocateOptions = []): Boolean; - function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; - - function GetDataTable : TDADataTable; - - function GetState : TDatasetState; - function GetIsEmpty : boolean; - function GetRecNo : integer; - procedure SetRecNo(Value : integer); - function GetMasterOptions : TDAMasterOptions; - procedure SetMasterOptions(Value : TDAMasterOptions); - function GetDetailOptions : TDADetailOptions; - procedure SetDetailOptions(Value : TDADetailOptions); - - function IsFieldNull(const FieldIndexOrName : Variant) : boolean; - procedure ClearField(const FieldIndexOrName : Variant); - - function GetBOF: boolean; - function GetEOF: boolean; - function GetRecordCount: integer; - - property BOF: boolean read GetBOF; - property EOF: boolean read GetEOF; - property RecordCount: integer read GetRecordCount; - property RecNo : integer read GetRecNo write SetRecNo; - - property MasterOptions : TDAMasterOptions read GetMasterOptions write SetMasterOptions; - property DetailOptions : TDADetailOptions read GetDetailOptions write SetDetailOptions; - - property IsEmpty : boolean read GetIsEmpty; - property State : TDatasetState read GetState; - property DataTable : TDADataTable read GetDataTable; - end; - - { TDAFieldRules } - TDAFieldRules = class(TDABusinessRules) - private - fField : TDAField; - fDataTable : TDADataTable; - - protected - // Misc - procedure Attach(aDataTable: TDADataTable); virtual; - procedure Detach(aDataTable: TDADataTable); virtual; - - // Event handler hooks - procedure OnValidate(Sender: TDACustomField); virtual; - procedure OnChange(Sender: TDACustomField); virtual; - - property DataTable : TDADataTable read fDataTable; - - public - constructor Create(aField : TDAField; aDataTable : TDADataTable); reintroduce; virtual; - destructor Destroy; override; - end; - - TDAFieldRulesClass = class of TDAFieldRules; - - { TDADataTableRules } - TDADataTableRules = class(TDABusinessRules, IDAStronglyTypedDataTable, IDARangeController) - private - fDataTable: TDADataTable; - fDetails : TStringList; - - function GetDetails(Index: integer): TDADataTable; - function GetDetailsCount: integer; - - protected - // Misc - function GetDataTable: TDADataTable; - procedure Attach(aDataTable: TDADataTable); virtual; - procedure Detach(aDataTable: TDADataTable); virtual; - - procedure RefreshDetails; - - function FindDetail(const aLogicalName : string) : TDADataTable; - function DetailByName(const aLogicalName : string) : TDADataTable; - - // Business events - procedure BeforeOpen(Sender: TDADataTable); virtual; - procedure AfterOpen(Sender: TDADataTable); virtual; - procedure BeforeClose(Sender: TDADataTable); virtual; - procedure AfterClose(Sender: TDADataTable); virtual; - procedure BeforeInsert(Sender: TDADataTable); virtual; - procedure AfterInsert(Sender: TDADataTable); virtual; - procedure BeforeEdit(Sender: TDADataTable); virtual; - procedure AfterEdit(Sender: TDADataTable); virtual; - procedure BeforePost(Sender: TDADataTable); virtual; - procedure AfterPost(Sender: TDADataTable); virtual; - procedure BeforeCancel(Sender: TDADataTable); virtual; - procedure AfterCancel(Sender: TDADataTable); virtual; - procedure BeforeDelete(Sender: TDADataTable); virtual; - procedure AfterDelete(Sender: TDADataTable); virtual; - procedure BeforeScroll(Sender: TDADataTable); virtual; - procedure AfterScroll(Sender: TDADataTable); virtual; - procedure BeforeRefresh(Sender: TDADataTable); virtual; - procedure AfterRefresh(Sender: TDADataTable); virtual; - procedure OnCalcFields(Sender: TDADataTable); virtual; - procedure OnNewRecord(Sender: TDADataTable); virtual; - - procedure OnDeleteError(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction); virtual; - procedure OnEditError(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction); virtual; - procedure OnPostError(DataTable: TDADataTable; Error: EDatabaseError; var Action: TDataAction); virtual; - procedure OnFilterRecord(DataTable: TDADataTable; var Accept : boolean); virtual; - - procedure OnAfterSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnAfterDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnBeforeDataUpdateCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnAfterDataUpdateCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnBeforeScriptCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - procedure OnAfterScriptCall(DataTable: TDADataTable; Request: TDARemoteRequest); virtual; - - procedure OnAfterApplyUpdates(DataTable: TDADataTable); virtual; - procedure OnBeforeMergeDelta(DataTable: TDADataTable); virtual; - procedure OnAfterMergeDelta(DataTable: TDADataTable); virtual; - - procedure OnReceiveDataStream(DataTable: TDADataTable; Stream: TStream); virtual; - procedure OnBeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta); virtual; - - procedure Open; virtual; - procedure Close; virtual; - - function GetActive: boolean; - procedure SetActive(const Value: boolean); - - property Active: boolean read GetActive write SetActive; - - procedure Append; virtual; - procedure Cancel; virtual; - procedure Delete; virtual; - procedure Edit; virtual; - procedure First; virtual; - procedure Insert; virtual; - procedure Last; virtual; - procedure Next; virtual; - procedure Post; virtual; - procedure Prior; virtual; - - function GetBOF: Boolean; virtual; - function GetEOF: Boolean; virtual; - function GetRecordCount: Integer; virtual; - function Locate(const aKeyFields: String; const aKeyValues: Variant; aOptions: TLocateOptions = []): Boolean; virtual; - function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; - - function GetMasterOptions : TDAMasterOptions; - procedure SetMasterOptions(Value : TDAMasterOptions); - function GetDetailOptions : TDADetailOptions; - procedure SetDetailOptions(Value : TDADetailOptions); - function GetRecNo : integer; - procedure SetRecNo(Value : integer); - function GetIsEmpty: boolean; - function GetState: TDatasetState; - - function IsFieldNull(const FieldIndexOrName : Variant) : boolean; - procedure ClearField(const FieldIndexOrName : Variant); - - property DataTable: TDADataTable read GetDataTable; - property Details[Index : integer] : TDADataTable read GetDetails; - property DetailCount : integer read GetDetailsCount; - property State : TDatasetState read GetState; - property IsEmpty : boolean read GetIsEmpty; - - { IDARangeController } - procedure ApplyRange; safecall; - procedure CancelRange; safecall; - procedure SetRange(const StartValues, EndValues: array of const); safecall; - procedure EditRangeEnd; safecall; - procedure EditRangeStart; safecall; - procedure SetRangeEnd; safecall; - procedure SetRangeStart; safecall; - - public - constructor Create(aDataTable: TDADataTable); reintroduce; virtual; - destructor Destroy; override; - end; - - TDADataTableRulesClass = class of TDADataTableRules; - - { TDADataTableList } - TDADataTableList = class(TList) - private - function GetItems(Index: integer): TDADataTable; - function GetPendingChangeCount: integer; - protected - public - constructor Create(aOwnerComponent : TComponent); - - function ScanAndAdd(aOwnerComponent : TComponent) : integer; - - function Add(aDataTable : TDADataTable) : integer; - procedure Remove(aDataTable : TDADataTable); - - property Items[Index : integer] : TDADataTable read GetItems; default; - property PendingChangeCount : integer read GetPendingChangeCount; - end; - -// Registration routines -procedure RegisterDataTableRules(const anID: string; const aDataTableRulesClass: TDADataTableRulesClass); -function FindDataTableRules(const anID: string; out aDataTableRulesClass: TDADataTableRulesClass): boolean; - -procedure RegisterFieldRules(const anID: string; const aFieldRulesClass: TDAFieldRulesClass); -function FindFieldRules(const anID: string; out aFieldRulesClass: TDAFieldRulesClass): boolean; - -// Helper functions -function NewDelta(aDataTable: TDADataTable): IDADelta; overload; - -function DatatableFromStream(aStream : TStream; - aDataTableClass : TDADataTableClass; - anAdapter : TDADataAdapter; - const aDatasetName : string = '') : TDADataTable; - -implementation - -uses - {$IFDEF DESIGNTIME} - {$IFDEF MSWINDOWS} - Dialogs, - {$ENDIF MSWINDOWS} - {$IFDEF LINUX} - QDialogs, - {$ENDIF LINUX} - {$ENDIF DESIGNTIME} - TypInfo, Variants, - uROClient, uROSessions, uROXMLIntf, - uDARegExpr, uDABusinessProcessor, - uDARemoteDataAdapter; - -var - _bizfields, - _bizdatatables: TStringList; - -type - TDataSetHack = class(TDataSet); - -function NewDelta(aDataTable: TDADataTable): IDADelta; -begin - result := TDADelta.Create(aDataTable); -end; - -procedure RegisterDataTableRules(const anID: string; const aDataTableRulesClass: TDADataTableRulesClass); -var - idx: integer; -begin - idx := _bizdatatables.IndexOf(anID); - - if (idx >= 0) then - _bizdatatables.Objects[idx] := TObject(aDataTableRulesClass) - else - _bizdatatables.AddObject(anID, TObject(aDataTableRulesClass)); -end; - -function FindDataTableRules(const anID: string; out aDataTableRulesClass: TDADataTableRulesClass): boolean; -var - idx: integer; -begin - result := FALSE; - idx := _bizdatatables.IndexOf(anID); - if (idx >= 0) then begin - aDataTableRulesClass := TDADataTableRulesClass(_bizdatatables.Objects[idx]); - result := TRUE; - end - else - aDataTableRulesClass := nil; -end; - -procedure RegisterFieldRules(const anID: string; const aFieldRulesClass: TDAFieldRulesClass); -var - idx: integer; -begin - idx := _bizfields.IndexOf(anID); - - if (idx >= 0) then - _bizfields.Objects[idx] := TObject(aFieldRulesClass) - else - _bizfields.AddObject(anID, TObject(aFieldRulesClass)); -end; - -function FindFieldRules(const anID: string; out aFieldRulesClass: TDAFieldRulesClass): boolean; -var - idx: integer; -begin - result := FALSE; - idx := _bizfields.IndexOf(anID); - if (idx >= 0) then begin - aFieldRulesClass := TDAFieldRulesClass(_bizfields.Objects[idx]); - result := TRUE; - end - else - aFieldRulesClass := nil; -end; - -function DatatableFromStream(aStream : TStream; - aDataTableClass : TDADataTableClass; - anAdapter : TDADataAdapter; - const aDatasetName : string = '') : TDADataTable; -begin - result := aDataTableClass.Create(NIL); - result.RemoteFetchEnabled := FALSE; - anAdapter.ReadDataset(aStream, result, TRUE, aDatasetName); - result.First; -end; - -{ TDADataTable } - -constructor TDADataTable.Create(aOwner: TComponent); -begin - inherited; - fHasReducedDelta := False; - fScriptCode := TStringList.Create; - fCustomAttributes := TStringList.Create; - fMaxRecords := -1; - - fMasterMappingMode := mmParams; - fMasterParamsMappings := TStringList.Create; - - fFieldRules := TObjectList.Create; - - fRemoteUpdateOptions := []; - fStreamingOptions := [soDisableEventsWhileStreaming]; - fDetailOptions := [dtCascadeOpenClose, - dtCascadeApplyUpdates, - dtAutoFetch, - dtCascadeDelete, - dtCascadeUpdate, - dtDisableLogOfCascadeDeletes, - dtDisableLogOfCascadeUpdates, - dtIncludeInAllInOneFetch // Done to avoid breaking existing apps - ]; - - fMasterOptions := [moCascadeOpenClose, - moCascadeApplyUpdates, - moCascadeDelete, - moCascadeUpdate, - moDisableLogOfCascadeDeletes, - moDisableLogOfCascadeUpdates]; - - fFetchedMasters := TStringList.Create; - fFetchedMasters.Duplicates := dupError; - fFetchedMasters.Sorted := TRUE; - - fMasterRequestMappings := TStringList.Create; - - fRemoteFetchEnabled := TRUE; - fStreaming := False; - - SetLength(fSortDirections, 0); - SetLength(fSortFieldNames, 0); - - fFields := TDAFieldCollection.Create(Self); - fFields.OnFieldBeforeUpdate := InternalBeforeFieldUpdate; - fFields.OnFieldAfterUpdate := InternalAfterFieldUpdate; - fParams := TDAParamCollection.Create(Self); - - fWhere := TDAWhere.Create(fFields, TRUE); - fWhere.OnChange := OnWhereChange; - - fDataset := GetDatasetClass.Create(Self); - fDataset.Name := 'Dataset'; - - fMasterLink := TMasterDataLink.Create(fDataset); - fMasterLink.OnMasterChange := OnMasterChange; - fMasterLink.OnMasterDisable := OnMasterDisable; - - fExpressionEvaluator := TDAStdExpressionEvaluator.Create; - fExpressionEvaluator.OnGetValue := ExpessionEvaluatorGetValue; - - fDynamicWhere := TDAWhereBuilder.Create; - fLogChanges := TRUE; -end; - -destructor TDADataTable.Destroy; -begin - fDynamicWhere.Free; - fExpressionEvaluator.Free; - fFields.Free; - fWhere.Free; - - fMasterLink.Free; - fMasterRequestMappings.Free; - fMasterParamsMappings.Free; - - fFetchedMasters.Free; - - if (fBusinessRules <> nil) then begin - fBusinessRules.Detach(Self); - fBusinessRules.Free; - end; - - fFieldRules.Free; - fParams.Free; - - fDelta := NIL; - fScriptCode.Free; - fCustomAttributes.Free; - - inherited; -end; - -procedure TDADataTable.OnWhereChange(Sender : TObject); -var - par : TRORequestParam; -begin - //TODO: par := DataRequestCall.FindParam(par_UserFilter); - //if (par<>NIL) then par.AsString := fWhere.Clause; - - if RemoteFetchEnabled and (RemoteDataAdapter <> nil) then - begin - par := (TDARemoteDataAdapter(RemoteDataAdapter).GetDataCall).FindParam('UserFilter'); - if (par <> NIL) then - par.AsString := fWhere.Clause; - end; -end; - -procedure TDADataTable.AttachEventHooks(aDataset: TDataset); -var i : integer; - lFieldRulesClass : TDAFieldRulesClass; - lFieldRules : TDAFieldRules; - lField : TDAField; -begin - if (csDesigning in ComponentState) then Exit; - - aDataset.BeforeInsert := InternalBeforeInsert; - aDataset.AfterInsert := InternalAfterInsert; - aDataset.BeforeEdit := InternalBeforeEdit; - aDataset.AfterEdit := InternalAfterEdit; - aDataset.BeforePost := InternalBeforePost; - aDataset.AfterPost := InternalAfterPost; - aDataset.BeforeCancel := InternalBeforeCancel; - aDataset.AfterCancel := InternalAfterCancel; - aDataset.BeforeDelete := InternalBeforeDelete; - aDataset.AfterDelete := InternalAfterDelete; - aDataset.BeforeScroll := InternalBeforeScroll; - aDataset.AfterScroll := InternalAfterScroll; - aDataset.BeforeRefresh := InternalBeforeRefresh; - aDataset.AfterRefresh := InternalAfterRefresh; - - aDataset.OnCalcFields := InternalOnCalcFields; - aDataset.OnNewRecord := InternalOnNewRecord; - - aDataset.OnFilterRecord := InternalOnFilterRecord; - - aDataset.OnDeleteError := InternalOnDeleteError; - aDataset.OnEditError := InternalOnEditError; - aDataset.OnPostError := InternalOnPostError; - - for i := 0 to (fFields.Count-1) do begin - lField := Fields[i]; - if (lField.BusinessClassID='') then Continue; - - Check(not FindFieldRules(lField.BusinessClassID, lFieldRulesClass), 'Invalid BusinessClassID "%s"', [lField.BusinessClassID]); - - lFieldRules := lFieldRulesClass.Create(lField, Self); - fFieldRules.Add(lFieldRules); - end; - - fFields.FieldEventsDisabled := FALSE; -end; - -procedure TDADataTable.DetachEventHooks(aDataset: TDataset); -begin - if (csDesigning in ComponentState) then Exit; - - aDataset.BeforeInsert := nil; - aDataset.AfterInsert := nil; - aDataset.BeforeEdit := nil; - aDataset.AfterEdit := nil; - aDataset.BeforePost := TempSetRowRecIDValue; // We still need to autoinc the RecID!!! - aDataset.AfterPost := nil; - aDataset.BeforeCancel := nil; - aDataset.AfterCancel := nil; - aDataset.BeforeDelete := nil; - aDataset.AfterDelete := nil; - aDataset.BeforeScroll := nil; - aDataset.AfterScroll := nil; - aDataset.BeforeRefresh := nil; - aDataset.AfterRefresh := nil; - if not Filtered then - aDataset.OnCalcFields := nil; - aDataset.OnNewRecord := nil; - - aDataset.OnFilterRecord := nil; - - aDataset.OnDeleteError := nil; - aDataset.OnEditError := nil; - aDataset.OnPostError := nil; - - fFields.FieldEventsDisabled := TRUE; - fFieldRules.Clear; // Destroyes them -end; - -procedure TDADataTable.InternalAfterDelete(Sender: TDataset); -begin - CallScript('AfterDelete'); - if Assigned(AfterDelete) then AfterDelete(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterDelete(Self); - - if (ruoOnPost in RemoteUpdatesOptions) then ApplyUpdates(); -end; - -procedure TDADataTable.InternalAfterEdit(Sender: TDataset); -begin - CallScript('AfterEdit'); - if Assigned(AfterEdit) then AfterEdit(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterEdit(Self); -end; - -procedure TDADataTable.InternalAfterInsert(Sender: TDataset); -var - i: integer; -begin - CallScript('AfterInsert'); - - if (State <> dsEdit) then begin // Somehow it's gets in dsBrowse here... - // (autoinc) - for i := 0 to (fFields.Count-1) do - if (fFields[i].DataType=datLargeAutoInc) then begin - fFields[i].AsLargeInt := AutoIncs[i]; - AutoIncs[i] := AutoIncs[i]-1; - end else - if (fFields[i].DataType=datAutoInc) then begin - fFields[i].AsInteger := AutoIncs[i]; - AutoIncs[i] := AutoIncs[i]-1; - end; - end; - - if Assigned(AfterInsert) then AfterInsert(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterInsert(Self); -end; - -procedure TDADataTable.InternalAfterRefresh(Sender: TDataset); -begin - CallScript('AfterRefresh'); - if Assigned(AfterRefresh) then AfterRefresh(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterRefresh(Self); -end; - -procedure TDADataTable.InternalAfterScroll(Sender: TDataset); -begin - if fStreaming and (soDisableEventsWhileStreaming in fStreamingOptions) - then Exit; - CallScript('AfterScroll'); - if Assigned(AfterScroll) then AfterScroll(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterScroll(Self); -end; - -procedure TDADataTable.InternalBeforeCancel(Sender: TDataset); -begin - CallScript('BeforeCancel'); - if Assigned(BeforeCancel) then BeforeCancel(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeCancel(Self); -end; - -procedure TDADataTable.InternalBeforeRefresh(Sender: TDataset); -begin - CallScript('BeforeRefresh'); - if Assigned(BeforeRefresh) then BeforeRefresh(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeRefresh(Self); - DoRefresh(fDataset); -end; - -procedure TDADataTable.InternalBeforeScroll(Sender: TDataset); -begin - if fStreaming and (soDisableEventsWhileStreaming in fStreamingOptions) - then Exit; - CallScript('BeforeScroll'); - if Assigned(BeforeScroll) then BeforeScroll(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeScroll(Self); -end; - -procedure TDADataTable.InternalOnCalcFields(Sender: TDataset); -var - i: integer; -begin - CallScript('OnCalcFields'); - if Assigned(OnCalcFields) then OnCalcFields(Self); - if Assigned(fBusinessRules) then fBusinessRules.OnCalcFields(Self); - For i:= 0 to fFields.Count-1 do - With fFields[i] do - if Calculated and (Expression <> '') then Value:= fExpressionEvaluator.Evaluate(Expression); -end; - -procedure TDADataTable.InternalOnDeleteError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); -begin - if Assigned(OnDeleteError) then OnDeleteError(Self, Error, Action); - if Assigned(fBusinessRules) then fBusinessRules.OnDeleteError(Self, Error, Action); -end; - -procedure TDADataTable.InternalOnEditError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); -begin - if Assigned(OnEditError) then OnEditError(Self, Error, Action); - if Assigned(fBusinessRules) then fBusinessRules.OnEditError(Self, Error, Action); -end; - -procedure TDADataTable.InternalOnFilterRecord(Dataset: TDataset; var Accept: Boolean); -begin - if Assigned(OnFilterRecord) then OnFilterRecord(Self, Accept); - if Assigned(fBusinessRules) then fBusinessRules.OnFilterRecord(Self, Accept); -end; - -procedure TDADataTable.InternalOnPostError(DataSet: TDataSet; Error: EDatabaseError; var Action: TDataAction); -begin - fDelta.RestoreLastChange; // ALEF: added as follow up to the Post errors (Jeff B.) - - if Assigned(OnPostError) then OnPostError(Self, Error, Action); - if Assigned(fBusinessRules) then fBusinessRules.OnPostError(Self, Error, Action); -end; - -procedure TDADataTable.SetLogChanges(const Value: boolean); -begin - fLogChanges := Value; -end; - -function TDADataTable.GetDataset: TDataset; -begin - result := fDataset // inherited Dataset; -end; - -function TDADataTable.GetFields: TDAFieldCollection; -begin - result := fFields; -end; - -procedure TDADataTable.SetFields(const Value: TDAFieldCollection); -begin - if Active then Close; - fFields.Assign(Value); -end; - -function TDADataTable.GetActive: boolean; -begin - result := fDataset.Active; -end; - -procedure TDADataTable.SetActive(Value: boolean); -begin - if (csLoading in ComponentState) then - fStreamedActive := Value - else begin - if (Value <> Active) then begin - if Value then - Open - else - Close - end; - end; -end; - -procedure TDADataTable.InternalOnNewRecord(Sender: TDataset); -var - i: integer; -begin - fFields.FieldEventsDisabled := TRUE; - try - try - for i := 0 to (fFields.Count - 1) do - if (fFields[i].DefaultValue <> '') then fFields[i].Value := fFields[i].DefaultValue; - - fFields.FieldEventsDisabled := FALSE; - - CallScript('OnNewRecord'); - if Assigned(OnNewRecord) then OnNewRecord(Self); - if Assigned(fBusinessRules) then fBusinessRules.OnNewRecord(Self); - except - fDelta.CancelChange; // OnNewRecord's exception put the dataset in read mode so we must cancel the change - raise; - end; - finally - fFields.FieldEventsDisabled := FALSE; // Just in case... - end; -end; - -procedure TDADataTable.DoCascadeOperation(aStreamer: TDADataStreamer; aOption: TDAMasterOption); -var - i: integer; - details: TList; - dt: TDADataTable; - flag: boolean; -begin - if aOption = moAllInOneFetch then begin - DoCascadeRemoteAllInOneFetch(aStreamer); - exit; - end; - details := GetDetailDataTables; - try - for i := 0 to (details.Count - 1) do begin - dt := TDADataTable(details[i]); - flag := dt.LogChanges; - - case aOption of - moCascadeDelete: begin - if (dtDisableLogOfCascadeDeletes in dt.DetailOptions) then dt.LogChanges := FALSE; - - dt.ClearRows; - end; - - moCascadeOpenClose: begin - if (dtCascadeOpenClose in dt.DetailOptions) then begin - if Opening then - dt.DoOpen - else if Closing then - dt.Close; - end; - end; - - moCascadeUpdate: begin - end; - - moAllInOneFetch: begin - { - if (dtIncludeInAllInOneFetch in dt.DetailOptions) then try - dt.LogChanges := FALSE; - - if Opening and not (soIgnoreStreamSchema in fStreamingOptions) then - begin - aStreamer.ReadDataset(dt.LogicalName, dt, TRUE, FALSE); - dt.InitializeDataTable; - end; - - aStreamer.ReadDataset(dt.LogicalName, dt); - dt.DoCascadeOperation(aStreamer, moAllInOneFetch); - finally - dt.LogChanges := flag; - end; } - end; - end; - - dt.LogChanges := flag; - end; - finally - details.Free; - end; -end; - -procedure TDADataTable.DoCascadeRemoteAllInOneFetch(aStreamer: TDADataStreamer); -var - lFetchedMasters: TStringList; - - procedure ProcessDetailTable(aTable: TDADataTable); - begin - with aTable do begin - fFetchedMasters.Sorted:=False; - fFetchedMasters.AddStrings(lFetchedMasters); - fFetchedMasters.Sorted:=True; - DoCascadeRemoteAllInOneFetch(aStreamer); - end; - end; - -var - lLocalList, lRemoteList: TList; - ltbl: TDADataTable; - i: integer; - lflag: boolean; -begin - if moAllInOneFetch in fMasterOptions then begin - lRemoteList:= TList.Create; - lLocalList:= TList.Create; - try - GetDetailTablesforAllinOneFetch(lRemoteList,lLocalList, False); - if (lRemoteList.Count > 0) or (lLocalList.Count > 0) then begin - lFetchedMasters:= TStringList.Create; - try - First; - while not EOF do begin - lFetchedMasters.Add(IntToStr(GetRowRecIDValue)); - Next; - end; - lFetchedMasters.Sort; - - // these tables are read in RDA - for i := 0 to lRemoteList.Count - 1 do begin - ProcessDetailTable(TDADataTable(lRemoteList[i])); - end; - - // these tables we should read manually from streamer - for i := 0 to lLocalList.Count - 1 do begin - ltbl:= TDADataTable(lLocalList[i]); - if aStreamer.FindDatasetIndex(ltbl.LogicalName) = -1 then Continue; // may be to better raise an exception! - lflag := ltbl.LogChanges; - try - ltbl.LogChanges := False; - if Opening and not (soIgnoreStreamSchema in fStreamingOptions) then begin - aStreamer.ReadDataset(ltbl.LogicalName, ltbl, TRUE, FALSE); - ltbl.InitializeDataTable; - end; - aStreamer.ReadDataset(ltbl.LogicalName, ltbl); - finally - ltbl.LogChanges := lflag; - end; - ProcessDetailTable(ltbl); - end; - finally - lFetchedMasters.Free; - end; - end; - finally - lRemoteList.Free; - lLocalList.Free; - end; - end; -end; - -procedure TDADataTable.TempSetRowRecIDValue(Sender: TDataset); -begin - if (State <> dsEdit) then begin // Somehow it's gets in dsBrowse here... - fRecIDField.AsInteger := CurrRecId; - CurrRecId := CurrRecId + 1; - end; -end; - -procedure TDADataTable.CreateInternalFields(aDataset: TDataset; someFieldDefinitions: TDAFieldCollection); -var - i, cnt: integer; - fld: TFieldDef; - fldcls: TFieldClass; - realfld: TField; -begin - // Creates the RecID field - fld := aDataset.FieldDefs.AddFieldDef; - fld.DataType := ftInteger; - fld.Name := RecIDFieldName; - - // Creates the autoinc map (autoinc) - AutoIncs := CreateAutoIncArray; - - // Adds the data fields (non calculated) to the FieldDefs - for i := 0 to (Fields.Count - 1) do begin - if Fields[i].Calculated or Fields[i].Lookup then Continue; // Added as fields later - - fld := aDataset.FieldDefs.AddFieldDef; - - // (autoinc) - if (Fields[i].DataType=datLargeAutoInc) - then fld.DataType := ftLargeint - else - if (Fields[i].DataType=datAutoInc) - then fld.DataType := ftInteger - else fld.DataType := DATypeToVCLType(Fields[i].DataType); - - fld.Name := Fields[i].Name; - - {if not (fld.DataType in [ftFloat, ftCurrency, ftBlob, ftInteger]) - then fld.Size := Fields[i].Size;} - - if (fld.DataType = ftString) or (fld.DataType = ftWideString) then fld.Size := Fields[i].Size; - if (fld.DataType = ftGuid) then fld.Size := 38; - - fld.Required := Fields[i].Required; - end; - - // Creates the data fields - for i := 0 to (aDataset.FieldDefs.Count - 1) do begin - realfld := aDataset.FieldDefs[i].CreateField(aDataset); - realfld.DataSet := aDataset; // NEW - end; - - // Creates the calculated fields - for i := 0 to (Fields.Count - 1) do begin - if not Fields[i].Calculated then Continue; - - fldcls := DefaultFieldClasses[DATypeToVCLType(Fields[i].DataType)]; - if fldcls = nil then fldcls := TStringField; - realfld := fldcls.Create(Self); - realfld.Name := aDataset.Name + Fields[i].Name; - realfld.FieldName := Fields[i].Name; - realfld.DataSet := aDataset; - - if (Fields[i].DataType = datString) or (Fields[i].DataType = datWideString) then realfld.Size := Fields[i].Size; - - realfld.Required := Fields[i].Required; - if Fields[i].Calculated then realfld.FieldKind := fkCalculated; - - realfld.DataSet := aDataset; - end; - - // Creates the lookup fields - for i := 0 to (Fields.Count - 1) do begin - if not Fields[i].Lookup then Continue; - - fldcls := DefaultFieldClasses[DATypeToVCLType(Fields[i].DataType)]; - - if not Assigned(fldcls) then - RaiseError('No or invalid DataType specified for lookup field %s.%s',[self.Name, Fields[i].Name]); - - realfld := fldcls.Create(Self); - realfld.Name := aDataset.Name + Fields[i].Name; - realfld.FieldName := Fields[i].Name; - realfld.DataSet := aDataset; // NEW - - // Sets lookup properties - with Fields[i] do begin - {$IFDEF FPC} - realfld.FieldKind:=fkLookup; - {$ELSE} - realfld.Lookup := TRUE; - {$ENDIF} - if (LookupSource<>NIL) then - with TDADataSource(LookupSource) do - if Assigned(DataTable) - then realfld.LookupDataSet := DataTable.Dataset; - - realfld.LookupKeyFields := LookupKeyFields; - realfld.LookupCache := LookupCache; - realfld.LookupResultField := LookupResultField; - realfld.KeyFields := KeyFields; - end; - - if (Fields[i].DataType = datString) or (Fields[i].DataType = datWideString) then realfld.Size := Fields[i].Size; - - //realfld.DataSet := aDataset; - end; - - // Adjusts field positions (less intrusive than changing the code above) - cnt := Fields.Count-1; - for i := 0 to cnt do - aDataSet.FieldByName(Fields[i].Name).Index := i+1; -end; - -procedure TDADataTable.Loaded; -begin - inherited; - - if Assigned(fBusinessRules) - then fBusinessRules.Attach(Self); - - Active := fStreamedActive; - - AttachEventHooks(fDataset); -end; - -procedure TDADataTable.DoRefresh(aDataset: TDataset); -begin - if fRefreshing then Exit; - - fRefreshing := TRUE; - try - Close; - Open; - finally - fRefreshing := FALSE; - end; -end; - -procedure TDADataTable.InternalBeforeInsert(Sender: TDataset); -begin - CallScript('BeforeInsert'); - if Assigned(BeforeInsert) then BeforeInsert(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeInsert(Self); - - if not LogChanges or (csDesigning in ComponentState) then Exit; - - fDelta.StartChange(ctInsert); -end; - -procedure TDADataTable.InternalBeforeDelete(Sender: TDataset); -begin - CallScript('BeforeDelete'); - if Assigned(BeforeDelete) then BeforeDelete(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeDelete(Self); - - if not LogChanges or (csDesigning in ComponentState) then Exit; - - // Deletes the records from the detail tables - if (moCascadeDelete in MasterOptions) then DoCascadeOperation(nil, moCascadeDelete); - - // Logs the delete - fDelta.StartChange(ctDelete); - fDelta.EndChange; -end; - -procedure TDADataTable.InternalBeforeEdit(Sender: TDataset); -begin - CallScript('BeforeEdit'); - if Assigned(BeforeEdit) then BeforeEdit(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeEdit(Self); - - if not LogChanges or (csDesigning in ComponentState) then Exit; - - fDelta.StartChange(ctUpdate); -end; - -procedure TDADataTable.InternalBeforePost(Sender: TDataset); -var details : TList; - key : string; - i : integer; -begin - CallScript('BeforePost'); - if Assigned(BeforePost) then BeforePost(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforePost(Self); - - for i := 0 to (fFields.Count - 1) do - if (fFields[i].RegExpression <> '') and not fFields[i].IsNull then begin - if not ExecRegExpr(fFields[i].RegExpression, fFields[i].AsString) then RaiseError('Invalid input value for field ' + fFields[i].Name); - end; - - if (State <> dsEdit) then begin // Somehow it's gets in dsBrowse here... - fRecIDField.AsInteger := CurrRecId; - CurrRecId := CurrRecId + 1; - end; - - // This was originally in AfterPost. Moved here because after a post filters might step in and the current - // record can change resulting in half change from record X and the remaining from record Y - - if not LogChanges or (csDesigning in ComponentState) then Exit; - fDelta.EndChange; - - // Adds a reference to the RecID of this record to avoid double fetching records - // This is a new master record, so it means there are no details to fetch remotely - if (State=dsInsert) then begin - key := IntToStr(GetRowRecIDValue); - details := GetDetailDataTables; - try - for i := 0 to (details.Count-1) do begin - with TDADataTable(details[i]) do - if Active and (fFetchedMasters.IndexOf(key)<0) then fFetchedMasters.Add(key); - end; - finally - details.Free; - end; - end; - - if (ruoOnPost in RemoteUpdatesOptions) then try - ApplyUpdates(); - except - on E: Exception do - begin - fDelta.RestoreLastChange; - raise; - end; - end; -end; - -procedure TDADataTable.InternalAfterPost(Sender: TDataset); -begin - CallScript('AfterPost'); - if Assigned(AfterPost) then AfterPost(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterPost(Self); - - if not LogChanges or (csDesigning in ComponentState) then Exit; - -end; - -procedure TDADataTable.InternalAfterCancel(Sender: TDataset); -begin - CallScript('AfterCancel'); - if Assigned(AfterCancel) then AfterCancel(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterCancel(Self); - - fDelta.CancelChange; -end; - -function TDADataTable.GetLogChanges: boolean; -begin - result := fLogChanges; -end; - -procedure TDADataTable.DisableControls; -begin - fDataset.DisableControls; -end; - -procedure TDADataTable.EnableControls; -begin - fDataset.EnableControls; -end; - -function TDADataTable.GetBOF: boolean; -begin - result := fDataset.BOF -end; - -function TDADataTable.GetEOF: boolean; -begin - result := fDataset.EOF -end; - -function TDADataTable.GetFieldCount: integer; -begin - result := fFields.Count -end; - -function TDADataTable.GetFieldValues(Index: integer): Variant; -begin - result := Fields[Index].Value -end; - -function TDADataTable.GetNames(Index: integer): string; -begin - result := Fields[Index].Name -end; - -function TDADataTable.GetRecordCount: integer; -begin - result := fDataset.RecordCount; -end; - -function TDADataTable.GetSQL: string; -begin - // Not implemented in DataTables - result := ''; -end; - -function TDADataTable.Locate(const KeyFields: string; - const KeyValues: Variant; Options: TLocateOptions): Boolean; -begin - if VarIsArray(KeyValues) and (VarArrayHighBound(KeyValues, 1) = 0) - then result := fDataset.Locate(KeyFields, KeyValues[0], Options) - else result := fDataset.Locate(KeyFields, KeyValues, Options); -end; - -procedure TDADataTable.Next; -begin - fDataset.Next; -end; - -procedure TDADataTable.SetSQL(const Value: string); -begin - // Not implemented in DataTables -end; - -function TDADataTable.Execute: integer; -begin - // Not implemented in DataTables - result := -1; -end; - -function TDADataTable.GetParams: TDAParamCollection; -begin - // Not implemented in DataTables - result := fParams; -end; - -procedure TDADataTable.RefreshParams; -begin - // Not implemented in DataTables -end; - -procedure TDADataTable.Append; -begin - fDataset.Append; -end; - -procedure TDADataTable.Delete; -begin - fDataset.Delete; -end; - -procedure TDADataTable.Cancel; -begin - fDataset.Cancel; -end; - -procedure TDADataTable.Edit; -begin - fDataset.Edit; -end; - -procedure TDADataTable.Insert; -begin - fDataset.Insert; -end; - -procedure TDADataTable.Post; -begin - fDataset.Post; -end; - -{$WARN SYMBOL_DEPRECATED OFF} -function TDADataTable.GetWhere: TDAWhere; -begin - result := fWhere -end; -{$WARN SYMBOL_DEPRECATED ON} - -procedure TDADataTable.SetRemoteDataAdapter(const Value: TDABaseRemoteDataAdapter); -begin - if Value <> fRemoteDataAdapter then begin - fRemoteDataAdapter := Value; - if assigned(fRemoteDataAdapter) then fRemoteDataAdapter.FreeNotification(self); - end; -end; - -procedure TDADataTable.Close; -begin - if not Active then Exit; - - fClosing := TRUE; - try - DoBeforeCloseDataset; - if Assigned(BeforeClose) then BeforeClose(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeClose(Self); - - if (moCascadeOpenClose in MasterOptions) then DoCascadeOperation(nil, moCascadeOpenClose); - - Dataset.Close; - fFields.Unbind; - - //Dataset.Fields.Clear; - - fDelta := nil; - - fFetchedMasters.Clear; - - DoAfterCloseDataset; - if Assigned(AfterClose) then AfterClose(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterClose(Self); - finally - fClosing := FALSE; - end; -end; - -procedure TDADataTable.InitializeDataTable; -begin - fCurrRecId := 1; - - try - fDataset.Fields.Clear; - fDataset.FieldDefs.Clear; - finally - NotifyFieldsClear; - end; - try - // Creates the fields for the internal dataset - CreateInternalFields(fDataset, Fields); - finally - NotifyFieldsClear; - end; - - fRecIDField := fDataset.FieldByName(RecIDFieldName) as TIntegerField; - fRecIDField.Visible := FALSE; - - fFields.Bind(fDataset); - - // Prepares the delta - fDelta := TDADelta.Create(Self); - -(* - // Finishes to prepare the internal dataset (descendant might need additional customization and might not be open) - if RemoteFetchEnabled and - (RemoteDataAdapter<>nil) and - (TDARemoteDataAdapter(RemoteDataAdapter).GetDataCall.Default) then - LoadScript(); -*) - DoBeforeOpenDataset; - if not Dataset.Active then Dataset.Open; - DoAfterOpenDataset; -end; - -procedure TDADataTable.LoadFromLocalSchema; -var - lConnection: IDAConnection; - data: TStream; - gofirst, oldlog: boolean; - ds: IDADataset; - i: integer; - lDynFields: array of string; -begin - if (LocalSchema = nil) or (LogicalName = '') then begin - InitializeDataTable; - Exit; - end; - - // Local but from schema. Client/Server mode - CheckProperties; - - lConnection := LocalSchema.ConnectionManager.NewConnection(fLocalConnection); - try - SetLength(lDynFields, 0); - ds := LocalSchema.NewDataset(lConnection, fLogicalName,lDynFields,fDynamicWhere.Xml); - - oldlog := LogChanges; - fFetching := TRUE; - LogChanges := FALSE; -// book := nil; - - data := Binary.Create; - Binary(data).CapacityIncrement := LocalDataStreamer.BufferSize; - try - for i := 0 to (ds.Params.Count - 1) do - ds.Params[i].Value := ParamByName(ds.Params[i].Name).Value; - - LocalDataStreamer.WriteDataset(data, ds, [woRows, woSchema], -1); - - if Active then - gofirst := FALSE - else - gofirst := TRUE; - - if Assigned(fOnReceiveDataStream) then fOnReceiveDataStream(Self, data); - if Assigned(fBusinessRules) then fBusinessRules.OnReceiveDataStream(Self, data); - data.Position := 0; - - // Reads the data - LocalDataStreamer.Initialize(data, aiRead); - if (LocalDataStreamer.DatasetCount = 0) then RaiseError('Stream does not contain any dataset'); - - if Opening then begin - if not (soIgnoreStreamSchema in fStreamingOptions) then LocalDataStreamer.ReadDataset(LogicalName, Self, TRUE, FALSE); - - InitializeDataTable; - end; - - LocalDataStreamer.ReadDataset(LogicalName, Self, FALSE); - { - if (moAllInOneFetch in MasterOptions) then begin - DoCascadeOperation(LocalDataStreamer, moAllInOneFetch); - end;} - - LocalDataStreamer.Finalize; - - if gofirst then First; - finally - fFetching := FALSE; - data.Free; - LogChanges := oldlog; - end; - finally - lConnection := nil; - end; -end; - -procedure TDADataTable.DoOpen(IgnoreAutoFetchSettings: Boolean); -var i : integer; -begin - if Active or fOpening then Exit; - - fOpening := TRUE; - try - { Checks that all the lookup datasets are open. If not, we would get the error "Missing Data Provider"} - for i := 0 to (FieldCount-1) do - if Fields[i].Lookup and (Fields[i].LookupSource<>NIL) then begin - if (Fields[i].LookupSource is TDADataSource) then begin - if Assigned(TDADataSource(Fields[i].LookupSource).DataTable) - then TDADataSource(Fields[i].LookupSource).DataTable.Open; - end - else begin - if Assigned(Fields[i].LookupSource.DataSet) - then Fields[i].LookupSource.DataSet.Open; - end; - end; - - - if Assigned(BeforeOpen) then BeforeOpen(Self); - if Assigned(fBusinessRules) then fBusinessRules.BeforeOpen(Self); - - try - if not fFetching then begin - if fMasterLink.Active then - FetchMastersDetails(nil, nil, IgnoreAutoFetchSettings) // This calls InitializeDataTable possibily applying a new schema - else - if RemoteFetchEnabled then LoadFromRemoteSource else LoadFromLocalSchema; - end; - - if (moCascadeOpenClose in MasterOptions) then DoCascadeOperation(nil, moCascadeOpenClose); - - if Assigned(AfterOpen) then AfterOpen(Self); - if Assigned(fBusinessRules) then fBusinessRules.AfterOpen(Self); - except - on E: Exception do begin - Close; - {$IFDEF DESIGNTIME} - if (csDesigning in ComponentState) then begin - SysUtils.Beep; - MessageDlg(E.Message, mtError, [mbOK], 0); - end - else - {$ENDIF DESIGNTIME} - raise; - end; - end; - finally - fOpening := FALSE; - end; -end; - -procedure TDADataTable.Open; -begin - DoOpen(True); -end; - - -procedure TDADataTable.OnMasterChange(Sender: TObject); -begin - if (MasterSource <> nil) and (MasterSource.DataTable <> nil) then begin - if MasterSource.DataTable.fFetching then - exit; - end; - - FetchMastersDetails; -end; - -procedure TDADataTable.OnMasterDisable(Sender: TObject); -begin - -end; - -procedure TDADataTable.LoadFromRemoteSource(BookmarkPosition: boolean = FALSE); -begin - CheckProperties(True); - if Assigned(fOnBeforeDataRequestCall) then fOnBeforeDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall); - if Assigned(fBusinessRules) then fBusinessRules.OnBeforeDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall); - RemoteDataAdapter.Fill([self], BookmarkPosition, FieldCount = 0); - if Assigned(fOnAfterDataRequestCall) then fOnAfterDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall); - if Assigned(fBusinessRules) then fBusinessRules.OnAfterDataRequestCall(Self, RemoteDataAdapter.Get_GetDataCall); -end; - -function TDADataTable.ApplyUpdates(RefetchAll: boolean = FALSE): boolean; -var - details: TList; - i: integer; - dt: TDADataTable; -begin - details:= GetDetailTablesforApplyUpdate; - try - // check RDA - CheckProperties; - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - {if dt.RemoteFetchEnabled then } dt.CheckProperties; - end; - - //fOnBeforeApplyUpdates - if Assigned(fOnBeforeApplyUpdates) then fOnBeforeApplyUpdates(Self, fDelta); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fOnBeforeApplyUpdates) then dt.fOnBeforeApplyUpdates(dt, fDelta); - end; - - //fBusinessRules.OnBeforeApplyUpdates - if Assigned(fBusinessRules) then fBusinessRules.OnBeforeApplyUpdates(Self, fDelta); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnBeforeApplyUpdates(dt, fDelta); - end; - - if RemoteFetchEnabled then begin - - //fOnBeforeDataUpdateCall - if Assigned(fOnBeforeDataUpdateCall) then fOnBeforeDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fOnBeforeDataUpdateCall) then dt.fOnBeforeDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall); - end; - - //fBusinessRules.OnBeforeDataUpdateCall - if Assigned(fBusinessRules) then fBusinessRules.OnBeforeDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnBeforeDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall); - end; - - result := RemoteDataAdapter.ApplyUpdates([self], RefetchAll); - - //fOnAfterDataUpdateCall - if Assigned(fOnAfterDataUpdateCall) then fOnAfterDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fOnAfterDataUpdateCall) then dt.fOnAfterDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall); - end; - - //fBusinessRules.OnAfterDataUpdateCall - if Assigned(fBusinessRules) then fBusinessRules.OnAfterDataUpdateCall(Self, RemoteDataAdapter.Get_UpdateDataCall); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnAfterDataUpdateCall(dt, dt.RemoteDataAdapter.Get_UpdateDataCall); - end; - - end - else begin - result := Local_ApplyUpdates(RefetchAll); - end; - - //fOnAfterApplyUpdates - if Assigned(fOnAfterApplyUpdates) then fOnAfterApplyUpdates(Self); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fOnAfterApplyUpdates) then dt.fOnAfterApplyUpdates(dt); - end; - - //fBusinessRules.OnAfterApplyUpdates - if Assigned(fBusinessRules) then fBusinessRules.OnAfterApplyUpdates(Self); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnAfterApplyUpdates(dt); - end; - finally - details.Free; - end; -end; - -procedure TDADataTable.LoadSchema(PreserveLookupFields : boolean = FALSE; PreserveClientCalcFields : boolean = FALSE); -begin - CheckProperties(True); - if Assigned(fOnBeforeSchemaCall) then fOnBeforeSchemaCall(Self, RemoteDataAdapter.Get_GetSchemaCall); - if Assigned(fBusinessRules) then fBusinessRules.OnBeforeSchemaCall(self, RemoteDataAdapter.Get_GetSchemaCall); - RemoteDataAdapter.FillSchema([self], PreserveLookupFields, PreserveClientCalcFields); - if Assigned(fOnAfterSchemaCall) then fOnAfterSchemaCall(Self, RemoteDataAdapter.Get_GetSchemaCall); - if Assigned(fBusinessRules) then fBusinessRules.OnAfterSchemaCall(self, RemoteDataAdapter.Get_GetSchemaCall); -end; - -procedure TDADataTable.LoadScript(aDatasetName : string = ''); -begin - CheckProperties(True); - if Assigned(fOnBeforeScriptCall) then fOnBeforeScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall); - if Assigned(fBusinessRules) then fBusinessRules.OnBeforeScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall); - RemoteDataAdapter.FillScripts([self]); - if Assigned(fOnAfterScriptCall) then fOnAfterScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall); - if Assigned(fBusinessRules) then fBusinessRules.OnAfterScriptCall(Self, RemoteDataAdapter.Get_GetScriptsCall); -end; - -procedure TDADataTable.FetchMastersDetails(aMasterTable : TDADataTable = NIL; aRequestMappings : TStrings = NIL; IgnoreAutoFetchSettings: Boolean = False); - - procedure CombineDynamicWhere(aWhereExpression:TDAWhereExpression); - begin - if fMasterMappingMode = mmWhere then begin - if fDynamicWhere.Expression = nil then - fDynamicWhere.Expression:= aWhereExpression - else - fDynamicWhere.Expression:= fDynamicWhere.NewBinaryExpression(fDynamicWhere.Expression,aWhereExpression,dboAnd); - end; - end; - - procedure RevertDynamicWhere(aWhereExpression:TDAWhereExpression); - var - fUserWhereExpression: TDAWhereExpression; - begin - if fMasterMappingMode = mmWhere then begin - fUserWhereExpression:= nil; - if fDynamicWhere.Expression <> aWhereExpression then begin - fUserWhereExpression:= TDABinaryExpression(fDynamicWhere.Expression).Left; - TDABinaryExpression(fDynamicWhere.Expression).Left:=nil; - end; - fDynamicWhere.Clear; - fDynamicWhere.Expression:= fUserWhereExpression; - end; - end; - - - function GenerateWhereStatement: TDAWhereExpression; - var - lFieldName: string; - pos1, pos2: integer; - lfld1: TDAField; - lfld2: TDAField; - lExpression: TDAWhereExpression; - begin - //fDynamicWhere.Clear; - Pos1 := 1; - pos2 := 1; - Result:=nil; - while True do begin - if (Pos1 > Length(DetailFields)) and (Pos2 > Length(MasterFields)) then Break; - - if ((Pos1 > Length(DetailFields)) and (Pos2 <= Length(MasterFields))) or - ((Pos1 <= Length(DetailFields)) and (Pos2 > Length(MasterFields))) then - RaiseError('DetailFields should have same number of items as MasterFields'); - - {$WARN SYMBOL_DEPRECATED OFF} - lFieldName:= ExtractFieldName(DetailFields, Pos1); - {$WARN SYMBOL_DEPRECATED ON} - lfld1 := FindField(lFieldName); - if lfld1 = nil then RaiseError('Invalid field name %s in DetailFields', [lFieldName]); - {$WARN SYMBOL_DEPRECATED OFF} - lFieldName:= ExtractFieldName(MasterFields, Pos2); - {$WARN SYMBOL_DEPRECATED ON} - lfld2 := MasterSource.DataTable.Fields.FindField(lFieldName); - if lfld2 = nil then RaiseError('Invalid field name %s in MasterFields', [lFieldName]); - - lExpression := fDynamicWhere.NewBinaryExpression( - fDynamicWhere.NewField('',lfld1.Name), - fDynamicWhere.NewConstant(lfld2.Value,lfld2.DataType), - dboEqual); - - if Result <> nil then - Result:=fDynamicWhere.NewBinaryExpression(Result,lExpression,dboAnd) - else - Result:= lExpression; - end; - end; - -var - master: TDataset; - par: TDARemoteRequestParam; - fld: TDAField; - key: string; - i: integer; - dofetch: boolean; - mappings : TStrings; - detailparam : TDAParam; - lmmWhereExpression: TDAWhereExpression; -begin - if RemoteFetchEnabled then CheckProperties - else if not(Assigned(LocalSchema) and Assigned(LocalDataStreamer)) then begin - if fOpening then InitializeDataTable; - Exit; - end; - - // - // - // TODO: this doesnt properly use the new RDA's DMB yet. we need to discuss/rethink how to handle that! - // - // - - mappings := NIL; - - dofetch := (((dtAutoFetch in DetailOptions) or IgnoreAutoFetchSettings) {and RemoteFetchEnabled}) or (aMasterTable<>NIL); - - if (aRequestMappings<>NIL) then mappings := aRequestMappings - else begin - case fMasterMappingMode of - mmDataRequest : mappings := MasterRequestMappings; - mmParams : mappings := MasterParamsMappings; - end; - end; - - if (aMasterTable<>NIL) - then master := aMasterTable.Dataset - else master := fMasterLink.DataSet; - - if master = nil then exit; - - if (master.RecordCount = 0) then begin - if not Active then InitializeDataTable; // Master opened with 0 records and detail wasn't open yet - - Exit; - end - else if (MasterSource = nil) then Exit; - if (master.State=dsBrowse) and not MasterSource.DataTable.Delta.IsNewRecord then begin - if dofetch then begin - // Determines if the details for this master have been fetched - key := IntToStr(MasterSource.DataTable.GetRowRecIDValue); - if (fFetchedMasters.IndexOf(key) >= 0) then Exit; - if (fMasterMappingMode = mmWhere) or ((mappings<>NIL) and (mappings.Count > 0)) then begin - lmmWhereExpression:=nil; - if RemoteFetchEnabled then begin - // remotemode - - // If not, then assigns the param values from the current master record, - // invokes the remote call and loads the data - case MasterMappingMode of - mmWhere: begin - lmmWhereExpression:=GenerateWhereStatement; - end; - mmDataRequest : begin - for i := 0 to (mappings.Count - 1) do begin - par := nil; - if RemoteDataAdapter.Get_GetDataCall <> nil then - par := RemoteDataAdapter.Get_GetDataCall.Params.ParamByName(Trim(mappings.Names[i])); - if (par=NIL) then RaiseError('Invalid parameter name %s in master mappings', [Trim(mappings.Names[i])]); - - fld := MasterSource.DataTable.Fields.FindField(Trim(mappings.Values[mappings.Names[i]])); - if (fld=NIL) then RaiseError('Invalid field name %s in master mappings', [Trim(mappings.Values[mappings.Names[i]])]); - - if (par <> nil) and (fld <> nil) and not VarIsNull(fld.Value) - then par.AsVariant := fld.Value - end; - end; - mmParams : begin - // Fills it in - for i := 0 to (mappings.Count - 1) do begin - detailparam := Params.ParamByName(Trim(mappings.Names[i])); - if (detailparam=NIL) then RaiseError('Invalid parameter name %s in param mappings', [Trim(mappings.Names[i])]); - - fld := MasterSource.DataTable.Fields.FindField(Trim(mappings.Values[mappings.Names[i]])); - if (fld=NIL) then RaiseError('Invalid field name %s in param mappings', [Trim(mappings.Values[mappings.Names[i]])]); - - if (detailparam <> nil) and (fld <> nil) and not VarIsNull(fld.Value) - then detailparam.Value := fld.Value - end; - end; - end; - - CombineDynamicWhere(lmmWhereExpression); - try - LoadFromRemoteSource; - finally - RevertDynamicWhere(lmmWhereExpression); - end; - - try - fFetchedMasters.Add(key); - except - raise Exception.CreateFmt('Master record %s has been fetched twice', [key]); - end; - end { RemoteFetchEnabled }else begin - // localmode - - // If not, then assigns the param values from the current master record, - // invokes the remote call and loads the data - case MasterMappingMode of - mmWhere: begin - lmmWhereExpression := GenerateWhereStatement; - end; - mmParams: begin - // Fills it in - for i := 0 to (mappings.Count - 1) do begin - detailparam := Params.ParamByName(Trim(mappings.Names[i])); - if (detailparam=NIL) then RaiseError('Invalid parameter name %s in param mappings', [Trim(mappings.Names[i])]); - - fld := MasterSource.DataTable.Fields.FindField(Trim(mappings.Values[mappings.Names[i]])); - if (fld=NIL) then RaiseError('Invalid field name %s in param mappings', [Trim(mappings.Values[mappings.Names[i]])]); - - if (detailparam <> nil) and (fld <> nil) and not VarIsNull(fld.Value) then detailparam.Value := fld.Value - end; - end; - mmDataRequest: raise Exception.Create('mmDataRequest mode only supported in RemoteFetchEnabled mode'); - end; - - CombineDynamicWhere(lmmWhereExpression); - try - LoadFromLocalSchema; - finally - RevertDynamicWhere(lmmWhereExpression); - end; - - try - fFetchedMasters.Add(key); - except - raise Exception.CreateFmt('Master record %s has been fetched twice', [key]); - end; - end; - end else begin - { ALEF: I removed the code below because it was never meant to be here to begin with. Very error prone. - Who added this??? - - // Automatics - for i := 0 to (DataRequestCall.Params.Count - 1) do begin - par := DataRequestCall.Params[i]; - fld := MasterSource.DataTable.Fields.FindField(par.Name); - - if (par <> nil) and (fld <> nil) and not VarIsNull(fld.Value) then par.Value := fld.Value; - end;} - - RaiseError('There are no mappings defined. Cannot fetch records for detail table '+Name); - end; - end; {dofetch} - end; -end; - -procedure TDADataTable.WriteDeltaToStream(aStreamer: TDADataStreamer); -var - i: integer; - details: TList; - lHasReducedDelta: Boolean; - oldMode: boolean; -begin - // And the details' updates (if specified) - details := GetDetailTablesforApplyUpdate; - try - lHasReducedDelta:= fHasReducedDelta; - if not aStreamer.SendReducedDelta then begin - if not lHasReducedDelta then - for i := 0 to (details.Count - 1) do begin - lHasReducedDelta:= TDADataTable(details[i]).fHasReducedDelta; - if lHasReducedDelta then Break; - end; - end; - oldMode:=aStreamer.SendReducedDelta; - if lHasReducedDelta then aStreamer.SendReducedDelta:=True; - try - // Writes its own updates - if self.HasDelta then aStreamer.WriteDelta(Self); - for i := 0 to (details.Count - 1) do - TDADataTable(details[i]).WriteDeltaToStream(aStreamer); - finally - aStreamer.SendReducedDelta := oldMode; - end; - finally - details.Free; - end; -end; - -procedure TDADataTable.ReadDeltaFromStream(aStreamer: TDADataStreamer;aFailedDeltas:TList); -var - i: integer; - details: TList; -begin - // Reads its own updates - if aStreamer.FindDeltaIndex(Self.LogicalName) <> -1 then begin - Delta.Clear; - aStreamer.ReadDelta(Self); - if Delta.Count>0 then fHasReducedDelta := aStreamer.HasReducedDelta; - - For i := 0 to Delta.Count-1 do - if Delta.Changes[i].Status = csFailed then - aFailedDeltas.Add(Delta.Changes[i]); - end; - - // And the details' updates (if specified) - details := GetDetailTablesforApplyUpdate; - try - for i := 0 to (details.Count - 1) do - TDADataTable(details[i]).ReadDeltaFromStream(aStreamer, aFailedDeltas); - finally - details.Free; - end; -end; - -procedure TDADataTable.ReadDeltaFromStream(aStreamer: TDADataStreamer); -var - List: TList; -begin - List:= TList.Create; - try - ReadDeltaFromStream(aStreamer,List); - finally - List.Free; - end; -end; - -procedure TDADataTable.MergeDelta; -var - i, k, x: integer; - details: TList; - dt: TDADataTable; -// ok : boolean; -// failed, pending, resolved : integer; - oldval, newval, val : Variant; - fld : TDAField; - pkfields : string; - oldopt : TDARemoteUpdatesOptions; - oldlog : boolean; - keyvals : array of variant; - oldmastersource : TDADataSource; - lhasDelta: Boolean; - pk_array: array of boolean; -begin - details:=GetDetailTablesforApplyUpdate; - try - //fOnBeforeMergeDelta - if Assigned(fOnBeforeMergeDelta) then fOnBeforeMergeDelta(Self); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fOnBeforeMergeDelta) then dt.fOnBeforeMergeDelta(dt); - end; - - //fBusinessRules.OnBeforeMergeDelta - if Assigned(fBusinessRules) then fBusinessRules.OnBeforeMergeDelta(Self); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnBeforeMergeDelta(dt); - end; - - oldopt := RemoteUpdatesOptions; - oldlog := LogChanges; - oldmastersource := MasterSource; - - lhasDelta := Delta.Count > 0; - if lhasDelta then begin - RemoteUpdatesOptions := RemoteUpdatesOptions-[ruoOnPost]; - LogChanges := FALSE; - // Disables the M/D relationship so that Locates can work in all cases (master or detail tables, regardless - // of their positioning) - MasterSource := NIL; - end; - - try - pkfields := ''; - for i := 0 to (Delta.KeyFieldCount-1) do - pkfields := pkfields+Delta.KeyFieldNames[i]+';'; - pkfields := Copy(pkfields, 1, Length(pkfields)-1); - - SetLength(keyvals, Delta.KeyFieldCount); - - // Merges the updates - if (Delta.Count>0) then begin - SetLength(pk_array, Delta.LoggedFieldCount); - for i := 0 to Delta.LoggedFieldCount - 1 do - pk_array[i]:=False; - - for i := 0 to Delta.KeyFieldCount - 1 do begin - x := Delta.IndexOfLoggedField(Delta.KeyFieldNames[i]); - if x <> -1 then pk_array[x]:=True; - end; - for i := (Delta.Count-1) downto 0 do begin - if (Delta[i].Status<>csResolved) - then Continue; - if (Delta[i].ChangeType<>ctDelete) then begin - if (Self.State in [dsEdit, dsInsert]) and (ruoOnPost in oldopt) then begin - // Merge the details - for x := 0 to (details.Count - 1) do - TDADataTable(details[x]).MergeDelta; - for x := 0 to (Delta.LoggedFieldCount-1) do begin - fld := FieldByName(Delta.LoggedFieldNames[x]); - - newval := Delta[i].NewValueByName[fld.Name]; - oldval := Delta[i].OldValueByName[fld.Name]; - if fHasReducedDelta then begin - if not pk_array[x] and ROVariantsEqual(oldVal,newVal) then continue; - end; - if fld.ServerAutoRefresh or (not VarIsArray(newVal) and not ROVariantsEqual(newval,oldval)) then begin - VariantToFieldValue(Delta[i].NewValueByName[fld.Name], fld); - end; - end; - end - else begin - for k := 0 to (Delta.KeyFieldCount-1) do begin - val := Delta[i].OldValueByName[Delta.KeyFieldNames[k]]; - keyvals[k] := val; - end; - - // Locates the original record - First; - if not Locate(pkfields, keyvals, []) then Continue; - - // Merge the details - for x := 0 to (details.Count - 1) do - TDADataTable(details[x]).MergeDelta; - - // Merges its own updates - Edit; - for x := 0 to (Delta.LoggedFieldCount-1) do begin - fld := FieldByName(Delta.LoggedFieldNames[x]); - - newval := Delta[i].NewValueByName[fld.Name]; - oldval := Delta[i].OldValueByName[fld.Name]; - if fHasReducedDelta then begin - if not pk_array[x] and ROVariantsEqual(oldVal,newVal) then continue; - end; - if fld.ServerAutoRefresh or (not VarIsArray(newVal) and (newval<>oldval)) then begin - VariantToFieldValue(Delta[i].NewValueByName[fld.Name], fld); - end; - end; - Post; - end; - end; - // Removes this merged change - Delta.Delete(i); - end; - end - - // If there are no updates for this master, the children still need to be processed - else begin - // Merge the details - for x := 0 to (details.Count - 1) do - TDADataTable(details[x]).MergeDelta; - end; - finally - if lhasDelta then begin - RemoteUpdatesOptions := oldopt; - LogChanges := oldlog; - - // Restores the M/D relationship - MasterSource := oldmastersource; - end; - //fOnAfterMergeDelta - if Assigned(fOnAfterMergeDelta) then fOnAfterMergeDelta(Self); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fOnAfterMergeDelta) then dt.fOnAfterMergeDelta(dt); - end; - - //fBusinessRules.OnAfterMergeDelta - if Assigned(fBusinessRules) then fBusinessRules.OnAfterMergeDelta(Self); - for i := 0 to details.Count-1 do begin - dt:= TDADataTable(details[i]); - if Assigned(dt.fBusinessRules) then dt.fBusinessRules.OnAfterMergeDelta(dt); - end; - end; - finally - details.Free; - if Delta.Count = 0 then fHasReducedDelta:=False; - end; -end; - - -procedure TDADataTable.PackAllInOneFetchInfoArray(aDataTable : TDADataTable; OutArray: TDADatasetRequestInfoArray); -var outinfo : TDADatasetRequestInfo; - details : TList; - dt : TDADataTable; - i : integer; -begin - outinfo := outarray.Add; - outinfo.DatasetName := aDataTable.LogicalName; - outinfo.MaxRecords := aDataTable.MaxRecords; - outinfo.IncludeSchema := TRUE; - outinfo.Params := NIL; - - details := aDataTable.GetDetailDataTables; - try - for i := 0 to (details.Count - 1) do begin - dt := TDADataTable(details[i]); - - if (dtIncludeInAllInOneFetch in dt.DetailOptions) - then PackAllInOneFetchInfoArray(dt, OutArray); - end; - finally - details.Free; - end; -end; - -function TDADataTable.FieldByName(const aName: string): TDAField; -begin - result := fFields.FieldByName(aName) -end; - -function TDADataTable.ParamByName(const aName: string): TDAParam; -begin - result := fParams.ParamByName(aName) -end; - -procedure TDADataTable.First; -begin - fDataset.First -end; - -procedure TDADataTable.Last; -begin - fDataset.Last -end; - -procedure TDADataTable.Prior; -begin - fDataset.Prior -end; - -procedure TDADataTable.Sort(const FieldNames: array of string; const Directions: array of TDASortDirection); -var - i: integer; -begin - DoSort(FieldNames, Directions); - - // Stores the new settings for convenience - SetLength(fSortDirections, Length(Directions)); - for i := 0 to Length(Directions) - 1 do - fSortDirections[i] := Directions[i]; - - SetLength(fSortFieldNames, Length(FieldNames)); - for i := 0 to Length(FieldNames) - 1 do - fSortFieldNames[i] := FieldNames[i]; -end; - -procedure TDADataTable.UnSort; -begin - Sort([], []); -end; - -procedure TDADataTable.LoadFromStream(aStream: TStream); -var - //remfetch, - oldlogchanges, oldcascadeopenclose: boolean; - lStreamer: TDADataStreamer; - i: integer; -begin - Check(RemoteFetchEnabled, Name+'. Cannot do this operation when RemoteFetchEnabled is set to TRUE'); - if RemoteDataAdapter <> nil then - lStreamer:=RemoteDataAdapter.DataStreamer - else - lStreamer:=LocalDataStreamer; - - Check(lStreamer = nil, Name+'. RemoteDataAdapter or LocalDataStreamer must be assigned.'); - - Close; - - oldlogchanges := LogChanges; -// remfetch := RemoteFetchEnabled; - oldcascadeopenclose := moCascadeOpenClose in fMasterOptions; - -// RemoteFetchEnabled := FALSE; - LogChanges := FALSE; - if oldcascadeopenclose - then fMasterOptions := fMasterOptions - [moCascadeOpenClose]; - try - fStreaming := True; - try - lStreamer.Initialize(aStream, aiRead); - - if not (soIgnoreStreamSchema in fStreamingOptions) then - lStreamer.ReadDataset(LogicalName, Self, TRUE) - else - lStreamer.ReadDataset(LogicalName, Self, FALSE); - - lStreamer.ReadDelta(Self); - if Delta <> nil then - For i:= 0 to Delta.Count-1 do - if fCurrRecId <= Delta.Changes[i].RecID then - fCurrRecId := Delta.Changes[i].RecID+1; - finally - fStreaming := False; - end; - finally - lStreamer.Finalize; - LogChanges := oldlogchanges; -// RemoteFetchEnabled := remfetch; - if oldcascadeopenclose then begin - fMasterOptions := fMasterOptions + [moCascadeOpenClose]; - fOpening := True; - try - DoCascadeOperation(nil, moCascadeOpenClose); - finally - fOpening := False; - end; - end; - if Active then First; - end; -end; - -procedure TDADataTable.SaveToStream(aStream: TStream); -var - lStreamer: TDADataStreamer; - OldMasterSource: TDADataSource; -begin - if (soDisableEventsWhileStreaming in fStreamingOptions) then DisableControls; - try - OldMasterSource := MasterSource; - MasterSource := nil; - fStreaming := True; - try - First; // Important! - if RemoteFetchEnabled then - lStreamer:= RemoteDataAdapter.DataStreamer - else - lStreamer:=LocalDataStreamer; - if lStreamer = nil then CheckProperties; - lStreamer.Initialize(aStream, aiWrite); - lStreamer.WriteDataset(Self, [woRows, woSchema]); - lStreamer.WriteDelta(Self); - lStreamer.Finalize; - finally - fStreaming := False; - MasterSource := OldMasterSource; - end; - finally - if (soDisableEventsWhileStreaming in fStreamingOptions) then EnableControls; - end; -end; - -procedure TDADataTable.LoadFromFile(const aFileName: string); -var - fs: TFileStream; - oldval : boolean; -begin - oldval := RemoteFetchEnabled; - RemoteFetchEnabled := FALSE; - try - fs := TFileStream.Create(aFileName, fmOpenRead); - try - LoadFromStream(fs); - finally - fs.Free; - end; - finally - RemoteFetchEnabled := oldval; - end; -end; - -procedure TDADataTable.SaveToFile(const aFileName: string); -var - fs: TFileStream; -begin - fs := TFileStream.Create(aFileName, fmCreate); - try - SaveToStream(fs); - finally - fs.Free; - end; -end; - -procedure TDADataTable.SetParams(const Value: TDAParamCollection); -begin - fParams.Assign(Value); -end; - -procedure TDADataTable.ClearFields; -var - i: integer; -begin - for i := 0 to FieldCount - 1 do - Fields[i].Value := Null; -end; - -procedure TDADataTable.ClearRows; -var - CurChange: TDADeltaChange; -begin - while (RecordCount > 0) do begin - if (not LogChanges) and Assigned(Delta) then begin - CurChange := Delta.FindChange(RecIDValue); - if Assigned(CurChange) then - Delta.RemoveChange(CurChange); - end; - Delete; - end; -end; - -function TDADataTable.GetState: TDataSetState; -begin - result := fDataset.State -end; - -function TDADataTable.GetEditing: boolean; -begin - result := State in [dsEdit, dsInsert] -end; - -function TDADataTable.GetPrepared: boolean; -begin - result := FALSE -end; - -procedure TDADataTable.SetPrepared(Value: boolean); -begin - -end; - -function TDADataTable.GetText: string; -begin - result := '' -end; - -procedure TDADataTable.SetText(const Value: string); -begin - -end; - -procedure TDADataTable.Notification(AComponent: TComponent; - Operation: TOperation); -var - i: Integer; -begin - inherited; - - if (Operation = opRemove) then begin - if (AComponent = fLocalSchema) then fLocalSchema := nil; - if (AComponent = fRemoteDataAdapter) then fRemoteDataAdapter := nil; - if (AComponent = fLocalDataStreamer) then fLocalDataStreamer := nil; - if AComponent is TDataSource then begin - for i := 0 to Fields.Count - 1 do begin - if Fields[i].LookupSource = AComponent then - Fields[i].LookupSource := nil; - end; - end; - - end; - -end; - -procedure TDADataTable.SetMasterSource(const Value: TDADataSource); -begin - fMasterLink.DataSource := Value; -end; - -procedure TDADataTable.SetMasterFields(const Value: string); -begin - fMasterLink.FieldNames := Value; -end; - -function TDADataTable.GetMasterRequestMappings: TStrings; -begin - result := fMasterRequestMappings; -end; - -procedure TDADataTable.SetMasterRequestMappings(const Value: TStrings); -begin - fMasterRequestMappings.Assign(Value); -end; - -function TDADataTable.GetDetailDataTables: TList; -var - i: integer; - ownerdt: TDADataTable; - dtdataset: IDADataTableDataset; - tmplist: TList; -begin - // This function only returns the linked datatables and removes duplicates - // from the GetDetailDataSets call. I assume the duplicates are because of - // the masterlink TDADatatables create. - - result := TList.Create; - tmplist := TList.Create; - - try - {$IFNDEF FPC} - Dataset.GetDetailDataSets(tmplist); - {$ENDIF} - for i := 0 to (tmplist.Count - 1) do begin - if not Supports(TDataset(tmplist[i]), IDADataTableDataset, dtdataset) then Continue; - ownerdt := dtdataset.GetDataTable; - - if (result.IndexOf(ownerdt) < 0) then result.Add(ownerdt); - end; - finally - tmplist.Free; - end; -end; - -function TDADataTable.GetDelta: IDADelta; -begin - if (fDelta = nil) then raise Exception.Create('Delta has not yet been initialized by the datatable'); - result := fDelta; -end; - -function TDADataTable.GetName: string; -begin - if (LogicalName = '') then - result := Name - else - result := LogicalName; -end; - -procedure TDADataTable.DoAfterCloseDataset; -begin - CallScript('AfterClose'); -end; - -procedure TDADataTable.DoAfterOpenDataset; -begin - CallScript('AfterOpen'); - - if Assigned(fAfterOpenIDataset) then fAfterOpenIDataset(Self, '', ROGetTickCount-fOpenTick); -end; - -procedure TDADataTable.DoBeforeCloseDataset; -begin - CallScript('BeforeClose'); -end; - -procedure TDADataTable.CloneSelectedRecord(Source: TDADataTable; DoPost: boolean = TRUE); -begin - CloneSelectedRecord(Source as IDADataset, DoPost); -end; - -procedure TDADataTable.CloneSelectedRecord(const Source: IDADataset; DoPost: boolean = TRUE); -var - i: integer; - destfld, - srcfld: TDAField; - lreadonly: boolean; -begin - Insert; - for i := 0 to (Source.FieldCount - 1) do begin - srcfld := Source.Fields[i]; - destfld := Fields.FindField(srcfld.Name); - lreadonly := destfld.ReadOnly; - destfld.ReadOnly := False; - try - if destfld <> nil then destfld.Value := srcfld.Value; - finally - destfld.ReadOnly := lreadonly; - end; - end; - if DoPost then Post; -end; - -procedure TDADataTable.FreeBookmark(Bookmark: TBookmark); -begin - Dataset.FreeBookmark(Bookmark); -end; - -function TDADataTable.GetBookmark: pointer; -begin - result := Dataset.GetBookmark; -end; - -procedure TDADataTable.GotoBookmark(Bookmark: TBookmark); -begin - Dataset.GotoBookmark(Bookmark); -end; - -function TDADataTable.GetRowRecIDValue: integer; -begin - result := fRecIDField.AsInteger -end; - -procedure TDADataTable.DisableEventHandlers; -begin - DetachEventHooks(Dataset); -end; - -procedure TDADataTable.EnableEventHandlers; -begin - AttachEventHooks(Dataset); -end; - -procedure TDADataTable.Refresh; -begin - fDataset.Refresh; -end; - -procedure TDADataTable.SetLocalDataStreamer(const Value: TDADataStreamer); -begin - fLocalDataStreamer := Value; - if (fLocalDataStreamer <> nil) then - fLocalDataStreamer.FreeNotification(Self); -end; - -procedure TDADataTable.SetLocalSchema(const Value: TDASchema); -begin - fLocalSchema := Value; - if (fLocalSchema <> nil) then begin - fLocalSchema.FreeNotification(Self); - - RemoteFetchEnabled := FALSE; - end; -end; - -function TDADataTable.DataReaderFirst: boolean; -begin - result := RecordCount > 0; - if result then First; -end; - -function TDADataTable.DataReaderNext: boolean; -begin - result := not EOF; - if result then Next; -end; - -function TDADataTable.GetAsBoolean(Index: integer): boolean; -begin - result := fFields[Index].AsBoolean; -end; - -function TDADataTable.GetAsBoolean(const FieldName: string): boolean; -begin - result := FieldByName(FieldName).AsBoolean; -end; - -function TDADataTable.GetAsCurrency(Index: integer): Currency; -begin - Result:= fFields[Index].AsCurrency; -end; - -function TDADataTable.GetAsCurrency(const FieldName: string): currency; -begin - result := FieldByName(FieldName).AsCurrency; -end; - -function TDADataTable.GetAsDateTime(const FieldName: string): TDateTime; -begin - result := FieldByName(FieldName).AsDateTime; -end; - -function TDADataTable.GetAsDateTime(Index: integer): TDateTime; -begin - result := fFields[Index].AsDateTime; -end; - -function TDADataTable.GetAsFloat(const FieldName: string): double; -begin - result := FieldByName(FieldName).AsFloat; -end; - -function TDADataTable.GetAsFloat(Index: integer): double; -begin - result := fFields[Index].AsFloat; -end; - -function TDADataTable.GetAsInteger(Index: integer): integer; -begin - result := fFields[Index].AsInteger; -end; - -function TDADataTable.GetAsInteger(const FieldName: string): integer; -begin - result := FieldByName(FieldName).AsInteger; -end; - -function TDADataTable.GetAsString(const FieldName: string): string; -begin - result := FieldByName(FieldName).AsString; -end; - -function TDADataTable.GetAsString(Index: integer): string; -begin - result := fFields[Index].AsString; -end; - -function TDADataTable.GetAsVariant(const FieldName: string): variant; -begin - result := FieldByName(FieldName).Value; -end; - -function TDADataTable.GetAsVariant(Index: integer): variant; -begin - result := fFields[Index].Value -end; - -function TDADataTable.GetFieldIndexes(const aName: string): integer; -begin - result := fFields.FindItem(aName).Index -end; - -function TDADataTable.GetFieldNames(Index: integer): string; -begin - result := fFields[Index].Name -end; - -procedure TDADataTable.SetBusinessRulesID(const Value: string); -var - bizclass: TDADataTableRulesClass; -begin - if (Value = fBusinessRulesID) then Exit; - - if Assigned(fBusinessRules) then begin - fBusinessRules.Detach(Self); - FreeAndNIL(fBusinessRules); - end; - - fBusinessRulesID := Trim(Value); - - if (fBusinessRulesID <> '') and not (csDesigning in ComponentState) then begin - Check(not FindDataTableRules(Value, bizclass), 'Invalid BusinessRulesID "%s"', [Value]); - - fBusinessRules := bizclass.Create(Self); - fBusinessRules.Attach(Self); - end; -end; - -function TDADataTable.QueryInterface(const IID: TGUID; out Obj): HResult; -begin - result := inherited QueryInterface(IID, Obj); - - if (result <> S_OK) and Assigned(fBusinessRules) then begin - // Users might introduce specific interfaces at the business rule level - // This allows to type cast the data table to any additional business oriented interface - // they decide to create. - result := fBusinessRules.QueryInterface(IID, Obj); - end; -end; - -function TDADataTable.GetHasDelta: boolean; -begin - result := Assigned(fDelta) and (fDelta.Count > 0); -end; - -function TDADataTable.GetHasDeltaRecursive: boolean; -var - lDetails: TList; - lTable: TDADataTable; - i: integer; -begin - result := Assigned(fDelta) and (fDelta.Count > 0); - if not result then begin - lDetails := nil; - if (moCascadeApplyUpdates in fMasterOptions) then try - lDetails := GetDetailDataTables; - for i := 0 to (lDetails.Count-1) do begin - lTable := TDADataTable(lDetails[i]); - if lTable.HasDeltaRecursive then begin - result := true; - exit; - end; - end; - finally - lDetails.Free; - end; - end; -end; - -function TDADataTable.GetMasterDataTable: TDADataTable; -var lDatatableDataset : IDADataTableDataset; -begin - if Supports(fMasterLink.DataSet, IDADataTableDataset, lDatatableDataset) - then result := lDatatableDataset.GetDataTable - else result := NIL; -end; - -function TDADataTable.GetRecNo: integer; -begin - result := fDataset.RecNo -end; - -procedure TDADataTable.SetRecNo(const Value: integer); -begin - fDataset.RecNo := Value -end; - -function TDADataTable.GetFieldsProperty: TDAFieldCollection; -begin - result := GetFields; -end; - -function TDADataTable.GetActiveProperty: boolean; -begin - result := GetActive(); -end; - -procedure TDADataTable.SetActiveProperty(const Value: boolean); -begin - SetActive(Value); -end; - -function TDADataTable.GetParamsProperty: TDAParamCollection; -begin - result := GetParams(); -end; - -{$IFNDEF LINUX} -function TDADataTable.InterfaceSupportsErrorInfo(const iid: TGUID): HResult; -begin - if GetInterfaceEntry(iid) <> nil then - Result := S_OK - else - Result := S_FALSE; -end; - -function TDADataTable.SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; -begin - Result := uDAEngine.DAHandleSafeCallException(self,ExceptObject, ExceptAddr); -end; -{$ENDIF} - -procedure TDADataTable.CancelUpdates(IncludeDetails: boolean); -var list : TList; - i, orignextinc : integer; - wasfiltered, - remotefetch : boolean; - lOldMasterFields: string; -begin - if Editing then Cancel; - if not LogChanges then Exit; - - DisableControls; - wasfiltered := Filtered; - Filtered := FALSE; - try - // Truns off the remote fetching for this datatable and its details - remotefetch := RemoteFetchEnabled; - RemoteFetchEnabled := FALSE; - if IncludeDetails then list := GetDetailDataTables else list := TList.Create; - - // Disable the log of changes (we're about to make a bunch!) - LogChanges := FALSE; - - // Saves the current recinc (we'll change this during the restore) - orignextinc := CurrRecId; - try - lOldMasterFields := MasterFields; - MasterFields := ''; - try - // Reverts the records to the original state - for i := 0 to (Delta.Count-1) do - InternalCancelUpdateChange(Delta[i]); - finally - MasterFields := lOldMasterFields; - end; - - // Cancels the updates for the details - for i := 0 to list.Count-1 do begin - TDADataTable(list[i]).CancelUpdates(TRUE); - end; - - // Erases the delta - Delta.Clear; - - finally - fHasReducedDelta:=False; - list.Free; - CurrRecId := orignextinc; - LogChanges := TRUE; - RemoteFetchEnabled := remotefetch; - end; - finally - Filtered := wasfiltered; - EnableControls; - end; -end; - -procedure TDADataTable.DoBeforeOpenDataset; -begin - CallScript('BeforeOpen'); - - fOpenTick := ROGetTickCount; - if Assigned(fBeforeOpenIDataset) then fBeforeOpenIDataset(Self); -end; - -function TDADataTable.Lookup(const KeyFields: string; - const KeyValues: Variant; const ResultFields: string): Variant; -begin - result := fDataset.Lookup(KeyFields, KeyValues, ResultFields); -end; - -function TDADataTable.GetIsEmpty: boolean; -begin - result := fDataset.IsEmpty; -end; - -function TDADataTable.GetMasterParamsMappings: TStrings; -begin - result := fMasterParamsMappings -end; - -procedure TDADataTable.SetMasterParamsMappings(const Value: TStrings); -begin - fMasterParamsMappings.Assign(Value); -end; - -function TDADataTable.GetLogicalName: string; -begin - result := fLogicalName; -end; - -function TDADataTable.GetReadOnly: boolean; -begin - result := FALSE; -end; - -procedure TDADataTable.SetReadOnly(const Value: boolean); -begin - // By default this property cannot be set. Raising exceptions creates problems - // at design time and it's useless -end; - -procedure TDADataTable.SetScriptCode(const Value: TStrings); -begin - fScriptCode.Assign(Value); -end; - -procedure TDADataTable.CallScript(const aEvent: string); -begin - if Assigned(ScriptingProvider) and (ScriptCode.Count > 0) then begin - (ScriptingProvider as IDADataTableScriptingProvider).RunDataTableScript(self, ScriptCode.Text, aEvent, rslPascalScript); - end; -end; - -function TDADataTable.FindField(const aName: string): TDAField; -begin - result := fFields.FindField(aName); -end; - -procedure TDADataTable.AddRecord(const FieldNames: array of string; - const FieldValues: array of Variant); -var i : integer; -begin - Insert; - for i := 0 to Length(FieldNames)-1 do - FieldByName(FieldNames[i]).Value := FieldValues[i]; - Post; -end; - -procedure TDADataTable.SetLogicalName(aName: string); -begin - fLogicalName := aName; -end; - -function TDADataTable.GetDeltaInitialized: boolean; -begin - result := fDelta<>NIL -end; - -procedure TDADataTable.NotifyFieldsClear; -var - i, lLockCount: integer; -begin - // This method patches VCL issue with notification - // of datasources when clearing fields and controls is disabled - lLockCount := 0; - while DataSet.ControlsDisabled do begin - inc(lLockCount); - DataSet.EnableControls; - end; - TDataSetHack(DataSet).DataEvent(deFieldListChange, 0); - for i := 0 to lLockCount - 1 do begin - DataSet.DisableControls; - end; -end; - -function TDADataTable.GetOnAfterOpen: TDAAfterOpenDatasetEvent; -begin - result := fAfterOpenIDataset; -end; - -function TDADataTable.GetOnBeforeOpen: TDABeforeOpenDatasetEvent; -begin - result := fBeforeOpenIDataset; -end; - -procedure TDADataTable.SetOnAfterOpen( - const Value: TDAAfterOpenDatasetEvent); -begin - fAfterOpenIDataset := Value; -end; - -procedure TDADataTable.SetOnBeforeOpen( - const Value: TDABeforeOpenDatasetEvent); -begin - fBeforeOpenIDataset := Value; -end; - -function TDADataTable.GetOnAfterExecute: TDAAfterExecuteCommandEvent; -begin - NotSupported(); -end; - -function TDADataTable.GetOnBeforeExecute: TDABeforeExecuteCommandEvent; -begin - NotSupported(); -end; - -procedure TDADataTable.SetOnAfterExecute( - const Value: TDAAfterExecuteCommandEvent); -begin - NotSupported(); -end; - -procedure TDADataTable.SetOnBeforeExecute( - const Value: TDABeforeExecuteCommandEvent); -begin - NotSupported(); -end; - -function TDADataTable.GetOnExecuteError: TDAExecuteCommandErrorEvent; -begin - NotSupported(); -end; - -function TDADataTable.GetOnOpenError: TDAOpenDatasetErrorEvent; -begin - NotSupported(); -end; - -procedure TDADataTable.SetOnExecuteError( - const Value: TDAExecuteCommandErrorEvent); -begin - NotSupported(); -end; - -procedure TDADataTable.SetOnOpenError( - const Value: TDAOpenDatasetErrorEvent); -begin - NotSupported(); -end; - -function TDADataTable.GetCurrRecId: integer; -begin - result := fCurrRecId; -end; - -procedure TDADataTable.SetCurrRecId(const Value: integer); -begin - fCurrRecId := Value; -end; - -function TDADataTable.GetAutoIncs: TAutoIncArray; -begin - result := fAutoIncs; -end; - -procedure TDADataTable.SetAutoIncs(const Value: TAutoIncArray); -begin - fAutoIncs := Value; -end; - -function TDADataTable.CreateAutoIncArray: TAutoIncArray; -var i: integer; -begin - SetLength(result, Fields.Count); - for i := 0 to Fields.Count-1 do result[i] := -1; -end; - -function TDADataTable.GetCurrentRecIdValue: integer; -begin - result := fCurrRecId; -end; - -procedure TDADataTable.SetCurrentRecIdValue(Value: integer); -begin - fCurrRecId := Value; -end; - -procedure TDADataTable.InternalAfterFieldUpdate(Sender: TDACustomField); -begin - if assigned(fAfterFieldChange) and (Sender is TDAField) then - fAfterFieldChange(self, TDAField(Sender)); -end; - -procedure TDADataTable.InternalBeforeFieldUpdate(Sender: TDACustomField); -begin - if assigned(fBeforeFieldChange) and (Sender is TDAField) then - fBeforeFieldChange(self, TDAField(Sender)); -end; - -procedure TDADataTable.InternalSetFetching(aFetching: boolean); -begin - fFetching := aFetching; -end; - -procedure TDADataTable.SetCustomAttributes(const Value: TStrings); -begin - fCustomAttributes.Assign(Value); -end; - -function TDADataTable.Local_ApplyUpdates(RefetchAll: boolean): boolean; - - function UnpackDeltas(var lStruct: TDADeltaStruct): TDABusinessProcessor; - var - j: integer; - lBizProc: TDABusinessProcessor; - lDetails: TDADatasetRelationshipList; - lFound: boolean; - begin - result := nil; - lStruct := nil; - // Reads the deltas. - lFound := false; - { Tries to locate a user-defined business processor } - if LocalSchema.Owner <> nil then - for j := 0 to (LocalSchema.Owner.ComponentCount - 1) do begin - if (LocalSchema.Owner.Components[j] is TDABusinessProcessor) then begin - lBizProc := TDABusinessProcessor(LocalSchema.Owner.Components[j]); - if SameText(lBizProc.ReferencedDataset, Self.LogicalName) then begin - lStruct := TDADeltaStruct.Create(Self.Delta, lBizProc); - lFound := true; - Break; - end; - end; - end; - { Either creates one} - if not lFound then begin - lBizProc := TDABusinessProcessor.Create(nil); - lBizProc.ReferencedDataset := Self.LogicalName; - lBizProc.Schema := LocalSchema; - Result := lBizProc; - lStruct := TDADeltaStruct.Create(Self.Delta, lBizProc); - end; - - { Sets the master/detail relationships } - if (LocalSchema.RelationShips.Count > 0) then begin - lDetails := TDADatasetRelationshipList.Create; - try - LocalSchema.RelationShips.GetDetails(lStruct.BusinessProcessor.ReferencedDataset, lDetails); - if (lDetails.Count <> 0) then begin - { Prepares an array with the references to the detail deltas that will be used later on to adjust - autoincs, etc. } - for j := 0 to lDetails.Count - 1 do begin - if lDetails[j].DetailDatasetName = LogicalName then begin - lStruct.DetailDeltas.Add(lStruct.Delta); - lStruct.RelationShips.Add(lDetails[j]); - end; - end; - end; - finally - lDetails.Free; - end; - end; - end; - -var - FLocalConnection: IDAConnection; - lProcessedDeltas: TStringList; - lStruct: TDADeltaStruct; - lBizProc: TDABusinessProcessor; - i, j: integer; -begin - Result:=False; - CheckProperties; - FLocalConnection := LocalSchema.ConnectionManager.NewConnection(LocalConnection); - if (Delta = nil) or (Delta.Count = 0) then Exit; - lBizProc := UnpackDeltas(lStruct); - try - {if TriggerTransactionEvent(fOnUpdateDataBeginTransaction) then} FLocalConnection.BeginTransaction; - try - if (LocalSchema.UpdateRules.Count = 0) then begin - lStruct.BusinessProcessor.ProcessDelta(FLocalConnection, lStruct.Delta, AllChanges); - end - else begin - lProcessedDeltas := TStringList.Create; - try - - for i := 0 to (LocalSchema.UpdateRules.Count - 1) do begin - // Processes them in the order defined in the schema - if LocalSchema.UpdateRules[i].DatasetName = LogicalName then begin - // Adds the dataset name to the list of processed deltas. Those that don't have update rules will be processed later - lProcessedDeltas.Add(LogicalName); - - // Processes the delta - lStruct.BusinessProcessor.ProcessDelta(FLocalConnection, lStruct.Delta, LocalSchema.UpdateRules[i].ChangeTypes); - - if (ctInsert in LocalSchema.UpdateRules[i].ChangeTypes) then begin - for j := 0 to (lStruct.DetailDeltas.Count - 1) do - lStruct.BusinessProcessor.SynchronizeAutoIncs(lStruct.Delta, lStruct.DetailDeltas[j], lStruct.RelationShips[j]); - end; - end; - end; - // Processes the deltas for which update rules were not defined - if lProcessedDeltas.IndexOf(LogicalName) = -1 then - lStruct.BusinessProcessor.ProcessDelta(FLocalConnection, lStruct.Delta, AllChanges); - finally - lProcessedDeltas.Free; - end; - end; - if FLocalConnection.InTransaction {and TriggerTransactionEvent(fOnUpdateDataCommitTransaction)} then FLocalConnection.CommitTransaction; - MergeDelta; - Result:=True; - except - on E: Exception do begin - if FLocalConnection.InTransaction {and TriggerTransactionEvent(fOnUpdateDataRollBackTransaction)} then FLocalConnection.RollbackTransaction; - raise; - end; - end; - finally - if lStruct <> nil then lStruct.Free; - if lBizProc <> nil then lBizProc.Free; - end; - if RefetchAll and result then begin - if Active then Close; - Open; - end; -end; - -procedure TDADataTable.GetDetailTablesforAllinOneFetch(aRemote, aLocal:TList; aRecursive: boolean); -var - i: integer; - dt: TDADataTable; - dtList: TList; - scc: IDASimpleClonedCursorsSupport; -begin - if (moAllInOneFetch in fMasterOptions) then begin - dtList:=GetDetailDataTables; - try - for i := 0 to dtList.Count-1 do begin - dt := TDADataTable(dtList[i]); - if (dtIncludeInAllInOneFetch in dt.DetailOptions) then begin - if (dt.QueryInterface(IDASimpleClonedCursorsSupport, scc) = S_OK) and (scc.GetSimpleCloneSource <> nil) then begin - dt:= TDADatatable(scc.GetSimpleCloneSource); - end; - - if self.RemoteFetchEnabled and dt.RemoteFetchEnabled and (dt.RemoteDataAdapter = Self.RemoteDataAdapter) then begin - if aRemote.IndexOf(dt) = -1 then aRemote.Add(dt); - end - else begin - if aLocal.IndexOf(dt) = -1 then aLocal.Add(dt); - end; - if aRecursive then dt.GetDetailTablesforAllinOneFetch(aRemote,aLocal, aRecursive); - end; - end; - finally - dtList.Free; - end; - end -end; - -function TDADataTable.GetDetailTablesforApplyUpdate(aRecursive: boolean): TList; -var - i: integer; - dt: TDADataTable; - dtList, dtlist1: TList; - scc: IDASimpleClonedCursorsSupport; -begin - Result:= TList.Create; - if (moCascadeApplyUpdates in fMasterOptions) then begin - dtList:=GetDetailDataTables; - try - for i := 0 to dtList.Count-1 do begin - dt := TDADataTable(dtList[i]); - if dt.Active and (dtCascadeApplyUpdates in dt.DetailOptions) then begin - if (dt.QueryInterface(IDASimpleClonedCursorsSupport, scc) = S_OK) and (scc.GetSimpleCloneSource <> nil) then begin - dt:= TDADatatable(scc.GetSimpleCloneSource); - end; - if Result.IndexOf(dt) = -1 then Result.Add(dt); - if aRecursive then begin - dtlist1:= dt.GetDetailTablesforApplyUpdate(aRecursive); - try - Result.Assign(dtlist1,laOr); - finally - dtlist1.Free; - end; - end; - end; - end; - finally - dtList.Free; - end; - end -end; - -procedure TDADataTable.CancelUpdateChange(Change: TDADeltaChange;IncludeDetails : boolean = TRUE); -var - orignextinc : integer; - wasfiltered, - remotefetch : boolean; - lOldMasterFields: string; - details: TList; - i,j,k: integer; - detailChange: TDADeltaChange; - ChangePKValueArray: array of Variant; - lNeedDeleteChange: boolean; - keyvalue: variant; -begin - if Editing then Cancel; - if not LogChanges then Exit; - - DisableControls; - wasfiltered := Filtered; - Filtered := FALSE; - try - // Truns off the remote fetching for this datatable and its details - remotefetch := RemoteFetchEnabled; - RemoteFetchEnabled := FALSE; - - // Disable the log of changes (we're about to make a bunch!) - LogChanges := FALSE; - // Saves the current recinc (we'll change this during the restore) - orignextinc := CurrRecId; - try - lOldMasterFields := MasterFields; - MasterFields := ''; - try - // Reverts the records to the original state - - if IncludeDetails then begin - SetLength(ChangePKValueArray,Change.Delta.KeyFieldCount); - For i:=1 to Change.Delta.KeyFieldCount do begin - if Change.ChangeType = ctInsert then - keyvalue:=Change.NewValueByName[Change.Delta.KeyFieldNames[i-1]] - else - keyvalue:=Change.OldValueByName[Change.Delta.KeyFieldNames[i-1]]; - ChangePKValueArray[0]:=keyvalue; - end; - details:=GetDetailTablesforApplyUpdate; - try - for i:=0 to details.Count-1 do begin - for j:=0 to TDADataTable(details[i]).Delta.Count-1 do begin - detailChange :=TDADataTable(details[i]).Delta.Changes[j]; - if detailChange.Status <> csResolved then begin - lNeedDeleteChange:= True; - for k:=0 to Change.Delta.KeyFieldCount-1 do begin - if detailChange.ChangeType = ctInsert then - keyvalue:=detailChange.NewValueByName[Change.Delta.KeyFieldNames[k]] - else - keyvalue:=detailChange.oldValueByName[Change.Delta.KeyFieldNames[k]]; - if not VarSameValue(keyValue, ChangePKValueArray[k]) then begin - lNeedDeleteChange:= False; - Break; - end; - end; - if lNeedDeleteChange then TDADataTable(details[i]).CancelUpdateChange(detailChange,IncludeDetails); - end; - end; - end; - finally - details.Free; - end; - end; - InternalCancelUpdateChange(change); - Delta.RemoveChange(change); - finally - if Delta.Count = 0 then fHasReducedDelta:=False; - MasterFields := lOldMasterFields; - end; - finally - CurrRecId := orignextinc; - LogChanges := TRUE; - RemoteFetchEnabled := remotefetch; - end; - finally - Filtered := wasfiltered; - EnableControls; - end; -end; - -procedure TDADataTable.InternalCancelUpdateChange(Change: TDADeltaChange); -var - i, x : integer; - fldname : string; - fldvalue : Variant; - details: TList; - RecID:string; -begin - case Change.ChangeType of - ctDelete : begin - CurrRecId := change.RecID; // We want the same autoinc regenerated - RecID:=IntToStr(Change.RecID); - Insert; - for x := 0 to (Delta.LoggedFieldCount-1) do begin - fldname := Delta.LoggedFieldNames[x]; - fldvalue := change.OldValues[x]; - VariantToFieldValue(fldValue, FieldByName(fldname)); - end; - Post; - - details := GetDetailDataTables; - try - for x := 0 to (details.Count-1) do begin - i:=TDADataTable(details[x]).fFetchedMasters.IndexOf(RecID); - if i<>-1 then TDADataTable(details[x]).fFetchedMasters.Delete(i); - end; - finally - details.Free; - end; - - - end; - - else begin - if not Locate(RecIDFieldName, change.RecID, []) then RaiseError('Couldn''t find record #'+FormatRecIDString(change.RecID)); - - if (change.ChangeType=ctInsert) then Delete - else begin - Edit; - for x := 0 to (Delta.LoggedFieldCount-1) do begin - fldname := Delta.LoggedFieldNames[x]; - fldvalue := change.OldValues[x]; - if fHasReducedDelta and ROVariantsEqual(fldvalue, change.NewValues[x]) then Continue; - VariantToFieldValue(fldValue, FieldByName(fldname)); - end; - Post; - end; - end; - end; -end; - -procedure TDADataTable.CheckProperties(ACheckRemoteFetching: Boolean=False); -begin - if RemoteFetchEnabled or ACheckRemoteFetching then begin - Check(RemoteDataAdapter = nil, Name+'.RemoteDataAdapter must be assigned.'); - end - else begin - Check(LocalDataStreamer = nil , Name+'.LocalDataStreamer must be assigned.'); - Check(LocalSchema = nil, Name+'.LocalSchema must be assigned.'); - LocalSchema.CheckProperties; - end; -end; - - -procedure TDADataTable.ExpessionEvaluatorGetValue( - Sender: TDAExpressionEvaluator; const aIdentifier: string; - out aValue: Variant); -begin - aValue := Fields.FieldByName(aIdentifier).Value; -end; - -function TDADataTable.GetDynamicWhere: TDAWhereBuilder; -begin - Result := fDynamicWhere; -end; - -procedure TDADataTable.SetDynamicWhere(const Value: TDAWhereBuilder); -begin - if Value <> nil then - FDynamicWhere.Xml := Value.Xml - else - FDynamicWhere.Clear; -end; - -{ TDADataSource } - -constructor TDADataSource.Create(aOwner: TComponent); -begin - inherited; -end; - -destructor TDADataSource.Destroy; -begin - inherited; -end; - -function TDADataSource.GetActive: boolean; -begin - result := (fDataTable <> nil) and fDataTable.Active -end; - -function TDADataSource.GetDataset: TDataset; -begin - result := nil; -end; - -function TDADataSource.GetOpening: boolean; -begin - result := (fDataTable <> nil) and fDataTable.Opening -end; - -procedure TDADataSource.Notification(AComponent: TComponent; - Operation: TOperation); -begin - inherited; - - if (AComponent = fDataTable) then begin - fDataTable := nil; - inherited Dataset := nil; - end; -end; - -procedure TDADataSource.SetDataset(const Value: TDataset); -begin - -end; - -procedure TDADataSource.SetDataTable(const Value: TDADataTable); -begin - fDataTable := Value; - if (fDataTable <> nil) then begin - fDataTable.FreeNotification(Self); - inherited Dataset := fDataTable.Dataset; - end - else - inherited Dataset := nil; -end; - -{ TDABusinessRules } - -constructor TDABusinessRules.Create; -begin - inherited; -end; - -destructor TDABusinessRules.Destroy; -begin - inherited; -end; - -function TDABusinessRules._AddRef: Integer; -begin - result := -1; -end; - -function TDABusinessRules._Release: Integer; -begin - result := -1; -end; - -{ TDADataTableRules } - -constructor TDADataTableRules.Create(aDataTable: TDADataTable); -begin - inherited Create; - - Check(not Assigned(aDatatable), 'DataTable cannot be NIL'); - - fDetails := TStringList.Create; - fDetails.Sorted := TRUE; - fDetails.Duplicates := dupError; - - fDataTable := aDataTable; -end; - -destructor TDADataTableRules.Destroy; -begin - fDetails.Free; - - inherited; -end; - -procedure TDADataTableRules.AfterCancel(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterClose(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterDelete(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterEdit(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterInsert(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterOpen(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterPost(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterRefresh(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.AfterScroll(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeCancel(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeClose(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeDelete(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeEdit(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeInsert(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeOpen(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforePost(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeRefresh(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.BeforeScroll(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.OnCalcFields(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.OnNewRecord(Sender: TDADataTable); -begin - -end; - -procedure TDADataTableRules.OnDeleteError(DataTable: TDADataTable; - Error: EDatabaseError; var Action: TDataAction); -begin - -end; - -procedure TDADataTableRules.OnEditError(DataTable: TDADataTable; - Error: EDatabaseError; var Action: TDataAction); -begin - -end; - -procedure TDADataTableRules.Attach(aDataTable: TDADataTable); -begin - RefreshDetails; -end; - -procedure TDADataTableRules.Detach(aDataTable: TDADataTable); -begin - fDetails.Clear; -end; - -procedure TDADataTableRules.Append; -begin - fDataTable.Append(); -end; - -procedure TDADataTableRules.Cancel; -begin - fDataTable.Cancel(); -end; - -procedure TDADataTableRules.Delete; -begin - fDataTable.Delete(); -end; - -procedure TDADataTableRules.Edit; -begin - fDataTable.Edit(); -end; - -procedure TDADataTableRules.First; -begin - fDataTable.First(); -end; - -procedure TDADataTableRules.Insert; -begin - fDataTable.Insert(); -end; - -procedure TDADataTableRules.Last; -begin - fDataTable.Last(); -end; - -procedure TDADataTableRules.Next; -begin - fDataTable.Next(); -end; - -procedure TDADataTableRules.Post; -begin - fDataTable.Post(); -end; - -procedure TDADataTableRules.Prior; -begin - fDataTable.Prior(); -end; - -function TDADataTableRules.GetBOF: Boolean; -begin - result := fDataTable.BOF; -end; - -function TDADataTableRules.GetEOF: Boolean; -begin - result := fDataTable.EOF; -end; - -function TDADataTableRules.GetRecordCount: Integer; -begin - result := fDataTable.RecordCount; -end; - -function TDADataTableRules.Locate(const aKeyFields: String; const aKeyValues: Variant; aOptions: TLocateOptions = []): boolean; -begin - result := fDataTable.Locate(aKeyFields, aKeyValues, aOptions); -end; - -function TDADataTableRules.GetDetails(Index: integer): TDADataTable; -begin - result := TDADataTable(fDetails[Index]) -end; - -function TDADataTableRules.GetDetailsCount: integer; -begin - result := fDetails.Count -end; - -function TDADataTableRules.FindDetail( - const aLogicalName: string): TDADataTable; -var i : integer; -begin - result := NIL; - i := fDetails.IndexOf(aLogicalName); - - if (i>=0) then result := TDADataTable(fDetails.Objects[i]); -end; - -function TDADataTableRules.DetailByName( - const aLogicalName: string): TDADataTable; -begin - result := FindDetail(aLogicalName); - if (result=NIL) - then raise Exception.CreateFmt('Cannot find the detail DataTable %s ', [aLogicalName]); -end; - -procedure TDADataTableRules.RefreshDetails; -var lList : TList; - i : integer; - lLogicalName : string; -begin - lList := DataTable.GetDetailDataTables; - fDetails.Clear; - try - for i := 0 to (lList.Count-1) do begin - lLogicalName := TDADataTable(lList[i]).LogicalName; - - if (lLogicalName<>'') - then fDetails.AddObject(lLogicalName, lList[i]); - end; - finally - lList.Free; - end; -end; - -function TDADataTableRules.GetDetailOptions: TDADetailOptions; -begin - result := DataTable.DetailOptions -end; - -function TDADataTableRules.GetMasterOptions: TDAMasterOptions; -begin - result := DataTable.MasterOptions -end; - -procedure TDADataTableRules.SetDetailOptions(Value: TDADetailOptions); -begin - DataTable.DetailOptions := Value -end; - -procedure TDADataTableRules.SetMasterOptions(Value: TDAMasterOptions); -begin - DataTable.MasterOptions := Value -end; - -function TDADataTableRules.GetRecNo: integer; -begin - result := fDataTable.RecNo -end; - -procedure TDADataTableRules.SetRecNo(Value: integer); -begin - fDataTable.RecNo := Value -end; - -procedure TDADataTableRules.OnFilterRecord(DataTable: TDADataTable; - var Accept: boolean); -begin - -end; - -procedure TDADataTableRules.OnPostError(DataTable: TDADataTable; - Error: EDatabaseError; var Action: TDataAction); -begin - -end; - -function TDADataTableRules.Lookup(const KeyFields: string; - const KeyValues: Variant; const ResultFields: string): Variant; -begin - result := fDataTable.Lookup(KeyFields, KeyValues, ResultFields); -end; - -function TDADataTableRules.GetIsEmpty: boolean; -begin - result := fDataTable.IsEmpty -end; - -function TDADataTableRules.GetState: TDatasetState; -begin - result := fDataTable.State -end; - -function TDADataTableRules.IsFieldNull( - const FieldIndexOrName: Variant): boolean; -var fld : TDAField; -begin - case VarType(FieldIndexOrName) of - varString, varOleStr, varStrArg : fld := DataTable.FieldByName(VarToStr(FieldIndexOrName)); - else fld := DataTable.Fields[FieldIndexOrName]; - end; - - result := fld.IsNull; -end; - -procedure TDADataTableRules.ClearField(const FieldIndexOrName: Variant); -var fld : TDAField; -begin - case VarType(FieldIndexOrName) of - varString, varOleStr, varStrArg : fld := DataTable.FieldByName(VarToStr(FieldIndexOrName)); - else fld := DataTable.Fields[FieldIndexOrName]; - end; - - fld.Clear; -end; - -function TDADataTableRules.GetDataTable: TDADataTable; -begin - result := fDataTable; -end; - -procedure TDADataTableRules.ApplyRange; -begin - (fDataTable as IDARangeController).ApplyRange -end; - -procedure TDADataTableRules.CancelRange; -begin - (fDataTable as IDARangeController).CancelRange -end; - -procedure TDADataTableRules.EditRangeEnd; -begin - (fDataTable as IDARangeController).EditRangeEnd -end; - -procedure TDADataTableRules.EditRangeStart; -begin - (fDataTable as IDARangeController).EditRangeStart -end; - -procedure TDADataTableRules.SetRange(const StartValues, - EndValues: array of const); -begin - (fDataTable as IDARangeController).SetRange(StartValues, EndValues); -end; - -procedure TDADataTableRules.SetRangeEnd; -begin - (fDataTable as IDARangeController).SetRangeEnd -end; - -procedure TDADataTableRules.SetRangeStart; -begin - (fDataTable as IDARangeController).SetRangeStart -end; - -procedure TDADataTableRules.Close; -begin - fDataTable.Close; -end; - -procedure TDADataTableRules.Open; -begin - fDataTable.Open; -end; - -function TDADataTableRules.GetActive: boolean; -begin - result := fDataTable.Active; -end; - -procedure TDADataTableRules.SetActive(const Value: boolean); -begin - fDataTable.Active := Value; -end; - -procedure TDADataTableRules.OnAfterApplyUpdates(DataTable: TDADataTable); -begin - -end; - -procedure TDADataTableRules.OnAfterDataRequestCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnAfterDataUpdateCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnAfterMergeDelta(DataTable: TDADataTable); -begin - -end; - -procedure TDADataTableRules.OnAfterSchemaCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnAfterScriptCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnBeforeApplyUpdates(DataTable: TDADataTable; - const Delta: IDADelta); -begin - -end; - -procedure TDADataTableRules.OnBeforeDataRequestCall( - DataTable: TDADataTable; Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnBeforeDataUpdateCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnBeforeMergeDelta(DataTable: TDADataTable); -begin - -end; - -procedure TDADataTableRules.OnBeforeSchemaCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnBeforeScriptCall(DataTable: TDADataTable; - Request: TDARemoteRequest); -begin - -end; - -procedure TDADataTableRules.OnReceiveDataStream(DataTable: TDADataTable; - Stream: TStream); -begin - -end; - -{ TDAFieldRules } -constructor TDAFieldRules.Create(aField : TDAField; aDataTable : TDADataTable); -begin - inherited Create; - - fDataTable := aDataTable; - - fField := aField; - fField.OnValidate := OnValidate; - fField.OnChange := OnChange; - - Attach(fDataTable); -end; - -destructor TDAFieldRules.Destroy; -begin - Detach(fDataTable); - inherited; -end; - -procedure TDAFieldRules.Attach(aDataTable: TDADataTable); -begin - -end; - -procedure TDAFieldRules.Detach(aDataTable: TDADataTable); -begin - -end; - -procedure TDAFieldRules.OnChange(Sender: TDACustomField); -begin -end; - -procedure TDAFieldRules.OnValidate(Sender: TDACustomField); -begin -end; - -{ TDADataTableList } -constructor TDADataTableList.Create(aOwnerComponent: TComponent); -begin - inherited Create; - - ScanAndAdd(aOwnerComponent); -end; - -function TDADataTableList.Add(aDataTable: TDADataTable): integer; -begin - result := inherited Add(aDataTable); -end; - -function TDADataTableList.GetItems(Index: integer): TDADataTable; -begin - result := TDADataTable(inherited Items[Index]); -end; - -procedure TDADataTableList.Remove(aDataTable: TDADataTable); -begin - inherited Remove(aDataTable); -end; - - -function TDADataTableList.ScanAndAdd(aOwnerComponent: TComponent): integer; -var i : integer; -begin - result := 0; - with aOwnerComponent do begin - for i := 0 to (Count-1) do - if (Components[i] is TDADataTable) then begin - Add(TDADataTable(Components[i])); - Inc(result); - end; - end; -end; - -function TDADataTableList.GetPendingChangeCount: integer; -var i : integer; -begin - result := 0; - for i := 0 to (Count-1) do - if Items[i].Active and Items[i].LogChanges - then Inc(result, Items[i].Delta.Count); -end; - -{ TDABaseRemoteDataAdapter } - -function TDABaseRemoteDataAdapter.Get_GetDataCall: TDARemoteRequest; -begin - result := nil; -end; - -function TDABaseRemoteDataAdapter.Get_GetSchemaCall: TDARemoteRequest; -begin - result := nil; -end; - -function TDABaseRemoteDataAdapter.Get_GetScriptsCall: TDARemoteRequest; -begin - result := nil; -end; - -function TDABaseRemoteDataAdapter.Get_UpdateDataCall: TDARemoteRequest; -begin - result := nil; -end; - -initialization - RegisterExceptionClass(EDABizValidationException); - - _bizfields := TStringList.Create; - _bizfields.Sorted := TRUE; - - _bizdatatables := TStringList.Create; - _bizdatatables.Sorted := TRUE; - -finalization - UnregisterExceptionClass(EDABizValidationException); - _bizdatatables.Free; - _bizfields.Free; - -end.