Contabilidad aplicado a los contactos
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@63 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
ae571b7016
commit
163c3efcfc
2601
Build/Build.fbp5
2601
Build/Build.fbp5
File diff suppressed because it is too large
Load Diff
@ -61,7 +61,6 @@ FROM CONTACTOS
|
||||
INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO =
|
||||
CONTACTOS.ID);
|
||||
|
||||
|
||||
CREATE VIEW V_CLIENTES(
|
||||
ID,
|
||||
ID_CATEGORIA,
|
||||
@ -137,8 +136,7 @@ FROM
|
||||
V_CONTACTOS
|
||||
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
|
||||
WHERE
|
||||
V_CONTACTOS.ID_CATEGORIA = 1;
|
||||
|
||||
V_CONTACTOS.ID_CATEGORIA = 1;
|
||||
|
||||
CREATE VIEW V_PROVEEDORES(
|
||||
ID,
|
||||
@ -672,7 +670,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION)
|
||||
REFERENCIA_COMISION,
|
||||
IGNORAR_CONTABILIDAD)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
@ -706,7 +705,8 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.IMPORTE_NETO,
|
||||
FACTURAS_CLIENTE.IMPORTE_PORTE,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
COMISIONES_LIQUIDADAS.REFERENCIA
|
||||
COMISIONES_LIQUIDADAS.REFERENCIA,
|
||||
FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
LEFT JOIN FACTURAS_CLIENTE
|
||||
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
|
||||
|
||||
@ -44,6 +44,20 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -60,56 +74,56 @@
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
|
||||
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxDataD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxEditorsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxExportD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxExtEditorsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxGridD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxIntl5D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\cxPageControlD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dxPSCoreD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\dxThemeD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl5D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -47,7 +47,8 @@ requires
|
||||
vclx,
|
||||
vclactnband,
|
||||
designide,
|
||||
ccpackD11;
|
||||
ccpackD11,
|
||||
Contactos_model;
|
||||
|
||||
contains
|
||||
uIEditorEpigrafes in 'View\uIEditorEpigrafes.pas',
|
||||
|
||||
@ -48,6 +48,29 @@
|
||||
<DelphiCompile Include="Contabilidad_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Contactos\Model\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Base.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Contabilidad_data.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\designide.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\dxThemeD10.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Model\xmlrtl.dcp" />
|
||||
<DCCReference Include="uApuntesController.pas" />
|
||||
<DCCReference Include="uAsientosController.pas" />
|
||||
<DCCReference Include="uBalancesController.pas" />
|
||||
@ -55,23 +78,6 @@
|
||||
<DCCReference Include="uCuentasEspecialesController.pas" />
|
||||
<DCCReference Include="uEpigrafesController.pas" />
|
||||
<DCCReference Include="uSubCuentasController.pas" />
|
||||
<DCCReference Include="View\adortl.dcp" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Base.dcp" />
|
||||
<DCCReference Include="View\ccpackD11.dcp" />
|
||||
<DCCReference Include="View\cfpack_d11.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_data.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="View\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="View\dbrtl.dcp" />
|
||||
<DCCReference Include="View\designide.dcp" />
|
||||
<DCCReference Include="View\dsnap.dcp" />
|
||||
<DCCReference Include="View\dxThemeD10.dcp" />
|
||||
<DCCReference Include="View\GUIBase.dcp" />
|
||||
<DCCReference Include="View\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="View\rtl.dcp" />
|
||||
<DCCReference Include="View\uIEditorApunte.pas" />
|
||||
<DCCReference Include="View\uIEditorAsiento.pas" />
|
||||
<DCCReference Include="View\uIEditorBalance.pas" />
|
||||
@ -90,11 +96,6 @@
|
||||
<DCCReference Include="View\uIEditorEpigrafes.pas" />
|
||||
<DCCReference Include="View\uIEditorSubCuenta.pas" />
|
||||
<DCCReference Include="View\uIEditorSubCuentas.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vclactnband.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
<DCCReference Include="View\vclx.dcp" />
|
||||
<DCCReference Include="View\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
@ -123,6 +123,12 @@ begin
|
||||
if (AAsiento.DataTable.State in dsEditModes) then
|
||||
AAsiento.DataTable.Post;
|
||||
|
||||
if AAsiento.FECHA_ASIENTOIsNull then
|
||||
raise Exception.Create('Debe indicar una fecha para este Asiento.');
|
||||
|
||||
if AAsiento.ORDENIsNull then
|
||||
raise Exception.Create('Debe indicar un número de orden para este Asiento.');
|
||||
|
||||
//Tambien validamos los detalles del asiento
|
||||
with TApuntesController.Create do
|
||||
ValidarApunte(AAsiento.Apuntes);
|
||||
|
||||
@ -5,7 +5,14 @@ interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizSubCuentas, uIDataModuleContabilidad;
|
||||
uBizSubCuentas, uBizSubCuentasContacto, uIDataModuleContabilidad;
|
||||
|
||||
const
|
||||
// (REF_CUENTA = 430 SOLO CUENTAS DE CLIENTES)
|
||||
// (REF_CUENTA = 400 SOLO CUENTAS DE PROVEEDORES)
|
||||
CTE_CUENTASCLIENTE = '430';
|
||||
CTE_CUENTASPROVEEDOR = '400';
|
||||
|
||||
type
|
||||
ISubCuentasController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
@ -23,9 +30,16 @@ type
|
||||
function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta;
|
||||
function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta;
|
||||
procedure ElegirCuenta(ASubCuenta: IBizSubCuenta);
|
||||
|
||||
procedure ElegirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String);
|
||||
procedure VerSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
|
||||
procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
|
||||
end;
|
||||
|
||||
TSubCuentasController = class(TObservador, ISubCuentasController)
|
||||
private
|
||||
function BuscarCuentas(TipoCuenta: String): IBizSubCuenta;
|
||||
|
||||
protected
|
||||
FDataModule : IDataModuleContabilidad;
|
||||
|
||||
@ -53,8 +67,11 @@ type
|
||||
|
||||
function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta;
|
||||
function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta;
|
||||
|
||||
procedure ElegirCuenta(ASubCuenta: IBizSubCuenta);
|
||||
|
||||
procedure ElegirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String);
|
||||
procedure VerSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
|
||||
procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -62,7 +79,7 @@ implementation
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorSubCuentas, uIEditorSubCuenta, uIEditorElegirSubCuentas, uDataModuleContabilidad,
|
||||
uBizCuentas, uCuentasController,
|
||||
uBizCuentas, uCuentasController, Dialogs,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
@ -73,6 +90,11 @@ begin
|
||||
ASubCuenta.Insert;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
@ -102,6 +124,34 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.BuscarCuentas(TipoCuenta: String): IBizSubCuenta;
|
||||
var
|
||||
Condicion1: TDAWhereExpression;
|
||||
Condicion2: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (REF_CUENTA = 430/400) (SOLO CUENTAS DE CLIENTES, PROVEEDORES QUE ESTEN SIN ASIGNAR)
|
||||
Condicion1 := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(TipoCuenta, datString), dboEqual);
|
||||
Condicion2 := NewBinaryExpression(NewField('', fld_SubCuentasID_CONTACTO), NewNull(), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion1
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion1, dboAnd);
|
||||
|
||||
Expression := NewBinaryExpression(Expression, Condicion2, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.BuscarTodos: IBizSubCuenta;
|
||||
begin
|
||||
Result := FDataModule.GetSubCuentaItems;
|
||||
@ -201,6 +251,31 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.VerSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
|
||||
var
|
||||
ASubCuenta: IBizSubCuenta;
|
||||
begin
|
||||
if Assigned(ASubCuentaContacto) then
|
||||
begin
|
||||
ASubCuenta := Buscar(ASubCuentaContacto.ID);
|
||||
Ver(ASubCuenta);
|
||||
end;
|
||||
|
||||
if Assigned(ASubCuenta) then
|
||||
begin
|
||||
if Assigned(ASubCuentaContacto)
|
||||
and (ASubCuentaContacto.DataTable.RecordCount > 0) then
|
||||
ASubCuentaContacto.DataTable.Delete;
|
||||
|
||||
ASubCuentaContacto.Insert;
|
||||
ASubCuentaContacto.ID := ASubCuenta.ID;
|
||||
ASubCuentaContacto.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA;
|
||||
ASubCuentaContacto.DESCRIPCION := ASubCuenta.DESCRIPCION;
|
||||
ASubCuentaContacto.post;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.VerTodos(ASubCuentas: IBizSubCuenta);
|
||||
var
|
||||
AEditor : IEditorSubCuentas;
|
||||
@ -272,6 +347,27 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.ElegirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: String);
|
||||
var
|
||||
ASubCuenta: IBizSubCuenta;
|
||||
begin
|
||||
ASubCuenta := BuscarCuentas(TipoCuenta);
|
||||
ASubCuenta := ElegirSubCuenta(ASubCuenta, 'sddsdsdsfsdf', False);
|
||||
|
||||
if Assigned(ASubCuenta) then
|
||||
begin
|
||||
if Assigned(ASubCuentaContacto)
|
||||
and (ASubCuentaContacto.DataTable.RecordCount > 0) then
|
||||
ASubCuentaContacto.DataTable.Delete;
|
||||
|
||||
ASubCuentaContacto.Insert;
|
||||
ASubCuentaContacto.ID := ASubCuenta.ID;
|
||||
ASubCuentaContacto.REF_SUBCUENTA := ASubCuenta.REF_SUBCUENTA;
|
||||
ASubCuentaContacto.DESCRIPCION := ASubCuenta.DESCRIPCION;
|
||||
ASubCuentaContacto.post;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.Eliminar(ASubCuenta: IBizSubCuenta): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
@ -327,12 +327,21 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DisplayLabel = 'SubCuentas_ID_EJERCICIO'
|
||||
DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentas_ID_CUENTA'
|
||||
DictionaryEntry = 'SubCuentas_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CUENTA'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
@ -397,6 +406,10 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
DisplayLabel = 'Apuntes_ID_SUBCUENTA'
|
||||
DictionaryEntry = 'Apuntes_ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'NUM_ORDEN'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
|
||||
@ -9,14 +9,14 @@ 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_Diario = '{F8FC5CA9-331F-486F-9871-319995DD3249}';
|
||||
RID_Apuntes = '{F251002F-B2D8-409E-8F3A-937C3E8A3EAF}';
|
||||
RID_Asientos = '{ABF74F2C-466F-40A2-A0FC-989AF68E4FDF}';
|
||||
RID_SubCuentas = '{5A8B5FF1-8059-4AA1-B05B-10E7E8BA7781}';
|
||||
RID_Cuentas = '{78FCB4FD-3C1A-4ED5-95E7-340A16B22AF3}';
|
||||
RID_CuentasEspeciales = '{0A4B13A1-A9E9-4B7C-8371-5333AA285B9D}';
|
||||
RID_Epigrafes = '{F928AEAF-1435-4B5E-9712-CC542FD2C7E0}';
|
||||
RID_Balances = '{AAB37106-495B-4CD3-BD03-B16FC0857A9D}';
|
||||
RID_Diario = '{66712740-10D2-4473-B0A9-EFFD4AC0B07B}';
|
||||
RID_Apuntes = '{0A3E0101-E3E5-4E82-8AD0-D469CD1486C5}';
|
||||
RID_Asientos = '{1D02E039-AD52-4983-9209-380097067356}';
|
||||
RID_SubCuentas = '{18A3B588-2C4C-404F-8D40-FF8E09A4F16A}';
|
||||
RID_Cuentas = '{1DF0C5B8-1A7A-4077-A69B-81B3A1938CCC}';
|
||||
RID_CuentasEspeciales = '{09EE5C02-8563-4873-835A-9D6485039ACA}';
|
||||
RID_Epigrafes = '{FC10535F-25FE-407E-9168-7D78FB9427A5}';
|
||||
RID_Balances = '{7897556D-5310-4EA5-AA9C-1D4E88729372}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Diario = 'Diario';
|
||||
@ -60,6 +60,7 @@ const
|
||||
fld_ApuntesID = 'ID';
|
||||
fld_ApuntesID_ASIENTO = 'ID_ASIENTO';
|
||||
fld_ApuntesID_SUBCUENTA = 'ID_SUBCUENTA';
|
||||
fld_ApuntesNUM_ORDEN = 'NUM_ORDEN';
|
||||
fld_ApuntesREF_SUBCUENTA = 'REF_SUBCUENTA';
|
||||
fld_ApuntesSUBCUENTA = 'SUBCUENTA';
|
||||
fld_ApuntesCONCEPTO = 'CONCEPTO';
|
||||
@ -72,13 +73,14 @@ const
|
||||
idx_ApuntesID = 0;
|
||||
idx_ApuntesID_ASIENTO = 1;
|
||||
idx_ApuntesID_SUBCUENTA = 2;
|
||||
idx_ApuntesREF_SUBCUENTA = 3;
|
||||
idx_ApuntesSUBCUENTA = 4;
|
||||
idx_ApuntesCONCEPTO = 5;
|
||||
idx_ApuntesDOCUMENTO = 6;
|
||||
idx_ApuntesDEBE = 7;
|
||||
idx_ApuntesHABER = 8;
|
||||
idx_ApuntesPUNTEADO = 9;
|
||||
idx_ApuntesNUM_ORDEN = 3;
|
||||
idx_ApuntesREF_SUBCUENTA = 4;
|
||||
idx_ApuntesSUBCUENTA = 5;
|
||||
idx_ApuntesCONCEPTO = 6;
|
||||
idx_ApuntesDOCUMENTO = 7;
|
||||
idx_ApuntesDEBE = 8;
|
||||
idx_ApuntesHABER = 9;
|
||||
idx_ApuntesPUNTEADO = 10;
|
||||
|
||||
{ Asientos fields }
|
||||
fld_AsientosID = 'ID';
|
||||
@ -95,7 +97,9 @@ const
|
||||
fld_SubCuentasREF_SUBCUENTA = 'REF_SUBCUENTA';
|
||||
fld_SubCuentasDESCRIPCION = 'DESCRIPCION';
|
||||
fld_SubCuentasID_EJERCICIO = 'ID_EJERCICIO';
|
||||
fld_SubCuentasID_CONTACTO = 'ID_CONTACTO';
|
||||
fld_SubCuentasID_CUENTA = 'ID_CUENTA';
|
||||
fld_SubCuentasREF_CUENTA = 'REF_CUENTA';
|
||||
fld_SubCuentasCUENTA = 'CUENTA';
|
||||
fld_SubCuentasDEBE = 'DEBE';
|
||||
fld_SubCuentasHABER = 'HABER';
|
||||
@ -106,11 +110,13 @@ const
|
||||
idx_SubCuentasREF_SUBCUENTA = 1;
|
||||
idx_SubCuentasDESCRIPCION = 2;
|
||||
idx_SubCuentasID_EJERCICIO = 3;
|
||||
idx_SubCuentasID_CUENTA = 4;
|
||||
idx_SubCuentasCUENTA = 5;
|
||||
idx_SubCuentasDEBE = 6;
|
||||
idx_SubCuentasHABER = 7;
|
||||
idx_SubCuentasSALDO = 8;
|
||||
idx_SubCuentasID_CONTACTO = 4;
|
||||
idx_SubCuentasID_CUENTA = 5;
|
||||
idx_SubCuentasREF_CUENTA = 6;
|
||||
idx_SubCuentasCUENTA = 7;
|
||||
idx_SubCuentasDEBE = 8;
|
||||
idx_SubCuentasHABER = 9;
|
||||
idx_SubCuentasSALDO = 10;
|
||||
|
||||
{ Cuentas fields }
|
||||
fld_CuentasID = 'ID';
|
||||
@ -187,7 +193,7 @@ const
|
||||
type
|
||||
{ IDiario }
|
||||
IDiario = interface(IDAStronglyTypedDataTable)
|
||||
['{A0CF9A52-C426-4396-A961-FF7BAD3FB4C0}']
|
||||
['{31F2AED8-604E-49BA-8323-9F0928E09AEB}']
|
||||
{ Property getters and setters }
|
||||
function GetID_APUNTEValue: Integer;
|
||||
procedure SetID_APUNTEValue(const aValue: Integer);
|
||||
@ -354,7 +360,7 @@ type
|
||||
|
||||
{ IApuntes }
|
||||
IApuntes = interface(IDAStronglyTypedDataTable)
|
||||
['{51E8C72F-072E-4C62-B2C3-50FA1FA437A6}']
|
||||
['{68BA9EE2-FAAF-4CFD-B30E-C9AA86DA65BF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -368,6 +374,10 @@ type
|
||||
procedure SetID_SUBCUENTAValue(const aValue: Integer);
|
||||
function GetID_SUBCUENTAIsNull: Boolean;
|
||||
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
function GetNUM_ORDENValue: Integer;
|
||||
procedure SetNUM_ORDENValue(const aValue: Integer);
|
||||
function GetNUM_ORDENIsNull: Boolean;
|
||||
procedure SetNUM_ORDENIsNull(const aValue: Boolean);
|
||||
function GetREF_SUBCUENTAValue: String;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String);
|
||||
function GetREF_SUBCUENTAIsNull: Boolean;
|
||||
@ -405,6 +415,8 @@ type
|
||||
property ID_ASIENTOIsNull: Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull;
|
||||
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
||||
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property NUM_ORDEN: Integer read GetNUM_ORDENValue write SetNUM_ORDENValue;
|
||||
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
|
||||
@ -438,6 +450,10 @@ type
|
||||
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
|
||||
function GetID_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetNUM_ORDENValue: Integer; virtual;
|
||||
procedure SetNUM_ORDENValue(const aValue: Integer); virtual;
|
||||
function GetNUM_ORDENIsNull: Boolean; virtual;
|
||||
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_SUBCUENTAValue: String; virtual;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
||||
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
@ -474,6 +490,8 @@ type
|
||||
property ID_ASIENTOIsNull: Boolean read GetID_ASIENTOIsNull write SetID_ASIENTOIsNull;
|
||||
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
||||
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property NUM_ORDEN: Integer read GetNUM_ORDENValue write SetNUM_ORDENValue;
|
||||
property NUM_ORDENIsNull: Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
|
||||
@ -497,7 +515,7 @@ type
|
||||
|
||||
{ IAsientos }
|
||||
IAsientos = interface(IDAStronglyTypedDataTable)
|
||||
['{60A1BF8D-DDCC-48DC-9088-839CD788AC5B}']
|
||||
['{E85CCB4A-1856-4479-9B50-1C9D82F466A4}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -556,7 +574,7 @@ type
|
||||
|
||||
{ ISubCuentas }
|
||||
ISubCuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{3CE4DD12-1C80-4AFD-BE4B-5892BCA821AC}']
|
||||
['{3E241AD4-8F16-4FCF-A2EB-B0587C349B69}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -574,10 +592,18 @@ type
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
function GetID_CONTACTOValue: Integer;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||
function GetID_CONTACTOIsNull: Boolean;
|
||||
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
|
||||
function GetID_CUENTAValue: Integer;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer);
|
||||
function GetID_CUENTAIsNull: Boolean;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean);
|
||||
function GetREF_CUENTAValue: String;
|
||||
procedure SetREF_CUENTAValue(const aValue: String);
|
||||
function GetREF_CUENTAIsNull: Boolean;
|
||||
procedure SetREF_CUENTAIsNull(const aValue: Boolean);
|
||||
function GetCUENTAValue: String;
|
||||
procedure SetCUENTAValue(const aValue: String);
|
||||
function GetCUENTAIsNull: Boolean;
|
||||
@ -605,8 +631,12 @@ type
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property REF_CUENTA: String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
||||
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
||||
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
||||
property DEBE: Currency read GetDEBEValue write SetDEBEValue;
|
||||
@ -638,10 +668,18 @@ type
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CONTACTOValue: Integer; virtual;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
||||
function GetID_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTAValue: Integer; virtual;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
||||
function GetID_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_CUENTAValue: String; virtual;
|
||||
procedure SetREF_CUENTAValue(const aValue: String); virtual;
|
||||
function GetREF_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetCUENTAValue: String; virtual;
|
||||
procedure SetCUENTAValue(const aValue: String); virtual;
|
||||
function GetCUENTAIsNull: Boolean; virtual;
|
||||
@ -668,8 +706,12 @@ type
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property REF_CUENTA: String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
||||
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
|
||||
property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
||||
property DEBE: Currency read GetDEBEValue write SetDEBEValue;
|
||||
@ -687,7 +729,7 @@ type
|
||||
|
||||
{ ICuentas }
|
||||
ICuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{366FAC37-21A7-4BA3-8428-31AD7845301B}']
|
||||
['{2F1AE932-7409-46F6-A20F-BF0F596BD647}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -830,7 +872,7 @@ type
|
||||
|
||||
{ ICuentasEspeciales }
|
||||
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
||||
['{1E7CF1B8-76C6-4F5A-A504-C3D03AA97A72}']
|
||||
['{CD95E7CE-E25A-4EFA-ADBD-34E9DEBE509D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -889,7 +931,7 @@ type
|
||||
|
||||
{ IEpigrafes }
|
||||
IEpigrafes = interface(IDAStronglyTypedDataTable)
|
||||
['{90A498D5-44D9-4F8D-AB9A-E3EE0F3C64BC}']
|
||||
['{537496C2-B8D8-4810-9052-7A634FF9D518}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -984,7 +1026,7 @@ type
|
||||
|
||||
{ IBalances }
|
||||
IBalances = interface(IDAStronglyTypedDataTable)
|
||||
['{896BE912-E8F7-4F68-AE2C-7A8E3ACFC8CB}']
|
||||
['{EAA5385C-5E33-4860-AA47-1A750F557669}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1455,6 +1497,27 @@ begin
|
||||
DataTable.Fields[idx_ApuntesID_SUBCUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TApuntesDataTableRules.GetNUM_ORDENValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ApuntesNUM_ORDEN].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TApuntesDataTableRules.SetNUM_ORDENValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ApuntesNUM_ORDEN].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TApuntesDataTableRules.GetNUM_ORDENIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ApuntesNUM_ORDEN].IsNull;
|
||||
end;
|
||||
|
||||
procedure TApuntesDataTableRules.SetNUM_ORDENIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ApuntesNUM_ORDEN].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TApuntesDataTableRules.GetREF_SUBCUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ApuntesREF_SUBCUENTA].AsString;
|
||||
@ -1773,6 +1836,27 @@ begin
|
||||
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_CONTACTOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_CONTACTO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasID_CONTACTO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_CONTACTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_CONTACTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasID_CONTACTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_CUENTAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_CUENTA].AsInteger;
|
||||
@ -1794,6 +1878,27 @@ begin
|
||||
DataTable.Fields[idx_SubCuentasID_CUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetREF_CUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasREF_CUENTA].AsString;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetREF_CUENTAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasREF_CUENTA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetREF_CUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasREF_CUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetREF_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasREF_CUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetCUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasCUENTA].AsString;
|
||||
|
||||
@ -9,19 +9,19 @@ 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_DiarioDelta = '{00C7E090-F36E-4A94-924F-81591065C131}';
|
||||
RID_ApuntesDelta = '{462A727F-D66D-4493-83A3-6CAF34F994D7}';
|
||||
RID_AsientosDelta = '{3A7F1EB1-7C5B-47BF-8DFA-4C86EFF0686E}';
|
||||
RID_SubCuentasDelta = '{E88435DC-570C-43D8-A8B0-004C1C775CF0}';
|
||||
RID_CuentasDelta = '{A26B4CE1-63F7-49F3-8A0A-F2840D95587C}';
|
||||
RID_CuentasEspecialesDelta = '{089CB669-7830-4908-9344-42AEC93D8320}';
|
||||
RID_EpigrafesDelta = '{BFE5CD3F-52C2-400A-93A6-ACB723F7390E}';
|
||||
RID_BalancesDelta = '{543250BB-1C2E-4448-AEA8-EDC23591A2ED}';
|
||||
RID_DiarioDelta = '{E378FEF4-3D61-494F-8DA1-C1B5D1AEA218}';
|
||||
RID_ApuntesDelta = '{A3928C23-C317-44BA-9D86-2246C6A0C67E}';
|
||||
RID_AsientosDelta = '{BCC4A7C1-B43B-48DD-882B-1D481E0F7E53}';
|
||||
RID_SubCuentasDelta = '{C0A6D73D-4D31-409B-B279-F5746A696C17}';
|
||||
RID_CuentasDelta = '{CC8F052F-E8A4-4895-A2D3-BC9197C44621}';
|
||||
RID_CuentasEspecialesDelta = '{B6130FAB-FA0F-4CD3-9359-0868A0B185AA}';
|
||||
RID_EpigrafesDelta = '{8980017F-915A-44BC-A43E-EB6810173932}';
|
||||
RID_BalancesDelta = '{A9862597-2EFE-45B7-8584-03FC75228C0C}';
|
||||
|
||||
type
|
||||
{ IDiarioDelta }
|
||||
IDiarioDelta = interface(IDiario)
|
||||
['{00C7E090-F36E-4A94-924F-81591065C131}']
|
||||
['{E378FEF4-3D61-494F-8DA1-C1B5D1AEA218}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_APUNTEValue : Integer;
|
||||
function GetOldID_ASIENTOValue : Integer;
|
||||
@ -187,11 +187,12 @@ type
|
||||
|
||||
{ IApuntesDelta }
|
||||
IApuntesDelta = interface(IApuntes)
|
||||
['{462A727F-D66D-4493-83A3-6CAF34F994D7}']
|
||||
['{A3928C23-C317-44BA-9D86-2246C6A0C67E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ASIENTOValue : Integer;
|
||||
function GetOldID_SUBCUENTAValue : Integer;
|
||||
function GetOldNUM_ORDENValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
function GetOldSUBCUENTAValue : String;
|
||||
function GetOldCONCEPTOValue : String;
|
||||
@ -204,6 +205,7 @@ type
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_ASIENTO : Integer read GetOldID_ASIENTOValue;
|
||||
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
||||
property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue;
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
|
||||
property OldCONCEPTO : String read GetOldCONCEPTOValue;
|
||||
@ -236,6 +238,12 @@ type
|
||||
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetNUM_ORDENValue: Integer; virtual;
|
||||
function GetNUM_ORDENIsNull: Boolean; virtual;
|
||||
function GetOldNUM_ORDENValue: Integer; virtual;
|
||||
function GetOldNUM_ORDENIsNull: Boolean; virtual;
|
||||
procedure SetNUM_ORDENValue(const aValue: Integer); virtual;
|
||||
procedure SetNUM_ORDENIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_SUBCUENTAValue: String; virtual;
|
||||
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
function GetOldREF_SUBCUENTAValue: String; virtual;
|
||||
@ -292,6 +300,10 @@ type
|
||||
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
|
||||
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
|
||||
property NUM_ORDEN : Integer read GetNUM_ORDENValue write SetNUM_ORDENValue;
|
||||
property NUM_ORDENIsNull : Boolean read GetNUM_ORDENIsNull write SetNUM_ORDENIsNull;
|
||||
property OldNUM_ORDEN : Integer read GetOldNUM_ORDENValue;
|
||||
property OldNUM_ORDENIsNull : Boolean read GetOldNUM_ORDENIsNull;
|
||||
property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
@ -329,7 +341,7 @@ type
|
||||
|
||||
{ IAsientosDelta }
|
||||
IAsientosDelta = interface(IAsientos)
|
||||
['{3A7F1EB1-7C5B-47BF-8DFA-4C86EFF0686E}']
|
||||
['{BCC4A7C1-B43B-48DD-882B-1D481E0F7E53}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldFECHA_ASIENTOValue : DateTime;
|
||||
@ -387,13 +399,15 @@ type
|
||||
|
||||
{ ISubCuentasDelta }
|
||||
ISubCuentasDelta = interface(ISubCuentas)
|
||||
['{E88435DC-570C-43D8-A8B0-004C1C775CF0}']
|
||||
['{C0A6D73D-4D31-409B-B279-F5746A696C17}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldID_EJERCICIOValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
function GetOldID_CUENTAValue : Integer;
|
||||
function GetOldREF_CUENTAValue : String;
|
||||
function GetOldCUENTAValue : String;
|
||||
function GetOldDEBEValue : Currency;
|
||||
function GetOldHABERValue : Currency;
|
||||
@ -404,7 +418,9 @@ type
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
||||
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
|
||||
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
|
||||
property OldCUENTA : String read GetOldCUENTAValue;
|
||||
property OldDEBE : Currency read GetOldDEBEValue;
|
||||
property OldHABER : Currency read GetOldHABERValue;
|
||||
@ -440,12 +456,24 @@ type
|
||||
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CONTACTOValue: Integer; virtual;
|
||||
function GetID_CONTACTOIsNull: Boolean; virtual;
|
||||
function GetOldID_CONTACTOValue: Integer; virtual;
|
||||
function GetOldID_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTAValue: Integer; virtual;
|
||||
function GetID_CUENTAIsNull: Boolean; virtual;
|
||||
function GetOldID_CUENTAValue: Integer; virtual;
|
||||
function GetOldID_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_CUENTAValue: String; virtual;
|
||||
function GetREF_CUENTAIsNull: Boolean; virtual;
|
||||
function GetOldREF_CUENTAValue: String; virtual;
|
||||
function GetOldREF_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_CUENTAValue(const aValue: String); virtual;
|
||||
procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetCUENTAValue: String; virtual;
|
||||
function GetCUENTAIsNull: Boolean; virtual;
|
||||
function GetOldCUENTAValue: String; virtual;
|
||||
@ -488,10 +516,18 @@ type
|
||||
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
||||
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
||||
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
|
||||
property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
|
||||
property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull;
|
||||
property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
||||
property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
|
||||
property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull;
|
||||
property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
|
||||
property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
||||
property OldCUENTA : String read GetOldCUENTAValue;
|
||||
@ -517,7 +553,7 @@ type
|
||||
|
||||
{ ICuentasDelta }
|
||||
ICuentasDelta = interface(ICuentas)
|
||||
['{A26B4CE1-63F7-49F3-8A0A-F2840D95587C}']
|
||||
['{CC8F052F-E8A4-4895-A2D3-BC9197C44621}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_CUENTAValue : String;
|
||||
@ -659,7 +695,7 @@ type
|
||||
|
||||
{ ICuentasEspecialesDelta }
|
||||
ICuentasEspecialesDelta = interface(ICuentasEspeciales)
|
||||
['{089CB669-7830-4908-9344-42AEC93D8320}']
|
||||
['{B6130FAB-FA0F-4CD3-9359-0868A0B185AA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -717,7 +753,7 @@ type
|
||||
|
||||
{ IEpigrafesDelta }
|
||||
IEpigrafesDelta = interface(IEpigrafes)
|
||||
['{BFE5CD3F-52C2-400A-93A6-ACB723F7390E}']
|
||||
['{8980017F-915A-44BC-A43E-EB6810173932}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_EPIGRAFEValue : String;
|
||||
@ -811,7 +847,7 @@ type
|
||||
|
||||
{ IBalancesDelta }
|
||||
IBalancesDelta = interface(IBalances)
|
||||
['{543250BB-1C2E-4448-AEA8-EDC23591A2ED}']
|
||||
['{A9862597-2EFE-45B7-8584-03FC75228C0C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_BALANCEValue : String;
|
||||
@ -1432,6 +1468,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesID_SUBCUENTA] := Null;
|
||||
end;
|
||||
|
||||
function TApuntesBusinessProcessorRules.GetNUM_ORDENValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN];
|
||||
end;
|
||||
|
||||
function TApuntesBusinessProcessorRules.GetNUM_ORDENIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN]);
|
||||
end;
|
||||
|
||||
function TApuntesBusinessProcessorRules.GetOldNUM_ORDENValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN];
|
||||
end;
|
||||
|
||||
function TApuntesBusinessProcessorRules.GetOldNUM_ORDENIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ApuntesNUM_ORDEN]);
|
||||
end;
|
||||
|
||||
procedure TApuntesBusinessProcessorRules.SetNUM_ORDENValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := aValue;
|
||||
end;
|
||||
|
||||
procedure TApuntesBusinessProcessorRules.SetNUM_ORDENIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesNUM_ORDEN] := Null;
|
||||
end;
|
||||
|
||||
function TApuntesBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ApuntesREF_SUBCUENTA];
|
||||
@ -1890,6 +1957,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetID_CONTACTOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO];
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO]);
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO];
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CONTACTO]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CONTACTO] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetID_CUENTAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA];
|
||||
@ -1921,6 +2019,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetREF_CUENTAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA];
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA]);
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA];
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_CUENTA]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_CUENTA] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasBusinessProcessorRules.GetCUENTAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasCUENTA];
|
||||
|
||||
@ -12,14 +12,23 @@ type
|
||||
IBizApunte = interface(IApuntes)
|
||||
['{D26061DB-FFF4-456F-B442-A14A19501DD0}']
|
||||
function EsNuevo : Boolean;
|
||||
procedure SetNumOrden;
|
||||
end;
|
||||
|
||||
TBizApunte = class(TApuntesDataTableRules, IBizApunte)
|
||||
private
|
||||
FNumOrden: Integer;
|
||||
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
|
||||
public
|
||||
procedure SetNumOrden;
|
||||
procedure IniciarValoresApunteNueva;
|
||||
function EsNuevo : Boolean;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -27,7 +36,19 @@ implementation
|
||||
{ TBizApunte }
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils, uFactuGES_App;
|
||||
DB, SysUtils, uDataTableUtils, uFactuGES_App;
|
||||
|
||||
constructor TBizApunte.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
FNumOrden := 1;
|
||||
end;
|
||||
|
||||
destructor TBizApunte.Destroy;
|
||||
begin
|
||||
FNumOrden := 0;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizApunte.EsNuevo: Boolean;
|
||||
begin
|
||||
@ -36,7 +57,8 @@ end;
|
||||
|
||||
procedure TBizApunte.IniciarValoresApunteNueva;
|
||||
begin
|
||||
// ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
|
||||
NUM_ORDEN := FNumOrden;
|
||||
Inc(FNumOrden);
|
||||
end;
|
||||
|
||||
procedure TBizApunte.OnNewRecord(Sender: TDADataTable);
|
||||
@ -45,6 +67,42 @@ begin
|
||||
IniciarValoresApunteNueva;
|
||||
end;
|
||||
|
||||
procedure TBizApunte.SetNumOrden;
|
||||
var
|
||||
ABookmark : TBookmark;
|
||||
NumOrdenMax : Integer;
|
||||
begin
|
||||
with Self.DataTable do
|
||||
begin
|
||||
if not Opening then
|
||||
Open;
|
||||
|
||||
try
|
||||
ABookmark := GetBookMark;
|
||||
DisableControls;
|
||||
DisableEventHandlers;
|
||||
|
||||
NumOrdenMax := 0;
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if NUM_ORDEN > NumOrdenMax then
|
||||
NumOrdenMax := NUM_ORDEN;
|
||||
Next;
|
||||
end;
|
||||
|
||||
Inc(NumOrdenMax);
|
||||
FNumOrden := NumOrdenMax;
|
||||
|
||||
finally
|
||||
EnableEventHandlers;
|
||||
GotoBookmark(ABookmark);
|
||||
FreeBookmark(ABookmark);
|
||||
EnableControls;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_Apunte, TBizApunte);
|
||||
|
||||
|
||||
@ -6,8 +6,8 @@ object srvContabilidad: TsrvContabilidad
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 246
|
||||
Width = 331
|
||||
Height = 283
|
||||
Width = 351
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 90
|
||||
@ -456,12 +456,13 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'SELECT'#10' CONT_APUNTES.ID,'#10' CONT_APUNTES.ID_ASIENTO,'#10' CON' +
|
||||
'T_APUNTES.ID_SUBCUENTA,'#10' CONT_SUBCUENTAS.REF_SUBCUENTA,'#10' C' +
|
||||
'ONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,'#10' CONT_APUNTES.CONCEP' +
|
||||
'TO,'#10' CONT_APUNTES.DOCUMENTO,'#10' CONT_APUNTES.DEBE,'#10' CONT_' +
|
||||
'APUNTES.HABER,'#10' CONT_APUNTES.PUNTEADO'#10#10'FROM CONT_APUNTES'#10'LEFT' +
|
||||
' JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID = CONT_APUNTES.ID_S' +
|
||||
'UBCUENTA)'#10'WHERE {Where}'#10'ORDER BY CONT_APUNTES.ID'#10#10
|
||||
'T_APUNTES.ID_SUBCUENTA,'#10' CONT_APUNTES.NUM_ORDEN,'#10' CONT_SUB' +
|
||||
'CUENTAS.REF_SUBCUENTA,'#10' CONT_SUBCUENTAS.DESCRIPCION as SUBCUE' +
|
||||
'NTA,'#10' CONT_APUNTES.CONCEPTO,'#10' CONT_APUNTES.DOCUMENTO,'#10' ' +
|
||||
'CONT_APUNTES.DEBE,'#10' CONT_APUNTES.HABER,'#10' CONT_APUNTES.PUNT' +
|
||||
'EADO'#10#10'FROM CONT_APUNTES'#10'LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCU' +
|
||||
'ENTAS.ID = CONT_APUNTES.ID_SUBCUENTA)'#10'WHERE {Where}'#10'ORDER BY CON' +
|
||||
'T_APUNTES.ID'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -476,6 +477,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
DatasetField = 'ID_SUBCUENTA'
|
||||
TableField = 'ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NUM_ORDEN'
|
||||
TableField = 'NUM_ORDEN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_SUBCUENTA'
|
||||
TableField = '<unknown>'
|
||||
@ -526,6 +531,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Apuntes_ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'NUM_ORDEN'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
@ -636,10 +645,18 @@ object srvContabilidad: TsrvContabilidad
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CONTACTO'
|
||||
TableField = 'ID_CONTACTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CUENTA'
|
||||
TableField = 'ID_CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_CUENTA'
|
||||
TableField = 'REF_CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CUENTA'
|
||||
TableField = 'CUENTA'
|
||||
@ -683,11 +700,20 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentas_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'REF_CUENTA'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
@ -1453,6 +1479,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'ID_ASIENTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NUM_ORDEN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
Value = ''
|
||||
@ -1484,10 +1514,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
Default = True
|
||||
TargetTable = 'CONT_APUNTES'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONT_APUNTES'#10' (ID, ID_ASIENTO, ID_SUBCUENTA, CO' +
|
||||
'NCEPTO, DOCUMENTO, DEBE, HABER, PUNTEADO)'#10' VALUES'#10' (:ID, :ID' +
|
||||
'_ASIENTO, :ID_SUBCUENTA, :CONCEPTO, :DOCUMENTO, :DEBE, :HABER, :' +
|
||||
'PUNTEADO)'#10
|
||||
'INSERT'#10' INTO CONT_APUNTES'#10' (ID, ID_ASIENTO, NUM_ORDEN, ID_SU' +
|
||||
'BCUENTA, CONCEPTO, DOCUMENTO, DEBE, HABER, PUNTEADO)'#10' VALUES'#10' ' +
|
||||
' (:ID, :ID_ASIENTO, :NUM_ORDEN, :ID_SUBCUENTA, :CONCEPTO, :DOCU' +
|
||||
'MENTO, :DEBE, :HABER, :PUNTEADO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1517,6 +1547,10 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'ID_ASIENTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NUM_ORDEN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
Value = ''
|
||||
@ -1552,10 +1586,11 @@ object srvContabilidad: TsrvContabilidad
|
||||
Default = True
|
||||
TargetTable = 'CONT_APUNTES'
|
||||
SQL =
|
||||
'UPDATE CONT_APUNTES'#10' SET '#10' ID_ASIENTO = :ID_ASIENTO, '#10' ID' +
|
||||
'_SUBCUENTA = :ID_SUBCUENTA, '#10' CONCEPTO = :CONCEPTO,'#10' DOCUM' +
|
||||
'ENTO = :DOCUMENTO, '#10' DEBE = :DEBE, '#10' HABER = :HABER, '#10' ' +
|
||||
'PUNTEADO = :PUNTEADO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'UPDATE CONT_APUNTES'#10' SET '#10' ID_ASIENTO = :ID_ASIENTO, '#10' NU' +
|
||||
'M_ORDEN = :NUM_ORDEN,'#10' ID_SUBCUENTA = :ID_SUBCUENTA, '#10' CON' +
|
||||
'CEPTO = :CONCEPTO,'#10' DOCUMENTO = :DOCUMENTO, '#10' DEBE = :DEBE' +
|
||||
', '#10' HABER = :HABER, '#10' PUNTEADO = :PUNTEADO'#10' WHERE'#10' (ID' +
|
||||
' = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -231,6 +231,10 @@ inherited fEditorAsiento: TfEditorAsiento
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 624
|
||||
ExplicitWidth = 624
|
||||
inherited Label1: TLabel
|
||||
Height = 22
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -169,6 +169,10 @@ begin
|
||||
raise Exception.Create('No hay ningún almacén asignado');
|
||||
|
||||
Asiento.DataTable.Active := True;
|
||||
|
||||
//Muy importante ya que pone el numero de orden del apunte al maximo valor existente
|
||||
//tiene que ser aqui porque es cuando la tabla esta filtrada por el asiento
|
||||
Asiento.Apuntes.SetNumOrden;
|
||||
end;
|
||||
|
||||
destructor TfEditorAsiento.Destroy;
|
||||
|
||||
@ -102,9 +102,9 @@ begin
|
||||
if Assigned(SubCuenta) then
|
||||
begin
|
||||
if SubCuenta.EsNuevo then
|
||||
FTitulo := 'Nuevo almacén - ' + AppFactuGES.EjercicioActivo.NOMBRE
|
||||
FTitulo := 'Nueva subcuenta - ' + AppFactuGES.EjercicioActivo.NOMBRE
|
||||
else
|
||||
FTitulo := 'Almacén' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE + ' - ' + SubCuenta.DESCRIPCION;
|
||||
FTitulo := 'Cuenta' + ' - ' + SubCuenta.DESCRIPCION + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE;
|
||||
end;
|
||||
|
||||
inherited PonerTitulos(FTitulo);
|
||||
@ -162,7 +162,7 @@ begin
|
||||
begin
|
||||
Parent := pagGeneral;
|
||||
Align := alClient;
|
||||
// dxLayoutControlSubCuenta.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||
dxLayoutControlSubCuenta.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||
end;
|
||||
ViewSubCuenta := AViewSubCuenta;
|
||||
end;
|
||||
|
||||
@ -22,6 +22,10 @@ inherited frViewApuntes: TfrViewApuntes
|
||||
OptionsView.Footer = True
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
Visible = True
|
||||
Options.Sorting = False
|
||||
end
|
||||
object cxGridViewNUM_ORDEN: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'NUM_ORDEN'
|
||||
SortIndex = 0
|
||||
SortOrder = soAscending
|
||||
end
|
||||
@ -124,7 +128,7 @@ inherited frViewApuntes: TfrViewApuntes
|
||||
Left = 457
|
||||
Top = 0
|
||||
Width = 55
|
||||
Height = 22
|
||||
Height = 13
|
||||
Margins.Top = 8
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Descuadre:'
|
||||
|
||||
@ -38,6 +38,7 @@ type
|
||||
eDescuadre: TcxCurrencyEdit;
|
||||
ToolButton3: TToolButton;
|
||||
Label1: TLabel;
|
||||
cxGridViewNUM_ORDEN: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure cxGridViewREF_SUBCUENTAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
@ -85,7 +86,7 @@ procedure TfrViewApuntes.SetApuntes(const Value: IBizApunte);
|
||||
begin
|
||||
FApuntes := Value;
|
||||
if Assigned(FApuntes) then
|
||||
dsDetalles.DataTable := FApuntes.DataTable;
|
||||
dsDetalles.DataTable := FApuntes.DataTable;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -9,6 +9,9 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
|
||||
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
|
||||
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
|
||||
<Projects Include="Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="Data\Contactos_data.dproj" />
|
||||
<Projects Include="Model\Contactos_model.dproj" />
|
||||
@ -93,6 +96,33 @@
|
||||
<Target Name="Contactos_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model">
|
||||
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model:Clean">
|
||||
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_model:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_data">
|
||||
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_data:Clean">
|
||||
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_data:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_controller">
|
||||
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_controller:Clean">
|
||||
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contabilidad_controller:Make">
|
||||
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -112,13 +142,13 @@
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_model;Contabilidad_data;Contabilidad_controller;FactuGES;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -31,7 +31,8 @@ requires
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contactos_model,
|
||||
Contactos_data;
|
||||
Contactos_data,
|
||||
Contabilidad_controller;
|
||||
|
||||
contains
|
||||
uContactosController in 'uContactosController.pas',
|
||||
|
||||
@ -53,13 +53,14 @@
|
||||
<DelphiCompile Include="Contactos_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_data.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_data.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="uClientesController.pas" />
|
||||
<DCCReference Include="uContactosController.pas" />
|
||||
<DCCReference Include="uDireccionesContactoController.pas" />
|
||||
|
||||
@ -318,6 +318,9 @@ begin
|
||||
begin
|
||||
with (AContacto as IBizCliente) do
|
||||
begin
|
||||
if (SubCuentas.DataTable.State in dsEditModes) then
|
||||
SubCuentas.DataTable.Post;
|
||||
|
||||
if (BLOQUEADO = 0) then
|
||||
begin
|
||||
Edit;
|
||||
@ -338,6 +341,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
if Result and (AContacto.Direcciones.RecordCount = 0) then
|
||||
if (ShowConfirmMessage('El cliente no tiene direcciones asociadas',
|
||||
AContacto.NOMBRE + ' no tiene ninguna dirección de envío dada de alta, ' + #10#13 +
|
||||
|
||||
@ -27,6 +27,7 @@ type
|
||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto;
|
||||
|
||||
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
|
||||
// procedure ElegirSubCuenta(AContacto: IBizContacto);
|
||||
end;
|
||||
|
||||
TContactosController = class(TInterfacedObject, IContactosController)
|
||||
@ -57,13 +58,14 @@ type
|
||||
procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
|
||||
function ElegirContacto(AContactos : IBizContacto;
|
||||
AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
|
||||
// procedure ElegirSubCuenta(AContacto: IBizContacto);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
|
||||
schContactosClient_Intf, uFactuGES_App;
|
||||
schContactosClient_Intf, uFactuGES_App;//, uSubCuentasController;
|
||||
|
||||
{ TContactosController }
|
||||
|
||||
@ -123,6 +125,36 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
{procedure TContactosController.ElegirSubCuenta(AContacto: IBizContacto);
|
||||
var
|
||||
AController: ISubCuentasController;
|
||||
AIdSubCuenta: Integer;
|
||||
ARefSubCuenta, ASubCuenta: Variant;
|
||||
|
||||
begin
|
||||
try
|
||||
AController := TSubCuentasController.Create;
|
||||
AIdSubCuenta := AController.ElegirSubCuenta('ddddddd', ARefSubCuenta, ASubCuenta);
|
||||
|
||||
if (AIdSubCuenta <> ID_NULO) then
|
||||
begin
|
||||
if Assigned(AContacto) then
|
||||
begin
|
||||
if not AContacto.DataTable.Editing then
|
||||
AContacto.DataTable.Edit;
|
||||
|
||||
AContacto.ID_SUBCUENTA := AIdSubCuenta;
|
||||
AContacto.REF_SUBCUENTA := ARefSubCuenta;
|
||||
AContacto.SUBCUENTA := ASubCuenta;
|
||||
AContacto.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
AController := Nil;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
function TContactosController.Eliminar(AContacto: IBizContacto): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited DataModuleClientes: TDataModuleClientes
|
||||
Height = 325
|
||||
Width = 636
|
||||
Width = 701
|
||||
inherited rda_Contactos: TDARemoteDataAdapter
|
||||
Top = 79
|
||||
end
|
||||
@ -337,4 +337,67 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 552
|
||||
Top = 224
|
||||
end
|
||||
object tbl_SubCuentasContacto: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'SubCuentasContacto_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'SubCuentasContacto_REF_SUBCUENTA'
|
||||
DictionaryEntry = 'SubCuentasContacto_REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'SubCuentasContacto_DESCRIPCION'
|
||||
DictionaryEntry = 'SubCuentasContacto_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentasContacto_ID_CUENTA'
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentasContacto_ID_EJERCICIO'
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentasContacto_ID_CONTACTO'
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_CONTACTO'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contactos
|
||||
MasterSource = ds_Clientes
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_CONTACTO'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'SubCuentasContacto'
|
||||
IndexDefs = <>
|
||||
Left = 600
|
||||
Top = 80
|
||||
end
|
||||
object ds_SubCuentasContacto: TDADataSource
|
||||
DataSet = tbl_SubCuentasContacto.Dataset
|
||||
DataTable = tbl_SubCuentasContacto
|
||||
Left = 600
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,7 +7,7 @@ uses
|
||||
DB, uDADataTable, uDAScriptingProvider,
|
||||
uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService,
|
||||
uROClient, uROBinMessage, uROWinInetHttpChannel, uBizClientesDescuentos,
|
||||
uBizGruposCliente, uBizContactos, uDataModuleContactos,
|
||||
uBizGruposCliente, uBizContactos, uBizSubCuentasContacto, uDataModuleContactos,
|
||||
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
|
||||
uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
|
||||
@ -21,8 +21,11 @@ type
|
||||
ds_ClientesDescuentos: TDADataSource;
|
||||
tbl_GruposCliente: TDAMemDataTable;
|
||||
ds_GruposCliente: TDADataSource;
|
||||
tbl_SubCuentasContacto: TDAMemDataTable;
|
||||
ds_SubCuentasContacto: TDADataSource;
|
||||
protected
|
||||
function _GetDescuentos: IBizClienteDescuentos;
|
||||
function _GetSubCuentas: IBizSubCuentasContacto;
|
||||
public
|
||||
function GetItem(const ID : Integer) : IBizCliente;
|
||||
function NewItem : IBizCliente;
|
||||
@ -93,6 +96,7 @@ begin
|
||||
DatosBancarios := _GetDatosBancarios;
|
||||
Direcciones := _GetDirecciones;
|
||||
Descuentos := _GetDescuentos;
|
||||
SubCuentas := _GetSubCuentas;
|
||||
end;
|
||||
|
||||
Result := (AContacto as IBizCliente);
|
||||
@ -147,4 +151,23 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleClientes._GetSubCuentas: IBizSubCuentasContacto;
|
||||
var
|
||||
ASubCuentas : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ASubCuentas := CloneDataTable(tbl_SubCuentasContacto);
|
||||
with ASubCuentas do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_SUBCUENTAS_CONTACTO;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ASubCuentas as IBizSubCuentasContacto);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -188,6 +188,7 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Contactos'
|
||||
IndexDefs = <>
|
||||
Left = 176
|
||||
Top = 16
|
||||
end
|
||||
@ -314,6 +315,7 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DireccionesContacto'
|
||||
IndexDefs = <>
|
||||
Left = 448
|
||||
Top = 16
|
||||
end
|
||||
@ -330,6 +332,7 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'DatosBancarios_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
@ -349,28 +352,28 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
Name = 'ENTIDAD'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'C'#195#179'digo de entidad'
|
||||
DisplayLabel = 'C'#243'digo de entidad'
|
||||
DictionaryEntry = 'DatosBancarios_ENTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'SUCURSAL'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'C'#195#179'digo de sucursal'
|
||||
DisplayLabel = 'C'#243'digo de sucursal'
|
||||
DictionaryEntry = 'DatosBancarios_SUCURSAL'
|
||||
end
|
||||
item
|
||||
Name = 'DC'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'D'#195#173'gito de control'
|
||||
DisplayLabel = 'D'#237'gito de control'
|
||||
DictionaryEntry = 'DatosBancarios_DC'
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'C'#195#179'digo de cuenta'
|
||||
DisplayLabel = 'C'#243'digo de cuenta'
|
||||
DictionaryEntry = 'DatosBancarios_CUENTA'
|
||||
end
|
||||
item
|
||||
@ -392,6 +395,7 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DatosBancarios'
|
||||
IndexDefs = <>
|
||||
Left = 176
|
||||
Top = 168
|
||||
end
|
||||
|
||||
@ -43,6 +43,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Contactos_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
@ -78,14 +79,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Direcci'#195#179'n'
|
||||
DisplayLabel = 'Direcci'#243'n'
|
||||
DictionaryEntry = 'Contactos_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Poblaci'#195#179'n'
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
DictionaryEntry = 'Contactos_POBLACION'
|
||||
end
|
||||
item
|
||||
@ -99,7 +100,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'C'#195#179'digo postal'
|
||||
DisplayLabel = 'C'#243'digo postal'
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
@ -120,7 +121,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'MOVIL_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DisplayLabel = 'M'#195#179'vil'
|
||||
DisplayLabel = 'M'#243'vil'
|
||||
DictionaryEntry = 'Contactos_MOVIL_1'
|
||||
end
|
||||
item
|
||||
@ -208,7 +209,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'CODIGO_ASIGNADO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'C'#195#179'digo asignado'
|
||||
DisplayLabel = 'C'#243'digo asignado'
|
||||
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
|
||||
end
|
||||
item
|
||||
@ -220,7 +221,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'REGIMEN_IVA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'R'#195#169'gimen de IVA'
|
||||
DisplayLabel = 'R'#233'gimen de IVA'
|
||||
DictionaryEntry = 'Proveedores_REGIMEN_IVA'
|
||||
end
|
||||
item
|
||||
@ -268,4 +269,67 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Left = 296
|
||||
Top = 232
|
||||
end
|
||||
object tbl_SubCuentasContacto: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'SubCuentasContacto_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'SubCuentasContacto_REF_SUBCUENTA'
|
||||
DictionaryEntry = 'SubCuentasContacto_REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'SubCuentasContacto_DESCRIPCION'
|
||||
DictionaryEntry = 'SubCuentasContacto_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentasContacto_ID_CUENTA'
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentasContacto_ID_EJERCICIO'
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentasContacto_ID_CONTACTO'
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_CONTACTO'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contactos
|
||||
MasterSource = ds_Proveedores
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_CONTACTO'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'SubCuentasContacto'
|
||||
IndexDefs = <>
|
||||
Left = 632
|
||||
Top = 80
|
||||
end
|
||||
object ds_SubCuentasContacto: TDADataSource
|
||||
DataSet = tbl_SubCuentasContacto.Dataset
|
||||
DataTable = tbl_SubCuentasContacto
|
||||
Left = 632
|
||||
Top = 24
|
||||
end
|
||||
end
|
||||
|
||||
@ -10,7 +10,7 @@ uses
|
||||
|
||||
uIDataModuleProveedores, uBizContactos, uDADesigntimeCall,
|
||||
uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces,
|
||||
uDAMemDataTable, uDABin2DataStreamer;
|
||||
uDAMemDataTable, uDABin2DataStreamer, uBizSubCuentasContacto;
|
||||
|
||||
type
|
||||
TDataModuleProveedores = class(TDataModuleContactos, IDataModuleProveedores)
|
||||
@ -18,6 +18,10 @@ type
|
||||
ds_GruposProveedor: TDADataSource;
|
||||
tbl_Proveedores: TDAMemDataTable;
|
||||
ds_Proveedores: TDADataSource;
|
||||
tbl_SubCuentasContacto: TDAMemDataTable;
|
||||
ds_SubCuentasContacto: TDADataSource;
|
||||
protected
|
||||
function _GetSubCuentas: IBizSubCuentasContacto;
|
||||
public
|
||||
function GetItem(const ID : Integer) : IBizProveedor;
|
||||
function NewItem : IBizProveedor;
|
||||
@ -86,6 +90,7 @@ begin
|
||||
begin
|
||||
DatosBancarios := _GetDatosBancarios;
|
||||
Direcciones := _GetDirecciones;
|
||||
SubCuentas := _GetSubCuentas;
|
||||
end;
|
||||
|
||||
Result := (AContacto as IBizProveedor);
|
||||
@ -121,4 +126,23 @@ begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleProveedores._GetSubCuentas: IBizSubCuentasContacto;
|
||||
var
|
||||
ASubCuentas : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ASubCuentas := CloneDataTable(tbl_SubCuentasContacto);
|
||||
with ASubCuentas do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_SUBCUENTAS_CONTACTO;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ASubCuentas as IBizSubCuentasContacto);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -29,7 +29,13 @@ requires
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase;
|
||||
ApplicationBase,
|
||||
dbrtl,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11;
|
||||
|
||||
contains
|
||||
uBizContactosDatosBancarios in 'uBizContactosDatosBancarios.pas',
|
||||
@ -47,6 +53,7 @@ contains
|
||||
uIDataModuleFichasEmpleadoReport in 'Data\uIDataModuleFichasEmpleadoReport.pas',
|
||||
uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas',
|
||||
schContactosClient_Intf in 'schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in 'schContactosServer_Intf.pas';
|
||||
schContactosServer_Intf in 'schContactosServer_Intf.pas',
|
||||
uBizSubCuentasContacto in 'uBizSubCuentasContacto.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -50,17 +50,21 @@
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleClientes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleContactos.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleEmpleados.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="uBizClientesDescuentos.pas" />
|
||||
@ -70,6 +74,9 @@
|
||||
<DCCReference Include="uBizGruposCliente.pas" />
|
||||
<DCCReference Include="uBizGruposEmpleado.pas" />
|
||||
<DCCReference Include="uBizGruposProveedor.pas" />
|
||||
<DCCReference Include="uBizSubCuentasContacto.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -3,25 +3,27 @@ unit schContactosClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
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_Contactos = '{F0F9D3C9-E172-4D98-8BEA-17A208B81ACF}';
|
||||
RID_GruposCliente = '{2766FEF7-E91D-4D20-B91A-BF62CD52718B}';
|
||||
RID_DatosBancarios = '{092DF3B2-DF58-4938-9C03-4AFBDE4C21B9}';
|
||||
RID_Clientes = '{3F704A25-87C5-4703-A36E-F43F35015E87}';
|
||||
RID_Proveedores = '{73F3AD79-2DDE-4EAB-BAB0-E07521564344}';
|
||||
RID_Empleados = '{743452C9-C22F-4046-B7B2-5CABC0560120}';
|
||||
RID_DireccionesContacto = '{8A4FC8D1-7B4C-4AB4-8D88-435D399FF11A}';
|
||||
RID_ClientesDescuentos = '{90395716-B88F-4D46-B90F-9EEAACB04FDA}';
|
||||
RID_GruposProveedor = '{575567BD-E019-4A94-9825-D95AACBA47D0}';
|
||||
RID_GruposEmpleado = '{4F6588DD-9088-4CC3-98D9-7BB02932AA89}';
|
||||
RID_Contactos_Refresh = '{98DB65B8-84D8-4031-A653-528C0AE76035}';
|
||||
RID_SubCuentasContacto = '{31E4F142-90A9-43AF-BA1A-1D9E2709B45D}';
|
||||
RID_Contactos = '{D1D6AE0C-CB9D-4339-85EF-EF5D108CF7B0}';
|
||||
RID_GruposCliente = '{F20ADBA3-4C7F-4E45-BC8F-028251137CE3}';
|
||||
RID_DatosBancarios = '{1CD5BB52-38A3-447E-BE75-670660841F72}';
|
||||
RID_Clientes = '{F15EADE4-FBD1-4132-8475-8DD722611D2E}';
|
||||
RID_Proveedores = '{7981FF66-06FD-4EE1-9564-EA37C676A319}';
|
||||
RID_Empleados = '{AC0D3CD8-C3E4-45B9-A657-C282E25D2217}';
|
||||
RID_DireccionesContacto = '{75EBF2E8-5F56-4CD1-8F11-BCF2F68889D3}';
|
||||
RID_ClientesDescuentos = '{C40E3AD8-AEA8-4376-81F2-37A001F88732}';
|
||||
RID_GruposProveedor = '{0411FDA9-31F7-47DE-BAC4-73C59992FBC0}';
|
||||
RID_GruposEmpleado = '{AD867ECC-C46F-4976-8315-208A5F9BCD34}';
|
||||
RID_Contactos_Refresh = '{EF5AFE33-8F5F-42F4-8C9F-96D6C5778708}';
|
||||
|
||||
{ Data table names }
|
||||
nme_SubCuentasContacto = 'SubCuentasContacto';
|
||||
nme_Contactos = 'Contactos';
|
||||
nme_GruposCliente = 'GruposCliente';
|
||||
nme_DatosBancarios = 'DatosBancarios';
|
||||
@ -34,6 +36,22 @@ const
|
||||
nme_GruposEmpleado = 'GruposEmpleado';
|
||||
nme_Contactos_Refresh = 'Contactos_Refresh';
|
||||
|
||||
{ SubCuentasContacto fields }
|
||||
fld_SubCuentasContactoID = 'ID';
|
||||
fld_SubCuentasContactoREF_SUBCUENTA = 'REF_SUBCUENTA';
|
||||
fld_SubCuentasContactoDESCRIPCION = 'DESCRIPCION';
|
||||
fld_SubCuentasContactoID_CUENTA = 'ID_CUENTA';
|
||||
fld_SubCuentasContactoID_EJERCICIO = 'ID_EJERCICIO';
|
||||
fld_SubCuentasContactoID_CONTACTO = 'ID_CONTACTO';
|
||||
|
||||
{ SubCuentasContacto field indexes }
|
||||
idx_SubCuentasContactoID = 0;
|
||||
idx_SubCuentasContactoREF_SUBCUENTA = 1;
|
||||
idx_SubCuentasContactoDESCRIPCION = 2;
|
||||
idx_SubCuentasContactoID_CUENTA = 3;
|
||||
idx_SubCuentasContactoID_EJERCICIO = 4;
|
||||
idx_SubCuentasContactoID_CONTACTO = 5;
|
||||
|
||||
{ Contactos fields }
|
||||
fld_ContactosID = 'ID';
|
||||
fld_ContactosID_CATEGORIA = 'ID_CATEGORIA';
|
||||
@ -427,9 +445,104 @@ const
|
||||
idx_Contactos_RefreshPERSONA_CONTACTO = 20;
|
||||
|
||||
type
|
||||
{ ISubCuentasContacto }
|
||||
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{FA69CBDF-8BAE-4B55-B4FB-E88213EE6CA6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetREF_SUBCUENTAValue: String;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String);
|
||||
function GetREF_SUBCUENTAIsNull: Boolean;
|
||||
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetID_CUENTAValue: Integer;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer);
|
||||
function GetID_CUENTAIsNull: Boolean;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean);
|
||||
function GetID_EJERCICIOValue: Integer;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
function GetID_CONTACTOValue: Integer;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer);
|
||||
function GetID_CONTACTOIsNull: Boolean;
|
||||
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
end;
|
||||
|
||||
{ TSubCuentasContactoDataTableRules }
|
||||
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_SUBCUENTAValue: String; virtual;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
||||
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTAValue: Integer; virtual;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
||||
function GetID_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EJERCICIOValue: Integer; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CONTACTOValue: Integer; virtual;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
||||
function GetID_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{6A311707-BFBF-4A2D-8B23-A1854122C104}']
|
||||
['{52AEBACD-705B-4471-BBAE-94B13314F101}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -574,7 +687,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContactosDataTableRules }
|
||||
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
|
||||
TContactosDataTableRules = class(TDADataTableRules, IContactos)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -728,7 +841,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{9CAF03A2-A4F1-4258-B816-6F6F3DD28A5C}']
|
||||
['{90510826-AB2A-4C7D-9025-292E6B2C8DB5}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -742,7 +855,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposClienteDataTableRules }
|
||||
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
|
||||
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -763,7 +876,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{203B76FC-022A-40EE-9D0F-D349854569B2}']
|
||||
['{9E43DCFE-67C3-44AC-8FC5-EDD84DFD6D3B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -825,7 +938,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDatosBancariosDataTableRules }
|
||||
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
|
||||
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -894,7 +1007,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{F556CA82-15D1-4B12-872D-FA8DDC4D3D1F}']
|
||||
['{DDCC5378-B677-4E5F-8A5D-6C741BBE2C0D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1105,7 +1218,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDataTableRules }
|
||||
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
|
||||
TClientesDataTableRules = class(TDADataTableRules, IClientes)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -1325,7 +1438,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{E78B6920-EA8B-4272-A882-09272EE52570}']
|
||||
['{9FFF9137-76D8-4FB3-96BE-53594EA634D8}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1530,7 +1643,7 @@ type
|
||||
end;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
|
||||
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -1744,7 +1857,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{163A8B9E-63AC-4F3A-940F-B88797257D87}']
|
||||
['{710C416F-BD6B-4C34-AC34-1986426909E9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1927,7 +2040,7 @@ type
|
||||
end;
|
||||
|
||||
{ TEmpleadosDataTableRules }
|
||||
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
|
||||
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
f_FORMACION_BASE: IROStrings;
|
||||
@ -2127,7 +2240,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{B502F150-DACD-4279-B98F-FD8A8697087E}']
|
||||
['{54D84CC9-316E-4C07-9706-B7C61098524E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2230,7 +2343,7 @@ type
|
||||
end;
|
||||
|
||||
{ TDireccionesContactoDataTableRules }
|
||||
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
|
||||
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -2342,7 +2455,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{460B58FD-1B6D-4262-B98F-CB39420DA154}']
|
||||
['{FFE1721A-DDEB-4441-BA4D-C690D29ED039}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2380,7 +2493,7 @@ type
|
||||
end;
|
||||
|
||||
{ TClientesDescuentosDataTableRules }
|
||||
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
|
||||
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2425,7 +2538,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{2D44AEBA-C652-43E1-B930-414C6BCE4EBD}']
|
||||
['{E11DB2D2-063E-4057-97A1-E407BF2BF7D2}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -2439,7 +2552,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposProveedorDataTableRules }
|
||||
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
|
||||
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2460,7 +2573,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{4E36DEE5-8851-466F-835C-EE1AD7C9DEF6}']
|
||||
['{C1EDA3D0-AB74-460D-ACE5-66ABBB2DB007}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -2474,7 +2587,7 @@ type
|
||||
end;
|
||||
|
||||
{ TGruposEmpleadoDataTableRules }
|
||||
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
|
||||
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -2495,7 +2608,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{48624E43-02C5-408B-8BCE-41C7B43B3DE0}']
|
||||
['{5CA1791F-1EE5-4894-9282-EDE57B721677}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2628,7 +2741,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContactos_RefreshDataTableRules }
|
||||
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
|
||||
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
|
||||
private
|
||||
f_NOTAS: IROStrings;
|
||||
procedure NOTAS_OnChange(Sender: TObject);
|
||||
@ -2772,6 +2885,144 @@ implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TSubCuentasContactoDataTableRules }
|
||||
constructor TSubCuentasContactoDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TSubCuentasContactoDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasContactoID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasContactoID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetREF_SUBCUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].AsString;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetREF_SUBCUENTAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetREF_SUBCUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasContactoREF_SUBCUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasContactoDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetID_CUENTAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID_CUENTA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetID_CUENTAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasContactoID_CUENTA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetID_CUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID_CUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetID_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasContactoID_CUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetID_EJERCICIOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasContactoID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetID_CONTACTOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoDataTableRules.GetID_CONTACTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasContactoID_CONTACTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TContactosDataTableRules }
|
||||
constructor TContactosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
var
|
||||
@ -6621,6 +6872,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules);
|
||||
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
|
||||
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
|
||||
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
|
||||
|
||||
@ -9,22 +9,117 @@ 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_ContactosDelta = '{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}';
|
||||
RID_GruposClienteDelta = '{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}';
|
||||
RID_DatosBancariosDelta = '{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}';
|
||||
RID_ClientesDelta = '{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}';
|
||||
RID_ProveedoresDelta = '{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}';
|
||||
RID_EmpleadosDelta = '{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}';
|
||||
RID_DireccionesContactoDelta = '{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}';
|
||||
RID_ClientesDescuentosDelta = '{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}';
|
||||
RID_GruposProveedorDelta = '{D54FF769-D25B-4923-88CC-9585CBA3D60F}';
|
||||
RID_GruposEmpleadoDelta = '{DE8A4095-7B5A-4351-A924-641C7C8AE938}';
|
||||
RID_Contactos_RefreshDelta = '{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}';
|
||||
RID_SubCuentasContactoDelta = '{5B506DC8-4BEB-403B-A19C-F1EBF4C6A0DF}';
|
||||
RID_ContactosDelta = '{025485B6-6802-4164-B843-EE188E7BE7F9}';
|
||||
RID_GruposClienteDelta = '{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}';
|
||||
RID_DatosBancariosDelta = '{129907FB-F58D-490B-B218-54A501539647}';
|
||||
RID_ClientesDelta = '{86DFD53C-4819-4245-A6F3-BB96B7532388}';
|
||||
RID_ProveedoresDelta = '{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}';
|
||||
RID_EmpleadosDelta = '{6C1E2150-8536-48CB-A19C-28836A07D0C9}';
|
||||
RID_DireccionesContactoDelta = '{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}';
|
||||
RID_ClientesDescuentosDelta = '{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}';
|
||||
RID_GruposProveedorDelta = '{11E1D581-8AF0-4A90-85D1-2F750318A7BB}';
|
||||
RID_GruposEmpleadoDelta = '{051B0E6E-74A9-4169-9680-390315179437}';
|
||||
RID_Contactos_RefreshDelta = '{B6D16683-2657-4890-927A-0870813D9B96}';
|
||||
|
||||
type
|
||||
{ ISubCuentasContactoDelta }
|
||||
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
|
||||
['{5B506DC8-4BEB-403B-A19C-F1EBF4C6A0DF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldID_CUENTAValue : Integer;
|
||||
function GetOldID_EJERCICIOValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
||||
end;
|
||||
|
||||
{ TSubCuentasContactoBusinessProcessorRules }
|
||||
TSubCuentasContactoBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentasContacto, ISubCuentasContactoDelta)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_SUBCUENTAValue: String; virtual;
|
||||
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
function GetOldREF_SUBCUENTAValue: String; virtual;
|
||||
function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
||||
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTAValue: Integer; virtual;
|
||||
function GetID_CUENTAIsNull: Boolean; virtual;
|
||||
function GetOldID_CUENTAValue: Integer; virtual;
|
||||
function GetOldID_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EJERCICIOValue: Integer; virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
function GetOldID_EJERCICIOValue: Integer; virtual;
|
||||
function GetOldID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CONTACTOValue: Integer; virtual;
|
||||
function GetID_CONTACTOIsNull: Boolean; virtual;
|
||||
function GetOldID_CONTACTOValue: Integer; virtual;
|
||||
function GetOldID_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
|
||||
property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
|
||||
property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull;
|
||||
property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
|
||||
property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
|
||||
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
||||
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
||||
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
||||
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}']
|
||||
['{025485B6-6802-4164-B843-EE188E7BE7F9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -323,7 +418,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}']
|
||||
['{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -357,7 +452,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}']
|
||||
['{129907FB-F58D-490B-B218-54A501539647}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -487,7 +582,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}']
|
||||
['{86DFD53C-4819-4245-A6F3-BB96B7532388}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -918,7 +1013,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}']
|
||||
['{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1337,7 +1432,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}']
|
||||
['{6C1E2150-8536-48CB-A19C-28836A07D0C9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1724,7 +1819,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}']
|
||||
['{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -1939,7 +2034,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}']
|
||||
['{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2021,7 +2116,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{D54FF769-D25B-4923-88CC-9585CBA3D60F}']
|
||||
['{11E1D581-8AF0-4A90-85D1-2F750318A7BB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -2055,7 +2150,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{DE8A4095-7B5A-4351-A924-641C7C8AE938}']
|
||||
['{051B0E6E-74A9-4169-9680-390315179437}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -2089,7 +2184,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}']
|
||||
['{B6D16683-2657-4890-927A-0870813D9B96}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -2367,6 +2462,204 @@ implementation
|
||||
uses
|
||||
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||
|
||||
{ TSubCuentasContactoBusinessProcessorRules }
|
||||
constructor TSubCuentasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TSubCuentasContactoBusinessProcessorRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID]);
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA]);
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoREF_SUBCUENTA];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoREF_SUBCUENTA]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoREF_SUBCUENTA] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetID_CUENTAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetID_CUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA]);
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldID_CUENTAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CUENTA];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CUENTA]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CUENTA] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO]);
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_EJERCICIO];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_EJERCICIO]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_EJERCICIO] := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO]);
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CONTACTO];
|
||||
end;
|
||||
|
||||
function TSubCuentasContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasContactoID_CONTACTO]);
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasContactoID_CONTACTO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TContactosBusinessProcessorRules }
|
||||
constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
var
|
||||
@ -7966,6 +8259,7 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
|
||||
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
|
||||
|
||||
@ -4,7 +4,7 @@ interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, uROClasses,
|
||||
schContactosClient_Intf, uBizContactosDatosBancarios,
|
||||
schContactosClient_Intf, uBizContactosDatosBancarios, uBizSubCuentasContacto,
|
||||
uDBSelectionListUtils, uBizDireccionesContacto, uBizClientesDescuentos;
|
||||
|
||||
const
|
||||
@ -89,6 +89,10 @@ type
|
||||
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
|
||||
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
||||
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
||||
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
|
||||
end;
|
||||
|
||||
IBizProveedor = interface (IBizContacto)
|
||||
@ -133,6 +137,10 @@ type
|
||||
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
|
||||
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
||||
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
|
||||
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
|
||||
end;
|
||||
|
||||
IBizEmpleado = interface (IBizContacto)
|
||||
@ -169,8 +177,6 @@ type
|
||||
property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable)
|
||||
protected
|
||||
FDatosBancarios : IBizContactosDatosBancarios;
|
||||
@ -209,6 +215,8 @@ type
|
||||
|
||||
TBizCliente = class(TBizContacto, IBizCliente)
|
||||
protected
|
||||
FSubCuentas: IBizSubCuentasContacto;
|
||||
FSubCuentasLink : TDADataSource;
|
||||
FDescuentos : IBizClienteDescuentos;
|
||||
FDescuentosLink : TDADataSource;
|
||||
|
||||
@ -244,6 +252,10 @@ type
|
||||
|
||||
function GetDescuentos: IBizClienteDescuentos;
|
||||
procedure SetDescuentos(Value: IBizClienteDescuentos);
|
||||
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
|
||||
public
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -259,11 +271,15 @@ type
|
||||
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
|
||||
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
||||
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
||||
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
|
||||
end;
|
||||
|
||||
|
||||
TBizProveedor = class(TBizContacto, IBizProveedor)
|
||||
protected
|
||||
FSubCuentas: IBizSubCuentasContacto;
|
||||
FSubCuentasLink : TDADataSource;
|
||||
|
||||
function GetDESCUENTOValue: Float;
|
||||
procedure SetDESCUENTOValue(const aValue: Float);
|
||||
|
||||
@ -294,8 +310,13 @@ type
|
||||
function GetGRUPO_PROVEEDORValue: String;
|
||||
procedure SetGRUPO_PROVEEDORValue(const aValue: String);
|
||||
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
|
||||
public
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
||||
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
|
||||
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
|
||||
@ -306,6 +327,7 @@ type
|
||||
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
|
||||
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
||||
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
|
||||
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
|
||||
end;
|
||||
|
||||
|
||||
@ -408,7 +430,7 @@ end;
|
||||
procedure TBizContacto.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
ID := GetRecNo; // -1, -2, -3...
|
||||
// ID := GetRecNo; // -1, -2, -3...
|
||||
IniciarValoresContactoNuevo;
|
||||
end;
|
||||
|
||||
@ -433,12 +455,19 @@ begin
|
||||
FDescuentos := NIL;
|
||||
FDescuentosLink := TDADataSource.Create(NIL);
|
||||
FDescuentosLink.DataTable := aDataTable;
|
||||
|
||||
FSubCuentas := NIL;
|
||||
FSubCuentasLink := TDADataSource.Create(NIL);
|
||||
FSubCuentasLink.DataTable := aDataTable;
|
||||
end;
|
||||
|
||||
destructor TBizCliente.Destroy;
|
||||
begin
|
||||
FDescuentos := NIL;
|
||||
FreeAndNIL(FDescuentosLink);
|
||||
|
||||
FSubCuentas := NIL;
|
||||
FreeAndNIL(FSubCuentasLink);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -523,6 +552,11 @@ begin
|
||||
Result := DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetSubCuentas: IBizSubCuentasContacto;
|
||||
begin
|
||||
Result := FSubCuentas;
|
||||
end;
|
||||
|
||||
function TBizCliente.GetTIENDA_WEBValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
|
||||
@ -543,6 +577,12 @@ begin
|
||||
DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
begin
|
||||
FSubCuentas := Value;
|
||||
EnlazarMaestroDetalle(FSubCuentasLink, FSubCuentas);
|
||||
end;
|
||||
|
||||
procedure TBizCliente.SetTIENDA_WEBValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
|
||||
@ -590,6 +630,11 @@ begin
|
||||
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetSubCuentas: IBizSubCuentasContacto;
|
||||
begin
|
||||
Result := FSubCuentas;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetTIENDA_WEBValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
|
||||
@ -602,6 +647,22 @@ begin
|
||||
REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
|
||||
end;
|
||||
|
||||
constructor TBizProveedor.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FSubCuentas := NIL;
|
||||
FSubCuentasLink := TDADataSource.Create(NIL);
|
||||
FSubCuentasLink.DataTable := aDataTable;
|
||||
end;
|
||||
|
||||
destructor TBizProveedor.Destroy;
|
||||
begin
|
||||
FSubCuentas := NIL;
|
||||
FreeAndNIL(FSubCuentasLink);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetCERTIFICACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString;
|
||||
@ -667,6 +728,12 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
begin
|
||||
FSubCuentas := Value;
|
||||
EnlazarMaestroDetalle(FSubCuentasLink, FSubCuentas);
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetTIENDA_WEBValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
|
||||
|
||||
@ -59,7 +59,10 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
CanRemoveFromDelta := True;
|
||||
// No hay que quitar los deltas para que los datos del contacto se
|
||||
// mantengan por si alguna tabla detalle lo necesita
|
||||
// (por ejemplo, DireccionesContacto)
|
||||
CanRemoveFromDelta := False;
|
||||
end;
|
||||
|
||||
procedure TBizContactosServer.Delete_Categoria_Contacto(
|
||||
|
||||
@ -48,7 +48,7 @@ end;
|
||||
procedure TBizDireccionesContacto.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
ID := GetRecNo; // -1, -2, -3...
|
||||
// ID := GetRecNo; // -1, -2, -3...
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
51
Source/Modulos/Contactos/Model/uBizSubCuentasContacto.pas
Normal file
51
Source/Modulos/Contactos/Model/uBizSubCuentasContacto.pas
Normal file
@ -0,0 +1,51 @@
|
||||
unit uBizSubCuentasContacto;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable,
|
||||
schContactosClient_Intf;
|
||||
|
||||
const
|
||||
BIZ_CLIENT_SUBCUENTAS_CONTACTO = 'Client.SubCuentasContacto';
|
||||
|
||||
type
|
||||
IBizSubCuentasContacto = interface(ISubCuentasContacto)
|
||||
['{A14F362E-2FE5-4BA7-8241-C4B21E5CFC28}']
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizSubCuentasContacto = class(TSubCuentasContactoDataTableRules, IBizSubCuentasContacto)
|
||||
protected
|
||||
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||
public
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Dialogs,uDataTableUtils, DB;
|
||||
|
||||
{ TBizSubCuentasContacto }
|
||||
|
||||
procedure TBizSubCuentasContacto.BeforeInsert(Sender: TDADataTable);
|
||||
var
|
||||
AMasterTable : TDADataTable;
|
||||
begin
|
||||
inherited;
|
||||
AMasterTable := DataTable.GetMasterDataTable;
|
||||
if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
|
||||
AMasterTable.Post;
|
||||
end;
|
||||
|
||||
function TBizSubCuentasContacto.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_SUBCUENTAS_CONTACTO, TBizSubCuentasContacto);
|
||||
|
||||
|
||||
end.
|
||||
@ -14,6 +14,79 @@ object srvContactos: TsrvContactos
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_SUBCUENTAS'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_SUBCUENTA'
|
||||
TableField = 'REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CUENTA'
|
||||
TableField = 'ID_CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CONTACTO'
|
||||
TableField = 'ID_CONTACTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'SubCuentasContacto'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'SubCuentasContacto_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'SubCuentasContacto_REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'SubCuentasContacto_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentasContacto_ID_CONTACTO'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -249,6 +322,7 @@ object srvContactos: TsrvContactos
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Contactos_REFERENCIA'
|
||||
end>
|
||||
end
|
||||
@ -652,6 +726,7 @@ object srvContactos: TsrvContactos
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Clientes_REFERENCIA'
|
||||
end
|
||||
item
|
||||
@ -989,6 +1064,7 @@ object srvContactos: TsrvContactos
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Proveedores_REFERENCIA'
|
||||
end
|
||||
item
|
||||
@ -1309,6 +1385,7 @@ object srvContactos: TsrvContactos
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Agentes_REFERENCIA'
|
||||
end
|
||||
item
|
||||
@ -1628,7 +1705,6 @@ object srvContactos: TsrvContactos
|
||||
end>
|
||||
end
|
||||
item
|
||||
IsPublic = False
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
@ -3391,6 +3467,71 @@ object srvContactos: TsrvContactos
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_ContactoEmpresa'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_SUBCUENTAS'
|
||||
SQL =
|
||||
'UPDATE CONT_SUBCUENTAS'#10' SET'#10' ID_CONTACTO = :ID_CONTACTO'#10' W' +
|
||||
'HERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_SubCuentasContacto'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_SUBCUENTAS'
|
||||
SQL =
|
||||
'UPDATE CONT_SUBCUENTAS'#10' SET'#10' ID_CONTACTO = Null'#10' WHERE'#10' ' +
|
||||
' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_SubCuentasContacto'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_SUBCUENTAS'
|
||||
SQL =
|
||||
'UPDATE CONT_SUBCUENTAS'#10' SET'#10' ID_CONTACTO = :ID_CONTACTO'#10' W' +
|
||||
'HERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_SubCuentasContacto'
|
||||
end>
|
||||
RelationShips = <
|
||||
item
|
||||
@ -3425,6 +3566,30 @@ object srvContactos: TsrvContactos
|
||||
DetailFields = 'ID_CONTACTO'
|
||||
RelationshipType = rtForeignKey
|
||||
end
|
||||
item
|
||||
Name = 'FK_SubCuentas_Proveedores'
|
||||
MasterDatasetName = 'Proveedores'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'SubCuentasContacto'
|
||||
DetailFields = 'ID_CONTACTO'
|
||||
RelationshipType = rtForeignKey
|
||||
end
|
||||
item
|
||||
Name = 'FK_SubCuentas_Clientes'
|
||||
MasterDatasetName = 'Clientes'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'SubCuentasContacto'
|
||||
DetailFields = 'ID_CONTACTO'
|
||||
RelationshipType = rtForeignKey
|
||||
end
|
||||
item
|
||||
Name = 'FK_SubCuentas_Contactos'
|
||||
MasterDatasetName = 'Contactos'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'SubCuentasContacto'
|
||||
DetailFields = 'ID_CONTACTO'
|
||||
RelationshipType = rtForeignKey
|
||||
end
|
||||
item
|
||||
Name = 'FK_DireccionesContacto_Clientes'
|
||||
MasterDatasetName = 'Clientes'
|
||||
@ -3473,6 +3638,27 @@ object srvContactos: TsrvContactos
|
||||
DatasetName = 'Contactos'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Insert Clientes'
|
||||
DoUpdate = False
|
||||
DoDelete = False
|
||||
DatasetName = 'Clientes'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Insert Empleados'
|
||||
DoUpdate = False
|
||||
DoDelete = False
|
||||
DatasetName = 'Empleados'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Insert Proveedores'
|
||||
DoUpdate = False
|
||||
DoDelete = False
|
||||
DatasetName = 'Proveedores'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update Contactos'
|
||||
DoInsert = False
|
||||
@ -3480,6 +3666,27 @@ object srvContactos: TsrvContactos
|
||||
DatasetName = 'Contactos'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update Clientes'
|
||||
DoInsert = False
|
||||
DoDelete = False
|
||||
DatasetName = 'Clientes'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update Empleados'
|
||||
DoInsert = False
|
||||
DoDelete = False
|
||||
DatasetName = 'Empleados'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update Proveedores'
|
||||
DoInsert = False
|
||||
DoDelete = False
|
||||
DatasetName = 'Proveedores'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Insert DatosBancarios'
|
||||
DoUpdate = False
|
||||
@ -3536,6 +3743,20 @@ object srvContactos: TsrvContactos
|
||||
DatasetName = 'ClientesDescuentos'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Insert SubCuentasContacto'
|
||||
DoUpdate = False
|
||||
DoDelete = False
|
||||
DatasetName = 'SubCuentasContacto'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Update SubCuentasContacto'
|
||||
DoInsert = False
|
||||
DoDelete = False
|
||||
DatasetName = 'SubCuentasContacto'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete DatosBancarios'
|
||||
DoUpdate = False
|
||||
@ -3564,12 +3785,40 @@ object srvContactos: TsrvContactos
|
||||
DatasetName = 'DireccionesContacto'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete Proveedores'
|
||||
DoUpdate = False
|
||||
DoInsert = False
|
||||
DatasetName = 'Proveedores'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete Empleados'
|
||||
DoUpdate = False
|
||||
DoInsert = False
|
||||
DatasetName = 'Empleados'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete Clientes'
|
||||
DoUpdate = False
|
||||
DoInsert = False
|
||||
DatasetName = 'Clientes'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete Contactos'
|
||||
DoUpdate = False
|
||||
DoInsert = False
|
||||
DatasetName = 'Contactos'
|
||||
FailureBehavior = fbRaiseException
|
||||
end
|
||||
item
|
||||
Name = 'Delete SubCuentasContacto'
|
||||
DoUpdate = False
|
||||
DoInsert = False
|
||||
DatasetName = 'SubCuentasContacto'
|
||||
FailureBehavior = fbRaiseException
|
||||
end>
|
||||
Version = 0
|
||||
Left = 30
|
||||
@ -4040,6 +4289,36 @@ object srvContactos: TsrvContactos
|
||||
Size = 255
|
||||
Required = True
|
||||
DisplayLabel = 'Nombre'
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentasContacto_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentasContacto_REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentasContacto_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentasContacto_ID_CUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentasContacto_ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentasContacto_ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Left = 126
|
||||
Top = 14
|
||||
@ -4047,27 +4326,7 @@ object srvContactos: TsrvContactos
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 126
|
||||
Top = 82
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="Contactos" Left="200" Top="200" Wid' +
|
||||
'th="400" Height="300">'#13#10' <Entity Name="Contactos" Left="0,00"' +
|
||||
' Top="85,50" />'#13#10' <Entity Name="DireccionesContacto" Left="32' +
|
||||
'0,90" Top="183,00" />'#13#10' <Entity Name="DatosBancarios" Left="3' +
|
||||
'25,90" Top="0,00" />'#13#10' </Diagram>'#13#10' <Diagram Name="Clientes" L' +
|
||||
'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' +
|
||||
'"Clientes" Left="0,00" Top="23,00" />'#13#10' <Entity Name="Direcci' +
|
||||
'onesContacto" Left="253,00" Top="236,00" />'#13#10' <Entity Name="D' +
|
||||
'atosBancarios" Left="463,00" Top="175,00" />'#13#10' <Entity Name="' +
|
||||
'ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10' </Diagram>'#13#10' ' +
|
||||
' <Diagram Name="Empleados" Left="200" Top="200" Width="400" Heig' +
|
||||
'ht="300">'#13#10' <Entity Name="DireccionesContacto" Left="295,00" ' +
|
||||
'Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="210,50" T' +
|
||||
'op="280,67" />'#13#10' <Entity Name="Empleados" Left="0,00" Top="42' +
|
||||
',00" />'#13#10' </Diagram>'#13#10' <Diagram Name="Proveedores" Left="200" ' +
|
||||
'Top="200" Width="400" Height="300">'#13#10' <Entity Name="Proveedor' +
|
||||
'es" Left="0,00" Top="115,17" />'#13#10' <Entity Name="DireccionesCo' +
|
||||
'ntacto" Left="245,28" Top="0,00" />'#13#10' <Entity Name="DatosBanc' +
|
||||
'arios" Left="247,28" Top="242,04" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13 +
|
||||
#10
|
||||
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object bpContactos: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
@ -4099,7 +4358,7 @@ object srvContactos: TsrvContactos
|
||||
UpdateCommandName = 'Update_Contactos'
|
||||
RefreshDatasetName = 'Contactos_Refresh'
|
||||
ReferencedDataset = 'Empleados'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 344
|
||||
Top = 15
|
||||
@ -4111,7 +4370,7 @@ object srvContactos: TsrvContactos
|
||||
UpdateCommandName = 'Update_Contactos'
|
||||
RefreshDatasetName = 'Contactos_Refresh'
|
||||
ReferencedDataset = 'Clientes'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 344
|
||||
Top = 143
|
||||
@ -4123,7 +4382,7 @@ object srvContactos: TsrvContactos
|
||||
UpdateCommandName = 'Update_Contactos'
|
||||
RefreshDatasetName = 'Contactos_Refresh'
|
||||
ReferencedDataset = 'Proveedores'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 344
|
||||
Top = 79
|
||||
@ -4154,4 +4413,16 @@ object srvContactos: TsrvContactos
|
||||
Left = 32
|
||||
Top = 80
|
||||
end
|
||||
object bpSubCuentasContacto: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
InsertCommandName = 'Insert_SubCuentasContacto'
|
||||
DeleteCommandName = 'Delete_SubCuentasContacto'
|
||||
UpdateCommandName = 'Update_SubCuentasContacto'
|
||||
RefreshDatasetName = 'SubCuentasContacto_Refresh'
|
||||
ReferencedDataset = 'SubCuentasContacto'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 96
|
||||
Top = 207
|
||||
end
|
||||
end
|
||||
|
||||
@ -31,6 +31,7 @@ type
|
||||
bpDireccionesContacto: TDABusinessProcessor;
|
||||
bpClientesDescuentos: TDABusinessProcessor;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpSubCuentasContacto: TDABusinessProcessor;
|
||||
schContactos: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
|
||||
@ -36,7 +36,36 @@ requires
|
||||
TiposIVA_controller,
|
||||
Contactos_model,
|
||||
Contactos_controller,
|
||||
JvGlobusD11R;
|
||||
JvGlobusD11R,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
DataAbstract_Core_D11,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
cxLibraryD10,
|
||||
dxThemeD10,
|
||||
cxEditorsD10,
|
||||
cxDataD10,
|
||||
vcljpg,
|
||||
dxLayoutControlD10,
|
||||
dxComnD10,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
JvCoreD11R,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvAppFrmD11R,
|
||||
JvCtrlsD11R,
|
||||
JvSystemD11R,
|
||||
JvStdCtrlsD11R,
|
||||
GUISDK_D11,
|
||||
xmlrtl,
|
||||
cfpack_d11,
|
||||
designide,
|
||||
ccpackD11;
|
||||
|
||||
contains
|
||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||
@ -71,6 +100,7 @@ contains
|
||||
uEditorGruposProveedor in 'uEditorGruposProveedor.pas' {fEditorGruposProveedor: TCustomEditor},
|
||||
uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor},
|
||||
uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: TCustomEditor},
|
||||
uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor};
|
||||
uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor},
|
||||
uViewSubCuentaContacto in 'uViewSubCuentaContacto.pas' {frViewSubCuentaContacto: TCustomView};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,18 +49,47 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
@ -189,6 +218,10 @@
|
||||
<Form>frViewProveedores</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewSubCuentaContacto.pas">
|
||||
<Form>frViewSubCuentaContacto</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 656
|
||||
Height = 490
|
||||
ActivePage = pagDatosComerciales
|
||||
ActivePage = pagContabilidad
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 490
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -205,6 +205,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Top = 84
|
||||
ExplicitLeft = 527
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 157
|
||||
Width = 157
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 527
|
||||
@ -291,23 +293,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 648
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 648
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
ExplicitWidth = 114
|
||||
Width = 114
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 418
|
||||
ExplicitLeft = 418
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eTitular: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
Left = 419
|
||||
ExplicitLeft = 419
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -357,20 +345,14 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 180
|
||||
@ -381,8 +363,6 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 180
|
||||
@ -524,6 +504,46 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagContabilidad: TTabSheet
|
||||
Caption = 'Contabilidad'
|
||||
ImageIndex = 5
|
||||
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 648
|
||||
Height = 462
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 648
|
||||
ExplicitHeight = 462
|
||||
inherited layoutApunte: TdxLayoutControl
|
||||
Width = 648
|
||||
Height = 462
|
||||
ExplicitWidth = 648
|
||||
ExplicitHeight = 462
|
||||
inherited BitBtn3: TBitBtn
|
||||
Left = 401
|
||||
ExplicitLeft = 401
|
||||
end
|
||||
inherited BitBtn1: TBitBtn
|
||||
Left = 482
|
||||
ExplicitLeft = 482
|
||||
end
|
||||
inherited BitBtn2: TBitBtn
|
||||
Left = 563
|
||||
ExplicitLeft = 563
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 566
|
||||
|
||||
@ -14,7 +14,7 @@ uses
|
||||
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
|
||||
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
|
||||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||||
uViewClienteDatosComerciales, uDAInterfaces;
|
||||
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto;
|
||||
|
||||
type
|
||||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||||
@ -27,6 +27,8 @@ type
|
||||
frViewClienteDescuentos1: TfrViewClienteDescuentos;
|
||||
pagDatosComerciales: TTabSheet;
|
||||
frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
|
||||
pagContabilidad: TTabSheet;
|
||||
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
protected
|
||||
@ -105,11 +107,13 @@ begin
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||||
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
|
||||
frViewClienteDatosComerciales1.Contacto := Contacto;
|
||||
frViewSubCuentaContacto1.Contacto := Contacto;
|
||||
end
|
||||
else begin
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
||||
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
|
||||
frViewClienteDatosComerciales1.Contacto := NIL;
|
||||
frViewSubCuentaContacto1.Contacto := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -55,7 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 648
|
||||
Height = 495
|
||||
ActivePage = pagDatosComerciales
|
||||
ActivePage = PagContabilidad
|
||||
ExplicitWidth = 648
|
||||
ExplicitHeight = 495
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -102,10 +102,10 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 391
|
||||
Left = 395
|
||||
Top = 297
|
||||
Width = 342
|
||||
ExplicitLeft = 391
|
||||
ExplicitLeft = 395
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 342
|
||||
end
|
||||
@ -128,9 +128,9 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 108
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 298
|
||||
Left = 302
|
||||
Top = 321
|
||||
ExplicitLeft = 298
|
||||
ExplicitLeft = 302
|
||||
ExplicitTop = 321
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
@ -142,9 +142,9 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 580
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 391
|
||||
Left = 395
|
||||
Top = 270
|
||||
ExplicitLeft = 391
|
||||
ExplicitLeft = 395
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
@ -180,33 +180,33 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 221
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 57
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 30
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 84
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 111
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
@ -218,35 +218,35 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 263
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 210
|
||||
Left = 217
|
||||
Top = 30
|
||||
ExplicitLeft = 210
|
||||
ExplicitLeft = 217
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 254
|
||||
Width = 254
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 486
|
||||
Left = 490
|
||||
Top = 217
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
@ -325,16 +325,22 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited Label1: TLabel
|
||||
Left = 416
|
||||
Top = 30
|
||||
Width = 190
|
||||
ExplicitLeft = 416
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 190
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 256
|
||||
@ -345,6 +351,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 256
|
||||
@ -357,6 +365,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Top = 62
|
||||
ExplicitLeft = 460
|
||||
ExplicitTop = 62
|
||||
ExplicitWidth = 73
|
||||
Width = 73
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -420,6 +430,43 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
end
|
||||
end
|
||||
object PagContabilidad: TTabSheet
|
||||
Caption = 'Contabilidad'
|
||||
ImageIndex = 4
|
||||
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 640
|
||||
Height = 467
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
inherited layoutApunte: TdxLayoutControl
|
||||
Width = 640
|
||||
Height = 467
|
||||
ExplicitHeight = 304
|
||||
inherited BitBtn3: TBitBtn
|
||||
Left = 393
|
||||
ExplicitLeft = 393
|
||||
end
|
||||
inherited BitBtn1: TBitBtn
|
||||
Left = 474
|
||||
ExplicitLeft = 474
|
||||
end
|
||||
inherited BitBtn2: TBitBtn
|
||||
Left = 555
|
||||
ExplicitLeft = 555
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 571
|
||||
|
||||
@ -14,7 +14,7 @@ uses
|
||||
cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
||||
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
|
||||
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uViewSubCuentaContacto;
|
||||
|
||||
type
|
||||
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
|
||||
@ -24,6 +24,8 @@ type
|
||||
pagDirecciones: TTabSheet;
|
||||
frViewDireccionesEntrega1: TfrViewDireccionesEntrega;
|
||||
actGruposProveedor: TAction;
|
||||
PagContabilidad: TTabSheet;
|
||||
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
|
||||
procedure actGruposProveedorExecute(Sender: TObject);
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
@ -90,12 +92,14 @@ begin
|
||||
if Assigned(Contacto) then
|
||||
begin
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||||
frViewProveedorDatosComerciales1.Contacto := Contacto
|
||||
frViewProveedorDatosComerciales1.Contacto := Contacto;
|
||||
frViewSubCuentaContacto1.Contacto := Contacto;
|
||||
end
|
||||
else
|
||||
begin
|
||||
frViewProveedorDatosComerciales1.Contacto := NIL;
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
||||
frViewSubCuentaContacto1.Contacto := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
977
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
Normal file
977
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
Normal file
@ -0,0 +1,977 @@
|
||||
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
object layoutApunte: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
object eRefSubCuenta: TcxDBTextEdit
|
||||
Left = 93
|
||||
Top = 10
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REF_SUBCUENTA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ReadOnly = True
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = 14745599
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Width = 346
|
||||
end
|
||||
object BitBtn3: TBitBtn
|
||||
Left = 204
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actElegirSubCuenta
|
||||
Caption = 'Elegir subcuenta'
|
||||
TabOrder = 1
|
||||
end
|
||||
object eSubCuenta: TcxDBTextEdit
|
||||
Left = 93
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'DESCRIPCION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ReadOnly = True
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = 14745599
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 265
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 285
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actAnadirSubcuenta
|
||||
Caption = 'A'#241'adir subcuenta'
|
||||
TabOrder = 2
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 366
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Action = actVerSubcuenta
|
||||
Caption = 'Ver subcuenta'
|
||||
TabOrder = 3
|
||||
end
|
||||
object layoutApunteGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object layoutApunteGroup1: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos del apunte'
|
||||
ShowCaption = False
|
||||
ShowBorder = False
|
||||
object layoutApunteGroup3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object layoutApunteItem2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Ref. subcuenta:'
|
||||
Control = eRefSubCuenta
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object layoutApunteItem4: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = BitBtn3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object layoutApunteItem1: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = BitBtn1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object layoutApunteItem3: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = BitBtn2
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object layoutApunteItem5: TdxLayoutItem
|
||||
Caption = 'Subcuenta:'
|
||||
Control = eSubCuenta
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object DADataSource: TDADataSource
|
||||
Left = 24
|
||||
Top = 88
|
||||
end
|
||||
object png: TActionList
|
||||
Left = 64
|
||||
Top = 88
|
||||
object actElegirSubCuenta: TAction
|
||||
Caption = 'Elegir subcuenta'
|
||||
OnExecute = actElegirSubCuentaExecute
|
||||
end
|
||||
object actVerSubcuenta: TAction
|
||||
Caption = 'Ver subcuenta'
|
||||
OnExecute = actVerSubcuentaExecute
|
||||
OnUpdate = actVerSubcuentaUpdate
|
||||
end
|
||||
object actAnadirSubcuenta: TAction
|
||||
Caption = 'A'#241'adir subcuenta'
|
||||
OnExecute = actAnadirSubcuentaExecute
|
||||
end
|
||||
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
|
||||
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
|
||||
F80000000970485973000017120000171201679FD2520000018C4944415478DA
|
||||
63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E
|
||||
16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F
|
||||
C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1
|
||||
9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414
|
||||
60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB
|
||||
FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE
|
||||
4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3
|
||||
FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F
|
||||
2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397
|
||||
FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD
|
||||
BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5
|
||||
EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01
|
||||
2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082}
|
||||
Name = 'PngImage21'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000002694944415478DA
|
||||
B594CB6B134118C0BFB9743D6841A48A1E5A1FF1502A5AA555A3584544BDE829
|
||||
1E04C58B87E4A247FF84EAA168AD90A017C17A908882082A8A50A15AAD448B0F
|
||||
D0F8A8252D4A1A2D096477670DE37C3B997D249B6636E007C37C330BBFDF3CBE
|
||||
59C21803F305615A9411E061E75F7972C233AE7E6B25080A60943073031F4492
|
||||
C0BE240005F4909B4B59CB029A4FB1B64709400906423197A28BA7072137F72B
|
||||
347C64D22062073C50823D6B4F08733169F7083F9BBA0385D96F502E2EF0F607
|
||||
F4D2028CDDBE09EBD7AD8223E792F6BC5EFAEDFB3E742F0BE9749A10E3393067
|
||||
D5C704B8AD230EA6C94F25E3AE6646BFAA0CBF3E320885AE9810B01B42605F28
|
||||
17689A18A2404BBB82A9A51794E1AB97AF84F7ED0355419323CAFF5801F3B9EF
|
||||
A1E0183E01C2B162B08AF0B29D1D552B2BF3704609BEB1732D509302A57FFD02
|
||||
59FBDED2C45C56D6A5F39D4DE1DB36F5D870D3B4EC3EB36497E788F83BC05A8F
|
||||
6F276C78585C78FCB2D845EA8C9B378A81683F58D472E0D84F903EFF1D600C9D
|
||||
24ECF0C1534DEBBB52A9701007EA149E3C18879ECD117E2C964F3246B7B426F0
|
||||
C211F4ECE924F4F675DB70AFE471A93BBCA0168EA097E36F21BA672BE8BAE193
|
||||
DC9F8F841304C1B17FF3FA23EC3BB0838FA94F7277AE4B5DD0088E731FDE656D
|
||||
81789CAEE4D6F41A35C162705C69F6D3B423F04A463F773417D4C2CB6543801D
|
||||
9105B3B99F3E81945C9B5AB6B8C0811862B5A65CB5078E2D9F2FD409AEBCD26C
|
||||
38E681025538CE178B259FC00B0F14ECDF7B5C198E7760188623A885070A76EF
|
||||
8C29C331A420081E28E8EF3DAA0C9702F9E70C7A3F758209230661A311BC4EF0
|
||||
3FE21F497E40FE838101750000000049454E44AE426082}
|
||||
Name = 'PngImage22'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 99
|
||||
Top = 88
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
149
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas
Normal file
149
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas
Normal file
@ -0,0 +1,149 @@
|
||||
unit uViewSubCuentaContacto;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||
DBCtrls, Grids, DBGrids, uBizContactos, Mask, ComCtrls, uCustomView,
|
||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
|
||||
cxImageComboBox, cxMaskEdit, cxCalendar, ImgList, PngImageList, ActnList,
|
||||
cxCurrencyEdit, uSubCuentasController;
|
||||
|
||||
type
|
||||
IViewSubCuenta = interface(IViewBase)
|
||||
['{F01E0772-4D72-41DD-AFEF-4BA6548A1FC6}']
|
||||
function GetContacto: IBizContacto;
|
||||
procedure SetContacto(const Value: IBizContacto);
|
||||
property Contacto: IBizContacto read GetContacto write SetContacto;
|
||||
end;
|
||||
|
||||
TfrViewSubCuentaContacto = class(TfrViewBase, IViewSubCuenta)
|
||||
DADataSource: TDADataSource;
|
||||
layoutApunteGroup_Root: TdxLayoutGroup;
|
||||
layoutApunte: TdxLayoutControl;
|
||||
layoutApunteGroup1: TdxLayoutGroup;
|
||||
layoutApunteItem2: TdxLayoutItem;
|
||||
eRefSubCuenta: TcxDBTextEdit;
|
||||
layoutApunteItem4: TdxLayoutItem;
|
||||
BitBtn3: TBitBtn;
|
||||
png: TActionList;
|
||||
actElegirSubCuenta: TAction;
|
||||
LargeImages: TPngImageList;
|
||||
layoutApunteItem5: TdxLayoutItem;
|
||||
eSubCuenta: TcxDBTextEdit;
|
||||
layoutApunteGroup3: TdxLayoutGroup;
|
||||
actVerSubcuenta: TAction;
|
||||
actAnadirSubcuenta: TAction;
|
||||
layoutApunteItem1: TdxLayoutItem;
|
||||
BitBtn1: TBitBtn;
|
||||
layoutApunteItem3: TdxLayoutItem;
|
||||
BitBtn2: TBitBtn;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirSubCuentaExecute(Sender: TObject);
|
||||
procedure actAnadirSubcuentaExecute(Sender: TObject);
|
||||
procedure actVerSubcuentaExecute(Sender: TObject);
|
||||
procedure actVerSubcuentaUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
FController : ISubcuentasController;
|
||||
FContacto: IBizContacto;
|
||||
function GetContacto: IBizContacto;
|
||||
procedure SetContacto(const Value: IBizContacto);
|
||||
public
|
||||
property Contacto: IBizContacto read GetContacto write SetContacto;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
{ TfrViewSubCuenta }
|
||||
|
||||
{
|
||||
******************************* TfrViewSubCuenta ********************************
|
||||
}
|
||||
|
||||
procedure TfrViewSubCuentaContacto.actAnadirSubcuentaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
{ if Supports(IBizCliente, FContacto) then
|
||||
FController.VerSubCuentaContacto((Contacto as IBizCliente).SubCuentas)
|
||||
else if Supports(IBizProveedor, FContacto) then
|
||||
FController.VerSubCuentaContacto((Contacto as IBizProveedor).SubCuentas);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewSubCuentaContacto.actElegirSubCuentaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Supports(FContacto, IBizCliente) then
|
||||
FController.ElegirSubCuentaContacto((Contacto as IBizCliente).SubCuentas, CTE_CUENTASCLIENTE)
|
||||
else if Supports(FContacto, IBizProveedor) then
|
||||
FController.ElegirSubCuentaContacto((Contacto as IBizProveedor).SubCuentas, CTE_CUENTASPROVEEDOR);
|
||||
end;
|
||||
|
||||
procedure TfrViewSubCuentaContacto.actVerSubcuentaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Supports(FContacto, IBizCliente) then
|
||||
FController.VerSubCuentaContacto((Contacto as IBizCliente).SubCuentas)
|
||||
else if Supports(FContacto, IBizProveedor) then
|
||||
FController.VerSubCuentaContacto((Contacto as IBizProveedor).SubCuentas);
|
||||
end;
|
||||
|
||||
procedure TfrViewSubCuentaContacto.actVerSubcuentaUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := not eRefSubCuenta.DataBinding.Field.IsNull;
|
||||
end;
|
||||
|
||||
{
|
||||
function TfrViewApunte.GetController: IApuntesController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
}
|
||||
|
||||
procedure TfrViewSubCuentaContacto.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FController := TSubcuentasController.Create;
|
||||
end;
|
||||
|
||||
procedure TfrViewSubCuentaContacto.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
FController := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrViewSubCuentaContacto.GetContacto: IBizContacto;
|
||||
begin
|
||||
Result := FContacto;
|
||||
end;
|
||||
|
||||
{
|
||||
procedure TfrViewApunte.SetController(const Value: IApuntesController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
}
|
||||
|
||||
procedure TfrViewSubCuentaContacto.SetContacto(const Value: IBizContacto);
|
||||
begin
|
||||
FContacto := Value;
|
||||
if Assigned(FContacto) then
|
||||
begin
|
||||
if Supports(FContacto, IBizCliente) then
|
||||
DADataSource.DataTable := (FContacto as IBizCliente).SubCuentas.DataTable
|
||||
else if Supports(FContacto, IBizProveedor) then
|
||||
DADataSource.DataTable := (FContacto as IBizProveedor).SubCuentas.DataTable;
|
||||
end
|
||||
else
|
||||
DADataSource.DataTable := NIL;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
@ -30,8 +30,6 @@ uses
|
||||
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
|
||||
uServerAppUtils in 'Utiles\uServerAppUtils.pas',
|
||||
uSesionesUtils in 'Utiles\uSesionesUtils.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
|
||||
uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
|
||||
uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
|
||||
@ -102,7 +100,9 @@ uses
|
||||
schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
|
||||
srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
|
||||
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
|
||||
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
|
||||
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -1,219 +1,220 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
VALUE "CompileDate", "jueves, 13 de diciembre de 2007 13:39\0"
|
||||
VALUE "CompileDate", "lunes, 17 de diciembre de 2007 20:43\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user